Texas Instruments TI-86 - Manual (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 18 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 18
:If order ‚1
:der1(y13,x,center)¶TPOLY(order)
:If order
‚2
:der2(y13,x,center) à2¶TPOLY(orderN1)
: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)Nf0¶bmi
:ssum+MSERIES(m)¹bmi¶ssum
:m+1¶m
Ends While group :End
:ssum
à(rr^N)¶TPOLY(order+1NN)
Ends For group :End
Ends Then group :End
:ZStd