Texas Instruments TI-86 Handbuch Seite 305

292
Chapter 19: Anwendungen
:evalF(y13,x,center)¶f0
:f0¶TPOLY(order+1)
:If order‚1
:der1(y13,x,center)¶TPOLY(order)
:If order‚2
:der2(y13,x,center)/2¶TPOLY(orderN1)
:If order‚3
:Then
Beginnt Then-Gruppe.
Ruft Subroutine auf. :MOBIUS
For :For(N,3,order,1)
Beginnt -Gruppe.
:abs f0¶gmax:gmax¶bmi
:1¶m:0¶ssum
Beginnt While-Gruppe. :While abs bmi‚H¹gmax
:While MSERIES(m)==0
:m+1¶m
Beginnt verschachtelte While-
Gruppe
:End
:0¶bsum
:For(J,1,m¹N,1)
:rr¹e^(2p(J/(m¹N))¹(0,1))+(center,0)¶x
Erzeugt verschachtelte For- :real y13¶gval
Gruppe
:bsum+gval¶bsum
:max(abs gval,gmax)¶gmax
:End
:bsum/(m¹N)Nf0¶bmi
:ssum+MSERIES(m)¹bmi¶ssum
:m+1¶m
:End
Beendet While-Gruppe.
:ssum/(rr^N)¶TPOLY(order+1NN)
:End
Beendet For-Gruppe.
Beendet Then-Gruppe. :End
:ZStd