Открытие файла 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]]);

Сделайте это для каждой ячейки или создайте программу, которая сделает это за вас.

Edit

Сегодня у меня были мягкие чувства, и я решил помочь вам немного больше ...

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.Повреждение вашего файла было мма чувство мести.

Answer 2

Если у вас возникли проблемы, обратитесь в службу технической поддержки Wolfram.

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