Notizblock

Einfügen ohne die Formatierung zu verlieren:

paste[] := 
 NotebookGet[ClipboardNotebook[]] /. 
  Notebook[{Cell[BoxData[data_] | data_, ___]}, ___] :> (CellPrint[
      Cell[BoxData[data], "Input"]];)
      
paste[]

Funktion speichern und später wieder laden:

Code: Alles auswählen

DumpSave["paste.mx", paste]
DumpGet["paste.mx"]
paste[]

Evaluationszeit anzeigen:

https://reference.wolfram.com/language/howto/DisplayTheTimingOfAnEvaluationInANotebookWindow.html

Parallele Berechnungen:

Um gleichzeitig und unabhängig mehrere Notebooks auszuführen muss zuerst ein oder mehrere neue Kernels erstellt und dann dem jeweiligen Notebook zugewiesen werden.

1) Evaluation > Kernel Configurations Options

2) Mit Add einen neuen Kernel hinzufügen

3) Einen Namen zuweisen und mit OK bestätigen

4) Dem jeweiligen Notebook zuweisen

5) Rechnen

Definitionen für eine Funktion anzeigen: MathematicalFunctionData[]

Code: Alles auswählen

MathematicalFunctionData["EllipticF", "SeriesRepresentations"]

Export aller Bilder in einem File:

Code: Alles auswählen

Export["test.html", EvaluationNotebook[], "GraphicsOutput" -> "PNG"]

Bilder direkt beim Plotten exportieren:

Code: Alles auswählen

Do[Export["dateiname" <> ToString[n] <> ".png", Rasterize[...] ], {n, 0, 0, 1}]

Integrationsende ausgeben:

Code: Alles auswählen

NDSolve[eqn, u, {t, 0, 2}, {x, 0, 1}, 
StepMonitor :> (laststep = thisstep; thisstep = τ;stepsize = thisstep - laststep;), 
Method -> {"EventLocator", "Event" :> (If[stepsize < 10^-4, 0, 1])}]
thisstep

Um die lästige Vergrößerung in Version 13 auszuschalten evaluiere man

Code: Alles auswählen

CurrentValue[$FrontEnd, "ScreenResolutionCompatibilityMode"] = True

Notizblock

Mathematica Hints

Mathematica Hints

Mathematica Hints

Mathematica Hints

Mathematica Hints

Mathematica Hints

Re: Mathematica Hints

Re: Mathematica Hints