bestap(y,f)
Prgm
Local s
0->s
For i,1,dim(y)
s+∫(f+y[i],x)/(∫(y[i]*y[i],x))*y[i]->s
EndFor
s->o
Return s
EndPrgm

--------------------------------
Beschreibung:
Bestapproximation.
y..die Basisfunktionen-Liste
f(x)..die Funktion die es zu approximieren gilt.
Beispiel:
bestap({x},x^2)
enter
o
enter