{VERSION 5 0 "IBM INTEL NT" "5.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 } {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" -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 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 "" {MPLTEXT 1 0 24 "restart; with(inttra ns):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 " addtable(lapl ace,f(t),F(s),t,s);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 271 "d gl := diff(f(t),t,t)-diff(f(t),t)-2*f(t) = 0;\ninit := f(0) = 1,D(f)( 0) = 0: \n\n# dgl := diff(f(t),t,t)+f(t) = sin(2*t);\n# init := f(0) \+ = 2,D(f)(0) = -1: \n\n# dgl := diff(f(t),t,t)+diff(f(t),t)+5/4* f(t) \+ = Heaviside(t)- Heaviside(t-Pi);\n# init := f(0) = 0,D(f)(0) = 0: \n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$dglG/,(-%%diffG6$-%\"fG6#%\"tG-% \"$G6$F-\"\"#\"\"\"-F(6$F*F-!\"\"*&F1F2F*F2F5\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "L_dgl_1 := laplace(dgl,t,s);" }}{PARA 11 " " 1 "" {XPPMATH 20 "6#>%(L_dgl_1G/,,*&%\"sG\"\"\",&*&F(F)-%\"FG6#F(F)F )-%\"fG6#\"\"!!\"\"F)F)--%\"DG6#F0F1F3F+F3F/F)*&\"\"#F)F,F)F3F2" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 33 "\nL_dgl_2 := subs(init,L_dgl_1); \n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%(L_dgl_2G/,**&%\"sG\"\"\",&*&F(F)-%\"FG6#F(F)F)F )!\"\"F)F)F)F)F+F/*&\"\"#F)F,F)F/\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "eq := solve(L_dgl_2,F(s));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#eqG*&,&%\"sG\"\"\"F(!\"\"F(,(*$)F'\"\"#F(F(F'F)F-F)F )" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "g:=unapply(invlaplace( eq,s,t),t);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"gGf*6#%\"tG6\"6$%)o peratorG%&arrowGF(*&-%$expG6#,$*&#\"\"\"\"\"#F39$F3F3F3,&-%%coshG6#,$* &#\"\"$F4F3F5F3F3F3*&#F3F=F3-%%sinhGF9F3!\"\"F3F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "plot(g(t),t=0..2);" }}{PARA 13 "" 1 "" {GLPLOT2D 362 362 362 {PLOTDATA 2 "6%-%'CURVESG6$7S7$$\"\"!F)$\"\"\"F)7$$\"39LLLL3Vf V!#>$\"3&G/gk**G>+\"!#<7$$\"3'pmm;H[D:)F/$\"3GHXVu$Qo+\"F27$$\"3LLLLe0 $=C\"!#=$\"30a\"RP#=7;5F27$$\"3ILLL3RBr;F;$\"3%)G!>!Q2m7\"F27$$\"3_** **\\7iI_PF;$\"3Eq>WE%zS;\"F27$$\"3#pmmm@Xt=%F;$\"3g3jZrkv37F27$$\"3QLL L3y_qXF;$\"31@:s$H7OD\"F27$$\"3i******\\1!>+&F;$\"30%>G(o`r58F27$$\"3( )******\\Z/NaF;$\"3G!zmPX.cP\"F27$$\"3'*******\\$fC&eF;$\"3-vc<@&QeW\" F27$$\"3ELL$ez6:B'F;$\"3/A%=A)[l;:F27$$\"3Smmm;=C#o'F;$\"3wpeMFmC5;F27 $$\"3-mmmm#pS1(F;$\"3'y55lF3\")p\"F27$$\"3]****\\i`A3vF;$\"3jW)fI135\" =F27$$\"3slmmm(y8!zF;$\"33J[N0kG@>F27$$\"3V++]i.tK$)F;$\"39:\\)4\"oOa? F27$$\"39++](3zMu)F;$\"3KXj=K,z$>#F27$$\"3#pmm;H_?<*F;$\"3)o+Xw8qNN#F2 7$$\"3emm;zihl&*F;$\"3!f2f9D7U^#F27$$\"39LLL3#G,***F;$\"3,=BY/el.FF27$ $\"3HF27$$\"3!****\\PQ#\\\"3\"F2$\"3AP83:'y]7$F 27$$\"3BLL$e\"*[H7\"F2$\"3?zdq:6^mLF27$$\"3#*******pvxl6F2$\"3HRv-X$*4 ROF27$$\"3z****\\_qn27F2$\"3^$[b<*\\]IRF27$$\"3%)***\\i&p@[7F2$\"3KU@G **)>xB%F27$$\"3#)****\\2'HKH\"F2$\"3'y\")zj`u/h%F27$$\"3_mmmwanL8F2$\" 3-Bx#4`gi(\\F27$$\"3'******\\2goP\"F2$\"30-O!y)3*=S&F27$$\"3CLLeR<*fT \"F2$\"3Joe4#f\"\\@eF27$$\"3'******\\)Hxe9F2$\"3f02\"41&H?jF27$$\"3Ymm \"H!o-*\\\"F2$\"3F2$\"3-+jr?;j[:Ffx7$$\"3/++v.Uac>F2$\"3O0NU_ j'yn\"Ffx7$$\"\"#F)$\"3D:Rl'og*G=Ffx-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-% +AXESLABELSG6$Q\"t6\"Q!Fe[l-%%VIEWG6$;F(Ffz%(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 "" {MPLTEXT 1 0 0 "" }}}}{MARK "10 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }