Seite 1 von 1

Mathematica Hints

Verfasst: So 10. Jan 2016, 02:41
von 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[]

Mathematica Hints

Verfasst: Mo 11. Jan 2016, 01:31
von Yukterez

Mathematica Hints

Verfasst: Do 21. Jan 2016, 19:54
von 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

Bild

2) Mit Add einen neuen Kernel hinzufügen

Bild

3) Einen Namen zuweisen und mit OK bestätigen

Bild

4) Dem jeweiligen Notebook zuweisen

Bild

5) Rechnen

Mathematica Hints

Verfasst: Di 12. Apr 2016, 21:29
von Yukterez
Definitionen für eine Funktion anzeigen: MathematicalFunctionData[]

Code: Alles auswählen

MathematicalFunctionData["EllipticF", "SeriesRepresentations"]

Mathematica Hints

Verfasst: Do 14. Jul 2016, 18:23
von 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}]

Re: Mathematica Hints

Verfasst: Sa 24. Jun 2017, 04:44
von 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