Mathematica Hints

[Yukterez]

Einfügen ohne die Formatierung zu verlieren:

Code: Alles auswählen

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[]

[Yukterez]

Evaluationszeit anzeigen:

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

[Yukterez]

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

[Yukterez]

Definitionen für eine Funktion anzeigen: MathematicalFunctionData[]

Code: Alles auswählen

MathematicalFunctionData["EllipticF", "SeriesRepresentations"]

[Yukterez]

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}]

[Yukterez]

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

[Yukterez]

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

Code: Alles auswählen

CurrentValue[$FrontEnd, "ScreenResolutionCompatibilityMode"] = True