{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 "" 1 12 0 0 0 0 0 2 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 
257 "" 1 12 0 0 0 0 0 2 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 "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 "Error" -1 8 
1 {CSTYLE "" -1 -1 "Courier" 1 10 255 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
 Plot" -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 80 "\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\\\312 \354\345\362\356\344\363 \317\360
\356\343\356\355\352\350.mws\"" }}{PARA 0 "" 0 "" {TEXT -1 20 "\322
\350\362\356\342 \312.\302. 12.12.16." }}{PARA 0 "" 0 "" {TEXT -1 71 "
\324\360\340\343\354\345\355\362 \350\347 \364\340\351\353\340: \"..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 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "restart;with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 50 "
Warning, the name changecoords has been redefined\n" }}}{SECT 0 {PARA 
3 "" 0 "" {TEXT 256 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 25 "u:=t->
t^2; f:=t->exp(-t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"uGf*6#%\"tG
6\"6$%)operatorG%&arrowGF(*$)9$\"\"#\"\"\"F(F(F(" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"fGf*6#%\"tG6\"6$%)operatorG%&arrowGF(-%$expG6#,$9$!
\"\"F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "de:=diff(x(t)
,t$2)=-u(t)*x(t)+f(t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#deG/-%%di
ffG6$-%\"xG6#%\"tG-%\"$G6$F,\"\"#,&*&)F,F0\"\"\"F)F4!\"\"-%$expG6#,$F,
F5F4" }}}{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 26 "`xt0:=x(0)=1, D(x)(0)=0;`:
" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 55 "\315\340\365\356\344\350\354 \+
\356\341\371\345\345 \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 
18 "dsolve(\{de\},x(t));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#<#/-%\"xG6
#%\"tG,(*(F(#\"\"\"\"\"#-%(BesselJG6$#F,\"\"%,$*&F-!\"\"F(F-F,F,%$_C2G
F,F,*(F(F+-%(BesselYGF0F,%$_C1GF,F,*&F1F,*(F(F+%#PiGF,,&*&-%$IntG6$*(F
(F+F8F,-%$expG6#,$F(F5F,F(F,F.F,F5*&-FA6$*(F(F+F.F,FDF,F(F,F8F,F,F,F,F
," }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 71 "\350 \367\340\361\362\355
\356\345 \360\345\370\345\355\350\345 (\344\353\377 \355\340\367\340
\353\374\355\373\365 \350\353\350 \352\360\340\345\342\373\365 \363
\361\353\356\342\350\351 - \355\363\346\355\356\345 \356\362\352\360
\373\362\374!)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "`xt0:=x(0
)=1, x(3)=2;`: xt0:=x(0)=1, D(x)(0)=0;" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%$xt0G6$/-%\"xG6#\"\"!\"\"\"/--%\"DG6#F(F)F*" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 23 "dsolve(\{de,xt0\},x(t)); " }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#/-%\"xG6#%\"tG,(*&#\"\"\"\"\"#F+*(F'F*-%(BesselJG6
$#F+\"\"%,$*&F,!\"\"F'F,F+F+-%&GAMMAG6##\"\"$F2F+F+F+*&#F+F,F+*(F'F*-%
(BesselYGF0F+F6F+F+F5*&F1F+*(F'F*%#PiGF+,&*&-%$IntG6$*(%$_z1GF*-F?6$F1
,$*&F,F5FIF,F+F+-%$expG6#,$FIF5F+/FI;\"\"!F'F+F.F+F5*&-FF6$*(FIF*-F/FK
F+FNF+FRF+F>F+F+F+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 18 "plot(x(t),t=0..8);" }}{PARA 7 "" 1 "" {TEXT 
-1 153 "Warning, unable to evaluate the function to numeric values in \+
the region; see the plotting command's help page to ensure the calling
 sequence is correct\n" }}{PARA 8 "" 1 "" {TEXT -1 26 "Plotting error,
 empty plot" }}}{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
_rkf45G6)%$resG%%dataG%%varsG%)solnprocG%)outpointG%&ndsolG%\"iG6#%inC
opyright~(c)~2000~by~Waterloo~Maple~Inc.~All~rights~reserved.G6\"C*>%8
_EnvDSNumericSaveDigitsG%'DigitsG>F6\"#9@%/%-_EnvInFsolveG%%trueG>8(-&
%&evalfG6#F56#9$>F>-FAFC>8%`6$%$GetG%$SetGb6#%+thismoduleG6#%%DataGF26
$%$GetG%$SetGF2F2F2F26\"6#%%DataG>8&-_FHFS6#Q(sysvarsF2>8'-Fen6#Q/soln
_procedureF2@$4-%%typeG6$F>.%(numericGC$@,-%'memberG6$FD7+Q&startF2.%&
startGQ'methodF2.%'methodGQ%leftF2Q&rightF2Q)leftdataF2Q*rightdataF2Q+
enginedataF2C$>8$-Fin6#-%(convertG6$FD.%'stringG@&-F`o6$Fgp.%&arrayGO-
%%evalG6$Fgp\"\"\"0FgpQ)procnameF2OFgp-Fgo6$FD7&Q%lastF2.%%lastGQ(init
ialF2.%(initialGC$>FgpFhp@$-F`o6$Fgp.%%listGO7#-%$seqG6$/&FY6#,&8*FhqF
hqFhq&FgpFcs/Fes;\"\"!\"\"#3-F`o6$F>%\"=G-Fgo6$-%$lhsG6#F>7$FbrFcrC$@%
-F`o6$-%$rhsGFctFjr>Fgp-Fin6#/Fbr7$Fis-%#opG6#FitYQKinitial~values~mus
t~be~specified~in~a~listF2@$FhrOF]s/F>Q.solnprocedureF2O-Ffq6#Fin/F>Fg
nOFY@%09!%(unknownGO-.F`vFCC$>8)-%(pointtoG6#&-Fen6#Q0soln_proceduresF
26#FisO-.FgvFCZ%C$>Fgp-FinFctF]sF2YF2F2F2F2" }}}{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%$\"35R
!)eoc$GF\"!#</-%%diffG6$F*F%$\"3OZhs(>**yM#!#=" }}}{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 13 "" 1 "" 
{GLPLOT2D 583 162 162 {PLOTDATA 2 "6$-%'CURVESG6$X,%)anythingG6\"6\"[g
l'!%\"!!#_q\"S\"#00000000000000003FF00000000000003FC4E5E0A72F055E3FF03
37E4A0184EF3FD4E5E0A72F055E3FF0C075C18937433FDF58D0FAC6880D3FF18F919FC
EDCE83FE4E5E0A72F055E3FF28443873E3C523FEA1F58D0FAC6B63FF37B381953958E3
FEF58D0FAC6880D3FF44927969B909A3FF24924924925943FF4BAB07DE820703FF4E5E
0A72F055E3FF4961A2BD0544F3FF7829CBC14E5293FF39FF069BCA3363FFA1F58D0FAC
6B63FF1A3483DDA9FCC3FFCBC14E5E0A8433FECFBF4E11E54CE3FFF58D0FAC6880D3FE
4602929D07FB54000FAC687D633EC3FD3B05B9A950FD540024924924924B2BFAB8FC84
0AA63A5400397829CBC1579BFD9DB4882E0D58A4004E5E0A72F055EBFE5FBD6BEE7C14
E4006343EB1A1F544BFEB0261BC99C5A24007829CBC14E60ABFEA84A27A5285A54008D
0FAC687D6D0BFE40186CD387E9E400A1F58D0FAC6B6BFD0F1D58652DBDC400B6DB6DB6
DB69B3FC5898CF9F662D6400CBC14E5E0A7623FE18EC40E0AEA52400E0A72F05398283
FE7D5ECF385224C400F58D0FAC6880D3FE56FF429F2DCB440105397829CBBF93FD539E
9C2E9D7AB4010FAC687D6345DBFC2A3E2740222124011A1F58D0FACC0BFE1AE423746F
D1740124924924924B2BFE5DCD5489914604012F05397829CA5BFDCD78BF3A5CC8C401
397829CBC15083FA24D46A5F323F940143EB1A1F58D6C3FDFD13DDA82F0394014E5E0A
72F055E3FE4581F9F90164240158D0FAC687D513FD5C051B60D69764016343EB1A1F5B
4BFC9779F42195E844016DB6DB6DB6E17BFE299335281C6A34017829CBC14E60ABFDF7
913618D8188401829CBC14E5DFD3F8D24BF91B98CEF4018D0FAC687D6603FE01767B8F
A337C40197829CBC14EC33FE080F620FD1651401A1F58D0FAC6B63F969678322FE64A4
01AC687D6343EA8BFDF4F5637152230401B6DB6DB6DB70CBFDE0A3DE46B2BA4401C14E
5E0A72F6F3FB3AB4A033CF518401CBC14E5E0A7623FE0DE11351D65C6401D6343EB1A1
F543FD521EB98BFFE57401E0A72F05397B7BFD2185B72E30C18401EB1A1F58D101BBFE
0836EE310E552401F58D0FAC6880DBFA52F40B4AB92E440200000000000003FDF184CA
5717144-%'COLOURG6&%$RGBG$\"*++++\"!\")$\"\"!F2F1-%+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%&arr
owGF(-%%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 "odeplot(R,[x(t),z(t)],0..8);\n" }}{PARA 13 "" 
1 "" {GLPLOT2D 582 239 239 {PLOTDATA 2 "6$-%'CURVESG6$X,%)anythingG6\"
6\"[gl'!%\"!!#_q\"S\"#3FF000000000000000000000000000003FF0337E4A0184EF
3FC31815180B78DE3FF0C075C18937433FD11096C22782133FF18F919FCEDCE83FD61F
D08E88208E3FF28443873E3C523FD82685F7C499993FF37B381953958E3FD66DAC585C
C36C3FF44927969B909A3FD02AB1B82E25D73FF4BAB07DE820703FB28BEDE0BFC2993F
F4961A2BD0544FBFC933C313A3DBA63FF39FF069BCA336BFE1B09D03299A4F3FF1A348
3DDA9FCCBFEF466EF0EE9BF63FECFBF4E11E54CEBFF6E76CCE2AAF383FE4602929D07F
B5BFFDA0A76715BA373FD3B05B9A950FD5C001365C8209F296BFAB8FC840AA63A5C001
DA315BCEA054BFD9DB4882E0D58AC000003BA2186B54BFE5FBD6BEE7C14EBFF67A6CE8
EA1913BFEB0261BC99C5A2BFDE0D4DE0E265C4BFEA84A27A5285A53FE59D6FC306FEE3
BFE40186CD387E9E3FFC94CF9D0A8F5FBFD0F1D58652DBDC4004554094C92A9B3FC589
8CF9F662D640050D469AFC252A3FE18EC40E0AEA523FFE386778AC2CE83FE7D5ECF385
224C3FDAE5B393680D233FE56FF429F2DCB4BFF5540ADC9151183FD539E9C2E9D7ABC0
057201A23E39AEBFC2A3E274022212C0078AD7CED93E74BFE1AE423746FD17BFFD19CD
19D6C49DBFE5DCD5489914603FD435CA44E4709EBFDCD78BF3A5CC8C40035A03AAEE98
1A3FA24D46A5F323F94009E8440CF2E9513FDFD13DDA82F0394000B12BB663F03F3FE4
581F9F901642BFE088D8191BC7CA3FD5C051B60D6976C007389E04BD2F74BFC9779F42
195E84C00A0E5C06FD8013BFE299335281C6A3BFF11E614E4E66C6BFDF7913618D8188
4000E536D71833F23F8D24BF91B98CEF400CD334985BE13E3FE01767B8FA337C3FFDC4
8EB71947D63FE080F620FD1651BFFBF570014826B93F969678322FE64AC00DFAF678F9
9869BFDF4F5637152230BFFE153C7E3DB405BFDE0A3DE46B2BA440010921C682E7983F
B3AB4A033CF518400EBF4DD7265AD63FE0DE11351D65C63FF04E27E3E4B1403FD521EB
98BFFE57C00960B3AD562E50BFD2185B72E30C18C00B27220DC5D09CBFE0836EE310E5
523FEE24415816031CBFA52F40B4AB92E44010624000D3D6DA3FDF184CA57171443FF6
B547CD4A77C0-%'COLOURG6&%$RGBG$\"#5!\"\"$\"\"!F2F1-%+AXESLABELSG6$Q\"x
F)Q#x'F)" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Cur
ve 1" }}}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 84 "\300\355\340\353\356
\343\350\367\355\356 \354\356\346\355\356 \347\340\344\340\362\374 \+
\344\360\363\343\350\345 u(t), f(t) \350 \355\340\351\362\350 \360\345
\370\345\355\350\345, \357\356\353\363\367\345\355\355\356\343\356 \+
\362\340\352\350\354 \356\341\360\340\347\356\354" }}{PARA 0 "" 0 "" 
{TEXT -1 31 "\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 de." }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart;with(plots):" }}{PARA 7 "" 
1 "" {TEXT -1 50 "Warning, the name changecoords has been redefined\n
" }}}{SECT 0 {PARA 3 "" 0 "" {TEXT 257 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 "" {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 23 "u:=t->1; f:=t->exp(-t);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"uGf*6#%\"tG6\"6$%)operatorG%&arrowGF(\"\"\"F(F(F(" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGf*6#%\"tG6\"6$%)operatorG%&arr
owGF(-%$expG6#,$9$!\"\"F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 35 "de:=diff(x(t),t$2)=-u(t)*x(t)+f(t);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#deG/-%%diffG6$-%\"xG6#%\"tG-%\"$G6$F,\"\"#,&F)!\"\"-
%$expG6#,$F,F2\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 55 "\315\340
\365\356\344\350\354 \356\341\371\345\345 \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 18 "dsolve(\{de\},x(t));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#<#/-%\"xG6#%\"tG,(*&-%$sinGF'\"\"\"%$_C2GF-F-*&-%$cosGF
'F-%$_C1GF-F-*&#F-\"\"#F--%$expG6#,$F(!\"\"F-F-" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 71 "\350 \367\340\361\362\355\356\345 \360\345\370\345
\355\350\345 (\344\353\377 \355\340\367\340\353\374\355\373\365 \350
\353\350 \352\360\340\345\342\373\365 \363\361\353\356\342\350\351 - \+
\355\363\346\355\356\345 \356\362\352\360\373\362\374!)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "xt0:=x(0)=1, x(Pi/2)=2; `xt0:=x(0)=
1, D(x)(0)=0;`:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$xt0G6$/-%\"xG6#
\"\"!\"\"\"/-F(6#,$*&\"\"#!\"\"%#PiGF+F+F1" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 27 "re:=dsolve(\{de,xt0\},x(t)); " }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%#reG/-%\"xG6#%\"tG,(*&-%$sinGF(\"\"\",&\"\"#F.*&#F.F0
F.-%$expG6#,$*&F0!\"\"%#PiGF.F8F.F8F.F.*&#F.F0F.-%$cosGF(F.F.*&F;F.-F4
6#,$F)F8F.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 21 "plot(rhs(re),t=0..2);" }}{PARA 13 "" 1 "" {GLPLOT2D 
498 149 149 {PLOTDATA 2 "6%-%'CURVESG6$7S7$$\"\"!F)$\"\"\"F)7$$\"39LLL
L3VfV!#>$\"3?))))GYt#31\"!#<7$$\"3'pmm;H[D:)F/$\"3yxXr!)**f86F27$$\"3L
LLLe0$=C\"!#=$\"3)*yZ5,Dhs6F27$$\"3ILLL3RBr;F;$\"3e9Ww#G%[J7F27$$\"3Ym
m;zjf)4#F;$\"3A%))[oKr$*G\"F27$$\"3=LL$e4;[\\#F;$\"33H4!R(HEU8F27$$\"3
p****\\i'y]!HF;$\"3E>M.*Q'4'R\"F27$$\"3,LL$ezs$HLF;$\"3u2j8&*>i]9F27$$
\"3_****\\7iI_PF;$\"3'G%*zbfeO]\"F27$$\"3#pmmm@Xt=%F;$\"3k%ot')Q)oc:F2
7$$\"3QLLL3y_qXF;$\"3udAbEM*>g\"F27$$\"3i******\\1!>+&F;$\"3'=u=wL*G^;
F27$$\"3()******\\Z/NaF;$\"3]CKEL;$))p\"F27$$\"3'*******\\$fC&eF;$\"3m
TGftXmU<F27$$\"3ELL$ez6:B'F;$\"3Eq)*[jEo!y\"F27$$\"3Smmm;=C#o'F;$\"3sU
AtIkbB=F27$$\"3-mmmm#pS1(F;$\"3iG([r5)zd=F27$$\"3]****\\i`A3vF;$\"3?\"
y'y\")=7&*=F27$$\"3slmmm(y8!zF;$\"3mnxug8#e#>F27$$\"3V++]i.tK$)F;$\"3=
#QLvk$)o&>F27$$\"39++](3zMu)F;$\"3w2\\9S9$Q)>F27$$\"3#pmm;H_?<*F;$\"3>
pkmb-84?F27$$\"3emm;zihl&*F;$\"32IC!)e3wH?F27$$\"39LLL3#G,***F;$\"3g/#
Q#>`:\\?F27$$\"3<LLezw5V5F2$\"3av%>)=J4m?F27$$\"3!****\\PQ#\\\"3\"F2$
\"3kwH,'HF\"y?F27$$\"3BLL$e\"*[H7\"F2$\"3[/Ld*)eC)3#F27$$\"3#*******pv
xl6F2$\"3GGD#)zv^&4#F27$$\"3z****\\_qn27F2$\"35Rn$4%fY*4#F27$$\"3%)***
\\i&p@[7F2$\"3'f$[D7\"y-5#F27$$\"3#)****\\2'HKH\"F2$\"3%[6(GZ$)o(4#F27
$$\"3_mmmwanL8F2$\"3wU*>6F6A4#F27$$\"3'******\\2goP\"F2$\"3!ySz$)\\hI3
#F27$$\"3CLLeR<*fT\"F2$\"39S1qOC#=2#F27$$\"3'******\\)Hxe9F2$\"3k*GH&)
*3Lc?F27$$\"3Ymm\"H!o-*\\\"F2$\"3>W%)=/oqQ?F27$$\"3))***\\7k.6a\"F2$\"
3$olpX\"49<?F27$$\"3emmmT9C#e\"F2$\"3e![EYcqH*>F27$$\"3\"****\\i!*3`i
\"F2$\"3#\\8(3fjUk>F27$$\"3QLLL$*zym;F2$\"3!*Riqub$Q$>F27$$\"3GLL$3N1#
4<F2$\"3kJ%eX*yW**=F27$$\"3kmm\"HYt7v\"F2$\"3u>#o&3;Hi=F27$$\"3%******
*p(G**y\"F2$\"37k@w'=8b#=F27$$\"3lmm;9@BM=F2$\"37Q2p@kJ!y\"F27$$\"3ELL
L`v&Q(=F2$\"3*4l+j@&>P<F27$$\"30++DOl5;>F2$\"3mg6;j=[)o\"F27$$\"3/++v.
Uac>F2$\"3]`M**H&z#R;F27$$\"\"#F)$\"39=M1&*on$e\"F2-%'COLOURG6&%$RGBG$
\"#5!\"\"F(F(-%+AXESLABELSG6$Q\"t6\"Q!Fd[l-%%VIEWG6$;F(Fez%(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),nu
meric);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"RGf*6#%&x_bvpG6(%$resG%
%dataG%)solnprocG%&ndsolG%)outpointG%\"iG6#%inCopyright~(c)~2000~by~Wa
terloo~Maple~Inc.~All~rights~reserved.G6\"C)>%8_EnvDSNumericSaveDigits
G%'DigitsG>F5\"#9@%/%-_EnvInFsolveG%%trueG>8(-&%&evalfG6#F46#9$>F=-F@F
B>8%`6$%$GetG%$SetGb6#%+thismoduleG6#%%DataGF16$%$GetG%$SetGF1F1F1F1%,
_m149457904G6#%%DataG>8&-_FGFR6#Q/soln_procedureF1@$4-%%typeG6$F=.%(nu
mericG@+/F=Q.solnprocedureF1O-%%evalG6#FX-%'memberG6$F=7)Q&startF1Q%le
ftF1Q&rightF1Q*errorprocF1Q(rawdataF1Q&orderF1Q&errorF1O-FXFB/F=Q(sysv
arsF1O-FZ6#Fcp09!%(unknownGO-.FhpFBC$>8'-%(pointtoG6#&-FZ6#Q0soln_proc
eduresF16#\"\"!O-.F_qFBZ%C$>8$-FX6#F=7$/%\"tG&F_r6#\"\"\"-%$seqG6$/&.7
$-%\"xG6#Fdr-%%diffG6$F_sFdr6#8)&F_r6#,&FfsFgrFgrFgr/Ffs;Fgr\"\"#F1YF1
F1F1F1" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 40 "\342 \362\356\354 \367
\350\361\353\345 \342 \362\356\367\352\345 t=1 (\347\344\345\361\374 0
<t<Pi/2)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "R(1);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#7%/%\"tG$\"\"\"\"\"!/-%\"xG6#F%$\"31COI,0d\\
?!#</-%%diffG6$F*F%$\"3'\\jlW10x>%!#=" }}}{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 62 "plots[odeplot](R,[
[t,x(t),color=red]],t=0..Pi/2,labels=[t,x]);" }}{PARA 13 "" 1 "" 
{GLPLOT2D 583 162 162 {PLOTDATA 2 "6$-%'CURVESG6$X,%)anythingG6\"6\"[g
l'!%\"!!#_q\"S\"#00000000000000003FF00000000000043FA069C8B554CFD53FF0B
741CA15D9253FB069C8B554CFD53FF16E3177A4A7CB3FB89EAD0FFF37BF3FF2247DFF0
3EF693FC069C8B32F0E583FF2D9D788372E513FC4843AE084424D3FF38DEF7D4E794B3
FC89EAD0DD976423FF4407895948D2D3FCCB91F3B2EAA373FF4F126E3A5F66C3FD069C
8B441EF163FF59FAFE14700913FD27701CAEC89113FF64BCA7B68B3AA3FD4843AE1972
30C3FF6F52F1E136F353FD69173F841BD063FF79B97C039F4E33FD89EAD0DD976423FF
83EBFEF194E853FDAABE62484103D3FF8DE64DB175CB63FDCB91F3B2EAA373FF97A456
117DDE73FDEC65851D944323FFA122216EA75443FE069C8B441EF163FFAA5BD55C47C8
53FE170653F973C143FFB34DB44C53EB83FE27701CAC34DC13FFBBF41E31569383FE37
D9E560ADC4E3FFC44B9121936763FE4843AE1526ADC3FFCC50A9E91E0DF3FE58AD76C9
9F9693FFD40024A182B053FE69173F7D3C9873FFDB56DD3E709C13FE79810831B58143
FFE251D017714243FE89EAD0E62E6A23FFE8EE1A67B014E3FE9A54999AA752F3FFEF28
FACB736E03FEAABE624F203BC3FFF4FFD1B5040123FEBB282B02BD3DA3FFFA7021DAD0
D033FECB91F3B7362673FFFF77909FE9D813FEDBFBBC6BAF0F44000209F3393AFEE3FE
EC65852027F8240004218792DE6633FEFCCF4DD4A0E0F40006018D21AE6E13FF069C8B
441EF1640007A91DAA987EA3FF0ED16F9EC9595400091765144FD083FF170653F973C1
44000A4BA183F4F293FF1F3B38541E2924000B4523772B1EF3FF27701CAEC89114000C
034DD9587DD3FF2FA50105277604000C859614BE3D03FF37D9E55FD1DDF4000CCB8420
7DBDB3FF400EC9BA7C45D4000CD4B287CE3613FF4843AE1526ADC4000CA0CE6FBA3C03
FF5078926FD115B4000C2F97972B4B03FF58AD76CA7B7D94000B80E0533F63B3FF60E2
5B2525E584000A948D87BF2F53FF69173F7FD04D7400096A969BD0A543FF714C23D62F
3264000803056B9B2A23FF79810830D99A4400065DF631AE5493FF81B5EC8B84023400
047B9772387973FF89EAD0E62E6A2400025C29D6CE7A03FF921FB540D8D20400000000
0107E39-%'COLOURG6&%$RGBG$\"*++++\"!\")$\"\"!F2F1-%+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%&arr
owGF(-%%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 32 "odeplot(R,[x(t),z(t)],0..Pi/2);\n" }}{PARA 13 
"" 1 "" {GLPLOT2D 582 239 239 {PLOTDATA 2 "6$-%'CURVESG6$X,%)anythingG
6\"6\"[gl'!%\"!!#_q\"S\"#3FF00000000000043FF65643336572423FF0B741CA15D
9253FF6513E14DBED6E3FF16E3177A4A7CB3FF6424678B10E133FF2247DFF03EF693FF
6298135526F793FF2D9D788372E513FF60714B3EC17D93FF38DEF7D4E794B3FF5DB28E
704846C3FF4407895948D2D3FF5A5E7460E34CE3FF4F126E3A5F66C3FF5677AC9EEFAC
B3FF59FAFE14700913FF5200FEA05938A3FF64BCA7B68B3AA3FF4CFD4988D82623FF6F
52F1E136F353FF476F83E2668663FF79B97C039F4E33FF415ABB47573B83FF83EBFEF1
94E853FF3AC21402F93C83FF8DE64DB175CB63FF33A8C895703BD3FF97A456117DDE73
FF2C122950F5C4C3FFA122216EA75443FF24019BCCA7B673FFAA5BD55C47C853FF1B7A
9A60AA0623FFB34DB44C53EB83FF1280B39795B553FFBBF41E31569383FF09178999E5
77E3FFC44B9121936763FEFE85A3154E2923FFCC50A9E91E0DF3FEEA0CA5D203C083FF
D40024A182B053FED4CBCDBC267AF3FFDB56DD3E709C13FEBECAEF120757F3FFE251D0
17714243FEA811FE8385A753FFE8EE1A67B014E3FE90A90FA6E1A9A3FFEF28FACB736E
03FE789853639DE263FFF4FFD1B5040123FE5FE8165A022E93FFFA7021DAD0D033FE46
A0BF3C25B3B3FFFF77909FE9D813FE2CCACD143B12A4000209F3393AFEE3FE126ED58C
6BC6940004218792DE6633FDEF2B063D41EFA40006018D21AE6E13FDB88F268255F2B4
0007A91DAA987EA3FD811BA9165283D400091765144FD083FD48E24991F4FF64000A4B
A183F4F293FD0FF4DE3D9A8B74000B4523772B1EF3FCACCAA8386C77A4000C034DD958
7DD3FC388B5609956004000C859614BE3D03FB869FC723551864000CCB84207DBDB3FA
34F20DA1D04554000CD4B287CE361BF94C544CC7922E24000CA0CE6FBA3C0BFB41C1FB
0EEF0344000C2F97972B4B0BFC18A2957305B224000B80E0533F63BBFC90AB19B4A266
84000A948D87BF2F5BFD046B3318EE9C4400096A969BD0A54BFD40803943EEA3B40008
03056B9B2A2BFD7C82ACEDA252C400065DF631AE549BFDB860B1ECDE0B8400047B9772
38797BFDF40885C0ECAA4400025C29D6CE7A0BFE17B4424B1079A4000000000107E39B
FE3537974DC8718-%'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 0 "" }}}}{MARK "6 \+
16 0 0" 8 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 1 0 2 33 1 
1 }