2010-12-11 16 views
0

Vielleicht habe ich mein Problem nicht richtig erklärt. In der letzten Zeit, als ich meine Mathematica-Datei speichern wollte, war etwas seltsam. Nun, wenn ich meine Datei öffnen möchte, dauert es zu lange und am Ende sehe ich nur ein paar Daten und auch das kann ich nicht verwenden. Ich möchte wissen, ob es jemanden gibt, der mir helfen kann.Öffnen Mathematica Datei

ich meine Datei haben hier hochgeladen:

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

Könnten Sie bitte diese Datei öffnen und mir erklären, wie Sie mir tat wieder das und schicken; es eilt.

Dank

Diese Meldung erscheint in Mathematica nach langer Zeit:

Es scheint ein Fehler in der Datei unter dem Namen zu sein. Sie sollten es schließen, ohne zu speichern, und aktivieren Sie dann das Kontrollkästchen "Gesamtes Notebook im Arbeitsspeicher parsen und laden" im Dialogfeld "Notebook-Optionen". Dateiname: D: \ App \ Math \ Unt.nb.

Warum ist es keine echte Frage. Wenn nicht, können Sie mir bitte mitteilen, wo ich dieses Problem lösen kann

+5

Dies ist keine echte Frage, weil Sie jemanden um eine bestimmte Arbeit für Sie bitten möchten. Und übrigens, der Job ist eher unangenehm. –

+6

-1 Für die gleiche Frage 3 mal Fragen .... – Simon

+5

Diese Frage bezieht sich nicht auf die Programmierung. – athspk

Antwort

3

Nur ein Hinweis:

Öffnen Sie Ihr Notebook mit einem guten Editor. Deine Datei ist ziemlich groß, also schreibe ich nur eine Zeile ab. Gehen Sie wie folgt:

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

, das gibt Ihnen:

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

Sie, dass für jede Zelle oder ein Programm zu tun, machen das für Sie.

bearbeiten

Ich war weichherzig heute, und beschlossen, Ihnen ein wenig mehr ...

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; 

zu helfen, aber dann sah ich, dass Sie weiterhin mit, dass die Definitionen für Ihre K__ bis k2000, die 310 Ziffern lang ist und dann fast 5000 weitere unabhängige Variablen mehr definiert.

Sorry, aber das ist nicht die Art, mit Mma zu arbeiten. Ihre Akte zu korrumpieren war Mma Rachegefühl.

+0

Effektiv könnten Sie sed verwenden, um Cell *, RowBox, [{,}] und alle (Kommas) zu entfernen, die nicht in "eingeschlossen sind. Ersetzen Sie dann" x "-> x.und du bist auf halbem Weg. – Timo

+0

Auch (wie ich in einem Kommentar zu seiner ersten Frage gesagt habe) gibt es einige 'Cell []' Objekte, die nicht richtig schließen - große Teile der Daten scheinen zu fehlen, so dass Sie nicht alles wiederherstellen können sein Original-Notebook, auch wenn Sie es wollten. Ich hoffe, dass er Ihr weiches, formbares Herz dennoch schätzt! – Simon

+0

@Simon Ja. Ich bin der ganzen Geschichte nicht gefolgt, aber du hast Recht. Es gibt (mindestens) einige unvollständige Zellen. Das Wiederherstellen des Ganzen ist eine manuelle Aufgabe, die mehr Zeit in Anspruch nimmt als das Erlernen der Grundlagen von Mma. Wie auch immer, ich verstehe nicht, wie das Definieren von 8000 unabhängigen Vars kein rotes Licht in deinem Kopf entzündet ... in jeder Sprache –