Texas Instruments TI-89 Benutzerhandbuch Seite 495

In der nebenstehenden als Beispiel
aufgeführten Programm-Editor-Funktion
werden zum teilweisen Einsatz symbolischer
Differentiation
Eine eingehende Betrachtung der Funktion
und ihre Vervollständigung kann dabei
behilflich sein, das manuelle Differenzieren
zu erlernen. Sie könnten sogar Funktionen
wie Bessel-Funktionen angeben, die der
TI-89 / TI-92 Plus nicht differenzieren kann.
PassErr
CATALOG
PassErr
Gibt einen Fehler an die nächste
Programmebene weiter.
Ist "errornum" gleich 0, bleibt
Wirkung.
In der Klausel
oder
PassErr
ClrErr, wenn
ignoriert werden soll. Ist unbekannt, wie der
Fehler behandelt werden soll, übergeben Sie
ihn mit
PassErr
lungsroutine. (Siehe auch
Pause
CATALOG
Pause [Term]
Hält die Programmausführung vorübergehend
an. Wenn Sie
dem Programm-I/O-Bildschirm angezeigt.
kann Umwandlungsoperationen wie
Term
und
4DD 4Rect
Operator 4 benutzen, um Einheiten- und
Zahlensystem-Umwandlungen
durchzuführen.
Ergebnisse von
dem Bildschirm zu groß sind, können Sie mit
dem Cursurfeld scrollen.
Die Programmausführung wird fortgesetzt,
wenn Sie ¸ drücken.
478 Anhang A: Funktionen und Anweisungen
und verwendet.
getType() part()
PassErr
des Programms sollte
Else
benutzt werden. Verwenden Sie
der Fehler verarbeitet oder
an die nächste Fehlerbehand-
).
ClrErr
angeben, wird
Term Term
enthalten. Sie können auch den
, die für die Anzeige auf
Term
:d(y,x)
:Func
:Local f
:If getType(y)="VAR"
: Return when(y=x,1,0,0)
:If part(y)=0
Return 0 ¦ y=p,ˆ,i,numbers
:
:part(y,0)! f
:If f="L" ¦ if negate
Return ë d(part(y,1),x)
:
:If f="−" ¦ if minus
: Return d(part(y,1),x)
ì d(part(y,2),x)
:If f="+"
: Return d(part(y,1),x)
+d(part(y,2),x)
:If f="ù "
: Return
part(y,1)ù d(part(y,2),x)
+part(y,2)ù d(part(y,1),x)
:If f="{"
: Return seq(d(part(y,k),x),
k,1,part(y))
:Return undef
:EndFunc
Siehe Programmliste
ClrErr
ohne
ClrErr
Program segment:
©
:ClrIO
auf
:DelVar temp
:1"temp[1]
:1"temp[2]
:Disp temp[2]
:¦ Guess the Pattern
:For i,3,20
: temp[iì2]+temp[iì1]"temp[i]
: Disp temp[i]
: Disp temp,"Can you guess the
next","number?"
: Pause
:EndFor
©