(Getestet mit TI Voyage 200)

-----------------------------------------------------------------
--Tschebyscheff-Polynome

tscheb(n)
Func
If n=0 Then
Return 1
EndIf
If n=1 Then
Return x
EndIf
Return 2*x*tscheb(n-1)-tscheb(n-2)

Beschreibung:
Trivial, ergibt das nte Tschebbyscheff-Polynom.
Beispiel:
tscheb(3)

-----------------------------------------------------------------
--Lagrange-Interpolations-Polynome

lagr(y,f)
Prgm
Local s
0->s
For i,1,dim(y)
Local p
1->p
For j,1,dim(y)
If j<i or i<j Then
p*((x-y[j])/(y[i]-y[j]))->p
EndIf
EndFor
y[i]->z
s+f*p->s
EndFor
DelVar z
s->o
Return s
EndPrgm

Beschreibung:
lagr(y,f(z))
y..Liste der Stützstellen
f(z)..Von z abhängige Funktion
(weil x schon reserviert fürs Polynom und y reserviert für die Stützstellen)
Ergebnis wird auf die Variable o (für Out) geschrieben.
(Ging nicht anders, direkten return erlaubt er nur für Funktionen)

Beispiel:
Annäherung an den Sinus mit den Stützstellen 0, π/2, π und π+π/2
lagr({0 π/2 π π+π/2},sin(z))
enter
o
enter
ergibt: 8*x*(x-2*π)*(x-π)/(3*π^3)

-----------------------------------------------------------------