打开 Mathematica 文件时检测到错误

Question

上次当我想保存 Mathematica 文件时，有些事情很奇怪。现在，当我想打开我的文件时，需要很长时间，最后我只看到一些数据，而且我无法使用它。

我已在这里上传我的文件：

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

您能否打开该文件并向我解释一下您是如何做到这一点并再次发送给我的？

很长一段时间后，Mathematica 中出现此消息：

下面命名的文件中似乎存在错误。您应该关闭它而不保存，然后选中“笔记本选项”对话框中的“打开时解析整个笔记本并将其加载到内存中”复选框。文件名：D:\App\Math\Unt.nb。

Answer 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 合作的方式。破坏你的文件是我的报复心理。