In[..]:= <<Algebra`Trigonometry`oder
In[..]:= <<Algebra/Trigonometry.mJetzt steht z.B. die Funktion TrigReduce zur Verfügung:
In[..]:= TrigReduce[Sin[2 x]]Hinweis: Ein Symbol darf nicht doppelt definiert werden. Um eine bereits definierte Funktion wieder loszuwerden, gibt man ein:
In[..]:= Remove[mysymbol]Eine Auflistung aller geladenen Packages erhält man folgendermaßen:
In[..]:= $Packages
In[..]:= <<GL.mZurück zu Motif:
In[..]:= <<Motif.m
In[..]:= PSPrint[-Graphics-]Statt dessen ist es möglich, die PostScript-Ausgabe zunächst in einer Datei zu speichern:
In[..]:= Display["myfile", -Graphics-]
myfile enthält noch kein PostScript im Adobe-Format; hierfür ist (über die Unix-Shell) folgende Konversion erforderlich:
!psfix myfile > myfile.ps
Anzeige der Graphik mittels ghostview (über eine pipe):
In[..]:= Display["!psfix |ghostview -", %]
TeXForm[%] FortranForm[%] CForm[%]
Beispiel (mit Ausgabe auf eine Datei):
In[..]:= 1/x In[..]:= TeXForm[%] >>> "myfile.tex" In[..]:= D[%%,x] In[..]:= TeXForm[%] >>> "myfile.tex"
AppendTo[$Echo, OpenAppend["math.rec"]]
Log-Datei für die Ausgabe:
AppendTo[$Output, OpenWrite["math.log"]]
In[..]:= ContourPlot[Sin[x+Sin[y]],{x,-2,2},{y,-2,2}]
In[..]:= ParametricPlot3D[{u Sin[t],u Cos[t],t/3},{t,0,15},
{u,-1,1},Ticks->None]
In[..]:= ParametricPlot3D[{Sin[t],Sin[2t] Sin[u],
Sin[2t] Cos[u]},{t,-Pi/2,Pi/2},{u,0,2 Pi},Ticks->None]
In[..]:= ParametricPlot3D[{Cos[t] Cos[u],Sin[t] Cos[u],Sin[u]},
{t,0,2Pi},{u,-Pi/2,Pi/2}]
In[..]:= <<Graphics`Polyhedra` In[..]:= Show[Polyhedron[Icosahedron]]
In[..]:= <<Graphics`Graphics`
In[..]:= LogPlot[Exp[-x]+4 Exp[-2x],{x,0,6}]
In[..]:= p=Table[Prime[n],{n,10}]
In[..]:= TextListPlot[p]
In[..]:= BarChart[p]
In[..]:= PieChart[p]
In[..]:= <<Graphics`Animation`
Beispiele (aus dem Package):
In[..]:= Animate[ Plot[ Sin[x t], {x,-3,3},
PlotRange->{-1, 1} ], {t,0,1} ]
In[..]:= MoviePlot[ Sin[x t], {x,-5,5}, {t,0,1},
PlotRange->{-1, 1} ]
In[..]:= MoviePlot3D[ Sin[ x y t], {x,-2,2}, {y,-2,2}, {t,0,1},
PlotRange->{-1, 1}, Frames->24]
In[..]:= MovieParametricPlot[ {Sin[x t], Cos[x t]},
{x, -Pi, Pi}, {t, 0, 1, 1/11}, PlotRange->{{-1, 1},
{-1, 1}}, AspectRatio->1 ]
In[..]:= graphics = Plot3D[ Sin[x y],{x,-2,2},{y,-2,2},
Axes->None, Boxed->False];
SpinShow[ graphics ]
In[1]:= Play[Sin[10000/t],{t,-4,4}]
Man bekommt ein X-Fenster, in dem man unter dem Pull-down-Menü "Sound" den Punkt "Play Sound" findet.
liste = ReadList["daten", Number, RecordLists->True] gr1 = ListPlot[liste, Prolog->AbsolutePointSize[5]]
Ausgleichsparabel (zweiten Grades):
Fit[liste, {x^2, x, 1}, x]
gr2 = Plot[%, {x, 0, 6}]
Show[gr1, gr2]
In[..]:= !pwd
Es ist allerdings nicht empfehlenswert, eine temporäre Shell zu öffnen, da dies zu einem Konflikt mit der Eingabe von Mathematica und evtl. einem Programmabsturz führt.
Ausgabe auf eine Datei:
Überschreiben: >> "myfile"
Anhängen: >>> "myfile"
Eingabe von einer Datei: << "myfile"
Befehlswiederholung in Mathematica:
% ist die letzte Eingabe,
%% ist die vorletzte Eingabe,
%%% ist die vorvorletzte Eingabe,
%7 ist die siebte Eingabe.
Auf sämtliche alten Eingaben oder Ausgaben kann man auch zurückgreifen, indem man sie wie folgt zitiert (Bsp.): In[17], Out[14].
mathematica &
Hinweis: Es ist ggf. erforderlich, die DISPLAY-Variable vorher zu setzen. "DISPLAY :0" funktioniert nicht! Wenn man mit der tcsh oder csh arbeitet, ist folgendes einzugeben, wobei myserver durch den Namen der Konsole bzw. des X-Terminals zu ersetzen ist, an der man sitzt:
setenv DISPLAY myserver:0
Beim Notebook hat man folgendes zu beachten (siehe Help, Getting Started):