Publicidad
292
Capítulo 19: Aplicaciones
:evalF(y13,x,center)¶f0
:f0¶TPOLY(order+1)
:If order‚1
:der1(y13,x,center)¶TPOLY(order)
:If order‚2
:der2(y13,x,center)/2¶TPOLY(orderN1)
:If order‚3
:Then
Inicia el grupo Then
Llama a la subrutina
:MOBIUS
Inicia el grupo For
:For(N,3,order,1)
:abs f0¶gmax:gmax¶bmi
:1¶m:0¶ssum
Inicia el grupo While
:While abs bmi‚H¹gmax
:While MSERIES(m)==0
Crea el grupo anidado While
:m+1¶m
:End
:0¶bsum
:For(J,1,m¹N,1)
:rr¹e^(2p(J/(m¹N))¹(0,1))+(center,0)¶x
Crea el grupo anidado 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
Termina el grupo While
:End
:ssum/(rr^N)¶TPOLY(order+1NN)
:End
Termina el grupo For
Termina el grupo Then
:End
:ZStd
Publicidad
Capítulos
