Operation Manual

292
Hoofdstuk 19: Toepassingen
:If order
‚
1
:der1(y13,x,center)
¶
TPOLY(order)
:If order
‚
2
:der2(y13,x,center)/2
¶
TPOLY(order
N
1)
:If order
‚
3
Begin Then-groep
:Then
Aanroep subroutine
:MOBIUS
Begin For-groep
:For(N,3,order,1)
:abs f0
¶
gmax:gmax
¶
bmi
:1
¶
m:0
¶
ssum
Begin While-groep
:While abs bmi
‚H¹
gmax
:While MSERIES(m)==0
geneste While-groep
:m+1
¶
m
:End
:0
¶
bsum
:For(J,1,m
¹
N,1)
:rr
¹
e^(2
p
(J/(m
¹
N))
¹
(0,1))+(center,0)
¶
x
geneste For-groep
:real y13
¶
gval
:bsum+gval
¶
bsum
:max(abs gval,gmax)
¶
gmax
:End
:bsum/(m
¹
N)
N
f0
¶
bmi
:ssum+MSERIES(m)
¹
bmi
¶
ssum
:m+1
¶
m
Einde While-groep
:End
:ssum/(rr^N)
¶
TPOLY(order+1
N
N)
Einde For-groep
:End
Einde Then-groep
:End
:ZStd