Texas Instruments TI-86 Mode D'emploi page 304

290
Chapitre 19 : Applications
:der1(y13,x,centre)¶TPOLY(ordre)
:If ordre‚2
:der2(y13,x,centre)/2¶TPOLY(ordreN1)
:If ordre‚3
Début du test Then :Then
Appelle le sous-programme :MOBIUS
Début de la boucle For :For(N,3,ordre,1)
:abs f0¶gmax:gmax¶bmi
:1¶m:0¶ssum
Début de la boucle While :While abs bmi‚H¹gmax
:While MSERIES(m)==0
Crée une boucle imbriquée While :m+1¶m
:End
:0¶bsum
:For(J,1,m¹N,1)
:rr¹e^(2p(J/(m¹N))¹(0,1))+(centre,0)¶x
Crée une boucle imbriquée For :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
Fin de la boucle While :End
:ssum/(rr^N)¶TPOLY(ordre+1NN)
Fin de la boucle For :End
Fin de la boucle Then :End
:ZStd