{VERSION 6 0 "IBM INTEL LINUX" "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 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "restart:with(linalg) :with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "p1 := (b,E )->2*b^(3/2) * sqrt(E/Pi) * exp(-b*E);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#p1Gf*6$%\"bG%\"EG6\"6$%)operatorG%&arrowGF),$**\"\"#\"\"\")9$ #\"\"$F/F0-%%sqrtG6#*&9%F0%#PiG!\"\"F0-%$expG6#,$*&F9F0F2F0F;F0F0F)F)F )" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "E1 := 3/2/b;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#E1G,$*(\"\"$\"\"\"\"\"#!\"\"%\"bGF*F(" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "p2 := (b,E)->b^3/2*E^2*exp( -b*E);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#p2Gf*6$%\"bG%\"EG6\"6$%)o peratorG%&arrowGF),$*&#\"\"\"\"\"#F0*()9$\"\"$F0)9%F1F0-%$expG6#,$*&F7 F0F4F0!\"\"F0F0F0F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 " E2 := 3/b;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#E2G,$*&\"\"$\"\"\"%\" bG!\"\"F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "p1(b,E);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,$**\"\"#\"\"\")%\"bG#\"\"$F%F&*&%\"EG F&%#PiG!\"\"#F&F%-%$expG6#,$*&F,F&F(F&F.F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "p2(b,E);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*&# \"\"\"\"\"#F&*()%\"bG\"\"$F&)%\"EGF'F&-%$expG6#,$*&F-F&F*F&!\"\"F&F&F& " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "#E/middelE = x" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 51 "pl1 := (combine@simplify)(p1(b,x*E1)) assuming b>0; " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$pl1G**%\"bG\"\"\"\"\"'#F'\"\"#* &%#PiG!\"\"%\"xGF'F)-%$expG6#,$*(\"\"$F'F*F-F.F'F-F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "pl2 := combine(simplify(p2(b,x*E2))) assu ming b>0;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$pl2G,$*&#\"\"*\"\"#\" \"\"*(%\"bGF*)%\"xGF)F*-%$expG6#,$*&\"\"$F*F.F*!\"\"F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "plot1 := plot(pl1/b,x=0..2):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "plot2 := plot(pl2/b,x=0..2): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "display(plot1,plot2);" }}{PARA 13 "" 1 "" {GLPLOT2D 672 672 672 {PLOTDATA 2 "6&-%'CURVESG6$7 \\o7$$\"\"!F)F(7$$\"3hmmTN@Ki8!#?$\"3S\"yMI?9/4&!#>7$$\"3@LL$3FWYs#F-$ \"3A*emi#pB%=(F07$$\"3#)***\\iSmp3%F-$\"3Vwl(=P&*3y)F07$$\"3VmmmT&)G\\ aF-$\"3'\\*\\-F1'=,\"!#=7$$\"3l****\\7G$R<)F-$\"3ZJB(**e;UB\"F@7$$\"3H LLL3x&)*3\"F0$\"3yWxg/zL>9F@7$$\"3$*****\\ilyM;F0$\"3\"*f%zkwvTs\"F@7$ $\"3dmmm;arz@F0$\"3&*[Z)oZ*pu>F@7$$\"3')*****\\7t&pKF0$\"3iy=r:rGzBF@7 $$\"39LLLL3VfVF0$\"3Ot'z>q:Gq#F@7$$\"30++]i&*)fD'F0$\"3Av)euD%)p9$F@7$ $\"3&pmm;H[D:)F0$\"3%3QiL*3r\"\\$F@7$$\"3-++v$pU&G5F@$\"3GjL`\"Rm%)z$F @7$$\"3MLLLe0$=C\"F@$\"39`]e\"G\\B/%F@7$$\"3JLLLLA`c9F@$\"3BH8S4V7RUF@ 7$$\"3ILLL3RBr;F@$\"3SY!Rd*e\"pR%F@7$$\"3Ymm;zjf)4#F@$\"3FdfD!\\*f<[F@7$$\"32mm;HdA+&F@$\"3wtSFp3b: YF@7$$\"3()******\\Z/NaF@$\"3z$RUc;!f3XF@7$$\"3&*******\\$fC&eF@$\"3OQ ![e$)oXR%F@7$$\"3ELL$ez6:B'F@$\"3u)[7HU7SG%F@7$$\"3Rmmm;=C#o'F@$\"3%G= /_8Bi9%F@7$$\"3-mmmm#pS1(F@$\"3Y@q*3KNd-%F@7$$\"3]****\\i`A3vF@$\"3wUk !HHkG)QF@7$$\"3slmmm(y8!zF@$\"3;H-$H$f6bPF@7$$\"3V++]i.tK$)F@$\"3om;b+ Sk9OF@7$$\"39++](3zMu)F@$\"3(3WoYe<9[$F@7$$\"3\"pmm;H_?<*F@$\"3*>m?@&o qVLF@7$$\"3dmm;zihl&*F@$\"3UEd?j4%*=KF@7$$\"3;LLL3#G,***F@$\"3Q_Py=9l' 3$F@7$$\"3F@7$$\"3(******\\)Hxe9F]x$\"3KM[9Pi\\r= F@7$$\"3Ymm\"H!o-*\\\"F]x$\"3LCqJ'z!)fy\"F@7$$\"3))***\\7k.6a\"F]x$\"3 cPJ0%[6,q\"F@7$$\"3emmmT9C#e\"F]x$\"36lZH6sc>;F@7$$\"3\"****\\i!*3`i\" F]x$\"3Ul;([>t(Q:F@7$$\"3QLLL$*zym;F]x$\"3&[ZV00&Gk9F@7$$\"3GLL$3N1#4< F]x$\"3Uku=RBR\"R\"F@7$$\"3kmm\"HYt7v\"F]x$\"3$pTnr*\\GA8F@7$$\"3&**** ***p(G**y\"F]x$\"3[Jz7j8\\h7F@7$$\"3lmm;9@BM=F]x$\"3OY()o,E!\\>\"F@7$$ \"3ELLL`v&Q(=F]x$\"38F5@Nk/Q6F@7$$\"30++DOl5;>F]x$\"3ifz'H#o8!3\"F@7$$ \"3/++v.Uac>F]x$\"3,#p'o/yBF5F@7$$\"\"#F)$\"3f!HGfmM/t*F0-%'COLOURG6&% $RGBG$\"#5!\"\"F(F(-F$6$7[oF'7$F<$\"3#*)zOk3'f98!#@7$FG$\"3Kh1SI)>J<&F ``l7$FL$\"3#*o<8A&y]9\"F-7$FQ$\"3?cf\"fU'o-?F-7$FV$\"3aNlx3&)4hVF-7$Fe n$\"3+R!*Rv6n.vF-7$Fjn$\"3)z_'))e)4)f9F07$F_o$\"3Q]!*Q?'o>M#F07$Fdo$\" 3ki![3(Gj'\\$F07$Fio$\"3QL:h#oY7y%F07$F^p$\"3U)[e(3i8nhF07$Fcp$\"3+-H5 dZ!Gh(F07$$\"3-++vV^\"\\)=F@$\"3bb*zMMsE3*F07$Fhp$\"3]l,_v0'f0\"F@7$$ \"3q****\\Piq'H#F@$\"3c$RNL_h<>\"F@7$F]q$\"3jl3e%>'3D8F@7$Fbq$\"3`GfYS IKf9F@7$Fgq$\"30Y$z3,e')e\"F@7$Far$\"3?Y`_2/@P=F@7$F[s$\"34\"z!pVkab?F @7$F`s$\"3L%Qo7V5mC#F@7$Fes$\"3s)zRBjNfQ#F@7$Fjs$\"3_CV>)3\"p5DF@7$F_t $\"3-z%*fJ&HJg#F@7$Fdt$\"3MNQx^p1jEF@7$$\"3/mm\"Hd&)>/'F@$\"3qZ!z'3;Y \"o#F@7$Fit$\"3G\\394p1FF@7$$\"3vmmmTb:toF@$\"3uCnS#fiTq#F@7$Fcu$\"3i0:^l$pup#F@7 $Fhu$\"3(et,*zK=nEF@7$F]v$\"3D^;q\\)*=DEF@7$Fbv$\"3I6s5)**[_c#F@7$Fgv$ \"35h2eot$p\\#F@7$F\\w$\"3U&4B5]1iT#F@7$Faw$\"3y+dq\")*R`L#F@7$Ffw$\"3 1<\"*pv'GEC#F@7$F[x$\"3y\")pb!yF@7$F[y$\"3e/-_yTq^=F@7$F`y$\"3iR9K\"[uCv\"F@7$Fey$\"3Jp/,#3@xl \"F@7$Fjy$\"3$=$4X#HjYb\"F@7$F_z$\"3>Ndw=#*\\k9F@7$Fdz$\"38[Ekj)47P\"F @7$Fiz$\"3\"RU%*3**>'*G\"F@7$F^[l$\"360o6i@'Q?\"F@7$Fc[l$\"3)GZ+FI6m7 \"F@7$Fh[l$\"3tFh%[2P&\\5F@7$F]\\l$\"3sl9\"e@;(y(*F07$Fb\\l$\"3+?I0#*= on!*F07$Fg\\l$\"3EQogYXf?%)F07$F\\]l$\"3[Z\"p([Ff'z(F07$Fa]l$\"3*\\[E* 3'\\Y@(F07$Ff]l$\"3xF3`9fV6nF07$F[^l$\"3L;gu,LkqhF07$F`^l$\"39**\\fK(4 $=dF07$Fe^l$\"3'R:$HpLIn_F07$Fj^l$\"3*yR8%38bk[F07$F__l$\"3XX%**z\"Rvh WF0Fc_l-%+AXESLABELSG6%Q\"x6\"Q!Ff\\m-%%FONTG6#%(DEFAULTG-%%VIEWG6$;F( F__lF[]m" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Cur ve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "14 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }