Texas Instruments TI-89 Titanium Bedienungsanleitung Seite 956

In der nebenstehenden als Beispiel aufgeführten
Programm-Editor-Funktion werden zum
teilweisen Einsatz symbolischer Differentiation
getType()
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 Titanium / Voyage™ 200 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
werden soll. Ist unbekannt, wie der Fehler
behandelt werden soll, übergeben Sie ihn mit
PassErr
routine. (Siehe auch
Anhang: Funktionen und Anweisungen
und verwendet. Eine
part()
PassErr
des Programms sollte
Else
benutzt werden. Verwenden Sie
der Fehler verarbeitet oder ignoriert
an die nächste Fehlerbehandlungs-
).
ClrErr
: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 , ˆ ,
: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
ClrErr
ohne
ClrErr
,numbers
i
Programmliste
957