Programmierung

Programmierung

Selbsterstellte Programmblöcke, vom Benutzer aufgebaute Prozeduren unter Verwendung von Schleifen- und Kontrollkonstrukten, können den bestehenden Bibliotheken von Mathematica und Maple hinzugefügt werden.

Mathematica:

Do[ Ausdruck, {i,i1,i2,di}]

bewirkt die Auswertung des Ausdrucks, wobei i den Wertebereich von (Default:1) bis in Schritten von di (Default:1) durchläuft.

While[ test, Ausdruck] , evaluiert den Ausdruck, solange test den Wert True besitzt.

Module[{t1,t2,...}, proced] , bewirkt, daß die in der Liste eingeschlossenenen Variablen oder Konstanten bezüglich ihrer Nutzung im Modul lokal, die ihnen zugewiesenen Werte außerhalb des Moduls nicht bekannt sind.

   In[1]:= sumq[n_]:=
              Module[{sum=1.},
                Do[sum=sum+N[Sqrt[i]],{i,2,n}];
              sum ];

Der Aufruf sumq[30] liefert dann z.B. 112.083

Das letzte Beispiel läßt sich funktional folgendermaßen schreiben:

sumq[n_]:=N[Apply[Plus,Table[Sqrt[i],{i,1,n}]],10]

für eine Präzision von 10 Ziffern. sumq[30] liefert dann 112.0828452

Maple: Schleifen, werden mit for oder while erzeugt, denen ein Anweisungsteil der Form do Anweisungen od folgt:

for i from n to m by di, oder for ind while bed

Fallunterscheidungen, erfolgen über

if bed then anw1 elif bedi then anwi fi ... else anwn fi

Prozeduranweisung, zur Gestaltung abgeschlossener Programme: >proc( args) > local ... > options ... > anw >end;

Eine Prozedur, die die Summe der Quadratwurzeln aus den ersten n natürlichen Zahlen bestimmt:

>sumqw:=proc(n) > local s,i; > s[0]:=0; > for i to n > do s[i]:=s[i-1]+sqrt(i) od; > evalf(s[n]); >end;

Die Prozedur kann jetzt mit einem Argument n aufgerufen werden:

>sumqw(30);