{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 Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{CSTYLE "" -1 256 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
257 "" 0 1 0 0 0 0 1 0 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 "" 1 14 0 0 0 0 0 2 0 0 0 
0 0 0 0 0 }{CSTYLE "" -1 260 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 261 "" 1 12 0 0 0 0 0 2 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 "" 1 12 0 0 
0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 264 "" 1 12 0 0 0 0 0 2 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 0 1 0 0 0 0 0 0 0 0 }
{CSTYLE "" -1 271 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
272 "" 1 12 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 273 "" 0 1 0 0 
0 0 0 1 0 0 0 0 0 0 0 0 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Tim
es" 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 "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 
2 2 2 2 1 1 1 1 }1 1 0 0 8 4 1 0 1 0 2 2 0 1 }{PSTYLE "Warning" -1 7 
1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 1 3 1 }1 1 
0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -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 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 
0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple P
lot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 
1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 58 "\324\340\351\353: \"..PS_
\314\303\322\323\\\313\340\341\356\360\340\362\356\360\355\373\345 \+
\360\340\341\356\362\373 \357\356 \367\350\361\353\345\355\355\373\354
 \354\345\362\356\344\340\354\\" }}{PARA 0 "" 0 "" {TEXT -1 50 "\320
\345\370\304\323_\302_Maple_\323\357\360\340\346\355\345\355\350\345.m
ws\" 21.03.14. \322\350\362\356\342 \312.\302." }}{PARA 0 "" 0 "" 
{TEXT -1 40 "\310\347\354\345\355\345\355\350\377 (\344\356\357\356
\353\355\345\355\350\377) \342\355\345\361\345\355\373 01.10.16." }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart;with(plots):" }}
{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been r
edefined\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 80 "\302\342\356\344
\377 \342 dsolve \356\357\366\350\376 numeric \357\356\353\363\367\350
\354 \367\350\361\353\345\355\355\356\345 \360\345\370\345\355\350\345
 \304\323 \344\353\377 \361\353\345\344\363\376\371\350\365 \364\363
\355\352\366\350\351," }}{PARA 0 "" 0 "" {TEXT -1 73 "\352\356\362\356
\360\373\345 \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, \342\373\341\350\360\340\377 \350\365 \350\347 \341\340\355\352
\340 \344\340\355\355\373\365: " }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
47 "t/y(t), (1-t^2)/y(t)^2, (y(t)^2+1)/sqrt(1-t^2)," }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 33 "f:=t->-t*sin(t)/(y(t)*cos(y(t)));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%\"tG6\"6$%)operatorG%&arrow
GF(,$**9$\"\"\"-%$sinG6#F.F/-%\"yGF2!\"\"-%$cosG6#F3F5F5F(F(F(" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 47 "\307\340\344\340\344\350\354 \357
\340\360\340\354\345\362\360\373 \355\340\367\340\353\374\355\373\365 \+
\363\361\353\356\342\350\351 \342 \362\356\367\352\345 t0:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "t0:=0: y0:=1: " }}}{SECT 0 {PARA 3 
"" 0 "" {TEXT 259 28 "\317\356\377\361\355\345\355\350\345 \360\340
\341\356\362\373 \356\357\345\360\340\362\356\360\340 D" }}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "convert(D(y)(t0),diff); convert(D[1
$2](y)(t0),diff);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%%evalG6$-%%diff
G6$-%\"yG6#%#t1GF,<#/F,\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%%eva
lG6$-%%diffG6$-%\"yG6#%#t1G-%\"$G6$F,\"\"#<#/F,\"\"!" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 29 "yy:=t->sin(t):D[1$2](yy)(1); " }{TEXT -1 
13 "- \375\362\356 \357\360\350\354\345\360." }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#,$-%$sinG6#\"\"\"!\"\"" }}}{PARA 0 "" 0 "" {TEXT -1 0 "
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 64 "\322\345\357\345\360\374 \347
\340\357\350\370\345\354 \361\340\354\350 \355\340\367\340\353\374\355
\373\345 \363\361\353\356\342\350\377 \342 \362\356\367\352\345 t0 \+
\357\356\344 \350\354\345\355\345\354 yt0:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 14 "yt0:=y(t0)=y0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%$yt0G/-%\"yG6#\"\"!\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 19 "
\307\340\357\350\370\345\354 \360\345\370\340\345\354\356\345 \304\323
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "de:=diff(y(t),t$1)=f(t)
;" }{TEXT -1 1 " " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#deG/-%%diffG6$
-%\"yG6#%\"tGF,,$**F,\"\"\"-%$sinGF+F/F)!\"\"-%$cosG6#F)F2F2" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 56 "\321\356\361\362\340\342\350\354 \+
\347\340\344\340\355\350\345 \355\340 \360\345\370\345\355\350\345 \+
\344\350\364\364\345\360\345\355\366\350\340\353\374\355\356\343\356 \+
\363\360\340\342\355\345\355\350\377." }}{PARA 0 "" 0 "" {TEXT 271 1 "
1" }{TEXT -1 24 ". \300\355\340\353\350\362\350\367\345\361\352\356
\345 \360\345\370\345\355\350\345:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "dsolve(\{de,yt0\},y(t));   " }{TEXT -1 21 "- \356\357
\345\360\340\362\356\360 \360\345\370\345\355\350\377 \304\323" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%\"yG6#%\"tG-%'RootOfG6#,.-%$sinGF&
\"\"\"*&F'F.-%$cosGF&F.!\"\"-F16#%#_ZGF.*&F5F.-F-F4F.F.-F16#F.F2-F-F9F
2" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 42 "\302 Wolfram Alpha \375\362
\356 \360\345\370\345\355\350\345 \342\373\343\353\377\344\350\362 \+
\362\340\352: " }{OLE 1 4618 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::>^CN^dFoCOt;V:>jAZ:j:vCSmlJ::::::::::OJ
;@jyyyyyy;jysy;Z:::::::^<>:fB]mtFFcmnvGWMJnC==nHE=;:::::JJ<J;vyyuy:>:<
::::::=J:Nn;Z:j:VBYmp>HYLkNG>::::::::N<?:xI:;Z::::::j<>:MM:>:nyyM;B:AB
:;J<jA>:G:wAK:M:OJ:V;^;f;;JAjBJB<Z:V=N<;jCJDjDJE>:iZ:>=F=N=^=nYf=:yA::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::j:b:<Z::
::::::::JHJ;Nd=qj;B:cnLbkc<;J@f>ER:TJ>LncpNdT]:V\\QGghGbf_g<GfmGg]Wbi_
f_?d[wf_WH]R;cTTUUSaEBWTSiEB_tUUURWmBHjc`qpDpql`KfZ=wgoOhcgfl?^HgF;R>C
RMcDBEDXceV=MC>[[v_?wk>w_;?dnA\\IvbYGbJOxYn];?dni\\IFb:^x?_x_^xIPbYGB<
[=we;kAQNteli\\NtyrZ<ZJBJcy]=tYKDw[r==dDyDKyTKcyQE\\;w[FF:=j:DJ;DJ;<J;
FZ=FZ:V:=J<b<=B:?j;I^=r@V[;b:\\rR>Z;F:Ob:Cb[_bBUc:?bZam:nyyYZDjysyAbm?
:;JZ=Z:Z@o<<j`@Pt\\Pd`QrPPJTMQ<MJPnrPqjLqnxPq^;<:Z_SKGlAj\\@AJQLncp^nB
wmcf]M:<J::::::vYxy;<:CZ:FZ:>:yayQ:>:FdXjwD:CF;F:MZ=Nb<B:?JhC:;j<B:?R:
?ja^G>D_E:Ems>@[C:>Z::::::::kJ;@j:>:?B:;B:yayA:<::::::I:GH;>Z:j:vCJ:<J
::::::::::OB:<jysy:>:<::::::wqy[:::::::::::::vYxI:;Z::::::::::::::::::
::yay=J:B::::::::F:;j<j:Djyyyyg:n_;F=<j<j?DJ:B:E:Sb:;d:;v@QZ:n^@v;Sj`@
@RS;JjN\\:>:JGvyyuy;B:[Z:>ryyYGwyyyy;t@nv;j<B:Mb:b:EJ:^\\<Vv;>];^]:B:q
i:?sy>Z:JBA:;B:DJ:<Kd`ppP@BBJq^oRA=ks_SuW;V:[uWUG>GeqC:US:F[:>:_c<B:=B
:<jR`QXAj<JD>j;fv<^=VY;fy>Z:JBA:<Z<::::::jPF:C:[Y:;JKJSZ:N<Vhcog]wgm?_
cVhcogbF_]wgmKE_GkF;KOZ?x=>d;N`;nLSMjAJb@JdAJN?ROW:[T:;r:EB:^<n?sZ:VYZ
:JBG:;B:;b:jpVH:::>hq;jP>:C:[Y:=JEB:_;<J?NZ:Njcc:nG?j;]Q:DJ<TrOV_<rZZ?
Q^QQZ<Nj]c:;bZYM;rVDZ=<p]wN:AVX;b:DRNNZ:Vjr[<H??B;PFrVjnB:t@HrvJ;]<HRv
J;a<CjOJ;DR:Vbr?irGirGirk`MJHDJQIJfDJe@JALJe@JjMJe@J:HZ:JDjhAJHjw;<:[N
:<J:@Z<B>aTXDpql`qguJN[K@iwyHSGp:>H:f?=J<Jr?Z:><;B:_c<B:GJ:f_evtwvten[
>N[<>u=>[>nh?r:sP:n>fo;Fbj?hmgc@Wb=GZ:nj;B:GV:^b_Whcwfh?^MWfcgfhWf___Z
FchWfhR;=B:ZNo@HkeJpNb[;:ZNklHA:R>RU?uUF<A<:<:RKRRB<x<BNcI>X>[dvJtQ;;B
wE<:[j[FBxr\\N?vK;JB>B@ny\\^JRJO;ve?kZ:;R:?b:DJ:DZ;R:;r:;R:L:OR:;Z=XBA
jGr<=J;>K;B:=R:d:D;rV>Z<HG<Zh[=@ILZeZ::fRjkJ;y@VHVJjX:mE:NjbJ:HRvJ;a<C
j\\;a=`@;Jqj;aADRNj;]ADrNB;h<DZ];Y=HAHrvB:?FDrZk=?VD<ZnQ;;JMJ?vYxy:B:;
JHjw?<I:;JXE:;Bm=b:?bBaTXaEWEUUtwP=kkN:x@VHVjs[<@?Vjr[<H?>:::::JmtW:<J
?<JVNk;B:<:^u\\A=CZ:f_;>:C:[q:V:;B:;:::Ja@Na`><:::::::::::::::::::::::
::::::::::3:" }{TEXT -1 2 ". " }}{PARA 0 "" 0 "" {TEXT -1 52 "\303\360
\340\364\350\367\345\361\352\350 \356\355\356 \357\360\345\344\361\362
\340\342\353\345\355\356 \361\345\354\345\351\361\362\342\356\354 \352
\360\350\342\373\365 \353\350\355\350\351." }}{PARA 0 "" 0 "" {TEXT 
-1 11 "\317\356\361\362\356\377\355\355\340\377 " }{TEXT 265 2 "\321 \+
" }{TEXT -1 43 "\356\357\360\345\344\345\353\377\345\362\361\377 \350
\347 \355\340\367\340\353\374\355\373\365 \363\361\353\356\342\350\351
 \350 \360\340\342\355\340: " }{OLE 1 4618 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::>^CN^dFoCOt;V:>b@Z:j:vCSm
lJ::::::::::OJ;@jyyyyyy;jysy;Z:::::::^<>:fB]mtFFcmnvGWMJnC==nHE=;:::::
JJ<J;vyyuy:>:<::::::=J:V_;Z:j:VBYmp>HYLkNG>::::::::N<?:xI:;Z::::::j<>:
MM:>:nyyM;B:AB:;J<>:YJ:n:nY>;F;N;;j?J@j@>:W:[B:<JykBJC>:a:c:e:gJ:v<<JF
Jyky;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::j:b:<Z::::::::::JHJ;Nd=y[;J@g>TVdJ:^;Ek<@Z@>[>WdG_dpB:arOMeU=DUSeJ=u
VMuRAtUCUS[TRIUSamBPJd`ppPps<LaPpu<Lcxpp@PqF\\=Vdsgg\\wgfS>ErJYUW_UTEe
V;cMEM:@K<pNd<l\\\\QtDqjN<KRBYSKYFKYSJ[Dw[r=ItQ=DN_yAwRJ[Dwer==D:cYKcY
Ccy]?tQ=\\JrJyTJvk?_xdveB_xIHb:B><NtyrZxQ^LYBxjZdliLniPNtyo\\RJYB==j:F
Z<NZ<NZ:N:=r:=B:Aj:^:dj:<J;Vj=s:h;QR:DZBH@;R:=J?DJ<TrXfa<NZ<XH=Jyyy;d:
yayYZHQ:>:;H:<:TNEB:UTRcETcTX[US;cGWCF;SK]UW=EWMuUWM@B::P`?oBY:ETV:WCK
aTML]nIalHH;B:;:::::jysyAB:^:<j:<J:vYxY;J:jYe:qe:>s=j:F;HJlA:?JJ?Z:j<B
:?R:?ja^G>D_mlVH[KR<:;B:::::::JFNZ;F:;B:?B:;B:yayA:<::::::I:OB;B:F:Y<>
Z:>:::::::::J?<:yay=J:B::::::nYyA<::::::::::::jysy:>:<::::::::::::::::
:::vYxI:;Z::::::::j:>:E:=b:yyyyq<JQ@jFB:E:Qb:;Z:f:^[<>b<>rCV;<JMTjA^;U
TR:;JjN\\:>:JGvyyuy;B:[Z:>ryyYGwyyyy;V<nv;B:EZ:F[<Z<f:;JDDjkAJF@JH<Z:V
y<N^yM:<:[V:>Z:b:;B>cTTUUSZZ:WMP]WF>aQ`gq?j;>hqo^InfNa:f_;j><J:<JSd:<j
:<Z:F`s_q;f:^<;V:er:s:qQ:uI<:[V:B:D:::::::Uk:^:>x;>:aB:;JSZ:>;;js`Pq@m
kxps@ME_GkPsAJN?r:Nn:r:EB:^<n?sZ:VYZ:JBGZ:>Z:>Z<:VH:::>hq;jP>:C:[q:F;;
JSZ:F:<j[`a=fZ:JDjtAJHjw;<:?J;a`<JqN:KN:DJ<TrOV_<NZ<XF?B:?vUD:aM;>K<Z:
:::JBAJ:R:DJ:<kc`a\\wgfsWos=OR`kWyiMP]G:[=:Uk:^:>X;B:O:_c<B:?J:<jXhLfI
J:HJJC:G;gS:=DV[uVUdKAtJ=B:YR:v[;J\\Pps`pmtPJHok`pltpkPPP<l^tpkt\\?FZ:
:n@HkeJpNb[STBS:BOffm;:@;pPkx@]j[:Z:j`RKRRB<x<BNcI>X>[dvJtQ;;BwE<:[j[F
Bxr\\N?vK;JB>bnUJyEL<[;O?jiP>=<>Z;NZ<b:;Z;R:;r:@Z>J?@J:rZVZ:V=hj:N:K^:
FZ;b<LZw:HA;bZM=t@\\B?B;h<rRDZ<xGrVB\\>Z:N[:JMJ?vYxy:J:^=VY[j=J:^q<ZFI
Z<NZ\\VdsWhngfgCoGs=GM:JVNk;B:<:^u\\A=CZ:f?;J<JrG:AJ:<J::::nc;ocC[::::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::::::::::::5:" }{TEXT -1 9 " . \322\340\352\350\354 " }}{PARA 0 "" 0 
"" {TEXT -1 45 "\356\341\360\340\347\356\354 \347\355\340\367\345\355
\350\377\354\350 y(x) \341\363\344\363\362 \352\356\360\355\350 \363
\360\340\342\355\345\355\350\377" }}{PARA 0 "" 0 "" {TEXT -1 1 " " }
{OLE 1 4618 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;t
V;B:;JZC:bKB::>^CN^dFoCOt;V:>jAZ:j:vCSmlJ::::::::::OJ;@jyyyyyy;jysy;Z:
::::::^<>:fB]mtFFcmnvGWMJnC==nHE=;:::::JJ<J;vyyuy:>:<::::::=J:^r;Z:j:V
BYmp>HYLkNG>::::::::N<?:xI:;Z::::::j<>:MM:>:nyyM;B:AB:;J<jA>:G:wAK:M:O
J:V;^;f;;JAjCJB<Z:F<N<;JyKDjDJE>:iZ:>=F=N=V=^=f=nYvY::::::::::::::::::
:::::::::::::::::::::::::::::::::::::::::::::::=Z<B:<::::::::::s:?JcHV
NA:SoLbkc<;J@f>ER:TJ>LncpNdT]:V\\QGghGbf_g<GfmGg]Wbi_f_?d[wf_WH]R;cTTU
USaEBWTSiEB_tUUURWmBHjc`qpDpql`KfZ=wgoOhcgfl?^HgF;R>CRMcDBEDXceV=MC>[[
v_?wk>w_;?dnA\\IvbYGbJOxYn];?dni\\IFb:^x?_x_^xIPbYGB<[=we;kAQNteli\\Nt
yrZ<ZJBJcy]=tYKDw[r==dDyDKyTKcyQE\\;w[FF:=j:DJ;DJ;<J;FZ=FZ:V:=J<b<=B:?
b:?vVDJ:DrnN:t`<rZkM;LJ=EKKpL;VJj:nyyYZDjysyAbm?:;JZ=Z:Z@o<<j`@Pt\\Pd`
QrPPJTMQ<MJPnrPqjLqnxPq^;<:Z_SKGlAj\\@AJQLncp^nBwmcf]M:<J::::::vYxy;<:
CZ:F:;jysy?:;:KbC^`<JkL:=j>r:]c:<J;fW>:EZ:NZ;N:YLpJbNHEms>@[C:>Z::::::
::kJ;@j:J;<J:<jysy;Z::::::j=JLM:;B:F:Y<>Z:>:::::::::J?<Z:vYxI:;Z::::::
JywYB:::::::::::::yay=J:B:::::::::::::::::::jysy:>:<::::::::=J:f:FZ<vy
yyYE:WS:mZ:f:V[<>:<j<J@DZ<>j\\V;n^@v;Sj`@@J:>D_B:;:N=yyyxY:<JBB:;xyyQ]
yyyyYZD\\:nr;B:EZ:F[<J:Dj<>:cb:;U:WKHB:qi:;fyB:>l;J:<Z<>ZJ^dcgg_;<<nGS
GpkJVXSpXQ:AJrXQg=KmTN<jP@:[[:N`DZ:V=Vhcog]wgm?_cVhcogbF_]wgm;@mkxps@M
RnLSMCMJN?RGx:[T:_S:gNp>v;>d;^t;>O;POAJb@J^AJE_GkPpAJNKK_]<r:EB:^<^b<^
=<jw;<:[n:<Z:>Z<:Ums:::::<jPF:C:[Y:;jDJSZ:F[:>:kEXkUXkUXk]:n\\<no=n_<n
d;n[>nd;>v>nd;>Z=fZ:JDJTHJHjw;<:[V:;J:@J:DJ:VdscRYEUXq\\EleEJ;DrkN:?vU
D:a=AN:^:QkODZ=Hi:N:?FDDJ:HRvJ;a\\<^:EhBi@a=`@;Jqj;aADRNj;]ADrNB;h<DJ;
I@vGrVrZm]:NjbZ=@INjcJ<N<NZ<XHRT>:W=KVF;b:C:jkJ;y@VH>KjXfa<B\\[C:<::::
::::::joIK?PMVqyu^oR=JrXA:UK:^:>X=jC<J:N`DZ:>;;jPXwOXwOplPpM<DJZIJuIJu
PJUTJZIJALZ=fWn>vs;Fbj?hmgc@Wb=GZ:>o;B:KW:^b_Whcwfh?^MWfcgfhWf___ZFchW
fhR;=:JUr>i<S][;L@:L?EuV:ZKrNpPkx@]j[bV:<:>^?[[c>\\Zi:<Ot=[AKbDI^xOJ:L
y\\:JBVB=\\IhBO;YN:><;Dw@ny\\^JRJO[YkiP>=<>Z;NZ<b:;b:;R:@J:HJ:@Z>J?@J:
N:a]:Njc;W=A>CJCJ:HBRkZ][<xGrVrZZerD<Zs?:DRNB:AFXbZM[>RkZm;M]:bUrZm=?F
DrZk=?VD^:Q;?jkZi;a=AVX>Z<@?Vjr[<H?LZLZ<rVjnB:t@\\rRB;:H@DrqZm[B<p=>kj
>:;RrOJ:n>N;yayI:<J:^=VY[j=J:^q<B:lv:DJ;Dlc`qsLqlp`@OuJnF;B:OB:kK?AZ:B
:=J:^u\\A=CZ:f_;F:C:[Q:VZ:>Z:>::::WTJWTLB::::::::::::::::::::::::::::5
:" }{TEXT -1 37 " , \360\340\347\360\345\370\340\345\354\356\343\356 \+
\356\362\355\356\361\350\362\345\353\374\355\356 Z=y(x). " }}{PARA 0 "
" 0 "" {TEXT -1 84 "\310\354\345\355\355\356 \375\362\356 \361\356\344
\345\360\346\350\362\361\377 \342 \355\340\351\344\345\355\355\356\354
 \360\345\370\345\355\350\350 Maple y(t). \322\340\352\356\345 \360
\345\370\345\355\350\345 \343\360\340\364\350\367\345\361\352\350 \357
\360\345\344-" }}{PARA 0 "" 0 "" {TEXT -1 77 "\361\362\340\342\350\362
\374 \353\345\343\367\345, \345\361\353\350 \357\345\360\345\351\362
\350 \352 \367\350\361\353\345\355\355\356\354\363 \360\345\370\345
\355\350\376 \344\350\364\364\345\360\345\355\366\350\340\353\374\355
\356\343\356 \363\360\340\342\355\345\355\350\377." }}}{EXCHG {PARA 0 
"" 0 "" {TEXT 270 1 "2" }{TEXT -1 64 ". \317\360\356\342\345\344\270
\354 \367\350\361\353\345\355\355\356\345 \360\345\370\345\355\350\345
, \342\350\347\363\340\353\350\347\340\366\350\376 \350 \352\356\355
\362\360\356\353\374 \360\345\370\345\355\350\377 y(" }{TEXT 257 1 "t
" }{TEXT -1 13 ") \342 \347\340\344\340\355\355\356\351 " }}{PARA 0 "
" 0 "" {TEXT -1 6 "\362\356\367\352\345 " }{TEXT 256 1 "t" }{TEXT -1 
1 ":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "F:=dsolve(\{de,yt0
\},y(t),numeric);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"FGf*6#%(x_rkf
45G6)%$resG%%dataG%%varsG%)solnprocG%)outpointG%&ndsolG%\"iG6#%inCopyr
ight~(c)~2000~by~Waterloo~Maple~Inc.~All~rights~reserved.G6\"C*>%8_Env
DSNumericSaveDigitsG%'DigitsG>F6\"#9@%/%-_EnvInFsolveG%%trueG>8(-&%&ev
alfG6#F56#9$>F>-FAFC>8%`6$%$GetG%$SetGb6#%+thismoduleG6#%%DataGF26$%$G
etG%$SetGF2F2F2F26\"6#%%DataG>8&-_FHFS6#Q(sysvarsF2>8'-Fen6#Q/soln_pro
cedureF2@$4-%%typeG6$F>.%(numericGC$@,-%'memberG6$FD7+Q&startF2.%&star
tGQ'methodF2.%'methodGQ%leftF2Q&rightF2Q)leftdataF2Q*rightdataF2Q+engi
nedataF2C$>8$-Fin6#-%(convertG6$FD.%'stringG@&-F`o6$Fgp.%&arrayGO-%%ev
alG6$Fgp\"\"\"0FgpQ)procnameF2OFgp-Fgo6$FD7&Q%lastF2.%%lastGQ(initialF
2.%(initialGC$>FgpFhp@$-F`o6$Fgp.%%listGO7#-%$seqG6$/&FY6#,&FhqFhq8*Fh
q&FgpFcs/Fes;\"\"!Fhq3-F`o6$F>%\"=G-Fgo6$-%$lhsG6#F>7$FbrFcrC$@%-F`o6$
-%$rhsGFbtFjr>Fgp-Fin6#/Fbr7$Fis-%#opG6#FhtYQKinitial~values~must~be~s
pecified~in~a~listF2@$FhrOF]s/F>Q.solnprocedureF2O-Ffq6#Fin/F>FgnOFY@%
09!%(unknownGO-.F_vFCC$>8)-%(pointtoG6#&-Fen6#Q0soln_proceduresF26#Fis
O-.FfvFCZ%C$>Fgp-FinFbtF]sF2YF2F2F2F2" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT 266 10 "\317\360\350\354\345\367\340\355\350\345" }{TEXT -1 19 "
. \315\350\346\345 \342 \361\362\360\363\352\362\363\360\345 " }{TEXT 
267 1 "F" }{TEXT -1 41 " \342 \352\360\363\343\353\373\365 \361\352
\356\341\352\340\365 \363\352\340\347\373\342\340\345\362\361\377 \347
\355\340\367\345\355\350\345 \"" }{TEXT 268 1 "t" }{TEXT -1 15 "\", \+
\340 \342 \352\342\340\344\360\340\362-" }}{PARA 0 "" 0 "" {TEXT -1 
39 "\355\373\365 - \355\356\354\345\360 \352\356\354\357\356\355\345
\355\362\373 \342\345\352\362\356\360\340 \360\345\370\345\355\350\377
 " }{TEXT 269 1 "F" }{TEXT -1 1 ":" }{TEXT 258 0 "" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 17 "F(.2); F(0.6)[2];" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#7$/%\"tG$\"\"#!\"\"/-%\"yG6#F%$\"35DmO0b!4&**!#=" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%\"yG6#%\"tG$\"3G&3lOX#GX()!#=" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "plots[odeplot](F,[[t,y(t),co
lor=red]],t=-2..1.7,labels=[t,y]);" }}{PARA 7 "" 1 "" {TEXT -1 89 "War
ning, cannot evaluate the solution further right of 1.0892305, probabl
y a singularity\n" }}{PARA 7 "" 1 "" {TEXT -1 121 "Warning, cannot eva
luate the solution further left of -.88888889, maxfun limit exceeded (
see ?dsolve,maxfun for details)\n" }}{PARA 13 "" 1 "" {GLPLOT2D 484 
167 167 {PLOTDATA 2 "6$-%'CURVESG6$X,%)anythingG6\"6\"[gl'!%\"!!#aq\"T
\"#C0000000000000007FFC000000000000BFFED097B425EC957FFC000000000000BFF
DA12F684BD9297FFC000000000000BFFC71C71C71C7817FFC000000000000BFFB425ED
097B4157FFC000000000000BFFA12F684BDA0AA7FFC000000000000BFF8E38E38E38F0
17FFC000000000000BFF7B425ED097B967FFC000000000000BFF684BDA12F682A7FFC0
00000000000BFF55555555554BF7FFC000000000000BFF425ED097B43167FFC0000000
00000BFF2F684BDA12FAB7FFC000000000000BFF1C71C71C71C407FFC000000000000B
FF097B425ED08D47FFC000000000000BFEED097B425ECEF7FFC000000000000BFEC71C
71C71C7267FFC000000000000BFEA12F684BDA1043FF6747317CD113EBFE7B425ED097
B3C3FF4599B21E624A8BFE55555555555733FF3085F00042CEABFE2F684BDA12F513FF
21539D14400C9BFE097B425ED09893FF16136364A5F1FBFDC71C71C71C6CC3FF0DD4BE
9D7CEADBFD7B425ED097B3C3FF07FD389947CD7BFD2F684BDA12FAB3FF04176E507B7B
ABFCC71C71C71C6CC3FF01BA54727F456BFC2F684BDA12FAB3FF00833ED2BB82FBFB2F
684BDA12F633FF001070EA5242D00000000000000003FF00000000000003FB2EBF7187
CA9383FEFFDF9E4FC95B43FC2EBF7187CA8F03FEFEFB93B6C19533FCC61F2A4BAFD683
FEFC944930F45DA3FD2EBF7187CA8F03FEF7F0FA940B4203FD7A6F4DE9BD32C3FEF065
35109CE4B3FDC61F2A4BAFE1C3FEE5538A089918C3FE08E78356D142C3FED62C63C53A
9F33FE2EBF7187CA94A3FEC269505345BCD3FE54975FB8C3E683FEA97A50DBC3D6A3FE
7A6F4DE9BD3863FE8AA8789FA8CAE3FEA0473C1AB68A43FE64DCD63ACDA303FEC61F2A
4BAFDC23FE36251F485AF493FEEBF7187CA92E03FDF4AA03DFB68DF3FF08E78356D14E
03FD49B5556F36DF13FF1BD37A6F4DE617FFC0000000000003FF2EBF7187CA9A47FFC0
000000000003FF41AB68A0473257FFC0000000000003FF54975FB8C3E687FFC0000000
000003FF678356D1409AB7FFC0000000000003FF7A6F4DE9BD32C7FFC0000000000003
FF8D5B450239E6F7FFC0000000000003FFA0473C1AB67F07FFC0000000000003FFB333
3333333337FFC000000000000-%'COLOURG6&%$RGBG$\"*++++\"!\")$\"\"!F2F1-%+
AXESLABELSG6$%\"tG%\"yG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "
plots[odeplot](F,[[t,y(t),color=red]],t=0..4,labels=[t,y]);" }}{PARA 
7 "" 1 "" {TEXT -1 89 "Warning, cannot evaluate the solution further r
ight of 1.0892305, probably a singularity\n" }}{PARA 13 "" 1 "" 
{GLPLOT2D 493 175 175 {PLOTDATA 2 "6$-%'CURVESG6$X,%)anythingG6\"6\"[g
l'!%\"!!#_q\"S\"#00000000000000003FF00000000000003FB4E5E0A72F05163FEFF
D44D562C8523FC4E5E0A72F055E3FEFEA14FDC796323FCF58D0FAC687593FEFB66424C
AE79F3FD4E5E0A72F055E3FEF52DDBF293A063FDA1F58D0FAC65C3FEEB175B58FCE6F3
FDF58D0FAC687593FEDC579C46FE7403FE24924924924853FEC835641D895CA3FE4E5E
0A72F05043FEADF60D7B50D923FE7829CBC14E5DD3FE8CB0E4147E6823FEA1F58D0FAC
65C3FE62FF173251E543FECBC14E5E0A6DA3FE2E395A686CF3D3FEF58D0FAC687B33FD
D019D29B8ABE33FF0FAC687D633EC3FCDA954ADD98E763FF24924924923D17FFC00000
00000003FF397829CBC15797FFC0000000000003FF4E5E0A72F055E7FFC00000000000
03FF6343EB1A1F5447FFC0000000000003FF7829CBC14E5297FFC0000000000003FF8D
0FAC687D6D07FFC0000000000003FFA1F58D0FAC6B67FFC0000000000003FFB6DB6DB6
DB69B7FFC0000000000003FFCBC14E5E0A6807FFC0000000000003FFE0A72F05398287
FFC0000000000003FFF58D0FAC6880D7FFC00000000000040005397829CBBF97FFC000
0000000004000FAC687D633EC7FFC0000000000004001A1F58D0FABDF7FFC000000000
00040024924924924B27FFC0000000000004002F05397829CA57FFC000000000000400
397829CBC14987FFC00000000000040043EB1A1F58C8A7FFC0000000000004004E5E0A
72F055E7FFC00000000000040058D0FAC687D517FFC0000000000004006343EB1A1F54
47FFC0000000000004006DB6DB6DB6D367FFC0000000000004007829CBC14E60A7FFC0
00000000000400829CBC14E5DFD7FFC0000000000004008D0FAC687D5EF7FFC0000000
0000040097829CBC14DE27FFC000000000000400A1F58D0FAC6B67FFC0000000000004
00AC687D6343EA87FFC000000000000400B6DB6DB6DB69B7FFC000000000000400C14E
5E0A72E8E7FFC000000000000400CBC14E5E0A7627FFC000000000000400D6343EB1A1
F547FFC000000000000400E0A72F05397477FFC000000000000400EB1A1F58D0F3A7FF
C000000000000400F58D0FAC6880D7FFC00000000000040100000000000007FFC00000
0000000-%'COLOURG6&%$RGBG$\"*++++\"!\")$\"\"!F2F1-%+AXESLABELSG6$%\"tG
%\"yG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve \+
1" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT 260 7 "\307\340\344\340\355\350
\345" }{TEXT -1 44 ". \317\356\361\354\356\362\360\345\362\374 \342 He
lp \352\340\352 \360\345\370\340\376\362\361\377 \304\323 \357\356\360
\377\344\352\340 " }{TEXT 262 1 "n" }{TEXT -1 33 " \350 \361\350\362
\345\354\373 \304\323. \302\373\341\360\340\362\374 \304\323 \350\347 \+
[24] " }}{PARA 0 "" 0 "" {TEXT -1 85 "(\305\364\350\354\356\342) \350 \+
\360\345\370\350\362\374 \345\343\356. \335\362\356 \360\345\370\345
\355\350\345 (\367\350\361\353\345\355\355\356\345) \345\361\362\374 \+
\362\340\352\346\345 \342 Mathcad - \356\357\366\350\377 Odesolve." }}
}{EXCHG {PARA 0 "" 0 "" {TEXT -1 85 "----------------------- \317\320
\316\302\305\320\312\300 ---------------------------------------------
-------" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 80 "\327\362\356\341\373 \+
\356\361\363\371\345\361\362\342\350\362\374 \357\360\356\342\345\360
\352\363 \357\356\353\363\367\345\355\355\356\343\356 \360\345\370\345
\355\350\377 \304\323, \345\371\270 \360\340\347 \357\356\342\362\356
\360\350\354 \360\345\370\345\355\350\345 \344\350\364-" }}{PARA 0 "" 
0 "" {TEXT -1 25 "\364\345\360\345\355\366\350\340\353\374\355\356\343
\356 \363\360\340\342\355\345\355\350\377:" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 27 "de0:=diff(y(t),t$1)-f(t)=0;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$de0G/,&-%%diffG6$-%\"yG6#%\"tGF-\"\"\"**F-F.-%$sinGF
,F.F*!\"\"-%$cosG6#F*F2F.\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 36 "Y:=dsolve(\{de0,yt0\},y(t)); rhs(Y);  " }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"YG/-%\"yG6#%\"tG-%'RootOfG6#,.-%$sinGF(\"\"\"*&F)F0
-%$cosGF(F0!\"\"-F36#%#_ZGF0*&F7F0-F/F6F0F0-F36#F0F4-F/F;F4" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#-%'RootOfG6#,.-%$sinG6#%\"tG\"\"\"*&F*F+-%$c
osGF)F+!\"\"-F.6#%#_ZGF+*&F2F+-F(F1F+F+-F.6#F+F/-F(F6F/" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 9 "\317\360\356\342\345\360\352\340:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "pr_a:=subs(y(t)=rhs(Y),de0):
 pr_a;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/\"\"!F$" }}}{EXCHG {PARA 0 
"" 0 "" {TEXT -1 77 "\302 \357\360\340\342\350\353\374\355\356\361\362
\350 \357\356\353\363\367\345\355\355\356\343\356 \360\345\370\345\355
\350\377 \354\356\346\355\356 \362\340\352\346\345 \363\341\345\344
\350\362\374\361\377, \347\340\357\363\361\362\350\342 \357\360\356
\366\345\344\363\360\363 " }}{PARA 0 "" 0 "" {TEXT -1 58 "\363\357\360
\356\371\345\355\350\377, \342 \360\345\347\363\353\374\362\340\362
\345 \352\356\362\356\360\356\351 \344\356\353\346\355\373 \357\356
\353\363\367\350\362\374 \362\356\346\344\345\361\362\342\356:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "simplify(pr_a); " }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#/\"\"!F$" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 33 "\305\361\362\374 \344\360\363\343\350\345 \342\356\347\354\356
\346\355\356\361\362\350 \357\360\356\342\345\360\352\350:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "odetest(Y,de0);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "o
detest(Y,[de0,yt0]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$\"\"!F$" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 97 "----------------------------------
---------------------------------------------------------------" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart;with(plots):" }}
{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been r
edefined\n" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT 272 59 "\317\360\350\354
\345\360 \2711 \360\345\370\345\355\350\377 \344\350\364\364\345\360
\345\355\366\350\340\353\374\355\356\343\356 \363\360\340\342\355\345
\355\350\377 2-\343\356 \357\356\360\377\344\352\340." }{TEXT -1 0 "" 
}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 80 "\302 \350\355\362\345\360\340
\352\362\350\342\355\356\354 \360\345\346\350\354\345 \354\356\346\355
\356 \347\340\357\350\361\340\362\374 \350 \360\345\370\350\362\374 \+
\353\376\341\356\345 \350\347 \363\360\340\342\355\345\355\350\351 \+
\357\356\353\374\347\356\342\340\362\345\353\377, " }}{PARA 0 "" 0 "" 
{TEXT -1 9 "\355\340\357\360\350\354\345\360:" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 35 "de:=diff(x(t),t$2)=-t*x(t)+exp(-t);" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#>%#deG/-%%diffG6$-%\"xG6#%\"tG-%\"$G6$F,\"\"#,&
*&F,\"\"\"F)F3!\"\"-%$expG6#,$F,F4F3" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 44 "\307\340\344\340\344\350\354 \355\340\367\340\353\374\355\373
\345 \363\361\353\356\342\350\377 \361\353\345\344\363\376\371\350\354
 \356\341\360\340\347\356\354:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 20 "xt0:=x(0)=1, x(2)=4;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$xt0
G6$/-%\"xG6#\"\"!\"\"\"/-F(6#\"\"#\"\"%" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 49 "\315\340\365\356\344\350\354 \340\355\340\353\350\362\350
\367\345\361\352\356\345 \360\345\370\345\355\350\345 (\345\361\353
\350 \356\355\356 \350\354\345\345\362\361\377):" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 25 "r:=dsolve(\{de,xt0\},x(t));" }}{PARA 12 "" 1 
"" {XPPMATH 20 "6#>%\"rG/-%\"xG6#%\"tG,(*(-%'AiryAiG6#,$F)!\"\"\"\"\",
**(\"\"$F1-%&GAMMAG6##\"\"#F4F1-%'AiryBiG6#!\"#F1F0*&\"\"%F1)F4#\"\"&
\"\"'F1F1**%#PiGF1-%$IntG6$*&-F;6#,$%$_z1GF0F1-%$expGFKF1/FM;F9\"\"!F1
)F4#F1F4F1F:F1F1**FEF1-FG6$*&-F-FKF1FNF1FPF1F@F1F:F1F0F1,&*&FSF1F:F1F1
*&F@F1-F-F<F1F0F0F0*(-F;F.F1,**&F?F1FSF1F1*(F4F1FgnF1F5F1F0**FgnF1FEF1
-FG6$*&FJF1-FO6#FMF0FPF1FSF1F1**FgnF1FEF1-FG6$*&FYF1FaoF0FPF1F@F1F0F1F
ZF0F1*&FEF1,&*&-FG6$FI/FM;F9F)F1F,F1F0*&-FG6$FXF\\pF1FinF1F1F1F0" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 9 "\317\360\356\342\345\360\352\340:" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "odetest(r,[de,xt0]);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#7%\"\"!F$F$" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 14 "\321\362\360\356\350\354 \343\360\340\364\350\352:" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "plot(rhs(r),t=0..4);" }}
{PARA 13 "" 1 "" {GLPLOT2D 583 193 193 {PLOTDATA 2 "6%-%'CURVESG6$7W7$
$\"\"!F)$\"+#*********!#57$$\"+m;')=()!#6$\"+FguF8!\"*7$$\"+e'40j\"F,$
\"+&=0zh\"F37$$\"+<6m$[#F,$\"+)e`\"[>F37$$\"+<yYULF,$\"+E=t#G#F37$$\"+
eF>(>%F,$\"+wuM:EF37$$\"+\">K'*)\\F,$\"+#z!*3#HF37$$\"+Dt:5eF,$\"+&Gz:
B$F37$$\"+\"fX(emF,$\"++J\\VNF37$$\"+DCh/vF,$\"+_.;TQF37$$\"+L/pu$)F,$
\"+')4HHTF37$$\"+;c0T\"*F,$\"+\"[]UO%F37$$\"+I,Q+5F3$\"+KVO.YF37$$\"+]
*3q3\"F3$\"+Lgr6[F37$$\"+q=\\q6F3$\"+`!=y(\\F37$$\"+fBIY7F3$\"+j2Z&4&F
37$$\"+j$[kL\"F3$\"+i8z*=&F37$$\"+`Q\"GT\"F3$\"+>M[F_F37$$\"+s]k,:F3$
\"+46z=_F37$$\"+`dF!e\"F3$\"+cK7h^F37$$\"+sgam;F3$\"+;lHT]F37$$\"+<ep[
<F3$\"+mBZq[F37$$\"+e/TM=F3$\"+=-HKYF37$$\"+cK78>F3$\"+=KnfVF37$$\"+Uc
-)*>F3$\"+vP%)3SF37$$\"+f`@'3#F3$\"+,'*[%e$F37$$\"+nZ)H;#F3$\"+m$[%oJF
37$$\"+Ky*eC#F3$\"+U(>Zn#F37$$\"+S^bJBF3$\"+/$GA7#F37$$\"+0TN:CF3$\"+1
tKZ:F37$$\"+7RV'\\#F3$\"+$o6pm*F,7$$\"+:#fke#F3$\"+#=/`/$F,7$$\"+`4NnE
F3$!+@&))p&HF,7$$\"+],s`FF3$!+U)p0I*F,7$$\"+zM)>$GF3$!+V^I)[\"F37$$\"+
qfa<HF3$!+3gHo?F37$$\"+1O0)*HF3$!+2kdtDF37$$\"+#G2A3$F3$!+v)3y/$F37$$
\"+$)G[kJF3$!+*)H)pW$F37$$\"+7yh]KF3$!+9&3ay$F37$$\"+()fdLLF3$!+d]-DSF
37$$\"+WV*fP$F3$!+B3C7TF37$$\"+-FT=MF3$!+`qUuTF37$$\"+9)z/Y$F3$!+Wgp5U
F37$$\"+Epa-NF3$!+Do8@UF37$$\"+LA?TNF3$!+g^j2UF37$$\"+Sv&)zNF3$!+jg$=<
%F37$$\"+%)3;COF3$!+WeK.TF37$$\"+GUYoOF3$!+$)Hf0SF37$$\"+2^rZPF3$!+=n6
fPF37$$\"+sI@KQF3$!+;)[!*R$F37$$\"+2%)38RF3$!+o,FnHF37$$\"\"%F)$!+fX**
=CF3-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q\"t6\"Q!Fh\\l-%%V
IEWG6$;F(Fi[l%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 26 "\315
\340\365\356\344\350\354 \367\350\361\353\345\355\355\356\345 \360\345
\370\345\355\350\345:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "R:
=dsolve(\{de,xt0\},x(t),numeric);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%\"RGf*6#%&x_bvpG6(%$resG%%dataG%)solnprocG%&ndsolG%)outpointG%\"iG6#%
inCopyright~(c)~2000~by~Waterloo~Maple~Inc.~All~rights~reserved.G6\"C)
>%8_EnvDSNumericSaveDigitsG%'DigitsG>F5\"#9@%/%-_EnvInFsolveG%%trueG>8
(-&%&evalfG6#F46#9$>F=-F@FB>8%`6$%$GetG%$SetGb6#%+thismoduleG6#%%DataG
F16$%$GetG%$SetGF1F1F1F16\"6#%%DataG>8&-_FGFR6#Q/soln_procedureF1@$4-%
%typeG6$F=.%(numericG@+/F=Q.solnprocedureF1O-%%evalG6#FX-%'memberG6$F=
7)Q&startF1Q%leftF1Q&rightF1Q*errorprocF1Q(rawdataF1Q&orderF1Q&errorF1
O-FXFB/F=Q(sysvarsF1O-FZ6#Fcp09!%(unknownGO-.FhpFBC$>8'-%(pointtoG6#&-
FZ6#Q0soln_proceduresF16#\"\"!O-.F_qFBZ%C$>8$-FX6#F=7$/%\"tG&F_r6#\"\"
\"-%$seqG6$/&.7$-%\"xG6#Fdr-%%diffG6$F_sFdr6#8)&F_r6#,&FgrFgrFfsFgr/Ff
s;Fgr\"\"#F1YF1F1F1F1" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 23 "\342 \+
\362\356\354 \367\350\361\353\345 \342 \362\356\367\352\345 t=1" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "R(1);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#7%/%\"tG$\"\"\"\"\"!/-%\"xG6#F%$\"3*o-X0TwBg%!#</-%%dif
fG6$F*F%$\"3;4MMuGt*f#F/" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 82 "\321
\362\360\356\350\354 \343\360\340\364\350\352 \342 \356\352\360\345
\361\362\355\356\361\362\350 \362\356\367\352\350 t=0, \352\356\362
\356\360\373\351 \361 \363\342\345\353\350\367\345\355\350\345\354 t \+
\361\350\353\374\355\356 \350\361\352\340\346\340\345\362\361\377, " }
}{PARA 0 "" 0 "" {TEXT -1 46 "\367\362\356 \356\361\356\341\345\355
\355\356 \365\356\360\356\370\356 \342\350\344\355\356 \355\340 \364
\340\347\356\342\356\354 \357\356\360\362\360\345\362\345." }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "plots[odeplot](R,[[t,x(t),color=red
]],t=0..8,labels=[t,x]);" }}{PARA 7 "" 1 "" {TEXT -1 85 "Warning, righ
t boundary of range exceeds domain of the problem, it has been adjuste
d\n" }}{PARA 13 "" 1 "" {GLPLOT2D 583 162 162 {PLOTDATA 2 "6$-%'CURVES
G6$X,%)anythingG6\"6\"[gl'!%\"!!#_q\"S\"#00000000000000003FF0000000000
0023FA4E5E0AB37370A3FF270EEBC1B91033FB4E5E0A6EBB4103FF4E816B798A8E93FB
F58D0FC874F953FF764CCB26AEE5D3FC4E5E0A6EBB4103FF9E651D4450F7A3FCA1F58D
1B981D33FFC6BD35CAA6BF43FCF58D0FA618E183FFEF46A532373E83FD249249297ADE
D4000BF8DAC8C7D013FD4E5E0A6EBB4104002056B3F3714223FD7829CBC529AF140034
B3B9E2BD9EF3FDA1F58D0A6A114400490623B6C89CB3FDCBC14E60D87F54005D43853E
EE7733FDF58D0FA618E184007160D0A02A7393FE0FAC687E43A7D4008552596138A9C3
FE24924920E3D8E400990BD7E12010C3FE397829CC1B0FF400AC806E4E6FDA03FE4E5E
0A775246F400BFA2AE2DE3ABD3FE6343EB19F2781400D2649F46CA5463FE7829CBC529
AF1400E4B7C7A612B533FE8D0FAC67C9E03400F68D347CB2BD33FEA1F58D1301173401
03EAC250072063FEB6DB6DB5A14854010C4079E4F154E3FECBC14E60D87F5401143FB3
C4A20A33FEE0A72F0378B074011BE03E7D835873FEF58D0FAEAFE774012319CC17A31B
E3FF05397828A80C440129E3FA35BD08C3FF0FAC687E43A7D40130365B07A484B3FF1A
1F58CF93C0540136087EA6169E53FF249249252F5BE4013B51FD33CEA873FF2F053976
7F746401400A816DE933F3FF397829CC1B0FF4014429D3EDCD9AD3FF43EB1A1D6B2874
0147A7E6CCE2E313FF4E5E0A7306C404014A7CE1E5FED8A3FF58D0FAC8A25F84014CA1
2F735733A3FF6343EB19F27814014E0D891F326773FF6DB6DB6F8E1394014EBB056AF0
8073FF7829CBC0DE2C24014EA3255EA05833FF829CBC1679C7A4014DBFE274345CC3FF
8D0FAC67C9E034014C0BBCA9AA1FE3FF97829CBD657BB4014981C8A4779D13FFA1F58D
0EB5944401461DBDD98E35A3FFAC687D64512FC40141DC048FCE5BF3FFB6DB6DB5A148
54013CB9C3C5494E33FFC14E5E0B3CE3D40136B4EEB0061753FFCBC14E5C8CFC64012F
CC51F8C06F83FFD6343EB22897E40127FFA0501F63F3FFE0A72F0378B074011F4F7E90
029E53FFEB1A1F59144BF40115BD8EF052F8E3FFF58D0FAA646484010B4C7B991DB2F4
000000000000000400FFFFFFFFFFFFE-%'COLOURG6&%$RGBG$\"*++++\"!\")$\"\"!F
2F1-%+AXESLABELSG6$%\"tG%\"xG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 19 "z:=t->diff(x(t),t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%\"zGf*6#%\"tG6\"6$%)operatorG%&arrowGF(-%%diffG6$-%\"xG6#9$F2F(F(F
(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 32 "\321\362\360\356\350\354 \+
\343\360\340\364\350\352 - \364\340\347\356\342\373\351 \357\356\360
\362\360\345\362:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "odeplo
t(R,[x(t),z(t)],0..8);\n" }}{PARA 7 "" 1 "" {TEXT -1 85 "Warning, righ
t boundary of range exceeds domain of the problem, it has been adjuste
d\n" }}{PARA 13 "" 1 "" {GLPLOT2D 582 239 239 {PLOTDATA 2 "6$-%'CURVES
G6$X,%)anythingG6\"6\"[gl'!%\"!!#_q\"S\"#3FF0000000000002400DBECD78412
A443FF270EEBC1B9103400E0ED50CA205223FF4E816B798A8E9400E5721034968503FF
764CCB26AEE5D400E96C3E4FCCD783FF9E651D4450F7A400ECCCBA49D93A93FFC6BD35
CAA6BF4400EF8425AFFF8BB3FFEF46A532373E8400F182F164240A14000BF8DAC8C7D0
1400F2B96BF9663414002056B3F371422400F317D157A42F740034B3B9E2BD9EF400F2
8E5BC1534D4400490623B6C89CB400F10D562C71B154005D43853EEE773400EE852FF0
39CB64007160D0A02A739400EAE691C9D36D74008552596138A9C400E622741B02E224
00990BD7E12010C400E02A36795BFF5400AC806E4E6FDA0400D8EFB84F9946A400BFA2
AE2DE3ABD400D06572BB3E432400D2649F46CA546400C67E935F8F585400E4B7C7A612
B53400BB2F1824B1E7E400F68D347CB2BD3400AE6BEBEEBB21F40103EAC25007206400
A02B03CABB4CC4010C4079E4F154E40090637D00261B3401143FB3C4A20A34007F0DBB
38DAE0F4011BE03E7D835874006C23874697B524012319CC17A31BE40057A02D8F05A6
640129E3FA35BD08C40041809CD2724C940130365B07A484B40029C3841DA7DF740136
087EA6169E5400106970B6622884013B51FD33CEA873FFEAE9D54AC8334401400A816D
E933F3FFB1D521AE552D54014429D3EDCD9AD3FF75A266865507940147A7E6CCE2E313
FF3663D86BD05654014A7CE1E5FED8A3FEE860DBED706B04014CA12F735733A3FE5E48
1478A8E984014E0D891F326773FD9D7E85EB8F38B4014EBB056AF08073FBD0958281F7
EA14014EA3255EA0583BFC7D9B178B4F5884014DBFE274345CCBFDFA9713DC958DF401
4C0BBCA9AA1FEBFE9F2F3560008604014981C8A4779D1BFF224D461D5F033401461DBD
D98E35ABFF7685C262E763E40141DC048FCE5BFBFFCBFAB2E749F864013CB9C3C5494E
3C0011303CE60189340136B4EEB006175C003CB32D469BBB04012FCC51F8C06F8C0068
5B527FFE20140127FFA0501F63FC0093FB76AB4EE694011F4F7E90029E5C00BF64268A
D23A440115BD8EF052F8EC00EA63D8F7972384010B4C7B991DB2FC010A638D7F5BC264
00FFFFFFFFFFFFEC011F2C616A4B854-%'COLOURG6&%$RGBG$\"#5!\"\"$\"\"!F2F1-
%+AXESLABELSG6$Q\"xF)Q#x'F)" 1 2 0 1 10 0 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 8 "restart;" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT 261 60 "
\317\360\350\354\345\360 \271 2 \360\345\370\345\355\350\377 \344\350
\364\364\345\360\345\355\366\350\340\353\374\355\356\343\356 \363\360
\340\342\355\345\355\350\377 2-\343\356 \357\356\360\377\344\352\340.
" }{TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "de:=diff(
x(t),t$2)+K^2*x(t)+h*sin(omega*t+delta):" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 44 "\307\340\344\340\344\350\354 \355\340\367\340\353\374\355
\373\345 \363\361\353\356\342\350\377 \361\353\345\344\363\376\371\350
\354 \356\341\360\340\347\356\354:" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "xt0:=x(0)=0, D(x)(0)=0;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%$xt0G6$/-%\"xG6#\"\"!F*/--%\"DG6#F(F)F*" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 16 "\315\340\365\356\344\350\354 \360\345\370\345\355
\350\345:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "dsolve(\{de,xt
0\},x(t));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%\"xG6#%\"tG,(*.-%$sin
G6#*&%\"KG\"\"\"F'F/F/%\"hGF/-%$cosG6#%&deltaGF/%&omegaGF/F.!\"\",&*$)
F.\"\"#F/F6*$)F5F:F/F/F6F6**-F2F,F/F0F/-F+F3F/F7F6F6*(F0F/-F+6#,&*&F5F
/F'F/F/F4F/F/F7F6F/" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 62 "\307\340
\344\340\355\350\345. \317\360\356\342\345\344\350\362\345 \357\340
\360\340\354\345\362\360\350\367\345\361\352\350\351 \340\355\340\353
\350\347 \357\356\353\363\367\345\355\355\356\343\356 \360\345\370\345
\355\350\377." }}}}{SECT 0 {PARA 3 "" 0 "" {TEXT 263 14 "\317\360\350
\354\345\360 \360\345\370\345\355\350\377" }{TEXT -1 1 " " }{TEXT 264 
3 "\321\304\323" }{TEXT -1 0 "" }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 173 "sys:=diff(y(x),x)=2*z(x)-y(x)-x, diff(z(x),x)=y(x);            \+
                                                  fns:=\{y(x),z(x)\}; \+
yx0:=y(0)=0,z(0)=1; dsolve(\{sys,yx0\},fns);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$sysG6$/-%%diffG6$-%\"yG6#%\"xGF-,(*&\"\"#\"\"\"-%\"z
GF,F1F1F*!\"\"F-F4/-F(6$F2F-F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$f
nsG<$-%\"yG6#%\"xG-%\"zGF(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$yx0G6
$/-%\"yG6#\"\"!F*/-%\"zGF)\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$
/-%\"zG6#%\"xG,**&#\"\"&\"#7\"\"\"-%$expG6#,$*&\"\"#F.F(F.!\"\"F.F.*&#
F.\"\"$F.-F0F'F.F.#F.\"\"%F.*&F4F5F(F.F./-%\"yGF',(*&#F,\"\"'F.F/F.F5*
&F7F.F9F.F.#F.F4F." }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 39 "\315\340
\365\356\344\350\354 \360\345\370\345\355\350\345, \357\360\345\344
\361\362\340\342\353\377\345\354\356\345 \360\377\344\356\354: " }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "Order:=6: dsolve(\{sys,yx0\}
,fns,series);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#<$/-%\"zG6#%\"xG+/F(
\"\"\"\"\"!F*\"\"##!\"\"F,\"\"$#\"\"(\"#C\"\"%#!#8\"$?\"\"\"&-%\"OG6#F
*\"\"'/-%\"yGF'+/F(F,F*#!\"$F,F,#F1F;F/#F5F2F3#\"\"*\"#SF7F8F;" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 48 "\310\361\357\356\353\374\347\363
\345\354 \356\357\345\360\340\362\356\360\355\373\351 \354\345\362\356
\344 \355\340\365\356\346\344\345\355\350\377 \360\345\370\345\355\350
\377:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "sol := dsolve(\{sy
s, yx0\}, fns, method=laplace);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$
solG<$/-%\"zG6#%\"xG,**&#\"\"&\"#7\"\"\"-%$expG6#,$*&\"\"#F0F*F0!\"\"F
0F0*&#F0\"\"$F0-F2F)F0F0#F0\"\"%F0*&F6F7F*F0F0/-%\"yGF),(*&#F.\"\"'F0F
1F0F7*&F9F0F;F0F0#F0F6F0" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 96 "----
--------   \312 \360\345\370\345\355\350\376 \347\340\344\340\367 \354
\345\362\356\344\356\354 \335\351\353\345\360\340 --------------------
------------------------------" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 21 "restart; with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning,
 the name changecoords has been redefined\n" }}}{EXCHG {PARA 0 "" 0 "
" {TEXT -1 57 "\327\350\361\353\345\355\355\356\345 \360\345\370\345
\355\350\345 \304\323 1-\343\356 \357\356\360\377\344\352\340, \350
\354\345\376\371\345\343\356 \357\360\340\342\363\376 \367\340\361\362
\374 " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "f:=t->cos(y(t));" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%\"tG6\"6$%)operatorG%&arr
owGF(-%$cosG6#-%\"yG6#9$F(F(F(" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 59 
"\322\345\357\345\360\374 \347\340\357\350\370\345\354 \355\340\367
\340\353\374\355\373\345 \363\361\353\356\342\350\377 \342 \362\356
\367\352\345 t0 \357\356\344 \350\354\345\355\345\354 yt0:" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "yt0:=y(0)=0;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$yt0G/-%\"yG6#\"\"!F)" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 19 "\307\340\357\350\370\345\354 \360\345\370\340\345\354\356
\345 \304\323" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "de:=diff(y
(t),t$1)=f(t);" }{TEXT -1 1 " " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#d
eG/-%%diffG6$-%\"yG6#%\"tGF,-%$cosG6#F)" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 56 "\321\356\361\362\340\342\350\354 \347\340\344\340\355\350
\345 \355\340 \360\345\370\345\355\350\345 \344\350\364\364\345\360
\345\355\366\350\340\353\374\355\356\343\356 \363\360\340\342\355\345
\355\350\377." }}{PARA 0 "" 0 "" {TEXT 273 1 "1" }{TEXT -1 24 ". \300
\355\340\353\350\362\350\367\345\361\352\356\345 \360\345\370\345\355
\350\345:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "resh:=dsolve(
\{de,yt0\},y(t)); rhs(resh);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%res
hG/-%\"yG6#%\"tG-%'arctanG6$*&,&*$)-%$expGF(\"\"#\"\"\"F4F4!\"\"F4,&F/
F4F4F4F5,$*(F3F4F1F4F6F5F4" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'arcta
nG6$*&,&*$)-%$expG6#%\"tG\"\"#\"\"\"F/F/!\"\"F/,&F(F/F/F/F0,$*(F.F/F*F
/F1F0F/" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 79 "\312\340\352\356\345 \+
\346\345 \360\345\370\345\355\350\345 \342\347\377\362\374 \350\347 \+
\362\356\343\356, \367\362\356 \361\362\356\350\362 \342 \361\352\356
\341\352\340\365? \317\360\345\344\357\356\353\356\346\350\354 \375
\362\350\354 \360\345\370\345\355\350\345\354 " }}{PARA 0 "" 0 "" 
{TEXT -1 14 "\377\342\353\377\345\362\361\377 Y(t):" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 46 "Y:=t->arctan((exp(t)^2-1)/(exp(t)^2+1)); \+
Y(0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"YGf*6#%\"tG6\"6$%)operato
rG%&arrowGF(-%'arctanG6#*&,&*$)-%$expG6#9$\"\"#\"\"\"F8F8!\"\"F8,&F1F8
F8F8F9F(F(F(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"!" }}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 54 "\315\356 \362\356\343\344\340 \375\362
\356 \360\345\370\345\355\350\345 \344\356\353\346\355\356 \363\344
\356\342\353\345\362\342\356\360\377\362\374 \350\361\365\356\344\355
\356\354\363 \304\323" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "si
mplify(subs(y(t)=Y(t),de)); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/,$*(
\"\"#\"\"\"-%$expG6#,$*&F&F'%\"tGF'F'F',&-F)6#,$*&\"\"%F'F-F'F'F'F'F'!
\"\"F',$*&#F'F&F'*&F&F7*&F.F',&F(F'F'F'!\"##F4F&F'F'" }}}{EXCHG {PARA 
0 "" 0 "" {TEXT -1 77 "\322\356\346\344\345\361\362\342\340 \355\345 \+
\357\356\353\363\367\350\353\356\361\374! \315\340\365\356\344\350\354
 \342 Mathematica \344\360\363\343\356\345 \362\356\367\355\356\345 \+
\360\345\370\345\355\350\345, \352\356\362\356\360\356\345" }}{PARA 0 
"" 0 "" {TEXT -1 26 "\344\356\353\346\355\356 \363\344\356\342\353\345
\362\342\356\360\377\362\374 de.  " }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 44 "simplify(subs(y(t)=2*arctan(tanh(t/2)),de));" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%%diffG6$,$*&\"\"#\"\"\"-%'arctanG6#
-%%tanhG6#,$*&F)!\"\"%\"tGF*F*F*F*F4-%$cosG6#,$*&F)F*-F,6#*&,&-%%coshG
6#F4F*F*F3F*-%%sinhGF@F3F*F*" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 59 "
\316\344\355\340\352\356 \350 \347\344\345\361\374 Maple \355\345 \354
\356\346\345\362 \363\357\360\356\361\362\350\362\374 \345\343\356 \+
\344\356 \362\356\346\344\345\361\362\342\340!? " }}{PARA 0 "" 0 "" 
{TEXT -1 52 "\316\361\362\340\345\362\361\377 \342\356\357\360\356\361
 - \352\340\352 \350\362\345\360\357\360\345\362\350\360\356\342\340
\362\374 \360\345\370\345\355\350\345 resh? " }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 34 "simplify(arctan(tanh(z))); k:=1.1:" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#-%'arctanG6#-%%tanhG6#%\"zG" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 72 "\304\340\344\350\354 \343\360\340\364\350\367\345
\361\352\363\376 \350\353\353\376\361\362\360\340\366\350\376 \357\360
\345\344\357\356\353\340\343\340\345\354\373\365 \360\345\370\345\355
\350\351, \357\345\360\342\356\345 \350\347 \352\356\362\356\360\373
\365 " }}{PARA 0 "" 0 "" {TEXT -1 57 "\357\356\353\363\367\345\355\356
 \342 Mathematica \350 \344\345\351\361\362\342\350\362\345\353\374
\355\356 \377\342\353\377\345\362\361\377 \360\345\370\345\355\350\345
\354:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 110 "plot([2*arctan(ta
nh(t/2)),arctan(tanh(t)),k*arctan((exp(t)^2-1)/(exp(t)^2+1))],t=0..2,c
olor=[red,black,blue]);" }}{PARA 13 "" 1 "" {GLPLOT2D 560 291 291 
{PLOTDATA 2 "6'-%'CURVESG6$7S7$$\"\"!F)F(7$$\"39LLLL3VfV!#>$\"3e*zmcm]
!eVF-7$$\"3'pmm;H[D:)F-$\"3Y#>6ITKN9)F-7$$\"3LLLLe0$=C\"!#=$\"3*okD#35
lQ7F87$$\"3ILLL3RBr;F8$\"3Yzy2O\"3Nm\"F87$$\"3Ymm;zjf)4#F8$\"3#)e]Cr(f
L3#F87$$\"3=LL$e4;[\\#F8$\"3O*)Hq\\;LpCF87$$\"3p****\\i'y]!HF8$\"3AA![
,&z0lGF87$$\"3,LL$ezs$HLF8$\"3-9jD_c^pKF87$$\"3_****\\7iI_PF8$\"3/K\"[
gOJsm$F87$$\"3#pmmm@Xt=%F8$\"3Cj1\"f,$3qSF87$$\"3QLLL3y_qXF8$\"3eO6.Ql
B>WF87$$\"3i******\\1!>+&F8$\"3967i\\i\\0[F87$$\"3()******\\Z/NaF8$\"3
skjo#4rc=&F87$$\"3'*******\\$fC&eF8$\"3,-gXxkSWbF87$$\"3ELL$ez6:B'F8$
\"3))z:f+jUjeF87$$\"3Smmm;=C#o'F8$\"3$4R&oAB9MiF87$$\"3-mmmm#pS1(F8$\"
3xKO%QBm1a'F87$$\"3]****\\i`A3vF8$\"37<R]M]O))oF87$$\"3slmmm(y8!zF8$\"
3+:sQLy1)=(F87$$\"3V++]i.tK$)F8$\"3_L:2'\\x!3vF87$$\"39++](3zMu)F8$\"3
eHl8(=zT!yF87$$\"3#pmm;H_?<*F8$\"3l$)pM:09/\")F87$$\"3emm;zihl&*F8$\"3
;fh)o:@:P)F87$$\"39LLL3#G,***F8$\"3#)zEbq\\H^')F87$$\"3<LLezw5V5!#<$\"
3\"\\2gG5&[K*)F87$$\"3!****\\PQ#\\\"3\"Fas$\"3-sV'p%z_p\"*F87$$\"3BLL$
e\"*[H7\"Fas$\"3@SXb2Yb<%*F87$$\"3#*******pvxl6Fas$\"3e%)ev*R1_m*F87$$
\"3z****\\_qn27Fas$\"3%QBVZA'=**)*F87$$\"3%)***\\i&p@[7Fas$\"3Z@fG.2z6
5Fas7$$\"3#)****\\2'HKH\"Fas$\"3hOD#G&4@N5Fas7$$\"3_mmmwanL8Fas$\"3-_`
yFg\\b5Fas7$$\"3'******\\2goP\"Fas$\"3O@t8@3Qw5Fas7$$\"3CLLeR<*fT\"Fas
$\"3#Q:GbGKY4\"Fas7$$\"3'******\\)Hxe9Fas$\"3B,-WWF(Q6\"Fas7$$\"3Ymm\"
H!o-*\\\"Fas$\"3&)y[xgWJJ6Fas7$$\"3))***\\7k.6a\"Fas$\"3O(\\)yW%z)[6Fa
s7$$\"3emmmT9C#e\"Fas$\"3?M5v=GTl6Fas7$$\"3\"****\\i!*3`i\"Fas$\"35$)p
*=!\\1#=\"Fas7$$\"3QLLL$*zym;Fas$\"3'z\"G0sv[(>\"Fas7$$\"3GLL$3N1#4<Fa
s$\"3*\\3SQObE@\"Fas7$$\"3kmm\"HYt7v\"Fas$\"3!QyVa49rA\"Fas7$$\"3%****
***p(G**y\"Fas$\"3[z3J<Z!*R7Fas7$$\"3lmm;9@BM=Fas$\"31**)*HA/+a7Fas7$$
\"3ELLL`v&Q(=Fas$\"3m!3Ae'[6m7Fas7$$\"30++DOl5;>Fas$\"3y2V7yn`y7Fas7$$
\"3/++v.Uac>Fas$\"3W1Fx,Y'**G\"Fas7$$\"\"#F)$\"3/:g/O.w,8Fas-%'COLOURG
6&%$RGBG$\"*++++\"!\")F(F(-F$6$7SF'7$F+$\"3gyeg8!=RN%F-7$F1$\"3fjO9AJm
;\")F-7$F6$\"3WA`4$yc#H7F87$F<$\"3M#*Q&>=d4k\"F87$FA$\"3eD6Pq@cR?F87$F
F$\"3gQ]u5rI(R#F87$FK$\"3etEU_2?aFF87$FP$\"3Z#p9![k_2JF87$FU$\"3MWmN)y
(yUMF87$FZ$\"3?F;X\"4c$pPF87$Fin$\"3i7!o7$oPTSF87$F^o$\"3jMKEi*y+L%F87
$Fco$\"3B/nW#H/:g%F87$Fho$\"3Kx&e'o(pf%[F87$F]p$\"3-ydjCC(Q0&F87$Fbp$
\"3k7qcSUI%G&F87$Fgp$\"3G6%\\R%y'eY&F87$F\\q$\"3G+&))HpN@m&F87$Faq$\"3
&\\lgn`%=BeF87$Ffq$\"3E5^+qm*p)fF87$F[r$\"3UMb!\\VA78'F87$F`r$\"3WZh'*
z)z-F'F87$Fer$\"3=sw9#3!Q)Q'F87$Fjr$\"3roXTP_<1lF87$F_s$\"3$RC]FQT(=mF
87$Fes$\"3PY)p`y%>4nF87$Fjs$\"3kSLjr<e*z'F87$F_t$\"3'4\"H*)\\Zd&)oF87$
Fdt$\"3U8A!\\\"**)H'pF87$Fit$\"3EebR#4b?.(F87$F^u$\"33ebi:y`-rF87$Fcu$
\"3skAjB^tgrF87$Fhu$\"3!45WF#f$z@(F87$F]v$\"3?)3z5,-dE(F87$Fbv$\"3kK*4
wZXQJ(F87$Fgv$\"3MS(*R7TbbtF87$F\\w$\"35h6i]Ms&R(F87$Faw$\"3e!f>1us=V(
F87$Ffw$\"3Ybmu9GnmuF87$F[x$\"3k<!*zh$zu\\(F87$F`x$\"3qO9Z&zak_(F87$Fe
x$\"3[An1mp'Gb(F87$Fjx$\"3A,q>PrDvvF87$F_y$\"3M]Q![s!)))f(F87$Fdy$\"3C
3V(p%)4$=wF87$Fiy$\"3UGT3n#*RPwF87$F^z$\"3Gzt7w6AawF87$Fcz$\"3%emt;sX3
n(F8-Fhz6&FjzF)F)F)-F$6$7SF'7$F+$\"3aok'\\\")4$*y%F-7$F1$\"3N;!eVVH$G*
)F-7$F6$\"3Eb[ShC=_8F87$F<$\"3m#G\\,!H00=F87$FA$\"3hP#3uQ=NC#F87$FF$\"
3rT&>=#y.PEF87$FK$\"37T\\mF3iHIF87$FP$\"3\\gh\"G4z#=MF87$FU$\"3s3B>nl1
(y$F87$FZ$\"3K!z'f+<HYTF87$Fin$\"3#Q\"[R9X^XWF87$F^o$\"3ge&*[eo3jZF87$
Fco$\"3Ku8p@Zlh]F87$Fho$\"3KMW_XncI`F87$F]p$\"3gc$*4n'f#fbF87$Fbp$\"3N
9PikYt7eF87$Fgp$\"3T^VMGYX7gF87$F\\q$\"3`^tGi#\\$GiF87$Faq$\"36@nV!*H]
0kF87$Ffq$\"33Ac+Pjp&e'F87$F[r$\"34)3'RyYMWnF87$F`r$\"3=kF'z'yI(*oF87$
Fer$\"3]TCO!4=s-(F87$Fjr$\"3qEg:hFzcrF87$F_s$\"3yo_-@bh!G(F87$Fes$\"3y
Jo!RE9,Q(F87$Fjs$\"3;vmz[*R&zuF87$F_t$\"3%H?#)[AKTd(F87$Fdt$\"35MCR1*)
GfwF87$Fit$\"3U9^j,1ENxF87$F^u$\"3c9\")=(f\"z7yF87$Fcu$\"3U\"\\&*fj3o(
yF87$Fhu$\"357&=]^H(RzF87$F]v$\"37(*p=7AF#*zF87$Fbv$\"3OE4PD+BX!)F87$F
gv$\"3e9(RO_464)F87$F\\w$\"3KyKo&z&HN\")F87$Faw$\"3'*\\:o9+1v\")F87$Ff
w$\"3*)>8A'4SL@)F87$F[x$\"3i>*yzHFsC)F87$F`x$\"3g\"e=]F+\"z#)F87$Fex$
\"3R&RtEm`\"3$)F87$Fjx$\"3M-n\"4&GyK$)F87$F_y$\"3;OUG(zo(e$)F87$Fdy$\"
3iR<nJ39!Q)F87$Fiy$\"3qTDz$>R6S)F87$F^z$\"3x<,u$HV'>%)F87$Fcz$\"3xK5%Q
HIzV)F8-Fhz6&FjzF(F(F[[l-%+AXESLABELSG6$Q\"t6\"Q!F\\^m-%%VIEWG6$;F(Fcz
%(DEFAULTG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "C
urve 1" "Curve 2" "Curve 3" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 72 "
\310\347 \343\360\340\364\350\352\340 \342\350\344\355\356, \367\362
\356 \357\345\360\342\356\345 \350 \344\342\340 \357\356\361\353\345
\344\363\376\371\350\365 \360\345\370\345\355\350\377 \361\350\353\374
\355\356 \360\340\347\355\377\362\374\361\377!" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "35 2 0 0" 6 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 1 0 2 33 1 1 }