{VERSION 4 0 "IBM INTEL NT" "4.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 "Helvetica" 1 14 128 0 0 1 0 0 2 0 0 0 0 0 0 1 }
{CSTYLE "" -1 257 "" 0 24 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" 
-1 258 "Helvetica" 0 1 128 0 0 1 0 0 0 0 0 0 0 0 0 1 }{CSTYLE "" -1 
259 "Helvetica" 0 1 128 0 0 1 0 0 0 0 0 0 0 0 0 1 }{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 Output" 0 11 1 {CSTYLE "" -1 
-1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 
0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Title" -1 
256 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 1 1 1 }1 1 
0 0 12 12 1 0 1 0 2 2 19 1 }}
{SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT 257 75 "Linear Differential Equ
ations with Heaviside and Dirac-delta term: Examples" }}{PARA 0 "" 0 "
" {TEXT 256 24 "Mth 256 November 29 2000" }}{PARA 0 "" 0 "" {TEXT 258 
16 "Bent E. Petersen" }}{PARA 0 "" 0 "" {TEXT 259 42 "Filename: 256fal
l2000_sample_ode_dirac.mws" }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "ode1:=diff(
y(t),t,t)+y(t)=Dirac(t-Pi);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "init
s1:=y(0)=0,D(y)(0)=0:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "dsolve(\{o
de1,inits1\},y(t)): soln1:=unapply(rhs(%),t);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 46 "plot(soln1,0..4*Pi,thickness=3,title=\"ODE 1\");" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%ode1G/,&-%%diffG6$-%\"yG6#%\"tG-%\"
$G6$F-\"\"#\"\"\"F*F2-%&DiracG6#,&F-F2%#PiG!\"\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%&soln1GR6#%\"tG6\"6$%)operatorG%&arrowGF(,$*&-%*Heavi
sideG6#,&9$\"\"\"%#PiG!\"\"F3-%$sinG6#F2F3F5F(F(F(" }}{PARA 13 "" 1 "
" {GLPLOT2D 336 252 252 {PLOTDATA 2 "6'-%'CURVESG6$7hq7$$\"\"!F)F(7$$
\"3o#e#[q66RF!#=F(7$$\"3>O;(R:(RA^F-F(7$$\"383\\]-:l-yF-F(7$$\"3o)on;B
n+0\"!#<F(7$$\"3^!3))3*pe=8F7F(7$$\"3QQrg!=Rvc\"F7F(7$$\"3rBw=`ZJD=F7F
(7$$\"3%*G@5>m!>4#F7F(7$$\"3EA;_@NkdBF7F(7$$\"3flt())e')4j#F7F(7$$\"3u
O!)Q6turGF7F(7$$\"3uF0:'3ns+$F7F(7$$\"3t=I\"4'oyUJF7$\"3-ShPRq?%>\"!#?
7$$\"3Sc6*G4j)yKF7$\"3%)\\I,NuRo8F-7$$\"3k$Hp[KR\\T$F7$\"3#yPVKh`&*p#F
-7$$\"3sgGp))R2YNF7$\"3q*>RC,?a$RF-7$$\"3!yU;Dl3sn$F7$\"3Z@l;s'3P5&F-7
$$\"3iNN>!\\\"H'z$F7$\"3IpT+(y.#*3'F-7$$\"3)QkqyKu`\"RF7$\"3gCZT(e^%))
pF-7$$\"3C>Tu^jd)>%F7$\"3dPcU/$p(3()F-7$$\"3O])*o#)4`=VF7$\"3p4XMUTNM#
*F-7$$\"3e!eNOh&[QWF7$\"3qAUgiSAF'*F-7$$\"3ca<))*[`#3XF7$\"3e`'pP/mBz*
F-7$$\"3kFz7m8-yXF7$\"3k'3i0Yi)4**F-7$$\"33:5D/`!Hh%F7$\"3GJ;A!zb0&**F
-7$$\"3i,TPU#*yZYF7$\"3;lzZC;9z**F-7$$\"3;)=(\\!=tEo%F7$\"39\\s1\"=&e&
***F-7$$\"3gv-i=rb<ZF7$\"3]TJ._k')****F-7$$\"3K\\]r9`V[ZF7$\"3-shK7S]$
***F-7$$\"3#R#)43^8$zZF7$\"3_0EU$*Qhx**F-7$$\"3_)f/pq\">5[F7$\"3=F!fZC
6A&**F-7$$\"3Bs$**H!*p5%[F7$\"333l*[G?t\"**F-7$$\"3b?*)=&HEG!\\F7$\"3S
Y*yU]:#>)*F-7$$\"3')o%yto#ek\\F7$\"3%=\\\"y*etOo*F-7$$\"3C\"elvy&4+^F7
$\"3)3vE^s%yd#*F-7$$\"3i$p_x))3cB&F7$\"3'*)>*Rdx9i')F-7$$\"3Cyu=0%\\YO
&F7$\"3Eu()\\vy8ZzF-7$$\"3ujAiA**o$\\&F7$\"3Uj7w2,)**4(F-7$$\"3UViKl,L
GcF7$\"3#eya[dV/4'F-7$$\"3)RAI!3/(Hw&F7$\"39OWs*>m1(\\F-7$$\"3yIu'4=7m
)eF7$\"3KF;^@qfiQF-7$$\"3dPY!R&RD5gF7$\"3Q**yF'Rabp#F-7$$\"3F^2W4$=O9'
F7$\"35sp5eL9\"R\"F-7$$\"3'\\'o(\\m#)pF'F7$\"3h,*f1V-E?'FU7$$\"3%of4!
\\2^:kF7$!3$3#RO&4'R>8F-7$$\"3qGB/L)QSb'F7$!3-e)p\"G%Rbn#F-7$$\"3996UP
ziumF7$!3vm<?3KA:QF-7$$\"3[+**zTq@&z'F7$!3U1k4LU\\**[F-7$$\"3Mda<ylXDp
F7$!3A9%)fin:!*fF-7$$\"3?95b9hpbqF7$!3_38kydNzpF-7$$\"3ooZd*HY->(F7$!3
k[()*3Hlp(yF-7$$\"3HA&)f%['zCtF7$!391w$==(=K')F-7$$\"3W(>Y2fFkX(F7$!33
O,o#Q2,A*F-7$$\"3esQ*ope!)e(F7$!3QrC,TO]['*F-7$$\"3O(\\l'G'Q<l(F7$!3o]
1fk\\='z*F-7$$\"3:ArVg&=ar(F7$!3`8*)fq[:/**F-7$$\"35MHKE&esu(F7$!3'**f
(HC\\5V**F-7$$\"3%pu3A\\)4zxF7$!3#[WnXnv>(**F-7$$\"3yfX4e%Q4\"yF7$!3#Q
(G>byt!***F-7$$\"3sr.)RUyF%yF7$!3MiH*pWs$****F-7$$\"3u\"*4`x78yyF7$!3w
\")yH:T3(***F-7$$\"3v6;3JT[8zF7$!3]\\zo'[-B)**F-7$$\"3wJAj%)p$)[zF7$!3
)=0xO.Y]&**F-7$$\"3)3&G=Q)*=%)zF7$!3CqL\\=)[`\"**F-7$$\"3-!4%GXb*[0)F7
$!3-M&eU-Y))z*F-7$$\"3/I`Q_7gD\")F7$!3b7'\\MHwLj*F-7$$\"3S')Hd(plED)F7
$!3<mtJhks:#*F-7$$\"3aW1wU,tz$)F7$!3%=9Z\"p`[\\')F-7$$\"3q`='f(p1^')F7
$!3=`![s%f%z)pF-7$$\"3%QY$pDF+u()F7$!3#)3#H!fP.egF-7$$\"3?s]Uv%Qp*))F7
$!3%G>WYb!oO]F-7$$\"3Z4%o9sR8.*F7$!3*z@EM?iO$QF-7$$\"3[[<^n4ul\"*F7$!3
A*p`w#z\\hDF-7$$\"3/,X!f1-AH*F7$!3C/84*oy=K\"F-7$$\"3\"=D(HkJm=%*F7$!3
A@e2m$eZ6'FU7$$\"33$)oA]9&3b*F7$\"3[[))z]xRd7F-7$$\"3O9l:O(RIo*F7$\"3;
Wv<:O+aDF-7$$\"3U5;ZZzF7)*F7$\"3;#G@[W\\(yPF-7$$\"3p/nyeh^T**F7$\"3`A?
.`%o/%\\F-7$$\"3wbf))e;o25!#;$\"3[,[Fe13ogF-7$$\"3/TK*=q67-\"F]cl$\"3;
#fVJoyZ3(F-7$$\"3#G,$RTFCM5F]cl$\"3rz\"o\"[TvTzF-7$$\"3U%y#*3yts/\"F]c
l$\"3YiB11I1k')F-7$$\"3oQg*3!**fg5F]cl$\"3Aea&e]/2D*F-7$$\"3'HH**3-ER2
\"F]cl$\"3S4>;+*4Ln*F-7$$\"3E++S2R`!3\"F]cl$\"3d\"\\*ydyf>)*F-7$$\"3S2
2!RzTr3\"F]cl$\"3];MQh\\-B**F-7$$\"3'41^rtX/4\"F]cl$\"3g<?7]s^e**F-7$$
\"3s99S!o\\P4\"F]cl$\"3'**GV%p(RJ)**F-7$$\"3Yo<lBO0(4\"F]cl$\"3C8\"\\P
klo***F-7$$\"3.A@!pcd.5\"F]cl$\"3;W<=\"*)z'****F-7$$\"37D\\hZNR.6F]cl$
\"3O*)*>$)*Hk#***F-7$$\"3@GxKG&Hk5\"F]cl$\"3'y2x]T'Rw**F-7$$\"3IJ0/4bY
46F]cl$\"3OW#p]6b4&**F-7$$\"3QMLv*[,D6\"F]cl$\"3H5n>YDM;**F-7$$\"3cS*y
6Xt&=6F]cl$\"3KTQUF'R(>)*F-7$$\"3uYXg7akC6F]cl$\"3;x\")*=rVpo*F-7$$\"3
xEIj=PcQ6F]cl$\"3c`eXY9&)[#*F-7$$\"3)p]hY-#[_6F]cl$\"3eYlK!=!)=j)F-7$$
\"3A5Z\\B2$\\;\"F]cl$\"3&GK.7G\">QzF-7$$\"3i8zKA%zt<\"F]cl$\"3:fY<OHk@
rF-7$$\"3#RgO<L_1>\"F]cl$\"3&yejj5i*HhF-7$$\"3A%HX6CDR?\"F]cl$\"388Su0
\"[/.&F-7$$\"3g!\\M!4\"Hm@\"F]cl$\"3=p%[a(e\"\\*QF-7$$\"3!ooBp(HLH7F]c
l$\"3+Y[/q(3mp#F-7$$\"3SV=#z,&)HC\"F]cl$\"3%y7T1cn4O\"F-7$$\"3+++#*eqj
c7F]cl$\"3BXiH,t\"f^#!#D-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%*THICKNESSG6
#\"\"$-%&TITLEG6#Q&ODE~16\"-%+AXESLABELSG6$Q!6\"F[]m-%%VIEWG6$;F($\"+i
qjc7!\")%(DEFAULTG" 1 2 0 1 10 3 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "ode2:=diff(y(t),t,t)+y(t)=Di
rac(t-Pi/2);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "inits2:=y(0)=0,D(y)
(0)=0:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "dsolve(\{ode2,inits2\},y(
t)): soln2:=unapply(rhs(%),t);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "p
lot(soln2,0..4*Pi,thickness=3,title=\"ODE 2\");" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%%ode2G/,&-%%diffG6$-%\"yG6#%\"tG-%\"$G6$F-\"\"#\"\"\"
F*F2-%&DiracG6#,&F-F2*&#F2F1F2%#PiGF2!\"\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%&soln2GR6#%\"tG6\"6$%)operatorG%&arrowGF(,$*&-%*Heavi
sideG6#,&9$\"\"\"*&#F3\"\"#F3%#PiGF3!\"\"F3-%$cosG6#F2F3F8F(F(F(" }}
{PARA 13 "" 1 "" {GLPLOT2D 336 252 252 {PLOTDATA 2 "6'-%'CURVESG6$7dr7
$$\"\"!F)F(7$$\"3o#e#[q66RF!#=F(7$$\"3>O;(R:(RA^F-F(7$$\"383\\]-:l-yF-
F(7$$\"3o)on;Bn+0\"!#<F(7$$\"3^!3))3*pe=8F7F(7$$\"3W4wu&3jIW\"F7F(7$$
\"3QQrg!=Rvc\"F7F(7$$\"3-\"Q(*o'pU'p\"F7$\"3?gH!>G/ID\"F-7$$\"3rBw=`ZJ
D=F7$\"3wz%*)Hy$z<DF-7$$\"3Aw[9'o5'e>F7$\"3?!4%4)*)f;y$F-7$$\"3%*G@5>m
!>4#F7$\"3s(=3MkL%y\\F-7$$\"3gv=Jq]xCAF7$\"3Q0[m/-\\$3'F-7$$\"3EA;_@Nk
dBF7$\"31U/a$e183(F-7$$\"39%\\*>b]J%\\#F7$\"3A'y])oSGxzF-7$$\"3flt())e
')4j#F7$\"3x[Hv.[[C()F-7$$\"3Q,F8]pO^FF7$\"3K,-gkAB[#*F-7$$\"3uO!)Q6tu
rGF7$\"3Q?@Op87Q'*F-7$$\"3C#Gp()>2&RHF7$\"3]WF958]'z*F-7$$\"3uF0:'3ns+
$F7$\"3(HXa#z(=*4**F-7$$\"3[]6%)Hq9TIF7$\"37*3RMy&f\\**F-7$$\"3Ct<`tp-
vIF7$\"3m?)z1B`y(**F-7$$\"3)fRAs\"p!*3JF7$\"35u<v)oeY***F-7$$\"3t=I\"4
'oyUJF7$\"2M>X$pG******F77$$\"3[`v!*=f!o<$F7$\"37$oT.x+Q***F-7$$\"3z(3
-p(\\#3@$F7$\"3afF*z*R/w**F-7$$\"35Am*[.W[C$F7$\"3A0P;+JuY**F-7$$\"3Sc
6*G4j)yKF7$\"3m!=0M)>$f!**F-7$$\"3-D-))37!pM$F7$\"3Ob$**=E\")**y*F-7$$
\"3k$Hp[KR\\T$F7$\"3B%)=\"QQG(G'*F-7$$\"3sgGp))R2YNF7$\"3G)y4BPmI>*F-7
$$\"3!yU;Dl3sn$F7$\"3cG5XXSa*f)F-7$$\"3iNN>!\\\"H'z$F7$\"3'4()4g[8B$zF
-7$$\"3)QkqyKu`\"RF7$\"3)Hf>s&)HF:(F-7$$\"3y\"Q2)R`(p0%F7$\"39%\\(4!Gs
[4'F-7$$\"3C>Tu^jd)>%F7$\"3x\\(eUT6]\"\\F-7$$\"3O])*o#)4`=VF7$\"3@5s0R
(Qv$QF-7$$\"3e!eNOh&[QWF7$\"3#>wETY8\\q#F-7$$\"3kFz7m8-yXF7$\"3-W=iAlj
R8F-7$$\"3gv-i=rb<ZF7$!3y+o3H_6o^!#?7$$\"3Bs$**H!*p5%[F7$!3m6U\\L3E$G
\"F-7$$\"3')o%yto#ek\\F7$!3upd3A()G&\\#F-7$$\"3C\"elvy&4+^F7$!3GHU8DUm
!y$F-7$$\"3i$p_x))3cB&F7$!3+NW5Y&=n*\\F-7$$\"3Cyu=0%\\YO&F7$!3%Q2:mXV)
pgF-7$$\"3ujAiA**o$\\&F7$!34Ngb7o.UqF-7$$\"3UViKl,LGcF7$!3#>Y(f9;OJzF-
7$$\"3)RAI!3/(Hw&F7$!3ad&3_!Q7x')F-7$$\"3yIu'4=7m)eF7$!3A=t#oq+RA*F-7$
$\"3dPY!R&RD5gF7$!3#[Tuls[)H'*F-7$$\"3)Rps;8Op2'F7$!3qt)GfHf!)y*F-7$$
\"3F^2W4$=O9'F7$!3)[[m'eKw-**F-7$$\"3YzZK)Rfp<'F7$!3h8jc9LjV**F-7$$\"3
c3)3s[+.@'F7$!39Yf5r2Xt**F-7$$\"3xOG4w:kViF7$!3a%)*Ha[#=#***F-7$$\"3'
\\'o(\\m#)pF'F7$!3_b_wOw!)****F-7$$\"3%z/&)fo9;J'F7$!3!phxU7ff***F-7$$
\"3!4B$*pqYiM'F7$!3GbNv()G7!)**F-7$$\"3'QT,!G(y3Q'F7$!3132\"*=zJ_**F-7
$$\"3%of4!\\2^:kF7$!3WLG0jvd7**F-7$$\"3yif-\"zuZ['F7$!3M#QMBe&\\(z*F-7
$$\"3qGB/L)QSb'F7$!369IdJ)Gaj*F-7$$\"3996UPziumF7$!3#eR0HE'fV#*F-7$$\"
3[+**zTq@&z'F7$!3$y*\\%Rg3vr)F-7$$\"3Mda<ylXDpF7$!3\"43@\\(HP2!)F-7$$
\"3?95b9hpbqF7$!3!f`.0Z0;;(F-7$$\"3ooZd*HY->(F7$!3;!f#\\HXjghF-7$$\"3H
A&)f%['zCtF7$!3==UqX6I[]F-7$$\"3W(>Y2fFkX(F7$!3o%GFH/V;(QF-7$$\"3esQ*o
pe!)e(F7$!3r(>&Hh()*zi#F-7$$\"3:ArVg&=ar(F7$!3GN'Q].,7Q\"F-7$$\"3sr.)R
UyF%yF7$!3:)o_Rc(H?6!#>7$$\"3)3&G=Q)*=%)zF7$\"3_rdnreS)H\"F-7$$\"3/I`Q
_7gD\")F7$\"3)=URDF?Ho#F-7$$\"3S')Hd(plED)F7$\"3A_&GzZf?)QF-7$$\"3aW1w
U,tz$)F7$\"3p5N!ym0'=]F-7$$\"3B[7Of&)R:&)F7$\"3=,nwhfNUhF-7$$\"3q`='f(
p1^')F7$\"3m\\,J\\QA`rF-7$$\"3%QY$pDF+u()F7$\"3))f*yk(R9czF-7$$\"3?s]U
v%Qp*))F7$\"3+l&G9os*Q')F-7$$\"3Z4%o9sR8.*F7$\"3L#[hy;kfB*F-7$$\"3[[<^
n4ul\"*F7$\"3A!eZH+rjm*F-7$$\"3xC\"3n^r*G#*F7$\"3XH(>o)3\"*3)*F-7$$\"3
/,X!f1-AH*F7$\"3?g#3a!oC7**F-7$$\"3=*o-0M<QK*F7$\"3'o%*))>/y!\\**F-7$$
\"3Kx35:EVb$*F7$\"3KKiw[d'f(**F-7$$\"3Wl!*p*)y/(Q*F7$\"3YKw-`I)G***F-7
$$\"3\"=D(HkJm=%*F7$\"3%*\\I!p/8)****F-7$$\"3'4mzdB5<X*F7$\"3gH*G?[tj*
**F-7$$\"3Mo?E2tv%[*F7$\"33/N*=y<?)**F-7$$\"3rvWuyV!y^*F7$\"3A_$eIihn&
**F-7$$\"33$)oA]9&3b*F7$\"3;++\\&eK1#**F-7$$\"3%yp\">$fXph*F7$\"3+%Gtt
^Df\")*F-7$$\"3O9l:O(RIo*F7$\"3+eJ:<QNo'*F-7$$\"3U5;ZZzF7)*F7$\"3[Xj!f
Wm&e#*F-7$$\"3p/nyeh^T**F7$\"3Epm4\\GN%p)F-7$$\"3wbf))e;o25!#;$\"3c\"f
P8&R[[zF-7$$\"3/TK*=q67-\"Fhhl$\"3c$oqLIIt0(F-7$$\"3#G,$RTFCM5Fhhl$\"3
Y;#f>!e)o2'F-7$$\"3U%y#*3yts/\"Fhhl$\"3w^dbioR$*\\F-7$$\"3oQg*3!**fg5F
hhl$\"3e-.x@b&zz$F-7$$\"3'HH**3-ER2\"Fhhl$\"3c(*e!3wn^`#F-7$$\"3S22!Rz
Tr3\"Fhhl$\"37zaA,iPQ7F-7$$\"3.A@!pcd.5\"Fhhl$!3`&op'zgH,!)F[w7$$\"3QM
Lv*[,D6\"Fhhl$!3'\\\\y__%z!H\"F-7$$\"3uYXg7akC6Fhhl$!3%z:%=)\\jD[#F-7$
$\"3xEIj=PcQ6Fhhl$!3l6e4+fY-QF-7$$\"3)p]hY-#[_6Fhhl$!3mqc'o0E)[]F-7$$
\"3A5Z\\B2$\\;\"Fhhl$!3U2dm6#R:3'F-7$$\"3i8zKA%zt<\"Fhhl$!3.eVaQ$G,-(F
-7$$\"3#RgO<L_1>\"Fhhl$!3UiDtq%e3!zF-7$$\"3A%HX6CDR?\"Fhhl$!3`m#QJI.Ek
)F-7$$\"3g!\\M!4\"Hm@\"Fhhl$!3&f\"o!)H-I5#*F-7$$\"3!ooBp(HLH7Fhhl$!3^c
4iFNbH'*F-7$$\"3>lFU(**ehB\"Fhhl$!3=T(*Gah0\"z*F-7$$\"3SV=#z,&)HC\"Fhh
l$!3wgW+,b&p!**F-7$$\"3]#Qr\"G!)RY7Fhhl$!3)fn*eyoiZ**F-7$$\"3i@4UQ5\")
\\7Fhhl$!3!H[g&\\<rw**F-7$$\"3!4Yq'[SA`7Fhhl$!3]?%*GPi<%***F-7$$\"3+++
#*eqjc7Fhhl$!2m***************F7-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%*THI
CKNESSG6#\"\"$-%&TITLEG6#Q&ODE~26\"-%+AXESLABELSG6$Q!6\"Faam-%%VIEWG6$
;F($\"+iqjc7!\")%(DEFAULTG" 1 2 0 1 10 3 2 9 1 4 2 1.000000 45.000000 
45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "ode3:=diff(y(t),t,t)+y(t)=Di
rac(t-Pi/2)+Dirac(t-Pi);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "inits3:
=y(0)=0,D(y)(0)=0:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "dsolve(\{ode3
,inits3\},y(t)): soln3:=unapply(rhs(%),t);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 46 "plot(soln3,0..4*Pi,thickness=3,title=\"ODE 3\");" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%ode3G/,&-%%diffG6$-%\"yG6#%\"tG-%\"
$G6$F-\"\"#\"\"\"F*F2,&-%&DiracG6#,&F-F2*&#F2F1F2%#PiGF2!\"\"F2-F56#,&
F-F2F:F;F2" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&soln3GR6#%\"tG6\"6$%)
operatorG%&arrowGF(,&*&-%*HeavisideG6#,&9$\"\"\"*&#F3\"\"#F3%#PiGF3!\"
\"F3-%$cosG6#F2F3F8*&-F/6#,&F2F3F7F8F3-%$sinGF;F3F8F(F(F(" }}{PARA 13 
"" 1 "" {GLPLOT2D 336 252 252 {PLOTDATA 2 "6'-%'CURVESG6$7[r7$$\"\"!F)
F(7$$\"3o#e#[q66RF!#=F(7$$\"3>O;(R:(RA^F-F(7$$\"383\\]-:l-yF-F(7$$\"3o
)on;Bn+0\"!#<F(7$$\"3^!3))3*pe=8F7F(7$$\"3W4wu&3jIW\"F7F(7$$\"3QQrg!=R
vc\"F7F(7$$\"3-\"Q(*o'pU'p\"F7$\"3?gH!>G/ID\"F-7$$\"3rBw=`ZJD=F7$\"3wz
%*)Hy$z<DF-7$$\"3%*G@5>m!>4#F7$\"3s(=3MkL%y\\F-7$$\"3EA;_@NkdBF7$\"31U
/a$e183(F-7$$\"3flt())e')4j#F7$\"3x[Hv.[[C()F-7$$\"3Q,F8]pO^FF7$\"3K,-
gkAB[#*F-7$$\"3uO!)Q6turGF7$\"3Q?@Op87Q'*F-7$$\"3C#Gp()>2&RHF7$\"3]WF9
58]'z*F-7$$\"3uF0:'3ns+$F7$\"3(HXa#z(=*4**F-7$$\"3Ct<`tp-vIF7$\"3m?)z1
B`y(**F-7$$\"3t=I\"4'oyUJF7$\"3d&*Q(R\\$>,5F77$$\"3Sc6*G4j)yKF7$\"3(H#
=%=%HVF6F77$$\"3k$Hp[KR\\T$F7$\"3:Ebq*>GGB\"F77$$\"3sgGp))R2YNF7$\"3u)
*[ZQ'[GJ\"F77$$\"3!yU;Dl3sn$F7$\"37b<wr_Kq8F77$$\"3s\")\\Nr+vOPF7$\"3!
=)GQn$*p)Q\"F77$$\"3iNN>!\\\"H'z$F7$\"3#RS,ts^@S\"F77$$\"3)**3K!4H$e&Q
F7$\"3Or-cuYj59F77$$\"3)QkqyKu`\"RF7$\"3lJMYW\"=TT\"F77$$\"3CG[&3eu2&R
F7$\"3H>l&Rf8QT\"F77$$\"318!RQ$[<')RF7$\"3J6F]out69F77$$\"3'y>Bo3v:-%F
7$\"3_t[epB*yS\"F77$$\"3y\"Q2)R`(p0%F7$\"3mXGH:JG-9F77$$\"3_]dxXexFTF7
$\"3WIn)pX-eQ\"F77$$\"3C>Tu^jd)>%F7$\"3%)Q%o=2yBO\"F77$$\"3O])*o#)4`=V
F7$\"3)=<S\")G*=28F77$$\"3e!eNOh&[QWF7$\"3T)4tEv8KB\"F77$$\"3gv-i=rb<Z
F7$\"3stAu*H&=[**F-7$$\"3Bs$**H!*p5%[F7$\"39'H-9XfSj)F-7$$\"3')o%yto#e
k\\F7$\"3%=s&pn[Q)=(F-7$$\"3C\"elvy&4+^F7$\"3g@D***\\?rZ&F-7$$\"3i$p_x
))3cB&F7$\"3'Rw%H6#Ham$F-7$$\"3Cyu=0%\\YO&F7$\"3S+P))=WHx=F-7$$\"3ujAi
A**o$\\&F7$\"3-MG_?&HVz&!#?7$$\"3UViKl,LGcF7$!34wEuR!=4%=F-7$$\"3)RAI!
3/(Hw&F7$!3S@T[0wX1PF-7$$\"3yIu'4=7m)eF7$!3O!p:`o.8O&F-7$$\"3dPY!R&RD5
gF7$!3V:lHIVHMpF-7$$\"3F^2W4$=O9'F7$!3z7&f0!*>;^)F-7$$\"3'\\'o(\\m#)pF
'F7$!3*fleCh\"yP**F-7$$\"3%of4!\\2^:kF7$!3Sv;%eO(>B6F77$$\"3qGB/L)QSb'
F7$!3;(Guf#o4J7F77$$\"3996UPziumF7$!3P;26Z>)eI\"F77$$\"3[+**zTq@&z'F7$
!3aSTq$G+<O\"F77$$\"3#*yw)*4oLgoF7$!3qE'RTNfOQ\"F77$$\"3Mda<ylXDpF7$!3
i\\>vtHv*R\"F77$$\"3+Z$pAY;!epF7$!3wG1;Szd09F77$$\"3yNKOYjd!*pF7$!3FUb
I?H\"*49F77$$\"3aCrXIi8BqF7$!3j*f!))=Lv79F77$$\"3?95b9hpbqF7$!3L%[9\\7
'499F77$$\"3;_p!3mL$*3(F7$!3t:909\"4RT\"F77$$\"3+\"*G127(H7(F7$!3ddtvP
C779F77$$\"3%)H)=Lv3m:(F7$!3Fm#Qu6Q(39F77$$\"3ooZd*HY->(F7$!3*R8R?)*fP
S\"F77$$\"3[Xm3#R@vD(F7$!3)*))QW\"fY!*Q\"F77$$\"3HA&)f%['zCtF7$!3U#=aF
$)[!o8F77$$\"3W(>Y2fFkX(F7$!3-U2cU]<48F77$$\"3esQ*ope!)e(F7$!3'pwI-C]w
A\"F77$$\"3:ArVg&=ar(F7$!3'[vj0fN&G6F77$$\"3sr.)RUyF%yF7$!36B)Q.AS6,\"
F77$$\"3)3&G=Q)*=%)zF7$!3V)f<o%H%ph)F-7$$\"3/I`Q_7gD\")F7$!3m!>54-c/&p
F-7$$\"3S')Hd(plED)F7$!3&R\"))Q$)pmL`F-7$$\"3aW1wU,tz$)F7$!39JOM,(z3j$
F-7$$\"3B[7Of&)R:&)F7$!3'HqSv,r)[<F-7$$\"3q`='f(p1^')F7$\"3sk4i?!zFl\"
!#>7$$\"3%QY$pDF+u()F7$\"3/^(\\u@5\")*=F-7$$\"3?s]Uv%Qp*))F7$\"3;sVyE@
H-OF-7$$\"3Z4%o9sR8.*F7$\"3Mk_Vk>I-aF-7$$\"3[[<^n4ul\"*F7$\"3Y!)QHvI([
5(F-7$$\"3/,X!f1-AH*F7$\"3SbpJ;\"o.f)F-7$$\"3\"=D(HkJm=%*F7$\"3<#HUKYl
'Q**F-7$$\"33$)oA]9&3b*F7$\"3*[))GO..y6\"F77$$\"3O9l:O(RIo*F7$\"3;qIBV
dBA7F77$$\"3U5;ZZzF7)*F7$\"3wiF2*eJPI\"F77$$\"3p/nyeh^T**F7$\"3CpG@I@[
j8F77$$\"368BQPm\"4+\"!#;$\"3??6aR!RdQ\"F77$$\"3wbf))e;o25F\\el$\"3TR7
'4Yc;S\"F77$$\"33xxjpT165F\\el$\"3\"=\\=['R@29F77$$\"3S)f*Q!oYW,\"F\\e
l$\"3e34Nv:;69F77$$\"3s>99\">Hy,\"F\\el$\"3Y*Gyjx%\\89F77$$\"3/TK*=q67
-\"F\\el$\"3oF9l)*3@99F77$$\"33%=o<YpW-\"F\\el$\"3>A\\j46P89F77$$\"3$p
7V;AFx-\"F\\el$\"3\"H\"HgU9.69F77$$\"3zp!=:)\\)4.\"F\\el$\"3e!GC/Q%>29
F77$$\"3#G,$RTFCM5F\\el$\"3iRF,&*R'=S\"F77$$\"3a)*G9h#e2/\"F\\el$\"376
9wfuu'Q\"F77$$\"3U%y#*3yts/\"F\\el$\"3O6='o)ful8F77$$\"3oQg*3!**fg5F\\
el$\"3.wDw-g'[I\"F77$$\"3'HH**3-ER2\"F\\el$\"3p!y'4mx%3A\"F77$$\"3.A@!
pcd.5\"F\\el$\"35Z]QIpm>**F-7$$\"3QMLv*[,D6\"F\\el$\"3g:#=4-[bi)F-7$$
\"3uYXg7akC6F\\el$\"3$*=Sr8-Q/sF-7$$\"3xEIj=PcQ6F\\el$\"3!>/gja&QYaF-7
$$\"3)p]hY-#[_6F\\el$\"3#f(3YBT0$e$F-7$$\"3A5Z\\B2$\\;\"F\\el$\"3U:w`p
?lc=F-7$$\"3i8zKA%zt<\"F\\el$\"3H6IIwf9:5Ffal7$$\"3#RgO<L_1>\"F\\el$!3
eu*oVO'*3x\"F-7$$\"3A%HX6CDR?\"F\\el$!3R`UR(>b@h$F-7$$\"3g!\\M!4\"Hm@
\"F\\el$!3xY$eVN%Q:`F-7$$\"3!ooBp(HLH7F\\el$!3^5hddZ%H$pF-7$$\"3SV=#z,
&)HC\"F\\el$!3?LLOSz)fa)F-7$$\"3+++#*eqjc7F\\el$!2qE3%[(*******F7-%'CO
LOURG6&%$RGBG$\"#5!\"\"F(F(-%*THICKNESSG6#\"\"$-%&TITLEG6#Q&ODE~36\"-%
+AXESLABELSG6$Q!6\"Fd^m-%%VIEWG6$;F($\"+iqjc7!\")%(DEFAULTG" 1 2 0 1 
10 3 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG 
{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 58 "ode4:=diff(y(t),t,t)+4*diff(y(t),t)+6*y(t)=Heaviside(t-2);" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "inits4:=y(0)=0,D(y)(0)=0:" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 53 "dsolve(\{ode4,inits4\},y(t)): soln4:=unap
ply(rhs(%),t):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "plot(soln4,0..4,t
hickness=3,title=\"ODE 4\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%ode
4G/,(-%%diffG6$-%\"yG6#%\"tG-%\"$G6$F-\"\"#\"\"\"*&\"\"%F2-F(6$F*F-F2F
2*&\"\"'F2F*F2F2-%*HeavisideG6#,&F-F2F1!\"\"" }}{PARA 13 "" 1 "" 
{GLPLOT2D 336 252 252 {PLOTDATA 2 "6'-%'CURVESG6$7Z7$$\"\"!F)F(7$$\"3H
mmmm;')=()!#>F(7$$\"3RLLLe'40j\"!#=F(7$$\"3mmmm;6m$[#F1F(7$$\"3fmmm;yY
ULF1F(7$$\"3%HLL$eF>(>%F1F(7$$\"3Qmmm\">K'*)\\F1F(7$$\"3P*****\\Kd,\"e
F1F(7$$\"3-mmm\"fX(emF1F(7$$\"3.*****\\U7Y](F1F(7$$\"3'QLLLV!pu$)F1F(7
$$\"3xmmm;c0T\"*F1F(7$$\"3#*******H,Q+5!#<F(7$$\"3)*******\\*3q3\"FPF(
7$$\"3)*******p=\\q6FPF(7$$\"3mmm;fBIY7FPF(7$$\"3GLLLj$[kL\"FPF(7$$\"3
?LLL`Q\"GT\"FPF(7$$\"3!*****\\s]k,:FPF(7$$\"39LLL`dF!e\"FPF(7$$\"33++]
sgam;FPF(7$$\"3/++]<ep[<FPF(7$$\"3QLLLe/TM=FPF(7$$\"3JLL$eDBJ\">FPF(7$
$\"3)****\\([Wdb>FPF(7$$\"3immmTc-)*>FPF(7$$\"3qmTNc$\\!4?FP$\"3]46'y;
<a/%!#A7$$\"3ym;/rI2??FP$\"3s8n&o)HRh>!#@7$$\"3&o;Hdy'4J?FP$\"3T+\\Qz_
VQYF]q7$$\"3[mmT+07U?FP$\"3%[.:ksPaQ)F]q7$$\"3=m;zHz;k?FP$\"3uX=$\\@R&
*)=!#?7$$\"3Mmm;f`@'3#FP$\"3b(37P--<J$F]r7$$\"3HLLLj+gC@FP$\"3?irGKcTp
lF]r7$$\"3y****\\nZ)H;#FP$\"3SD?,!e\\u1\"F-7$$\"3YmmmJy*eC#FP$\"3u8e5;
+hs@F-7$$\"3')******R^bJBFP$\"3m76F$=E!=NF-7$$\"3f*****\\5a`T#FP$\"3\\
kB/*H3(H\\F-7$$\"3o****\\7RV'\\#FP$\"3nn=hdz07jF-7$$\"3k*****\\@fke#FP
$\"3HVl\\]X+/yF-7$$\"3/LLL`4NnEFP$\"3#\\732f&=o!*F-7$$\"3#*******\\,s`
FFP$\"3]QFm\\nAJ5F17$$\"3[mm;zM)>$GFP$\"3[UU9fnGL6F17$$\"3$*******pfa<
HFP$\"3h2xe6;nK7F17$$\"3#HLLeg`!)*HFP$\"3&Rg]dOjXJ\"F17$$\"3w****\\#G2
A3$FP$\"3oX?Swca)Q\"F17$$\"3;LLL$)G[kJFP$\"3G\">_1N%4]9F17$$\"3#)****
\\7yh]KFP$\"3p3`ani0/:F17$$\"3xmmm')fdLLFP$\"3OfpZnS\"pa\"F17$$\"3bmmm
,FT=MFP$\"3skSV'fqDe\"F17$$\"3FLL$e#pa-NFP$\"3>!e[d#f#3h\"F17$$\"3!***
****Rv&)zNFP$\"3Q7^r\\uTJ;F17$$\"3ILLLGUYoOFP$\"3Mg'[plb'\\;F17$$\"3_m
mm1^rZPFP$\"3eudc_*)*=m\"F17$$\"34++]sI@KQFP$\"3y_KF;CZr;F17$$\"34++]2
%)38RFP$\"3!\\'yy)\\#*yn\"F17$$\"\"%F)$\"3E)QulY3Co\"F1-%'COLOURG6&%$R
GBG$\"#5!\"\"F(F(-%*THICKNESSG6#\"\"$-%&TITLEG6#Q&ODE~46\"-%+AXESLABEL
SG6$Q!6\"F^[l-%%VIEWG6$;F(Fgy%(DEFAULTG" 1 2 0 1 10 3 2 9 1 4 2 
1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "ode5:=diff(
y(t),t,t)+4*diff(y(t),t)+6*y(t)=Dirac(t-2);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "inits5:=y(0)=0,D(y)(0)=0:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 53 "dsolve(\{ode5,inits4\},y(t)): soln5:=unapply(rhs(%),t
):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "plot(soln5,0..4,thickness=3,t
itle=\"ODE 5\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%ode5G/,(-%%diff
G6$-%\"yG6#%\"tG-%\"$G6$F-\"\"#\"\"\"*&\"\"%F2-F(6$F*F-F2F2*&\"\"'F2F*
F2F2-%&DiracG6#,&F-F2F1!\"\"" }}{PARA 13 "" 1 "" {GLPLOT2D 336 252 
252 {PLOTDATA 2 "6'-%'CURVESG6$7eo7$$\"\"!F)F(7$$\"3Hmmmm;')=()!#>F(7$
$\"3RLLLe'40j\"!#=F(7$$\"3mmmm;6m$[#F1F(7$$\"3fmmm;yYULF1F(7$$\"3%HLL$
eF>(>%F1F(7$$\"3Qmmm\">K'*)\\F1F(7$$\"3P*****\\Kd,\"eF1F(7$$\"3-mmm\"f
X(emF1F(7$$\"3.*****\\U7Y](F1F(7$$\"3'QLLLV!pu$)F1F(7$$\"3xmmm;c0T\"*F
1F(7$$\"3#*******H,Q+5!#<F(7$$\"3)*******\\*3q3\"FPF(7$$\"3)*******p=
\\q6FPF(7$$\"3mmm;fBIY7FPF(7$$\"3GLLLj$[kL\"FPF(7$$\"3?LLL`Q\"GT\"FPF(
7$$\"3!*****\\s]k,:FPF(7$$\"39LLL`dF!e\"FPF(7$$\"33++]sgam;FPF(7$$\"3/
++]<ep[<FPF(7$$\"3QLLLe/TM=FPF(7$$\"3JLL$eDBJ\">FPF(7$$\"3)****\\([Wdb
>FPF(7$$\"3immmTc-)*>FPF(7$$\"3qmTNc$\\!4?FP$\"3GFh!QG0o)))!#?7$$\"3ym
;/rI2??FP$\"3HE88d'e!G>F-7$$\"3&o;Hdy'4J?FP$\"3Z3j:ShA@HF-7$$\"3[mmT+0
7U?FP$\"3cA6?#)zYpQF-7$$\"37mT5:U9`?FP$\"3'=b\\,!e/uZF-7$$\"3=m;zHz;k?
FP$\"3r$)[0Kz>OcF-7$$\"3Em\"zWk\">v?FP$\"3%zar!e&RrX'F-7$$\"3Mmm;f`@'3
#FP$\"3?ZxoKG1QsF-7$$\"3\")***\\7r2a5#FP$\"3aVUnWaj0&)F-7$$\"3HLLLj+gC
@FP$\"3'HsKDQZ9m*F-7$$\"3wmmT:CzV@FP$\"3Ic<(*)*)H62\"F17$$\"3y****\\nZ
)H;#FP$\"3Ic](ftyg;\"F17$$\"3Mm;aLIr$=#FP$\"33zU<tZ(zD\"F17$$\"3NLLe*H
TW?#FP$\"3'zB3f?Z%R8F17$$\"3!***\\il&p^A#FP$\"3I9-!*4R769F17$$\"3YmmmJ
y*eC#FP$\"3MsH#3.2OZ\"F17$$\"3;LL$e[E()G#FP$\"3O8gDMh.w:F17$$\"3')****
**R^bJBFP$\"3!pi#y+?TY;F17$$\"3y***\\7)[]_BFP$\"3/r@(3J)[q;F17$$\"3s**
**\\AYXtBFP$\"3i7Qm\"\\5%)o\"F17$$\"3k***\\PO/WR#FP$\"34km\"R(zi+<F17$
$\"3f*****\\5a`T#FP$\"3#>O!\\o%ovq\"F17$$\"3g*\\P43*[DCFP$\"3-f4n)y`\"
4<F17$$\"3h**\\(o0CcV#FP$\"3[kN&>)Qk4<F17$$\"3i*\\7G.fdW#FP$\"3X]^yk>3
4<F17$$\"3k***\\(3S*eX#FP$\"379:-s,^2<F17$$\"3m**\\igR;wCFP$\"3w6DE'>+
:q\"F17$$\"3o****\\7RV'\\#FP$\"3QF9=m+$>p\"F17$$\"3m***\\PcY9a#FP$\"3m
:C+>>Vf;F17$$\"3k*****\\@fke#FP$\"31U14kc%Qh\"F17$$\"3/LLL`4NnEFP$\"3B
b$pr3&H2:F17$$\"3#*******\\,s`FFP$\"3eF'\\!\\<oq8F17$$\"3[mm;zM)>$GFP$
\"3*o0!f&[dkB\"F17$$\"3$*******pfa<HFP$\"3q/5HnCo'3\"F17$$\"3#HLLeg`!)
*HFP$\"3o;e8aGG&[*F-7$$\"3w****\\#G2A3$FP$\"3x;\\3,v>7\")F-7$$\"3;LLL$
)G[kJFP$\"3yE8$p,rq'oF-7$$\"3#)****\\7yh]KFP$\"3s\"=d:]JSo&F-7$$\"3xmm
m')fdLLFP$\"3oil$H6c*oYF-7$$\"3bmmm,FT=MFP$\"3+'=F/QL#ePF-7$$\"3FLL$e#
pa-NFP$\"31<'*oj]YyHF-7$$\"3!*******Rv&)zNFP$\"3[\\pwwaBkBF-7$$\"3ILLL
GUYoOFP$\"3[:7pP&)Hr<F-7$$\"3_mmm1^rZPFP$\"39(>Ik-n>L\"F-7$$\"34++]sI@
KQFP$\"3'3^NL//cZ*Fgp7$$\"34++]2%)38RFP$\"3T)ex?%f!*3lFgp7$$\"\"%F)$\"
3QP#)3\"yr)*)RFgp-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%*THICKNESSG6#\"\"$-
%&TITLEG6#Q&ODE~56\"-%+AXESLABELSG6$Q!6\"Fa`l-%%VIEWG6$;F(Fj^l%(DEFAUL
TG" 1 2 0 1 10 3 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" 
}}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 79 "ode6:=diff(y(t),t,t)+4*diff(y(t),t)+6*y(t)=4*(Heavisi
de(t-2)-Heaviside(t-9/4));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "inits
6:=y(0)=0,D(y)(0)=0:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "dsolve(\{od
e6,inits6\},y(t)): soln6:=unapply(rhs(%),t):" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 43 "plot(soln6,0..4,thickness=3,title=\"ODE 6\");" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%ode6G/,(-%%diffG6$-%\"yG6#%\"tG-%\"
$G6$F-\"\"#\"\"\"*&\"\"%F2-F(6$F*F-F2F2*&\"\"'F2F*F2F2,&-%*HeavisideG6
#,&F-F2F1!\"\"F4*&F4F2-F;6#,&F-F2#\"\"*F4F>F2F>" }}{PARA 13 "" 1 "" 
{GLPLOT2D 336 252 252 {PLOTDATA 2 "6'-%'CURVESG6$7eo7$$\"\"!F)F(7$$\"3
Hmmmm;')=()!#>F(7$$\"3RLLLe'40j\"!#=F(7$$\"3mmmm;6m$[#F1F(7$$\"3fmmm;y
YULF1F(7$$\"3%HLL$eF>(>%F1F(7$$\"3Qmmm\">K'*)\\F1F(7$$\"3P*****\\Kd,\"
eF1F(7$$\"3-mmm\"fX(emF1F(7$$\"3.*****\\U7Y](F1F(7$$\"3'QLLLV!pu$)F1F(
7$$\"3xmmm;c0T\"*F1F(7$$\"3#*******H,Q+5!#<F(7$$\"3)*******\\*3q3\"FPF
(7$$\"3)*******p=\\q6FPF(7$$\"3mmm;fBIY7FPF(7$$\"3GLLLj$[kL\"FPF(7$$\"
3?LLL`Q\"GT\"FPF(7$$\"3!*****\\s]k,:FPF(7$$\"39LLL`dF!e\"FPF(7$$\"33++
]sgam;FPF(7$$\"3/++]<ep[<FPF(7$$\"3QLLLe/TM=FPF(7$$\"3JLL$eDBJ\">FPF(7
$$\"3)****\\([Wdb>FPF(7$$\"3immmTc-)*>FPF(7$$\"3qmTNc$\\!4?FP$\"3o(GWr
'o;=;!#@7$$\"3ym;/rI2??FP$\"3#[&oUZ>dXyFgp7$$\"3&o;Hdy'4J?FP$\"3%z)Rv6
TPb=!#?7$$\"3[mmT+07U?FP$\"3oTgc!4vTN$Fbq7$$\"3=m;zHz;k?FP$\"3=btsfo:e
vFbq7$$\"3Mmm;f`@'3#FP$\"3>R[[43oC8F-7$$\"3HLLLj+gC@FP$\"35i[\"HDmxi#F
-7$$\"3y****\\nZ)H;#FP$\"3c,\"[+K)zpUF-7$$\"3Mm;aLIr$=#FP$\"3ipAI9$paF
&F-7$$\"3NLLe*HTW?#FP$\"39p-a!eoHN'F-7$$\"3!***\\il&p^A#FP$\"39^!R5o:R
\\(F-7$$\"3YmmmJy*eC#FP$\"37_KUk+W!p)F-7$$\"3!)***\\(e@JnAFP$\"3H@(Rxp
E&=**F-7$$\"3;LL$e[E()G#FP$\"3\"eyPdivA5\"F17$$\"3^mm\"H\"395BFP$\"3o
\\&*Q/zs+7F17$$\"3')******R^bJBFP$\"3ElR1XE$zG\"F17$$\"3s****\\AYXtBFP
$\"3:I3(3!RkG9F17$$\"3f*****\\5a`T#FP$\"3Q7$fQm*zL:F17$$\"3k***\\(3S*e
X#FP$\"34:Ruy!4fg\"F17$$\"3o****\\7RV'\\#FP$\"3CLYAywh_;F17$$\"3X**\\7
Q-%*=DFP$\"3a/)4?*z$)o;F17$$\"3m***\\PcY9a#FP$\"3](GX=v7)y;F17$$\"3c*
\\ils*p_DFP$\"3?m]*44=;o\"F17$$\"3))**\\P*)G&Rc#FP$\"3sBG3m10$o\"F17$$
\"3w*\\(=_g?vDFP$\"3[\"*\\^M)pJo\"F17$$\"3k*****\\@fke#FP$\"3'RbXoJL?o
\"F17$$\"3+LLe\\@o1EFP$\"3mnR$\\Y7qn\"F17$$\"3Nmm;%30pi#FP$\"3Yvj0b&H%
o;F17$$\"3q***\\(=!Grk#FP$\"3G\\]Y4;ec;F17$$\"3/LLL`4NnEFP$\"3s@Ock-vT
;F17$$\"3Emmm^b`5FFP$\"3tJC#Rw.8g\"F17$$\"3#*******\\,s`FFP$\"3%3(zw^N
$3b\"F17$$\"3[mm;zM)>$GFP$\"3-RE)*zI[S9F17$$\"3$*******pfa<HFP$\"3sq%[
7`OAI\"F17$$\"3#HLLeg`!)*HFP$\"3u!Qr5k@X;\"F17$$\"3w****\\#G2A3$FP$\"3
1*Hp1&*G*>5F17$$\"3;LLL$)G[kJFP$\"33F()ez2QI))F-7$$\"3#)****\\7yh]KFP$
\"3m2Lau\"[E[(F-7$$\"3xmmm')fdLLFP$\"3S8^3y=Q!H'F-7$$\"3bmmm,FT=MFP$\"
3k'[!pW3b\">&F-7$$\"3FLL$e#pa-NFP$\"3pc#**[GAqA%F-7$$\"3!*******Rv&)zN
FP$\"3q]cT@()*)\\MF-7$$\"3ILLLGUYoOFP$\"3GW%fm(yi#o#F-7$$\"3_mmm1^rZPF
P$\"3%\\NDbx()35#F-7$$\"34++]sI@KQFP$\"3%)\\5lqQ+!e\"F-7$$\"34++]2%)38
RFP$\"3uLR]XV\"z;\"F-7$$\"\"%F)$\"3w(*3rr\\f#3)Fbq-%'COLOURG6&%$RGBG$
\"#5!\"\"F(F(-%*THICKNESSG6#\"\"$-%&TITLEG6#Q&ODE~66\"-%+AXESLABELSG6$
Q!6\"Fb`l-%%VIEWG6$;F(F[_l%(DEFAULTG" 1 2 0 1 10 3 2 9 1 4 2 1.000000 
45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "ode7 := diff(y(t),`$
`(t,2))+4*y(t) = Dirac(t-Pi)-Dirac(t-2*Pi);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "inits7:=y(0)=0,D(y)(0)=0;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 53 "dsolve(\{ode7,inits7\},y(t)): soln7:=unapply(rhs(%),t
);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "plot(soln7,0..3*Pi,thickness=
3,title=\"ODE 7\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%ode7G/,&-%%d
iffG6$-%\"yG6#%\"tG-%\"$G6$F-\"\"#\"\"\"*&\"\"%F2F*F2F2,&-%&DiracG6#,&
F-F2%#PiG!\"\"F2-F76#,&F-F2*&F1F2F:F2F;F;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%'inits7G6$/-%\"yG6#\"\"!F*/--%\"DG6#F(F)F*" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%&soln7GR6#%\"tG6\"6$%)operatorG%&arrowGF(,
$*&,&-%*HeavisideG6#,&9$\"\"\"%#PiG!\"\"F6-F06#,&F3F4*&\"\"#F4F5F4F6F4
F4-%$sinG6#,$F3F;F4#F6F;F(F(F(" }}{PARA 13 "" 1 "" {GLPLOT2D 336 252 
252 {PLOTDATA 2 "6'-%'CURVESG6$7jp7$$\"\"!F)F(7$$\"3#eZoyPLV0#!#=F(7$$
\"39b4\\lyzTQF-F(7$$\"3g2t*oi))>&eF-F(7$$\"3AKF`PU]vyF-F(7$$\"3c#3#pJC
S*))*F-F(7$$\"3%f4faQac<\"!#<F(7$$\"3Mv]*[1')*o8F=F(7$$\"3g!fJV'*H*o:F
=F(7$$\"3?Xo9TEBo<F=F(7$$\"3%\\Ik;%*RK(>F=F(7$$\"3_$)ya$[5Q:#F=F(7$$\"
3gmApX,4dBF=F(7$$\"3gA,m$\\/7c#F=F(7$$\"3S*4'R*[1zv#F=F(7$$\"3o9Ul<'=s
%GF=F(7$$\"3**HB\"fuIl$HF=F(7$$\"3'fx)QD6j*)HF=F(7$$\"3[@_'[]JF/$F=F(7
$$\"3CWMg%p\"GpIF=F(7$$\"3+n;M%)=$e4$F=F(7$$\"3Ry2@zp54JF=F(7$$\"3x*))
zS2#QAJF=F(7$$\"3oXW^@'>!HJF=F(7$$\"3:,!\\*orlNJF=F(7$$\"3icNQ;ZHUJF=$
\"3x`BpIci?q!#@7$$\"3a7\"=QEK*[JF=$\"3T&)f)=kY$Rt!#?7$$\"3'opFqB)*)QKF
=$\"3!o?!pCGDp'*!#>7$$\"3j\"GP-@k)GLF=$\"32.IbrnBH=F-7$$\"3AvogCg^LMF=
$\"3!fHF6l(=cFF-7$$\"3!)ok(*Qy;QNF=$\"3W55(peNGc$F-7$$\"3:'3hsU-3j$F=$
\"3Y[wOH*z![TF-7$$\"31.da:qVBPF=$\"3!e(4#pg\\8f%F-7$$\"3'>.;\"GWDuPF=$
\"3W#46-PC&oZF-7$$\"3'3O'oS=2DQF=$\"3Q,nd!R%['*[F-7$$\"33D:(pa![]QF=$
\"3$)y%*y?fdT\\F-7$$\"3w*ocKD*)e(QF=$\"3Ij4xC!4R(\\F-7$$\"3Va=afzH,RF=
$\"3I$)f<B-S$*\\F-7$$\"3m=q#em1n#RF=$\"3=.7e#>*****\\F-7$$\"3#y6YGw,4&
RF=$\"37d\\>cPG%*\\F-7$$\"3W<_')fo4vRF=$\"3U'Q%[Kf(o(\\F-7$$\"3/<V)o&>
H**RF=$\"35k`%eZ;y%\\F-7$$\"3@;M!R0([BSF=$\"33R1%*=M<2\\F-7$$\"3a9;%zC
x=2%F=$\"3+)3!=2Sa\"z%F-7$$\"3(G\")z>Wn-7%F=$\"3r&yq%)))p5j%F-7$$\"3\"
)>\"3SiZ7A%F=$\"3[#4d/kL)eTF-7$$\"3(eUOg!yAAVF=$\"3[E<bBFa<NF-7$$\"3GE
'Rd8f\\T%F=$\"3%G*)*QaF'>!GF-7$$\"3qEGWl/p2XF=$\"33$)[`&H\"G!*>F-7$$\"
3;I_4KPr2YF=$\"3_r\"zu5B\"R5F-7$$\"3jLwu)*pt2ZF=$\"3O)Hk=_9>l%Fip7$$\"
3%G2g-.&ofZF=$!3rQIc))\\bAZF_q7$$\"3$H^s<1L;\"[F=$!3A\\#=!f,Pf)*F_q7$$
\"3-`\\G$4\"ej[F=$!3q44J7b)*)[\"F-7$$\"37$R(zC\"Hb\"\\F=$!3K/+Eod(f(>F
-7$$\"3ap<3`4(f+&F=$!3=a2Nx4,qFF-7$$\"3%o9m8y7k4&F=$!3!>nenKhOZ$F-7$$
\"3)[7[OV#4%>&F=$!3u@<j'p.d5%F-7$$\"3%Q5If3s<H&F=$!3K)y(4_&[:e%F-7$$\"
3)><9`SGAM&F=$!3u+Wv'Rg*fZF-7$$\"3+T#)pCZo#R&F=$!3A;.Jo4%**)[F-7$$\"3'
fF!R%)G\"zT&F=$!3HX.Z)eOj$\\F-7$$\"3.5B3W59VaF=$!3spFg]x;q\\F-7$$\"35W
Vx.#p$oaF=$!3qDrCW$[8*\\F-7$$\"3;yjYjtf$\\&F=$!3!yAO%eW#)**\\F-7$$\"3O
X\"pe>y#=bF=$!3?DQ[b<!e*\\F-7$$\"3X8>FG!fHa&F=$!3?o-`$))3'z\\F-7$$\"3_
\"ou1')Rwc&F=$!3UW\\p*G&G^\\F-7$$\"3s[u2$p?Bf&F=$!3SEr\\s***3\"\\F-7$$
\"3+%)H)yN#oTcF=$!3iU_**QoO%z%F-7$$\"3E>&)oAS/\"p&F=$!3'fObsKW6j%F-7$$
\"3mgiM?Rc'y&F=$!3)f+QVG/!*=%F-7$$\"3/-S+=Q3#)eF=$!3o\"QcP*eW%f$F-7$$
\"3q)>c'yB9))fF=$!39-V([\"=;#y#F-7$$\"3M&R3$R4?%4'F=$!3W2y16n;X=F-7$$
\"3OT%*>t#*\\*='F=$!3bEc6r-)QJ*F_q7$$\"3I)[!42wz%G'F=F(7$$\"3ol7a>*[lQ
'F=F(7$$\"35V?*>B+$)['F=F(7$$\"3gV+fcQqsmF=F(7$$\"3k\"pbcs0V(oF=F(7$$
\"3UCaCtt*R1(F=F(7$$\"3'>]S@!)zAE(F=F(7$$\"3kgP6>r8cuF=F(7$$\"3a'oBUw(
3fwF=F(7$$\"31%)3scLbayF=F(7$$\"3![Lqn:XW0)F=F(7$$\"37$=#z^<o_#)F=F(7$
$\"3D\\4c%fS[V)F=F(7$$\"349)))\\=:Ok)F=F(7$$\"3`eu[ncMI))F=F(7$$\"37[%
='3$R%H!*F=F(7$$\"3q(*p&pK(**>#*F=F(7$$\"3^***H>%zxC%*F=F(-%'COLOURG6&
%$RGBG$\"#5!\"\"F(F(-%*THICKNESSG6#\"\"$-%&TITLEG6#Q&ODE~76\"-%+AXESLA
BELSG6$Q!6\"Fidl-%%VIEWG6$;F($\"+izxC%*!\"*%(DEFAULTG" 1 2 0 1 10 3 2 
9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "15 7" 0 }{VIEWOPTS 1 1 0 1 1 
1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }