{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Input" 2 19 "" 0 1 255 0 0 1 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "" 0 21 "" 0 1 0 0 0 1 0 0 0 0 2 0 0 0 0 1 }{CSTYLE "" -1 256 
"" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 0 1 0 0 0 0 
0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 258 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 
0 0 }{CSTYLE "" -1 259 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" 
-1 260 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 261 "" 0 1 0 
0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 262 "" 0 1 0 0 0 0 1 0 0 0 0 
0 0 0 0 0 }{CSTYLE "" -1 263 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 264 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
265 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 266 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 267 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{CSTYLE "" -1 268 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 269 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
270 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 271 "" 0 1 0 0 
0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 272 "" 0 1 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 
1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Out
put" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 
1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 84 "\324\340\351\353: \"...
\312\356\354\357\322\345\365\355\\Maple\\\320\377\344\313\356\360\340
\355\340\\\320\340\347\353\313_1\344\345\353Sin.mws\"  Titov K.V. (05.
04.16 \361\354\356\362\360\345\353)" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 13 "\303\353.5, \2474, \357.1" }}{PARA 0 "" 0 "" {TEXT 256 65 "1. \+
\300\353\343\356\360\350\362\354 \360\340\347\353\356\346\345\355\350
\377 \354\345\360\356\354\356\360\364\355\356\351 \364\363\355\352\366
\350\350  \342 \360\377\344 \313\356\360\340\355\340 \342 \352\356\353
\374\366\345" }}{PARA 0 "" 0 "" {TEXT 257 18 "\357\356 \354\345\362
\356\344\363 \342\373\367\345\362\356\342." }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 35 "
\302 \352\340\367\345\361\362\342\345 \357\360\350\354\345\360\340 \+
\342\356\347\374\354\345\354 \364\363\355\352\366\350\376 " }{TEXT 
263 3 "csc" }{TEXT -1 1 "(" }{TEXT 264 1 "z" }{TEXT -1 2 ")^" }{TEXT 
262 1 "u" }{TEXT -1 42 " \350 \357\360\356\342\345\344\345\354 \345
\270 \360\340\347\353\356\346\345\355\350\345  \342 \360\377\344 \313
\356\360\340\355\340 \342 " }}{PARA 0 "" 0 "" {TEXT -1 50 "\352\356
\353\374\366\345. \302\373\341\345\360\345\354 \352\356\353\374\366
\356 \360\340\347\353\356\346\345\355\350\377  \362\340\352\350\354 \+
\356\341\360\340\347\356\354 (" }{TEXT 259 6 "lambda" }{TEXT -1 14 "-1
)*Pi<abs(z)<" }{TEXT 261 6 "lambda" }{TEXT -1 4 "*Pi " }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 17 "                 " }{OLE 1 4611 1 "[xm]Br
=WfoRrB:::wk;nyyI;G:;:j::>:B>N:F:nyyyyy]::yyyyyy::::::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::::fyyyyya:nYf::G:I:wAyA
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::::::NDYmq^H;C:ELq^H_mvJ::::::::gj<vyyuyJ<j;tV;B:;JZC:bKB::>jmItQI
wHHt;V:b;B:FZ:vCSmlJ::::::::::OJ;@jyyyyyy;jysy;Z:::::::^<>:fB]mtFFcmnv
GWMJnC==nHE=;:::::JJN:yyyxI:;Z::::::j:>:uS:B:F:AlqfG[maNFO=;::::::::_J
;Zy=J:B::::::f:;jn>:;:wyyN:<j;<J:^:n;n:nY>;F;N;;j?J@j@>:YJ:nY><;jBJC>:
a:c:e:gJ:v<<JFjFJyky;:::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::::::::=Z<B:<::j:>Z:>:;FVC:C:gc:C:;JI\\Ps\\LRV>KpA>cWx;ki:S
JHJ;>i;I^;JL]XCJ:^;SOx\\XCfZ;R;?BKaTMcTG<jCXontpZlPpDnjHqnHp[xPlPPb@pm
PpsF\\?^dcgg_WhZnc_whZNdigg[oG]r:aTXUeRYEU@k<HnqPQs`plDQJtnl>ZK^ZG_dZf
br_hlGF_J>@lQPnAMnQ@NbLYBxj]xoZ<OsyKI@NbLyDxjZ<JtQNtQLtyR[xoZB>Hni@>YV
KciDyDLcy]=D:<[:_xIHby?cnA\\IFbdve>we?_xYgB@nAlj:F:=b:?b:?B:?j:@j:V:=J
<b<=B:?J;]\\<^Z>Xq=^g<^Z@P\\\\f_<B\\]K;RDDJ<Tr\\EleEj:nyyYZDjysyAbm?:;
JZ=Z:Z@o<;j`@Pt\\Pd`QrPPJPMQ<MJPnrPqjLqnxPq^;<:Z_SKGlA>:ETV:WCKaTML]nI
alHH<J:::JAVVkY:SJbHsA>aPkysyAB:^:<j:>:yayQ:>:VwGjZEZ:>^>j:F;HJBDZ:^:s
^:>:EZ:NZ;N:YLpJbNHEms>@[C:>Z::::::::kJ;@j:>:?B:<jysy;Z::::::j=JkL:;B:
F:Y<>Z:>:::::::::J?<Z:vYxI:;Z::::::JywYB:::::::::::::yay=J:B::::::::::
:::::::::jysy:>:<::::::::=J:f:FZ<vyyyYE:WS:mZ:f:V[<Z:f:^[<>j<>nFV<n^@v
;sjyyiyAZ:nC[Z:>ryMLyyyyYjlZ:^^<j?<Z:n>^;UTRZ_?:[M>>:oi:V\\:>:;Z<^Z:jP
@:EZ:^\\<^EUs;EJ:V\\<^^<f_Af:^<V`Bf:V<V`Bf:F[<B:;b:E:cJJAJT^=;B:qi:;fy
B:>l;J:<Z<>ZJ^dcgg_KaBBJq<Jf@usYqj@usYQJ<ntYqEaJmxK<jPF:SJ:N`DZ:VZ:JN@
mNlMGEJKs:EB:^<ngA^=VYZ:JBGZ:>:;b::a=:W=aqjJJ::UK;^:;JrAj:F;;JSZ:FZ:Jw
`a=fZ:JDJ<LRZIJrDJ<TRX^a=>Z>V:=J;VjtC:?JEYJpEZP@[fe:C:DJ<LBb[E@CB[;`:>
Zvord@Qs:qAB:>l;J:@:<kc`a\\wgfC:yV<OBASup_B:kTfFF>>:jPF:C:[Q;<j@B:_c<B
:C:SEVSEVwx:_S;_V:Hj<JDD:CY:sJ:<jw;<:[N:<J:@Z<jcjqJJaJ?lVrhWC:==;;:f??
J<JrG:YJ:<JSd:<j<jPXWXlmeOa<^t;>p<>b<r:s^:n>f_;fc[_HRSeTO=S:ER::P=arOB
U:Z[;]JdRSaEB:nG]:UeRY]KrJ:J:^:fBFF_J>v_?;LYBxj]BN_ALyDB:P>:<[=SJvk?cD
r]<ZJBJcqZxQ^>\\IFBZYgB@>B:=b:?J;<:=j:VZ:F:CZDFZ:J;]<CB[q?CJCb:B:RDb[E
@>r=b:^AHJ:L:N:A^:N:gv;b_K:C:DZ>XQb[E@>R<J:<j?JMJ@vYxy:J:J>JwK:<:J<B:U
S:=JHB:qQBv:<J:^q<B:lv:DJ;Dlc`qsLqlp@iV<GM:N[:F>OV:<Z:vYxYXQXC^:f?AJ<<
:[Y:?B:AB:;B:;:::Ja@Na`><J:=K:p^j_g_cBHZ>ruww[eCqAGXwc?mC?RM;RR<af?Z_K
:LK:<N:@]:>Z:bSwCD?G>;bGGtF?dY]K:d\\=:::;BBCrMCBGCr@CbICBJCBFCRICBFCB:
;b?D`lBHg\\mnaAXmZrQ]sNMdM_cY]cEUtOaL:TN:H:xhhGaBFbFoa<alNJ:BFXM<hM<hK
<x_kBGCRGCrHCrN``hCACbICBGCBHCBKCbFt\\gsWHa:>ZVZ:FFWMlnAin=?;Ku:SJnH:K
y:^jRF<;WVsFYCSVsFY[RVsNr=QHmQf@QHmQT@QH_tj_mv?rj_MKxdwFYkwdwNfiTI?Z:B
:::::::jysy:>:;B:::::yayA:<JHyyyyI<::::?J:>::4:" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 4 "\343\344\345 " }{TEXT 258 7 "lambda " }{TEXT -1 8 "
\377\342\353\377\345\362\361\377" }{TEXT 260 1 " " }{TEXT -1 35 "\366
\345\353\356\367\350\361\353\345\355\355\356\351 \352\356\355\361\362
\340\355\362\356\351, \355\340\357\360\350\354\345\360:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "lambda:=2:" }}}{EXCHG {PARA 0 "" 0 
"" {TEXT -1 67 "\307\340\344\340\344\350\354 \350\355\362\345\360\345
\361\363\376\371\345\345 \355\340\361 \352\356\353\350\367\345\361\362
\342\356 \367\353\345\355\356\342 \360\340\347\353\356\346\345\355\350
\377 \342 \360\377\344 \313\356\360\340\355\340." }{MPLTEXT 0 21 1 " \+
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "N:=8:" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 50 "\340 \362\340\352\346\345 \357\360\345\344\357\356\353
\340\343\340\345\354\373\351 \354\340\352\361\350\354\340\353\374\355
\373\351 \357\356\360\377\344\356\352 \357\356\353\376\361\340" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "NN:=4:" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 50 "\323\352\340\346\345\354 \362\356\367\352\363 \366\345
\355\362\360\340 \352\356\353\374\366\340 \360\340\347\353\356\346\345
\355\350\377 \342 \360\377\344 \313\356\360\340\355\340" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 6 "z0:=0:" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 76 "
\316\357\360\345\344\345\353\350\354 \344\353\377 \342\373\341\360\340
\355\355\356\351 \364\363\355\352\366\350\350 \352\356\353\350\367\345
\361\362\342\356 \357\356\353\376\361\356\342 \342 \357\360\340\342
\356\351 \367\340\361\362\350 \357\356\353\363\352\360\363\343\340 " }
}{PARA 0 "" 0 "" {TEXT -1 63 "\360\340\344\350\363\361\340 (lambda-1)*
Pi<r<lambda*Pi \341\345\347 \363\367\345\362\340 \354\356\346\345\362 \+
\341\373\362\374 \362\356\367\352\350 z0" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "J:=lambda-1;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"J
G\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 78 "\302 \352\340\367\345
\361\362\342\345 \344\360\363\343\350\365 \357\340\360\340\354\345\362
\360\356\342 \363\352\340\346\345\354 \361\362\345\357\345\355\374, \+
\352\356\362\356\360\340\377 \354\356\346\345\362 \341\373\362\374 \+
\363 \375\362\356\351 \364\363\355\352\366\350\350" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 6 "u:=1: " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 32 "\310,
 \355\340\352\356\355\345\366, \347\340\357\350\370\345\354 \361\340
\354\363 \364\363\355\352\366\350\376" }}}{EXCHG {PARA 0 "> " 0 "" 
{XPPEDIT 19 1 "f:=(z)->1/(sin(z))^u:" "6#>%\"fGf*6#%\"zG7\"6$%)operato
rG%&arrowG6\"*&\"\"\"F.)-%$sinG6#F'%\"uG!\"\"F,F,F," }}}{EXCHG {PARA 
0 "" 0 "" {TEXT 265 10 "\317\360\350\354\345\367\340\355\350\345" }
{TEXT -1 68 ". \302\361\345 \363\352\340\347\340\355\355\373\345 \342
\373\370\345 \357\340\360\340\354\345\362\360\373 \354\356\346\355\356
 \354\345\355\377\362\374 \342 \350\355\362\345\360\340\352\362\350
\342\355\356\354 \360\345\346\350\354\345, " }}{PARA 0 "" 0 "" {TEXT 
-1 42 "\342 \362\356\354 \367\350\361\353\345 \350 \361\340\354\363 \+
\364\363\355\352\366\350\376. \315\340\357\360\350\354\345\360, \357
\360\350 " }{TEXT 267 6 "lambda" }{TEXT -1 5 "=1 \350 " }{TEXT 268 1 "
u" }{TEXT -1 4 "=1, " }{TEXT 269 1 "u" }{TEXT -1 26 "=2 \354\356\346
\355\356 \363\342\350\344\345\362\374 \362\345 \360\377\344\373, " }}
{PARA 0 "" 0 "" {TEXT -1 43 "\352\356\362\356\360\373\345 \341\373\353
\350 \357\356\353\363\367\345\355\373 \342 [4.3.3] \350  [4.3.5]." }}
{PARA 0 "" 0 "" {TEXT -1 70 "\302\342\345\344\345\354 \364\363\355\352
\366\350\376, \352\356\362\356\360\340\377 \341\363\344\345\362 \350
\361\357\356\353\374\347\356\342\340\355\340 \342 \350\355\362\345\343
\360\340\353\374\355\356\351 \364\356\360\354\363\353\345 \312\356\370
\350" }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "phi:=(z)->f(z)/((z-z0
)^(n+1)):" "6#>%$phiGf*6#%\"zG7\"6$%)operatorG%&arrowG6\"*&-%\"fG6#F'
\"\"\"),&F'F1%#z0G!\"\",&%\"nGF1F1F1F5F,F,F," }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 62 "\321\364\356\360\354\350\360\363\345\354 \354\340\361
\361\350\342, \342 \352\356\362\356\360\373\351 \341\363\344\345\354 \+
\347\340\357\350\361\373\342\340\362\374 \357\356\360\377\344\352\350 \+
\357\356\353\376\361\356\342:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 47 "q:=array(0..2*J): p:=array(0..2*J):p[0]:=z[0]; " }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>&%\"pG6#\"\"!&%\"zGF&" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT 266 10 "\317\360\350\354\345\367\340\355\350\345" }{TEXT -1 68 "
. \307\340\343\353\340\342\355\340\377 \341\363\352\342\340 \342 \354
\340\361\361\350\342\345 Array \363\352\340\347\373\342\340\345\362 \+
\355\340 \367\350\361\353\345\355\355\363\376 \357\360\350\360\356\344
\363 \345\343\356" }}{PARA 0 "" 0 "" {TEXT -1 38 "\352\356\354\357\356
\355\345\355\362, \340 \361\362\360\356\367\355\340\377 - \355\340 \+
\361\350\354\342\356\353\374\355\363\376?" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 20 "\307\340\344\340\355\350\345 \357\356\353\376\361\356\342
 f(z)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for j from 1 to J do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "p[2*j-1]:=j*Pi: p[2*j]:=-j*Pi od;" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"pG6#\"\"\"%#PiG" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>&%\"pG6#\"\"#,$%#PiG!\"\"" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 71 "\321\350\355\362\345\347\350\360\363\345\354 \342
\361\357\356\354\356\343\340\362\345\353\374\355\363\376 \364\363\355
\352\366\350\376 psi(z0)<>0 \350 \345\270 \355\340\367\340\353\374\355
\356\345 \347\355\340\367\345\355\350\345 " }{TEXT 270 2 "\302\316" }}
}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "B0:=limit(f(z),z=z0):" "6#>%#
B0G-%&limitG6$-%\"fG6#%\"zG/F+%#z0G" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 23 "\357\356 \361\353\345\344\363\376\371\345\354\363 \340\353\343
\356\360\350\362\354\363" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 
"for n from 1 to NN do psi:=(z)->f(z):" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 126 "if B0=undefined or B0=infinity or B0=-infinity then psi(z):=f
(z)*(z-z0)^n: q[0]:=n: B0:=limit(psi(z),z=z0):else break fi od:  " }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 69 "\302 \360\345\347\363\353\374\362
\340\362\345 \357\356\353\363\367\350\353\350 \364\363\355\352\366\350
\376, \352\356\362\356\360\340\377 \350\354\345\345\362 \352\356\355
\345\367\355\373\351 \357\360\345\344\345\353 \342 \362\356\367\352
\345 " }{TEXT 271 1 "z" }{TEXT -1 13 "0. \302\356\362 \345\270 \342
\350\344" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "psi(z);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#*&-%$sinG6#%\"zG!\"\"F'\"\"\"" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 26 "\316\357\360\345\344\345\353\345
\355\350\345 \357\356\360\377\344\352\340 \357\356\353\376\361\340" }
{MPLTEXT 0 21 1 " " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "for j from 1 \+
to 2*J do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "B:=limit(f(z),z=p[j]):
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "for n from 1 to NN do" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 107 "if B=-infinity or B=infinity or B=undefi
ned then   B:=limit(f(z)*((z-p[j])^n),z=p[j]):q[j]:=n:else break fi" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " od: od:" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 50 "\302\350\347\363\340\353\350\347\340\366\350\377\377 \+
\357\356\353\363\367\345\355\355\373\365 \347\355\340\367\345\355\350
\351 \357\356\360\377\344\352\340 \357\356\353\376\361\356\342:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "convert(q,list); eval(q):" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\"\"F$F$" }}}{EXCHG {PARA 0 "" 0 
"" {TEXT -1 63 "\317\360\356\342\345\344\345\354 \342\373\367\350\361
\353\345\355\350\345 \352\356\375\364\364\350\366\350\345\355\362\356
\342 \360\377\344\340 \313\356\360\340\355\340 \361 \357\356\354\356
\371\374\376 \342\373\367\345\362\356\342" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 "for n from -N to N do " }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 7 "vp:=0: " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "for j from 1 to 2
*J do " }{TEXT -1 21 "- \342\373\367\345\362 \342 \357\356\353\376\361
\345 p[j]" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 198 "if q[j]-1=0 then vp:=
vp+limit(phi(z)*(z-p[j]),z=p[j]) fi:                                  \+
     if q[j]>1 then          vp:=vp+(1/(q[j]-1)!)*limit(diff(phi(z)*((
z-p[j])^q[j]),z$(q[j]-1)),z=p[j]) fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 3 "od:" }{TEXT -1 19 "- \342\373\367\345\362 \342 \357\356\353\376
\361\345 z0" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "if n=-q[0] then vz0:
=limit(psi(z),z=z0) fi:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "if n>-q
[0] then vz0:=(1/(n+q[0])!)*limit(diff(psi(z),z$(n+q[0])),z=z0) fi:   \+
                   if n<-q[0] then vz0:=0 fi:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 18 "C[n]:=vz0+vp: od: " }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 81 "\322\340\352\350\354 \356\341\360\340\347\356\354 \352\356\375
\364\364\350\366\350\345\355\362\373 C[n] \360\377\344\340 \313\356
\360\340\355\340 \356\357\360\345\344\345\353\345\355\373. \316\361
\362\340\345\362\361\377 \347\340\357\350\361\340\362\374 \361\340\354
 \360\377\344" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "R:=0:" }
{TEXT -1 30 "- \355\340\367\340\353\374\355\373\351 \342\350\344 (\347
\340\357\350\361\374) \360\377\344\340." }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 "for n from -N to N do " }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 41 "if C[n]<>0 then R:=R+C[n]*(z-z0)^n fi od:" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 52 "\302 \356\352\356\355\367\340\362\345\353\374\355
\356\354 \342\350\344\345 \360\377\344 \313\356\360\340\355\340 \341
\363\344\345\362 \342\373\343\353\377\344\345\362\374 \362\340\352:" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "R;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,2*(\"\"#\"\"\"%#PiG\"\"'%\"zG!\"(!\"\"*(F%F&F'\"\"%F)!
\"&F+*(F%F&F'F%F)!\"$F+*&F&F&F)F+F+*&,&#F&F(F&*&F%F&F'!\"#F+F&F)F&F&*&
,&#\"\"(\"$g$F&*&F%F&F'!\"%F+F&)F)\"\"$F&F&*&,&#\"#J\"&?^\"F&*&F%F&F'!
\"'F+F&)F)\"\"&F&F&*&,&#\"$F\"\"'+[gF&*&F%F&F'!\")F+F&)F)F:F&F&" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 66 "\316\367\345\342\350\344\355\356, \+
\347\344\345\361\374 \357\356\352\340\347\340\355\340 \362\356\353\374
\352\356 \367\340\361\362\374 \360\377\344\340 \313\356\360\340\355
\340 \361 \367\350\361\353\356\354 \367\353\345\355\356\342 " }{TEXT 
272 1 "N" }{TEXT -1 17 " \342 \345\343\356 \343\353\340\342\355\356
\351 \350 " }}{PARA 0 "" 0 "" {TEXT -1 38 "\357\360\340\342\350\353
\374\355\356\351 \367\340\361\362\350, \363\352\340\347\340\355\355
\373\365 \342 \344\340\355\355\373\365. " }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 63 "----------------------- \312\356\355\345\366 ------------
---------------------" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "res
tart;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 25 "\317\360\356\342\345\360
\352\340 \357\356\353\363\367\345\355\355\356\343\356 \360\377\344\340
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 162 "g:=(z)->-2*Pi^8/z^9-2*
Pi^6/z^7-2*Pi^4/z^5-2*Pi^2/z^3-1/z+(1/6-2/Pi^2)*z+(7/360-2/Pi^4)*z^3+(
31/15120-2/Pi^6)*z^5+(127/604800-2/Pi^8)*z^7+(73/3421440-2/Pi^10)*z^9;
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gGf*6#%\"zG6\"6$%)operatorG%&a
rrowGF(,6*(\"\"#\"\"\"%#PiG\"\")9$!\"*!\"\"*(F.F/F0\"\"'F2!\"(F4*(F.F/
F0\"\"%F2!\"&F4*(F.F/F0F.F2!\"$F4*&F/F/F2F4F4*&,&#F/F6F/*&F.F/F0!\"#F4
F/F2F/F/*&,&#\"\"(\"$g$F/*&F.F/F0!\"%F4F/)F2\"\"$F/F/*&,&#\"#J\"&?^\"F
/*&F.F/F0!\"'F4F/)F2\"\"&F/F/*&,&#\"$F\"\"'+[gF/*&F.F/F0!\")F4F/)F2FFF
/F/*&,&#\"#t\"(S9U$F/*&F.F/F0!#5F4F/)F2\"\"*F/F/F(F(F(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "g(5*Pi/4);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,.*(\"())f='\"\"\"\"(DJ&>!\"\"%#PiGF(F(**\"\"&F&\"\"%F(
,&#F&\"\"'F&*&\"\"#F&F)!\"#F(F&F)F&F&**\"$D\"F&\"#kF(,&#\"\"(\"$g$F&*&
F1F&F)!\"%F(F&F)\"\"$F&**\"%DJF&\"%C5F(,&#\"#J\"&?^\"F&*&F1F&F)!\"'F(F
&F)F+F&**\"&D\"yF&\"&%Q;F(,&#\"$F\"\"'+[gF&*&F1F&F)!\")F(F&F)F8F&**F'F
&\"'W@EF(,&#\"#t\"(S9U$F&*&F1F&F)!#5F(F&F)\"\"*F&" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 17 "evalf(g(3*Pi/2));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#$!+=sdh&*!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "f:=z->1/(sin(z));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%\"
zG6\"6$%)operatorG%&arrowGF(*&\"\"\"F--%$sinG6#9$!\"\"F(F(F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "evalf(f(3*Pi/2));" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#$!\"\"\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 62 "\317
\360\356\343\360\340\354\354\340 \355\345 \355\340\365\356\344\350\362
 \360\340\347\353\356\346\345\355\350\345 \342 \360\377\344 \313\356
\360\340\355\340 \357\360\350 N>10. \321\354.\355\350\346\345" }}}
{EXCHG {PARA 0 "" 0 "" {MPLTEXT 0 21 0 "" }{MPLTEXT 1 0 7 "n:=11: " }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "psi:=(z)->z/sin(z);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$psiGf*6#%\"zG6\"6$%)operatorG%&arro
wGF(*&9$\"\"\"-%$sinG6#F-!\"\"F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "limit(diff(psi(z),z$(n+1)),z=0):" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 4 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 1 0 2 33 1 1 }