Texas Instruments TI-86 - Page 263

Chapter 19: Applications
251
19APPS.DOC TI-86, Chap 19, US English Bob Fedorisko Revised: 02/13/01 2:41 PM Printed: 02/13/01 3:05 PM Page 251 of 1819APPS.DOC TI-86, Chap 19, US English Bob Fedorisko Revised: 02/13/01 2:41 PM Printed: 02/13/01 3:05 PM Page 251 of 18
:If order
‚
1
:der1(y13,x,center)
¶
TPOLY(order)
:If order
‚
2
:der2(y13,x,center)
à
2
¶
TPOLY(order
N
1)
:If order
‚
3
Begins
Then
group
:Then
Calls subroutine
:MOBIUS
Begins
For
group
:For(N,3,order,1)
:abs f0
¶
gmax:gmax
¶
bmi
:1
¶
m:0
¶
ssum
Begins
While
group
:While abs bmi
‚H
¹
gmax
:While MSERIES(m)==0
Creates nested
While
group
:m+1
¶
m
:End
:0
¶
bsum
:For(J,1,m
¹
N,1)
:rr
¹
e^(2
p
(J
à
(m
¹
N))
¹
(0,1))+(center,0)
¶
x
Creates nested
For
group
: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
Ends
While
group
:End
:ssum
à
(rr^N)
¶
TPOLY(order+1
N
N)
Ends
For
group
:End
Ends
Then
group
:End
:ZStd