Texas TI-86 用户手册

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

: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