Operation Manual

292
Chapter 19: Anwendungen
19APPS.DOC Texas Instruments Inc Revised: 24/06/97 9:22 Printed: 25/06/97 8:39 Page 292 of 2019APPS.DOC Texas Instruments Inc Revised: 24/06/97 9:22 Printed: 25/06/97 8:39 Page 292 of 20
: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
Beginnt Then-Gruppe.
:Then
Ruft Subroutine auf.
:MOBIUS
Beginnt
For
-Gruppe.
:For(N,3,order,1)
:abs f0¶gmax:gmax¶bmi
:1¶m:0¶ssum
Beginnt While-Gruppe.
:While abs bmi‚H¹gmax
:While MSERIES(m)==0
Beginnt verschachtelte While-
Gruppe
:m+1¶m
:End
:0¶bsum
:For(J,1,m¹N,1)
:rr¹e^(2p(J/(m¹N))¹(0,1))+(center,0)¶x
Erzeugt verschachtelte For-
Gruppe
:real y13¶gval
:bsum+gval¶bsum
:max(abs gval,gmax)¶gmax
:End
:bsum/(m¹N)Nf0¶bmi
:ssum+MSERIES(m)¹bmi¶ssum
:m+1¶m
Beendet While-Gruppe.
:End
:ssum/(rr^N)¶TPOLY(order+1NN)
Beendet For-Gruppe.
:End
Beendet Then-Gruppe.
:End
:ZStd