Ouverture du fichier mathematica

Question

Peut-être que je n'ai pas expliqué mon problème correctement. La dernière fois que j'ai voulu sauvegarder mon fichier mathematica, quelque chose était étrange. Maintenant, quand je veux ouvrir mon fichier, cela prend trop de temps et à la fin je vois juste quelques données et je ne peux pas utiliser ça. Je veux savoir s'il y a quelqu'un qui peut m'aider.

J'ai téléchargé ici mon dossier:

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

Pourriez-vous s'il vous plaît ouvrir ce fichier et me expliquer comment as-tu fait cela et me envoyer à nouveau; c'est urgent.

Merci

Ce message apparaît dans Mathematica après une longue période:

Il semble y avoir une erreur dans le fichier nommé ci-dessous. Vous devez le fermer sans enregistrer, puis cochez la case "Analyser et charger tout le bloc-notes en mémoire à l'ouverture" dans la boîte de dialogue Options du bloc-notes. Nom de fichier: D: \ App \ Math \ Unt.nb.

pourquoi ce n'est pas une vraie question. Si ce n'est pas le cas, pourriez-vous me dire où puis-je résoudre ce problème?

Answer 1

Vous devriez contacter le support technique de Wolfram si vous rencontrez des problèmes.

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

Answer 2

Un soupçon:

Ouvrez votre ordinateur portable avec un bon éditeur. Votre fichier est plutôt gros, donc je vais transcrire juste une ligne. Effectuez les opérations suivantes:

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

que vous donne:

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

faire pour chaque cellule, ou faire un programme pour le faire pour vous.

Modifier

J'étais aujourd'hui au cœur tendre, et a décidé de vous aider un peu plus ...

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; 

Mais j'ai vu que vous continuez avec les définitions que pour votre k__ jusqu'à k2000, qui a une longueur de 310 chiffres, puis définit presque 5000 autres variables indépendantes de plus.

Désolé, mais ce n'est pas la façon de travailler avec Mma. Corrompre votre dossier était Mma sens de la vengeance.