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合作的方式。腐败你的文件是Mma复仇的感觉。

Answer 2

如果您遇到问题，请联系Wolfram技术支持。

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

打开mathematica文件

2 个答案: