mathematicaファイルを開く

Question

多分私は問題を正しく説明していないかもしれません。私がmathematicaファイルを保存したいと思った最後の時に、何かが奇妙でした。今ではファイルを開くときに時間がかかり、最後にデータがいくつか表示されますが、それを使用することはできません。私は誰かが私を助けることができるかどうかを知りたい。

私はここに私のファイルをアップロードしています

http://www.mediafire.com/?4etrrd3rauq0j59

そのファイルを開いて、あなたがそれを行うと、再び私に送ったのか私に説明してもらえます。それは急務であります。

おかげ

このメッセージは、長い時間の後にMathematicaに表示されます。

は、以下の名前のファイルにエラーがあるように見えます。保存せずに閉じて、ノートブックオプションダイアログの「パースし、ノートブック全体をメモリに読み込む」チェックボックスをオンにしてください。ファイル名：D：\ App \ Math \ Unt.nb。

なぜ本当の質問ではありません。そうでない場合は、この問題をどこで解決できるか教えてください。

Answer 1

問題が発生した場合は、Wolframの技術サポートに連絡してください。

http://www.wolfram.com/support/

Answer 2

だけヒント：

は良いエディタでノートブックを開きます。あなたのファイルはかなり大きいので、私は1行だけ転記します。

CellPrint@Cell[CellGroupData[{ 
    Cell[BoxData[{RowBox[{ 
      RowBox[{ 
       RowBox[{"pp", "[", "n_", "]"}], ":=", 
       RowBox[{ 
       RowBox[{"DivisorSigma", "[", 
        RowBox[{"1", ",", "n"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"n", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"Log", "[", "n", "]"}], "]"}]}], 
       ")"}]}]}], ";"}]}]]}]] 

あなたを与えること：

pp[n_]:=DivisorSigma[1,n]/(n*Log[Log[n]]); 

は、すべてのセルのためにそれを行う、またはあなたのためにそれを行うためのプログラムを作成し、以下を行います。

編集

今日は柔らかい心を持った、そしてもう少しあなたを助けることにしました...

pp[n_]:=DivisorSigma[1,n]/(n*Log[Log[n]]); 
mp[n_]:=Max[FactorInteger[n]]; 
g[n_]:=Product[If[Element[i,Primes],i,1],{i,1,n}]; 
k1=1; 
k2=2; 
k3=4; 
k4=6; 
k5=12; 
k6=24; 
k7=36; 
k8=48; 
k9=60; 
k10=120; 
k11=180; 
k12=240; 
k13=360; 
k14=720; 
k15=840; 
k16=1260; 
k17=1680; 
k18=2520; 

しかし、私はあなたのk__のためにその定義を続けることを見ましたk2000まで、これは310桁の長さで、5000個の独立した変数を定義します。

申し訳ありませんが、それはMmaを使用する方法ではありません。あなたのファイルを壊すのは、MMAの復讐感でした。