{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 "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plo t" 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 {PARA 0 "" 0 "" {TEXT -1 114 "numerical_sol_ie.mws 10/27/04 \nNumerically solving an integral equation, representing function by a cubic spline." }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "?spline" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1032 "restart:\nwith(CurveFitti ng):\nN:=8;\na:=0; b:=1;\ngridpoint:=i->a+i*(b-a)/N;\nk:=(x,y)->piecew ise(x[seq([gridpoint(i),\n \+ ydata[i+1]],i=0..N)];\nmake_int:=proc(U)\n loc al spline_interpolant;\n spline_interpolant:=unapply(Spline(gen_xyda ta(U),y),y);\n [seq( evalf(Int(k(x,y)*spline_interpolant(y),y=a..b) \+ ) ,x=[seq(gridpoint(i),i=0..N)])];\nend proc;\nIE:=U->op(exp and(make_int(U)-lambda*U-[seq(f(x),\n x=[seq(gridpoint(i) ,i=0..N)])]));\nlambda:=0.25;\nf:=x->x;\n# FSOLVE is going to call cal lback with a SEQUENCE of args, not a LIST.\n# So use this wrapper to c onvert sequence to list:\nIE_wrapper:=proc()\n IE([args]);\nend proc ;\nUs:=seq(U[i],i=0..N);\nfsolve(\{IE_wrapper(Us)\},\{Us\});\nassign(% );\nUs;\nspline_interpolant:=V->unapply(Spline(V,y),y);\nxy:=gen_xydat a([Us]);\nnumsol:=spline_interpolant(xy);\n#residual:=int(k(x,y)*numso l(y),y=0..1)-lambda*numsol(y)-f(x);\n#plot(residual,x=0..1);\nnumplot: =plot(numsol(x),x=0..1,color=blue):\nplots[display](numplot);\n\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"NG\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG\" \"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%*gridpointGj+6#%\"iG6\"6$%)o peratorG%&arrowGF(,&%\"aG\"\"\"*(9$F.,&%\"bGF.F-!\"\"F.%\"NGF3F.F(F(F( 6#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"kGj+6$%\"xG%\"yG6\"6$%) operatorG%&arrowGF)-%*piecewiseG6%29$9%*&F1\"\"\",&F4F4F2!\"\"F4*&F2F4 ,&F4F4F1F6F4F)F)F)6$\"\"!F:" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+gen_ xydataGj+6#%&ydataG6\"6$%)operatorG%&arrowGF(7#-%$seqG6$7$-%*gridpoint G6#%\"iG&9$6#,&F4\"\"\"F9F9/F4;\"\"!%\"NGF(F(F(6#F<" }}{PARA 12 "" 1 " " {XPPMATH 20 "6#>%)make_intGj+6#%\"UG6#%3spline_interpolantG6\"F*C$>8 $-%(unapplyG6$-_%-CurveFittingG%'SplineG6$-%+gen_xydataG6#9$%\"yGF:7#- %$seqG6$-%&evalfG6#-%$IntG6$*&-%\"kG6$%\"xGF:\"\"\"-F-6#F:FJ/F:;%\"aG% \"bG/FI7#-F=6$-%*gridpointG6#%\"iG/FX;\"\"!%\"NGF*F*F*6#Fen" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#IEGj+6#%\"UG6\"6$%)operatorG%&arrowGF(-%# opG6#-%'expandG6#,(-%)make_intG6#9$\"\"\"*&%'lambdaGF7F6F7!\"\"7#,$-%$ seqG6$-%\"fG6#%\"xG/FC7#-F>6$-%*gridpointG6#%\"iG/FK;\"\"!%\"NGF:F7F(F (F(6#FN" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'lambdaG$\"#D!\"#" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fGj+6#%\"xG6\"6$%)operatorG%&arrow GF(9$F(F(F(6#\"\"!" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%+IE_wrapperGj+ 6\"F&F&F&-%#IEG6#7#9\"F&F&F&6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%# UsG6+&%\"UG6#\"\"!&F'6#\"\"\"&F'6#\"\"#&F'6#\"\"$&F'6#\"\"%&F'6#\"\"&& F'6#\"\"'&F'6#\"\"(&F'6#\"\")" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#<+/&% \"UG6#\"\"($!+[&H%GV!\"*/&F&6#\"\")$!+++++SF+/&F&6#\"\"#$!+@l$*3@F+/&F &6#\"\"\"$!+%o+$)3\"F+/&F&6#\"\"$$!+F%\\%)*HF+/&F&6#\"\"!$FGFG/&F&6#\" \"%$!+**\\`,PF+/&F&6#\"\"&$!+!ovW<%F+/&F&6#\"\"'$!+T!zyQ%F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6+$\"\"!F$$!+%o+$)3\"!\"*$!+@l$*3@F'$!+F%\\%)* HF'$!+**\\`,PF'$!+!ovW<%F'$!+T!zyQ%F'$!+[&H%GVF'$!+++++SF'" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%3spline_interpolantGj+6#%\"VG6\"6$%)operat orG%&arrowGF(-%(unapplyG6$-_%-CurveFittingG%'SplineG6$9$%\"yGF5F(F(F(6 #\"#<" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%#xyG7+7$\"\"!$F'F'7$#\"\"\" \"\")$!+%o+$)3\"!\"*7$#F+\"\"%$!+@l$*3@F/7$#\"\"$F,$!+F%\\%)*HF/7$#F+ \"\"#$!+**\\`,PF/7$#\"\"&F,$!+!ovW<%F/7$#F7F2$!+T!zyQ%F/7$#\"\"(F,$!+[ &H%GVF/7$F+$!+++++SF/" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%'numsolGj+6 #%\"yG6\"6$%)operatorG%&arrowGF(-%*piecewiseG6129$#\"\"\"\"\"),&*&$\"3 q+++/,g(z)!#@Y&F8F2)FMF>F2F22F0#F>F3,*$\"*GOty\"FEF9 *&$\"3g*****4d63s(F8F2F0F2F9*&$\"3/b%H?$f'pB%F8F2),&F0F2#F2FAF9FOF2F2* &$\"3k*****HB0c![F8F2)FjnF>F2F22F0#F2FO,*$\"*uT$[eFEF9*&$\"3,+++TtIOkF 8F2F0F2F9*&$\"3*Ra*)[*y1RgF8F2),&F0F2#F>F3F9FOF2F2*&$\"3!******Hz88j$F 8F2)F\\pF>F2F22F0#\"\"&F3,*$\"+JPPB8FEF9*&$\"3!)*****\\`Ajv%F8F2F0F2F9 *&$\"3GrBTo0\"3S(F8F2),&F0F2#F2FOF9FOF2F2*&$\"3z*****4-HD0$F8F2)F_qF>F 2F22F0#F>FA,*$\"+4.eZCFEF9*&$\"3:+++$fKIw#F8F2F0F2F9*&$\"3Mq4Y^*3ba)F8 F2),&F0F2#FdpF3F9FOF2F2*&$\"3H+++`W1Dz!#=F2)FarF>F2F92F0#\"\"(F3,*$\"+ pf-!*QFEF9*&$\"35+++g4/QmFfrF2F0F2F9*&$\"3lSPuL!>$[#)F8F2),&F0F2#F>FAF 9FOF2F2*&$\"3L+++d-0NpF8F2)FesF>F2F2,*$\"+uhOOeFEF9*&$\"3.+++WhNBF2F9F(F(F(6#\"\"!" }}{PARA 13 "" 1 "" {GLPLOT2D 387 387 387 {PLOTDATA 2 "6%-%'CURVESG6$7S7$$\"\"!F)F(7$$\"3dmmm;arz@!#>$!38^(zR-Aq \">!#=7$$\"3[LL$e9ui2%F-$!3(=WO.()*=#e$F07$$\"3nmmm\"z_\"4iF-$!3YQo!)> Ff[aF07$$\"3[mmmT&phN)F-$!3=RYaz&ptJ(F07$$\"3BLLe*=)H\\5F0$!3yM/2qp(Q; *F07$$\"3gmm\"z/3uC\"F0$!3v*ecG:\"4'3\"!#<7$$\"3%)***\\7LRDX\"F0$!3'\\ l&*\\J-+E\"FJ7$$\"3^mm\"zR'ok;F0$!3l\\Kw&yEwV\"FJ7$$\"3w***\\i5`h(=F0$ !3?v+#Qh7@h\"FJ7$$\"3YLLL3En$4#F0$!3Sm!>P\"**e)y\"FJ7$$\"3qmm;/RE&G#F0 $!3xUmC!=V7%>FJ7$$\"3\")*****\\K]4]#F0$!3b6n]5-n4@FJ7$$\"3$******\\PAv r#F0$!3(*=#p\\AF[F#FJ7$$\"3(******\\nHi#HF0$!3AY2aF0$!3>\")Q1VSFJ7$$\"3'*)***\\i_QQgF0$!3\"Hf^ t,3A6%FJ7$$\"3@***\\7y%3TiF0$!3F:ff&e0?<%FJ7$$\"36****\\P![hY'F0$!37`) y.j8-B%FJ7$$\"3jKLL$Qx$omF0$!3;xl\"Rsu^F%FJ7$$\"3!)*****\\P+V)oF0$!3z< %3)[ab:VFJ7$$\"3?mm\"zpe*zqF0$!3Dkbz(*[QXVFJ7$$\"3%)*****\\#\\'QH(F0$! 3(H*=$)>RoqVFJ7$$\"3GKLe9S8&\\(F0$!3@#)pJ\"3avQ%FJ7$$\"3R***\\i?=bq(F0 $!3#oku,KxzR%FJ7$$\"3\"HLL$3s?6zF0$!3#o!eMVdu+WFJ7$$\"3a***\\7`Wl7)F0$ !395iJsTQ&R%FJ7$$\"3#pmmm'*RRL)F0$!3Nd\\`)y]=Q%FJ7$$\"3Qmm;a<.Y&)F0$!3 #\\MF3*e7fVFJ7$$\"3%yKFVFJ7$$\"3t******\\Qk\\*)F0$ !3(f9v#p)H**G%FJ7$$\"3DLL$3dg6<*F0$!3ByguEjwQUFJ7$$\"3HmmmmxGp$*F0$!3( )**\\<'ynp=%FJ7$$\"3B++D\"oK0e*F0$!3=r0O7(Qq7%FJ7$$\"3B++v=5s#y*F0$!3I q,])y8m1%FJ7$$\"\"\"F)$!3Khb(*********RFJ-%'COLOURG6&%$RGBGF(F($\"*+++ +\"!\")-%+AXESLABELSG6$Q\"x6\"Q!Fb[l-%%VIEWG6$;F(Fcz%(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 164 "pi:=evalf(Pi):\nu:=(N)->una pply(add(2.0*sin(n*pi*x)*(-1)^(n-1)/(n*pi*(1/(n^2*pi^2)-lambda)),n=1.. N),x);\nu(3)(x);\neplot:=plot(u(57)(x),x=0..1):\nplots[display](eplot) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"uGj+6#%\"NG6\"6$%)operatorG%& arrowGF(-%(unapplyG6$-%$addG6$**$\"#?!\"\"\"\"\"-%$sinG6#*(%\"nGF6%#pi GF6%\"xGF6F6)F5,&F;F6F6F5F6*(F;F6F$! 3FJ7$$\"3\")*****\\K]4]#F0$!3sR]9yz0K@FJ7$$\"3$******\\P Avr#F0$!3qw?v/wZ_AFJ7$$\"3(******\\nHi#HF0$!39\"e**>4#zUCFJ7$$\"3*)*** **p*ev:JF0$!3tRh.F1ygDFJ7$$\"3$)*****z!47TLF0$!3H0Asw\\r4FFJ7$$\"3(*** ****pxdOMF0$!3K6ig*HcMx#FJ7$$\"3?+++LY.KNF0$!3jfgqi.+xGFJ7$$\"3(****** pltIk$F0$!3;Sov\"4\"=LHFJ7$$\"3t*****4o7Tv$F0$!3*\\ov>hWb(HFJ7$$\"3<++ +K5S_QF0$!3[sjrS4GwIFJ7$$\"30+++$Q*o]RF0$!3QO[qoyKYJFJ7$$\"3?+++\"=lj; %F0$!3nXe(Q2^AD$FJ7$$\"3++++V&R6`U%F0$!3U\\n*)[&zhP$FJ7$$\"3x******=q4_W F0$!3'RLODSN?R$FJ7$$\"3-+++WG))yWF0$!3(pFMcIHTT$FJ7$$\"3++++%\\aC`%F0$ !3d-_VKIPpMFJ7$$\"30+++Xh-'e%F0$!3jnvTl\\]>NFJ7$$\"3E+++UrT%o%F0$!3u** [Fod8]NFJ7$$\"3\"*******Q\"3Gy%F0$!3\\#HNyVKYc$FJ7$$\"3')*****47O*))[F 0$!3-G?@s$FJ7$$\"3'******\\#)> /;&F0$!3@Q))fA'*e[PFJ7$$\"3@+++(RQb@&F0$!3#pl\">$4N)*z$FJ7$$\"3`+++=>Y 2aF0$!39nC^)QfG(QFJ7$$\"3N+++]APLaF0$!3_u*=I@T+(QFJ7$$\"3T+++&e#GfaF0$ !3O5z\")H*f?(QFJ7$$\"3Y+++?H>&[&F0$!3B\"RN>,23)QFJ7$$\"37+++]K56bF0$!3 #QS;ck:n*QFJ7$$\"3$)*****\\\"R#Hc&F0$!36K_tE7:WRFJ7$$\"3\\+++yXu9cF0$! 3?O,y(puD*RFJ7$$\"3!)*****\\[7:k&F0$!383qjj8v4SFJ7$$\"3Z+++&R!GocF0$!3 ZQ)QIW[*=SFJ7$$\"3/+++0$[]p&F0$!3i!*3x\\^F?SFJ7$$\"3f*****\\@;=s&F0$!3 )[1f,yGc,%FJ7$$\"3')******>Te[dF0$!3c&=qXVw#3SFJ7$$\"3`+++I?NvdF0$!3b2 '*enp6-SFJ7$$\"34+++S*>@!eF0$!3.kTzm'*y+SFJ7$$\"3d******[y))GeF0$!3Nj_ #e8Lo+%FJ7$$\"3J+++bljLfF0$!3#3NS13DC4%FJ7$$\"3.+++i_QQgF0$!3G+*[#e<2T TFJ7$$\"3&*******R,1*3'F0$!38Qjs\"R\\e7%FJ7$$\"30+++?]tRhF0$!36F&RG$f- 6TFJ7$$\"3a******fC2lhF0$!3k%**puTr<6%FJ7$$\"37++++*4/>'F0$!34yJv1%Q.7 %FJ7$$\"3i******Rtu:iF0$!3x!>R,:kl8%FJ7$$\"3A+++!y%3TiF0$!3@#e$\\_oneT FJ7$$\"3s*****\\f]tH'F0$!3uiGI3qi7UFJ7$$\"3K+++5kh`jF0$!3yl36)z%*HC%FJ 7$$\"3t******>$\\a'F0$!39]'GR$3l3UFJ7$$\"3G+++5FEnlF0$!3He>C\\:EDU FJ7$$\"3@+++X+#yh'F0$!3-NxqDxQ%FJ7$ $\"3y*****\\S,b0(F0$!3_5qX7IF\"R%FJ7$$\"3Y*****ppe*zqF0$!3LH&\\l!\\P&Q %FJ7$$\"3?+++b_VLrF0$!3@M?&)*yM(\\VFJ7$$\"3e******4=\"p=(F0$!3ldt'=n6` J%FJ7$$\"3,+++!4]O@(F0$!3tpj!4a=3J%FJ7$$\"30+++l$)QSsF0$!3A/6QZT6=VFJ7 $$\"3\\+++Xm7nsF0$!3M$[^XK5kL%FJ7$$\"3w*****R#\\'QH(F0$!3S$yft)zLiVFJ7 $$\"3w******fN->tF0$!3(R^;CrT!*Q%FJ7$$\"3q*****\\>#=WtF0$!32pKt[=&HT%F J7$$\"3i******H3MptF0$!3=Ud7#)efHWFJ7$$\"3'*******p%*\\%R(F0$!3A@]I8^) eV%FJ7$$\"3*)*****\\5e'>uF0$!37g`S.7xIWFJ7$$\"3#)******Rn\"[W(F0$!3?l. xDy\\:WFJ7$$\"3v*****\\Pv*puF0$!3K,)o=n)Q$R%FJ7$$\"3#******H,M^\\(F0$! 3(eVJTd1#pVFJ7$$\"3o*****\\.K9_(F0$!3$H8a[06uM%FJ7$$\"3p******f+tZvF0$ !3H*e?k3$RMVFJ7$$\"3p*****\\3GSd(F0$!3\"4bH%3vdLVFJ7$$\"3p******4hK+wF 0$!3G^qy$H0dM%FJ7$$\"3p******f@#Hl(F0$!3]uym7Hl(R%FJ7$$\"3S+++0#=bq(F0 $!35S)p;T*R\\WFJ7$$\"37+++I$H7t(F0$!3#[xHo2W1Y%FJ7$$\"3%)*****\\XSpv(F 0$!3>RL-QH]eWFJ7$$\"3d******z:l#y(F0$!3U(ol.<[KW%FJ7$$\"3S+++0FO3yF0$! 3hPle6(QzT%FJ7$$\"3&)*****\\&\\yfyF0$!3AkWJB\\HfVFJ7$$\"3Y*****p?27\"z F0$!3,.>(\\rj+L%FJ7$$\"3\\*******ylY#zF0$!3X(*f#fF!RJVFJ7$$\"3o*****\\ PC\"QzF0$!3(3Fsud%oOVFJ7$$\"3()******fHe^zF0$!3m=[(Q&HnXVFJ7$$\"3k**** **R:/lzF0$!3a=T1t!eyN%FJ7$$\"3g*****\\qe>*zF0$!3!3M$\\K>)))Q%FJ7$$\"3d ******pe()=!)F0$!3,B/*[)GfAWFJ7$$\"3a*****\\.$zX!)F0$!3s%3#[*ez4X%FJ7$ $\"3]*******>5F2)F0$!3]#*y?))f.nWFJ7$$\"3[*****\\OF'*4)F0$!3=h0d=)GkY% FJ7$$\"3a+++IXaE\")F0$!3>dGxV^e[WFJ7$$\"3b+++!R$Ry\")F0$!3$4_Av]86Q%FJ 7$$\"3a+++]ACI#)F0$!3B/D.Hqt;VFJ7$$\"3)*******zm;c#)F0$!32c7pT7:.VFJ7$ $\"3a+++564#G)F0$!3N+\\\")4*ppI%FJ7$$\"3)*******Rb,3$)F0$!3u@7-A[YFVFJ 7$$\"37+++l*RRL)F0$!3%R,W6LB-O%FJ7$$\"3i******R9Xg$)F0$!3u57)p([%))R%F J7$$\"3$)******4H'pQ)F0$!3B59o?X_LWFJ7$$\"3z******\\'=-S)F0$!3<7%fNe,tE%)F0$!3mcY)>dz* fWFJ7$$\"3&*******fe)*R%)F0$!3?'*3PFi=fWFJ7$$\"3m*****\\!)3I\\)F0$!3P% Gseo0pS%FJ7$$\"3i*****HvJga)F0$!3g4QJ#z/AJ%FJ7$$\"3l*******pBBd)F0$!3c &e2Y'*fFF%FJ7$$\"3_*****\\k:')f)F0$!3RY]5@'e,D%FJ7$$\"3B+++?;w6')F0$!3 ]+\"Rk(Q!pC%FJ7$$\"3^+++!f2\\i)F0$!3)RmD-^o$\\UFJ7$$\"3p******fN0Q')F0 $!3Yx-?@=UdUFJ7$$\"3R+++N&*>^')F0$!3K53sDLhqUFJ7$$\"38+++DMy.()F0$!3)* \\,hMa5cVFJ7$$\"3r*****HJnjv)F0$!3PVy?'3N4V%FJ7$$\"3g******zb+`))F0$!3 t#H[(pg%FJ7$$\"3k******>ErK!*F0$!3 <0cK87BdUFJ7$$\"3N+++5ASg!*F0$!3m?Fj\"zI[K%FJ7$$\"3&********z\"4)3*F0$ !36ZHz(GhJQ%FJ7$$\"3a*******Q\"y:\"*F0$!3)RI&\\\"4YaT%FJ7$$\"3X+++&=E' H\"*F0$!3\"\\\\2ImszT%FJ7$$\"3D+++!)4ZV\"*F0$!3vh,(QFl.T%FJ7$$\"30+++v dJd\"*F0$!3Gg_(4P#e#R%FJ7$$\"3w******o0;r\"*F0$!3![\"RW5r@lVFJ7$$\"3X* ****\\O#p?#*F0$!3d9.d_[`7UFJ7$$\"3Y*****\\;C-F*F0$!3XQ78OtCfSFJ7$$\"3- +++:rg#G*F0$!3r_\"*4%eI^.%FJ7$$\"3[*****\\1!*\\H*F0$!3#z)y_M#p(>SFJ7$$ \"3.+++:IP2$*F0$!3a+XLsd49SFJ7$$\"3[*****\\'fv>$*F0$!3+'Q@CK*e=SFJ7$$ \"3[*****\\'=_W$*F0$!3\")yBbw6^dSFJ7$$\"3\\*****\\w(Gp$*F0$!3*f**4%)*p OITFJ7$$\"3i*******)*)4A%*F0$!3p%e;HV[,L%FJ7$$\"3;+++?-\"\\Z*F0$!3y`s+ YRWMWFJ7$$\"3f******\\9sF&*F0$!3!>e_\"*Gd@J%FJ7$$\"38+++!oK0e*F0$!3$eS KGK;5,%FJ7$$\"3^+++?i!eg*F0$!3W\"='=/@@mQFJ7$$\"3=+++l(z5j*F0$!3vCa2/z 2jPFJ7$$\"3b+++]\")RP'*F0$!3D'fS!HE9ZPFJ7$$\"3B+++SlrV'*F0$!3lcz*[X\") et$FJ7$$\"3\\*****\\#\\.]'*F0$!3Ef()HQ^eHPFJ7$$\"3')******4LNc'*F0$!3? [G3;A\\GPFJ7$$\"3\\******z+**o'*F0$!3M*4ko[#eUPFJ7$$\"3C+++]oi\"o*F0$! 3K>-e6N&)yPFJ7$$\"3\\*******Q+pq*F0$!3+=J&Qd*H:RFJ7$$\"3G+++NR3dZFJ7$$\"37++++2i])*F0$!3A,b\"*R0U#o%FJ7$$\"3T+++S1?k)*F0$!3 Q&=aY>Pva%FJ7$$\"3H+++v0yx)*F0$!3R*o&*pVj$[VFJ7$$\"3;+++50O\"*)*F0$!3Y ddRQsx#3%FJ7$$\"3/+++X/%\\!**F0$!3#GN7Eof2v$FJ7$$\"3\"*******z._=**F0$ !3%>KvK%zYaLFJ7$$\"3^******\\.JD**F0$!3h%)[_.k[LJFJ7$$\"3@+++?.5K**F0$ !3uuOQ**)>#)*GFJ7$$\"3!)*******G!*)Q**F0$!3H4[(4sG&\\EFJ7$$\"33+++b-oX **F0$!3t\"))\\-l!R)Q#FJ7$$\"3P+++?-Z_**F0$!3U^a5QD*e6#FJ7$$\"3'******* *=g#f**F0$!3Uax3T;AL=FJ7$$\"3b******f,0m**F0$!326+a#*flT:FJ7$$\"3D+++I ,%G(**F0$!3&)G0;gFbU7FJ7$$\"3%)*******4I'z**F0$!3()>(fOhlLP*F07$$\"38+ ++l+U')**F0$!3a9i624([F'F07$$\"3S+++I+@$***F0$!3$*>%HtX__9$F07$$\"\"\" F)$\"38vcAxG0;i!#D-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%+AXESLABELSG6$Q\"x 6\"Q!F`[o-%%VIEWG6$;F(F`jn%(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 30 "plots[display](numplot,eplot);" }}{PARA 13 "" 1 "" {GLPLOT2D 387 387 387 {PLOTDATA 2 "6&-%'CURVESG6$7S7$$\"\"!F)F(7$$\"3d mmm;arz@!#>$!38^(zR-Aq\">!#=7$$\"3[LL$e9ui2%F-$!3(=WO.()*=#e$F07$$\"3n mmm\"z_\"4iF-$!3YQo!)>Ff[aF07$$\"3[mmmT&phN)F-$!3=RYaz&ptJ(F07$$\"3BLL e*=)H\\5F0$!3yM/2qp(Q;*F07$$\"3gmm\"z/3uC\"F0$!3v*ecG:\"4'3\"!#<7$$\"3 %)***\\7LRDX\"F0$!3'\\l&*\\J-+E\"FJ7$$\"3^mm\"zR'ok;F0$!3l\\Kw&yEwV\"F J7$$\"3w***\\i5`h(=F0$!3?v+#Qh7@h\"FJ7$$\"3YLLL3En$4#F0$!3Sm!>P\"**e)y \"FJ7$$\"3qmm;/RE&G#F0$!3xUmC!=V7%>FJ7$$\"3\")*****\\K]4]#F0$!3b6n]5-n 4@FJ7$$\"3$******\\PAvr#F0$!3(*=#p\\AF[F#FJ7$$\"3(******\\nHi#HF0$!3A< cY2aF0$!3>\")Q1VSFJ7$$\"3 '*)***\\i_QQgF0$!3\"Hf^t,3A6%FJ7$$\"3@***\\7y%3TiF0$!3F:ff&e0?<%FJ7$$ \"36****\\P![hY'F0$!37`)y.j8-B%FJ7$$\"3jKLL$Qx$omF0$!3;xl\"Rsu^F%FJ7$$ \"3!)*****\\P+V)oF0$!3z<%3)[ab:VFJ7$$\"3?mm\"zpe*zqF0$!3Dkbz(*[QXVFJ7$ $\"3%)*****\\#\\'QH(F0$!3(H*=$)>RoqVFJ7$$\"3GKLe9S8&\\(F0$!3@#)pJ\"3av Q%FJ7$$\"3R***\\i?=bq(F0$!3#oku,KxzR%FJ7$$\"3\"HLL$3s?6zF0$!3#o!eMVdu+ WFJ7$$\"3a***\\7`Wl7)F0$!395iJsTQ&R%FJ7$$\"3#pmmm'*RRL)F0$!3Nd\\`)y]=Q %FJ7$$\"3Qmm;a<.Y&)F0$!3#\\MF3*e7fVFJ7$$\"3%yKFVFJ 7$$\"3t******\\Qk\\*)F0$!3(f9v#p)H**G%FJ7$$\"3DLL$3dg6<*F0$!3ByguEjwQU FJ7$$\"3HmmmmxGp$*F0$!3()**\\<'ynp=%FJ7$$\"3B++D\"oK0e*F0$!3=r0O7(Qq7% FJ7$$\"3B++v=5s#y*F0$!3Iq,])y8m1%FJ7$$\"\"\"F)$!3Khb(*********RFJ-%'CO LOURG6&%$RGBGF(F($\"*++++\"!\")-F$6$7fwF'7$$\"3&)*****fT:(z@F-$!3FJ7$F_o$!3sR]9yz0K@FJ7$Fdo$!3qw?v/wZ_AFJ7$Fio$!39\"e**>4#zUCFJ7$ $\"3*)*****p*ev:JF0$!3tRh.F1ygDFJ7$$\"3$)*****z!47TLF0$!3H0Asw\\r4FFJ7 $$\"3(*******pxdOMF0$!3K6ig*HcMx#FJ7$$\"3?+++LY.KNF0$!3jfgqi.+xGFJ7$$ \"3(******pltIk$F0$!3;Sov\"4\"=LHFJ7$$\"3t*****4o7Tv$F0$!3*\\ov>hWb(HF J7$$\"3<+++K5S_QF0$!3[sjrS4GwIFJ7$$\"30+++$Q*o]RF0$!3QO[qoyKYJFJ7$$\"3 ?+++\"=lj;%F0$!3nXe(Q2^AD$FJ7$$\"3++++V&R6`U%F0$!3U\\n*)[&zhP$FJ7$$\"3x* *****=q4_WF0$!3'RLODSN?R$FJ7$$\"3-+++WG))yWF0$!3(pFMcIHTT$FJ7$$\"3++++ %\\aC`%F0$!3d-_VKIPpMFJ7$$\"30+++Xh-'e%F0$!3jnvTl\\]>NFJ7$$\"3E+++UrT% o%F0$!3u**[Fod8]NFJ7$$\"3\"*******Q\"3Gy%F0$!3\\#HNyVKYc$FJ7$$\"3')*** **47O*))[F0$!3-G?@s$FJ7$$\"3'* *****\\#)>/;&F0$!3@Q))fA'*e[PFJ7$$\"3@+++(RQb@&F0$!3#pl\">$4N)*z$FJ7$$ \"3`+++=>Y2aF0$!39nC^)QfG(QFJ7$$\"3N+++]APLaF0$!3_u*=I@T+(QFJ7$$\"3T++ +&e#GfaF0$!3O5z\")H*f?(QFJ7$$\"3Y+++?H>&[&F0$!3B\"RN>,23)QFJ7$$\"37+++ ]K56bF0$!3#QS;ck:n*QFJ7$$\"3$)*****\\\"R#Hc&F0$!36K_tE7:WRFJ7$$\"3\\++ +yXu9cF0$!3?O,y(puD*RFJ7$$\"3!)*****\\[7:k&F0$!383qjj8v4SFJ7$$\"3Z+++& R!GocF0$!3ZQ)QIW[*=SFJ7$$\"3/+++0$[]p&F0$!3i!*3x\\^F?SFJ7$$\"3f*****\\ @;=s&F0$!3)[1f,yGc,%FJ7$$\"3')******>Te[dF0$!3c&=qXVw#3SFJ7$$\"3`+++I? NvdF0$!3b2'*enp6-SFJ7$$\"34+++S*>@!eF0$!3.kTzm'*y+SFJ7$$\"3d******[y)) GeF0$!3Nj_#e8Lo+%FJ7$$\"3J+++bljLfF0$!3#3NS13DC4%FJ7$$\"3.+++i_QQgF0$! 3G+*[#e<2TTFJ7$$\"3&*******R,1*3'F0$!38Qjs\"R\\e7%FJ7$$\"30+++?]tRhF0$ !36F&RG$f-6TFJ7$$\"3a******fC2lhF0$!3k%**puTr<6%FJ7$$\"37++++*4/>'F0$! 34yJv1%Q.7%FJ7$$\"3i******Rtu:iF0$!3x!>R,:kl8%FJ7$$\"3A+++!y%3TiF0$!3@ #e$\\_oneTFJ7$$\"3s*****\\f]tH'F0$!3uiGI3qi7UFJ7$$\"3K+++5kh`jF0$!3yl3 6)z%*HC%FJ7$$\"3t******>$\\a'F0$!39]'GR$3l3UFJ7$$\"3G+++5FEnlF0$!3 He>C\\:EDUFJ7$$\"3@+++X+#yh'F0$!3-NxqDxQ%FJ7$$\"3y*****\\S,b0(F0$!3_5qX7IF\"R%FJ7$$\"3Y*****ppe*zqF0$!3LH& \\l!\\P&Q%FJ7$$\"3?+++b_VLrF0$!3@M?&)*yM(\\VFJ7$$\"3e******4=\"p=(F0$! 3ldt'=n6`J%FJ7$$\"3,+++!4]O@(F0$!3tpj!4a=3J%FJ7$$\"30+++l$)QSsF0$!3A/6 QZT6=VFJ7$$\"3\\+++Xm7nsF0$!3M$[^XK5kL%FJ7$$\"3w*****R#\\'QH(F0$!3S$yf t)zLiVFJ7$$\"3w******fN->tF0$!3(R^;CrT!*Q%FJ7$$\"3q*****\\>#=WtF0$!32p Kt[=&HT%FJ7$$\"3i******H3MptF0$!3=Ud7#)efHWFJ7$$\"3'*******p%*\\%R(F0$ !3A@]I8^)eV%FJ7$$\"3*)*****\\5e'>uF0$!37g`S.7xIWFJ7$$\"3#)******Rn\"[W (F0$!3?l.xDy\\:WFJ7$$\"3v*****\\Pv*puF0$!3K,)o=n)Q$R%FJ7$$\"3#******H, M^\\(F0$!3(eVJTd1#pVFJ7$$\"3o*****\\.K9_(F0$!3$H8a[06uM%FJ7$$\"3p***** *f+tZvF0$!3H*e?k3$RMVFJ7$$\"3p*****\\3GSd(F0$!3\"4bH%3vdLVFJ7$$\"3p*** ***4hK+wF0$!3G^qy$H0dM%FJ7$$\"3p******f@#Hl(F0$!3]uym7Hl(R%FJ7$$\"3S++ +0#=bq(F0$!35S)p;T*R\\WFJ7$$\"37+++I$H7t(F0$!3#[xHo2W1Y%FJ7$$\"3%)**** *\\XSpv(F0$!3>RL-QH]eWFJ7$$\"3d******z:l#y(F0$!3U(ol.<[KW%FJ7$$\"3S+++ 0FO3yF0$!3hPle6(QzT%FJ7$$\"3&)*****\\&\\yfyF0$!3AkWJB\\HfVFJ7$$\"3Y*** **p?27\"zF0$!3,.>(\\rj+L%FJ7$$\"3\\*******ylY#zF0$!3X(*f#fF!RJVFJ7$$\" 3o*****\\PC\"QzF0$!3(3Fsud%oOVFJ7$$\"3()******fHe^zF0$!3m=[(Q&HnXVFJ7$ $\"3k******R:/lzF0$!3a=T1t!eyN%FJ7$$\"3g*****\\qe>*zF0$!3!3M$\\K>)))Q% FJ7$$\"3d******pe()=!)F0$!3,B/*[)GfAWFJ7$$\"3a*****\\.$zX!)F0$!3s%3#[* ez4X%FJ7$$\"3]*******>5F2)F0$!3]#*y?))f.nWFJ7$$\"3[*****\\OF'*4)F0$!3= h0d=)GkY%FJ7$$\"3a+++IXaE\")F0$!3>dGxV^e[WFJ7$$\"3b+++!R$Ry\")F0$!3$4_ Av]86Q%FJ7$$\"3a+++]ACI#)F0$!3B/D.Hqt;VFJ7$$\"3)*******zm;c#)F0$!32c7p T7:.VFJ7$$\"3a+++564#G)F0$!3N+\\\")4*ppI%FJ7$$\"3)*******Rb,3$)F0$!3u@ 7-A[YFVFJ7$$\"37+++l*RRL)F0$!3%R,W6LB-O%FJ7$$\"3i******R9Xg$)F0$!3u57) p([%))R%FJ7$$\"3$)******4H'pQ)F0$!3B59o?X_LWFJ7$$\"3z******\\'=-S)F0$! 3<7%fNe,tE%)F0$! 3mcY)>dz*fWFJ7$$\"3&*******fe)*R%)F0$!3?'*3PFi=fWFJ7$$\"3m*****\\!)3I \\)F0$!3P%Gseo0pS%FJ7$$\"3i*****HvJga)F0$!3g4QJ#z/AJ%FJ7$$\"3l*******p BBd)F0$!3c&e2Y'*fFF%FJ7$$\"3_*****\\k:')f)F0$!3RY]5@'e,D%FJ7$$\"3B+++? ;w6')F0$!3]+\"Rk(Q!pC%FJ7$$\"3^+++!f2\\i)F0$!3)RmD-^o$\\UFJ7$$\"3p**** **fN0Q')F0$!3Yx-?@=UdUFJ7$$\"3R+++N&*>^')F0$!3K53sDLhqUFJ7$$\"38+++DMy .()F0$!3)*\\,hMa5cVFJ7$$\"3r*****HJnjv)F0$!3PVy?'3N4V%FJ7$$\"3g******z b+`))F0$!3t#H[(pg%FJ7$$\"3k******> ErK!*F0$!3<0cK87BdUFJ7$$\"3N+++5ASg!*F0$!3m?Fj\"zI[K%FJ7$$\"3&******** z\"4)3*F0$!36ZHz(GhJQ%FJ7$$\"3a*******Q\"y:\"*F0$!3)RI&\\\"4YaT%FJ7$$ \"3X+++&=E'H\"*F0$!3\"\\\\2ImszT%FJ7$$\"3D+++!)4ZV\"*F0$!3vh,(QFl.T%FJ 7$$\"30+++vdJd\"*F0$!3Gg_(4P#e#R%FJ7$$\"3w******o0;r\"*F0$!3![\"RW5r@l VFJ7$$\"3X*****\\O#p?#*F0$!3d9.d_[`7UFJ7$$\"3Y*****\\;C-F*F0$!3XQ78OtC fSFJ7$$\"3-+++:rg#G*F0$!3r_\"*4%eI^.%FJ7$$\"3[*****\\1!*\\H*F0$!3#z)y_ M#p(>SFJ7$$\"3.+++:IP2$*F0$!3a+XLsd49SFJ7$$\"3[*****\\'fv>$*F0$!3+'Q@C K*e=SFJ7$$\"3[*****\\'=_W$*F0$!3\")yBbw6^dSFJ7$$\"3\\*****\\w(Gp$*F0$! 3*f**4%)*pOITFJ7$$\"3i*******)*)4A%*F0$!3p%e;HV[,L%FJ7$$\"3;+++?-\"\\Z *F0$!3y`s+YRWMWFJ7$$\"3f******\\9sF&*F0$!3!>e_\"*Gd@J%FJ7$$\"38+++!oK0 e*F0$!3$eSKGK;5,%FJ7$$\"3^+++?i!eg*F0$!3W\"='=/@@mQFJ7$$\"3=+++l(z5j*F 0$!3vCa2/z2jPFJ7$$\"3b+++]\")RP'*F0$!3D'fS!HE9ZPFJ7$$\"3B+++SlrV'*F0$! 3lcz*[X\")et$FJ7$$\"3\\*****\\#\\.]'*F0$!3Ef()HQ^eHPFJ7$$\"3')******4L Nc'*F0$!3?[G3;A\\GPFJ7$$\"3\\******z+**o'*F0$!3M*4ko[#eUPFJ7$$\"3C+++] oi\"o*F0$!3K>-e6N&)yPFJ7$$\"3\\*******Q+pq*F0$!3+=J&Qd*H:RFJ7$$\"3G+++ NR3dZFJ7$$\"37++++2i])*F0$!3A,b\"*R0U#o%FJ7$$\"3T+++S 1?k)*F0$!3Q&=aY>Pva%FJ7$$\"3H+++v0yx)*F0$!3R*o&*pVj$[VFJ7$$\"3;+++50O \"*)*F0$!3YddRQsx#3%FJ7$$\"3/+++X/%\\!**F0$!3#GN7Eof2v$FJ7$$\"3\"***** **z._=**F0$!3%>KvK%zYaLFJ7$$\"3^******\\.JD**F0$!3h%)[_.k[LJFJ7$$\"3@+ ++?.5K**F0$!3uuOQ**)>#)*GFJ7$$\"3!)*******G!*)Q**F0$!3H4[(4sG&\\EFJ7$$ \"33+++b-oX**F0$!3t\"))\\-l!R)Q#FJ7$$\"3P+++?-Z_**F0$!3U^a5QD*e6#FJ7$$ \"3'********=g#f**F0$!3Uax3T;AL=FJ7$$\"3b******f,0m**F0$!326+a#*flT:FJ 7$$\"3D+++I,%G(**F0$!3&)G0;gFbU7FJ7$$\"3%)*******4I'z**F0$!3()>(fOhlLP *F07$$\"38+++l+U')**F0$!3a9i624([F'F07$$\"3S+++I+@$***F0$!3$*>%HtX__9$ F07$Fcz$\"38vcAxG0;i!#D-Fhz6&Fjz$\"#5!\"\"F(F(-%+AXESLABELSG6%Q\"x6\"Q !F`jo-%%FONTG6#%(DEFAULTG-%%VIEWG6$;F(FczFejo" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 183 "unassign('u'):\ndsolve( \{diff(u(x),x,x) +(1/lambda)*u(x)=0,u(0)=0,u(1)=-1/lambda\},u(x));\nexactsol:=rhs(%);\n dplot:=plot(exactsol,x=0..1,color=black):\nplots[display](dplot,numplo t,eplot);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/-%\"uG6#%\"xG,$*(\"\"%\" \"\"-%$sinG6#\"\"#!\"\"-F-6#,$*&F/F+F'F+F+F+F0" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)exactsolG,$*(\"\"%\"\"\"-%$sinG6#\"\"#!\"\"-F*6#,$*& F,F(%\"xGF(F(F(F-" }}{PARA 13 "" 1 "" {GLPLOT2D 387 387 387 {PLOTDATA 2 "6'-%'CURVESG6$7S7$$\"\"!F)F(7$$\"3dmmm;arz@!#>$!3Q**o'Rb1r\">!#=7$$ \"3[LL$e9ui2%F-$!3:[D\"\\>NBe$F07$$\"3nmmm\"z_\"4iF-$!3RRXigNy[aF07$$ \"3[mmmT&phN)F-$!3SH)=T9%eFJ7 $$\"3\")*****\\K]4]#F0$!3M(oAh(ps4@FJ7$$\"3$******\\PAvr#F0$!36:4RgK*[ F#FJ7$$\"3(******\\nHi#HF0$!3Xfq;_t-ICFJ7$$\"3jmm\"z*ev:JF0$!3mI)\\YPV sc#FJ7$$\"3?LLL347TLF0$!3\\0JS(R!fDFFJ7$$\"3,LLLLY.KNF0$!3e*oXG57a&GFJ 7$$\"3v***\\7o7Tv$F0$!3J^1I_e<,IFJ7$$\"3'GLLLQ*o]RF0$!3fyR[&Rr_7$FJ7$$ \"3A++D\"=lj;%F0$!3\"f_7-7geD$FJ7$$\"31++vV&RY2aF0$!3ec0)4%H#G)QFJ7$$\"39mm;zXu9cF0$!3kMLnHqHEk3/@<%FJ7$$\"36****\\P![hY'F0$!3i>'R47H1B%FJ7$ $\"3jKLL$Qx$omF0$!3hnuK$H4fF%FJ7$$\"3!)*****\\P+V)oF0$!3Pos]TO`;VFJ7$$ \"3?mm\"zpe*zqF0$!3(yOxA-'RYVFJ7$$\"3%)*****\\#\\'QH(F0$!3VVbw+vUrVFJ7 $$\"3GKLe9S8&\\(F0$!3@.4)\\@wwQ%FJ7$$\"3R***\\i?=bq(F0$!3_UF\">ihqR%FJ 7$$\"3\"HLL$3s?6zF0$!3SVWLqDr)R%FJ7$$\"3a***\\7`Wl7)F0$!3=['yu@mCR%FJ7 $$\"3#pmmm'*RRL)F0$!3:$euF;\\(yVFJ7$$\"3Qmm;a<.Y&)F0$!3wb*3EMJpN%FJ7$$ \"3%FJ7$$ \"3B++D\"oK0e*F0$!3T+ww])H$RTFJ7$$\"3B++v=5s#y*F0$!3T#Hm.C]d2%FJ7$$\" \"\"F)$!\"%F)-%'COLOURG6&%$RGBGF)F)F)-F$6$7SF'7$F+$!38^(zR-Aq\">F07$F2 $!3(=WO.()*=#e$F07$F7$!3YQo!)>Ff[aF07$F<$!3=RYaz&ptJ(F07$FA$!3yM/2qp(Q ;*F07$FF$!3v*ecG:\"4'3\"FJ7$FL$!3'\\l&*\\J-+E\"FJ7$FQ$!3l\\Kw&yEwV\"FJ 7$FV$!3?v+#Qh7@h\"FJ7$Fen$!3Sm!>P\"**e)y\"FJ7$Fjn$!3xUmC!=V7%>FJ7$F_o$ !3b6n]5-n4@FJ7$Fdo$!3(*=#p\\AF[F#FJ7$Fio$!3A\")Q1VSFJ7$Fdt$!3\"Hf^ t,3A6%FJ7$Fit$!3F:ff&e0?<%FJ7$F^u$!37`)y.j8-B%FJ7$Fcu$!3;xl\"Rsu^F%FJ7 $Fhu$!3z<%3)[ab:VFJ7$F]v$!3Dkbz(*[QXVFJ7$Fbv$!3(H*=$)>RoqVFJ7$Fgv$!3@# )pJ\"3avQ%FJ7$F\\w$!3#oku,KxzR%FJ7$Faw$!3#o!eMVdu+WFJ7$Ffw$!395iJsTQ&R %FJ7$F[x$!3Nd\\`)y]=Q%FJ7$F`x$!3#\\MF3*e7fVFJ7$Fex$!3dTc$>%yKFVFJ7$Fjx $!3(f9v#p)H**G%FJ7$F_y$!3ByguEjwQUFJ7$Fdy$!3()**\\<'ynp=%FJ7$Fiy$!3=r0 O7(Qq7%FJ7$F^z$!3Iq,])y8m1%FJ7$Fcz$!3Khb(*********RFJ-Fhz6&FjzF(F($\"* ++++\"!\")-F$6$7fwF'7$$\"3&)*****fT:(z@F-$!3FJ7$F_o$!3sR]9y z0K@FJ7$Fdo$!3qw?v/wZ_AFJ7$Fio$!39\"e**>4#zUCFJ7$$\"3*)*****p*ev:JF0$! 3tRh.F1ygDFJ7$$\"3$)*****z!47TLF0$!3H0Asw\\r4FFJ7$$\"3(*******pxdOMF0$ !3K6ig*HcMx#FJ7$$\"3?+++LY.KNF0$!3jfgqi.+xGFJ7$$\"3(******pltIk$F0$!3; Sov\"4\"=LHFJ7$$\"3t*****4o7Tv$F0$!3*\\ov>hWb(HFJ7$$\"3<+++K5S_QF0$!3[ sjrS4GwIFJ7$$\"30+++$Q*o]RF0$!3QO[qoyKYJFJ7$$\"3?+++\"=lj;%F0$!3nXe(Q2 ^AD$FJ7$$\"3++++V&R6`U%F0$!3U\\n*)[&zhP$FJ7$$\"3x******=q4_WF0$!3'RLODSN ?R$FJ7$$\"3-+++WG))yWF0$!3(pFMcIHTT$FJ7$$\"3++++%\\aC`%F0$!3d-_VKIPpMF J7$$\"30+++Xh-'e%F0$!3jnvTl\\]>NFJ7$$\"3E+++UrT%o%F0$!3u**[Fod8]NFJ7$$ \"3\"*******Q\"3Gy%F0$!3\\#HNyVKYc$FJ7$$\"3')*****47O*))[F0$!3-G?@s$FJ7$$\"3'******\\#)>/;&F0$!3@Q)) fA'*e[PFJ7$$\"3@+++(RQb@&F0$!3#pl\">$4N)*z$FJ7$$\"3`+++=>Y2aF0$!39nC^) QfG(QFJ7$$\"3N+++]APLaF0$!3_u*=I@T+(QFJ7$$\"3T+++&e#GfaF0$!3O5z\")H*f? (QFJ7$$\"3Y+++?H>&[&F0$!3B\"RN>,23)QFJ7$$\"37+++]K56bF0$!3#QS;ck:n*QFJ 7$$\"3$)*****\\\"R#Hc&F0$!36K_tE7:WRFJ7$$\"3\\+++yXu9cF0$!3?O,y(puD*RF J7$$\"3!)*****\\[7:k&F0$!383qjj8v4SFJ7$$\"3Z+++&R!GocF0$!3ZQ)QIW[*=SFJ 7$$\"3/+++0$[]p&F0$!3i!*3x\\^F?SFJ7$$\"3f*****\\@;=s&F0$!3)[1f,yGc,%FJ 7$$\"3')******>Te[dF0$!3c&=qXVw#3SFJ7$$\"3`+++I?NvdF0$!3b2'*enp6-SFJ7$ $\"34+++S*>@!eF0$!3.kTzm'*y+SFJ7$$\"3d******[y))GeF0$!3Nj_#e8Lo+%FJ7$$ \"3J+++bljLfF0$!3#3NS13DC4%FJ7$$\"3.+++i_QQgF0$!3G+*[#e<2TTFJ7$$\"3&** *****R,1*3'F0$!38Qjs\"R\\e7%FJ7$$\"30+++?]tRhF0$!36F&RG$f-6TFJ7$$\"3a* *****fC2lhF0$!3k%**puTr<6%FJ7$$\"37++++*4/>'F0$!34yJv1%Q.7%FJ7$$\"3i** ****Rtu:iF0$!3x!>R,:kl8%FJ7$$\"3A+++!y%3TiF0$!3@#e$\\_oneTFJ7$$\"3s*** **\\f]tH'F0$!3uiGI3qi7UFJ7$$\"3K+++5kh`jF0$!3yl36)z%*HC%FJ7$$\"3t***** *>$\\a'F0$!39]'GR$3l3UFJ7$$\"3G+++5FEnlF0$!3He>C\\:EDUFJ7$$\"3@+++ X+#yh'F0$!3-NxqDxQ%FJ7$$\"3y*****\\S ,b0(F0$!3_5qX7IF\"R%FJ7$$\"3Y*****ppe*zqF0$!3LH&\\l!\\P&Q%FJ7$$\"3?+++ b_VLrF0$!3@M?&)*yM(\\VFJ7$$\"3e******4=\"p=(F0$!3ldt'=n6`J%FJ7$$\"3,++ +!4]O@(F0$!3tpj!4a=3J%FJ7$$\"30+++l$)QSsF0$!3A/6QZT6=VFJ7$$\"3\\+++Xm7 nsF0$!3M$[^XK5kL%FJ7$$\"3w*****R#\\'QH(F0$!3S$yft)zLiVFJ7$$\"3w******f N->tF0$!3(R^;CrT!*Q%FJ7$$\"3q*****\\>#=WtF0$!32pKt[=&HT%FJ7$$\"3i***** *H3MptF0$!3=Ud7#)efHWFJ7$$\"3'*******p%*\\%R(F0$!3A@]I8^)eV%FJ7$$\"3*) *****\\5e'>uF0$!37g`S.7xIWFJ7$$\"3#)******Rn\"[W(F0$!3?l.xDy\\:WFJ7$$ \"3v*****\\Pv*puF0$!3K,)o=n)Q$R%FJ7$$\"3#******H,M^\\(F0$!3(eVJTd1#pVF J7$$\"3o*****\\.K9_(F0$!3$H8a[06uM%FJ7$$\"3p******f+tZvF0$!3H*e?k3$RMV FJ7$$\"3p*****\\3GSd(F0$!3\"4bH%3vdLVFJ7$$\"3p******4hK+wF0$!3G^qy$H0d M%FJ7$$\"3p******f@#Hl(F0$!3]uym7Hl(R%FJ7$$\"3S+++0#=bq(F0$!35S)p;T*R \\WFJ7$$\"37+++I$H7t(F0$!3#[xHo2W1Y%FJ7$$\"3%)*****\\XSpv(F0$!3>RL-QH] eWFJ7$$\"3d******z:l#y(F0$!3U(ol.<[KW%FJ7$$\"3S+++0FO3yF0$!3hPle6(QzT% FJ7$$\"3&)*****\\&\\yfyF0$!3AkWJB\\HfVFJ7$$\"3Y*****p?27\"zF0$!3,.>(\\ rj+L%FJ7$$\"3\\*******ylY#zF0$!3X(*f#fF!RJVFJ7$$\"3o*****\\PC\"QzF0$!3 (3Fsud%oOVFJ7$$\"3()******fHe^zF0$!3m=[(Q&HnXVFJ7$$\"3k******R:/lzF0$! 3a=T1t!eyN%FJ7$$\"3g*****\\qe>*zF0$!3!3M$\\K>)))Q%FJ7$$\"3d******pe()= !)F0$!3,B/*[)GfAWFJ7$$\"3a*****\\.$zX!)F0$!3s%3#[*ez4X%FJ7$$\"3]****** *>5F2)F0$!3]#*y?))f.nWFJ7$$\"3[*****\\OF'*4)F0$!3=h0d=)GkY%FJ7$$\"3a++ +IXaE\")F0$!3>dGxV^e[WFJ7$$\"3b+++!R$Ry\")F0$!3$4_Av]86Q%FJ7$$\"3a+++] ACI#)F0$!3B/D.Hqt;VFJ7$$\"3)*******zm;c#)F0$!32c7pT7:.VFJ7$$\"3a+++564 #G)F0$!3N+\\\")4*ppI%FJ7$$\"3)*******Rb,3$)F0$!3u@7-A[YFVFJ7$$\"37+++l *RRL)F0$!3%R,W6LB-O%FJ7$$\"3i******R9Xg$)F0$!3u57)p([%))R%FJ7$$\"3$)** ****4H'pQ)F0$!3B59o?X_LWFJ7$$\"3z******\\'=-S)F0$!3<7%fNe,tE%)F0$!3mcY)>dz*fWFJ7$$\"3& *******fe)*R%)F0$!3?'*3PFi=fWFJ7$$\"3m*****\\!)3I\\)F0$!3P%Gseo0pS%FJ7 $$\"3i*****HvJga)F0$!3g4QJ#z/AJ%FJ7$$\"3l*******pBBd)F0$!3c&e2Y'*fFF%F J7$$\"3_*****\\k:')f)F0$!3RY]5@'e,D%FJ7$$\"3B+++?;w6')F0$!3]+\"Rk(Q!pC %FJ7$$\"3^+++!f2\\i)F0$!3)RmD-^o$\\UFJ7$$\"3p******fN0Q')F0$!3Yx-?@=Ud UFJ7$$\"3R+++N&*>^')F0$!3K53sDLhqUFJ7$$\"38+++DMy.()F0$!3)*\\,hMa5cVFJ 7$$\"3r*****HJnjv)F0$!3PVy?'3N4V%FJ7$$\"3g******zb+`))F0$!3t#H[(pg%FJ7$$\"3k******>ErK!*F0$!3<0cK87BdUFJ 7$$\"3N+++5ASg!*F0$!3m?Fj\"zI[K%FJ7$$\"3&********z\"4)3*F0$!36ZHz(GhJQ %FJ7$$\"3a*******Q\"y:\"*F0$!3)RI&\\\"4YaT%FJ7$$\"3X+++&=E'H\"*F0$!3\" \\\\2ImszT%FJ7$$\"3D+++!)4ZV\"*F0$!3vh,(QFl.T%FJ7$$\"30+++vdJd\"*F0$!3 Gg_(4P#e#R%FJ7$$\"3w******o0;r\"*F0$!3![\"RW5r@lVFJ7$$\"3X*****\\O#p?# *F0$!3d9.d_[`7UFJ7$$\"3Y*****\\;C-F*F0$!3XQ78OtCfSFJ7$$\"3-+++:rg#G*F0 $!3r_\"*4%eI^.%FJ7$$\"3[*****\\1!*\\H*F0$!3#z)y_M#p(>SFJ7$$\"3.+++:IP2 $*F0$!3a+XLsd49SFJ7$$\"3[*****\\'fv>$*F0$!3+'Q@CK*e=SFJ7$$\"3[*****\\' =_W$*F0$!3\")yBbw6^dSFJ7$$\"3\\*****\\w(Gp$*F0$!3*f**4%)*pOITFJ7$$\"3i *******)*)4A%*F0$!3p%e;HV[,L%FJ7$$\"3;+++?-\"\\Z*F0$!3y`s+YRWMWFJ7$$\" 3f******\\9sF&*F0$!3!>e_\"*Gd@J%FJ7$$\"38+++!oK0e*F0$!3$eSKGK;5,%FJ7$$ \"3^+++?i!eg*F0$!3W\"='=/@@mQFJ7$$\"3=+++l(z5j*F0$!3vCa2/z2jPFJ7$$\"3b +++]\")RP'*F0$!3D'fS!HE9ZPFJ7$$\"3B+++SlrV'*F0$!3lcz*[X\")et$FJ7$$\"3 \\*****\\#\\.]'*F0$!3Ef()HQ^eHPFJ7$$\"3')******4LNc'*F0$!3?[G3;A\\GPFJ 7$$\"3\\******z+**o'*F0$!3M*4ko[#eUPFJ7$$\"3C+++]oi\"o*F0$!3K>-e6N&)yP FJ7$$\"3\\*******Q+pq*F0$!3+=J&Qd*H:RFJ7$$\"3G+++NR3d ZFJ7$$\"37++++2i])*F0$!3A,b\"*R0U#o%FJ7$$\"3T+++S1?k)*F0$!3Q&=aY>Pva%F J7$$\"3H+++v0yx)*F0$!3R*o&*pVj$[VFJ7$$\"3;+++50O\"*)*F0$!3YddRQsx#3%FJ 7$$\"3/+++X/%\\!**F0$!3#GN7Eof2v$FJ7$$\"3\"*******z._=**F0$!3%>KvK%zYa LFJ7$$\"3^******\\.JD**F0$!3h%)[_.k[LJFJ7$$\"3@+++?.5K**F0$!3uuOQ**)># )*GFJ7$$\"3!)*******G!*)Q**F0$!3H4[(4sG&\\EFJ7$$\"33+++b-oX**F0$!3t\") )\\-l!R)Q#FJ7$$\"3P+++?-Z_**F0$!3U^a5QD*e6#FJ7$$\"3'********=g#f**F0$! 3Uax3T;AL=FJ7$$\"3b******f,0m**F0$!326+a#*flT:FJ7$$\"3D+++I,%G(**F0$!3 &)G0;gFbU7FJ7$$\"3%)*******4I'z**F0$!3()>(fOhlLP*F07$$\"38+++l+U')**F0 $!3a9i624([F'F07$$\"3S+++I+@$***F0$!3$*>%HtX__9$F07$Fcz$\"38vcAxG0;i!# D-Fhz6&Fjz$\"#5!\"\"F(F(-%+AXESLABELSG6%Q\"x6\"Q!Fecp-%%FONTG6#%(DEFAU LTG-%%VIEWG6$;F(FczFjcp" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "numerror:=numsol(x)-exactsol:\nplot(numerror,x=0.. 1);" }}{PARA 13 "" 1 "" {GLPLOT2D 386 224 224 {PLOTDATA 2 "6%-%'CURVES G6$7ip7$$\"\"!F)F(7$$\"3dmmm;arz@!#>$\"3R)=D[r)*HX)!#B7$$\"3[LL$e9ui2% F-$\"3FgF1hdC`9!#A7$$\"3nmmm\"z_\"4iF-$\"3>C$4q<3%3>F67$$\"3[mmmT&phN) F-$\"3nNA!>uXc9#F67$$\"3BLLe*=)H\\5!#=$\"3&3Zxa#etkBF67$$\"3gmm\"z/3uC \"FD$\"3>ky%*o2'y$HF67$$\"3%)***\\7LRDX\"FD$\"30+fePk@PUF67$$\"3^mm\"z R'ok;FD$\"33&yWy;,`k&F67$$\"3w***\\i5`h(=FD$\"3=xFRpx5XkF67$$\"3YLLL3E n$4#FD$\"33Q?X&Q/UT'F67$$\"3qmm;/RE&G#FD$\"3jn\"*Q!yI@#fF67$$\"3\")*** **\\K]4]#FD$\"3eb%yvfhln&F67$$\"3$******\\PAvr#FD$\"3NHUhp@a.mF67$$\"3 (******\\nHi#HFD$\"3qoHAW\"*pTwF67$$\"3jmm\"z*ev:JFD$\"3?iXN9#eg*zF67$ $\"3?LLL347TLFD$\"3*pnP/l&Q'e(F67$$\"3,LLLLY.KNFD$\"3?&)G%*e`k@rF67$$ \"3v***\\7o7Tv$FD$\"3^f3F-$3*R!)F67$$\"3'GLLLQ*o]RFD$\"3!4biuGUx8\"!#@ 7$$\"3A++D\"=lj;%FD$\"3R_P3p1/n:Fgq7$$\"31++vV&RY2aFD$!3Jg8YK$3w.#F67$$\"39mm;zXu9cFD$!3'*[(G7I>*osF6 7$$\"3l******\\y))GeFD$!3V$f.p$Q7?&*F67$$\"3'*)***\\i_QQgFD$!3_%f/CSNr 5&F67$$\"3@***\\7y%3TiFD$\"3()odmPI3])*F67$$\"36****\\P![hY'FD$\"3Xr]m 2c!\\:%Fgq7$$\"3jKLL$Qx$omFD$\"3D5X!*3TpXtFgq7$$\"3mlm;z)Qjx'FD$\"3w&= *=Q#=jw)Fgq7$$\"3!)*****\\P+V)oFD$\"3etd]))p#>y*Fgq7$$\"3dl\"Hd&\\@LpF D$\"3?;B$H'p!o+\"!#?7$$\"3XK$ek`H@)pFD$\"3gU))Q\\woA5Fhv7$$\"3L*\\(=#[Fgq7$$\"3GKLe9S8&\\(FD$\"3.!)*4#Rm L@7Fgq7$$\"3R***\\i?=bq(FD$!3tjH/>E)p:*Fgq7$$\"3\"HLL$3s?6zFD$!3W4MO6I cP[ &z\"HFhv7$$\"36mT5!R$Ry\")FD$!3\\ZN@b_-TIFhv7$$\"3nK$e*[ACI#)FD$!3e))y (\\_kn6$Fhv7$$\"3'fT&Qym;c#)FD$!3)Hj*p%=n\\8$Fhv7$$\"3C*\\7y5\"4#G)FD$ !3EKO6i$H!RJFhv7$$\"3k$eRs`:!3$)FD$!3=i4o@_#Fhv7$$\"3M+]PM&*>^')FD$!3&pvSj*)o7?\"Fhv7$$\"3b#>Fhv7$$\"34Le9;ZK,*)FD$\"3bpji;8]yGFhv7$$\"3t***** *\\Qk\\*)FD$\"3%3z08B2\\(QFhv7$$\"3RL$3-.B]+*FD$\"3;I_gA29Y]Fhv7$$\"30 nmT5ASg!*FD$\"3JZY1*>`;A'Fhv7$$\"3f**\\i!R\"y:\"*FD$\"3@.JH-$fLP(Fhv7$ $\"3DLL$3dg6<*FD$\"3N_T@bzBt%)Fhv7$$\"3^m;zpBp?#*FD$\"3Cqv!)=?A!R*Fhv7 $$\"3x***\\(oTAq#*FD$\"3lE%=N)>MA5F-7$$\"3.L$3x'fv>$*FD$\"3=_\\?;7H&4 \"F-7$$\"3HmmmmxGp$*FD$\"3+z-OV?)e:\"F-7$$\"31+DJ&**)4A%*FD$\"3L!e@bMQ Y?\"F-7$$\"3sK$eRA5\\Z*FD$\"3RQz@L5pM7F-7$$\"3U\"z>6.8\")[*FD$\"3c[Bbx 5+R7F-7$$\"3:]7GQeJ,&*FD$\"3@a`GA^&>C\"F-7$$\"3()3FWX'=X^*FD$\"3!H;)fG e^V7F-7$$\"3[mTg_9sF&*FD$\"3)G(z!z(ekV7F-7$$\"33CcwfU#4a*FD$\"3Z4-&=(z IU7F-7$$\"3!G3Fp1FTb*FD$\"3\"pgfA$[YR7F-7$$\"3_T&)3u)Htc*FD$\"36!H^6?z ]B\"F-7$$\"3B++D\"oK0e*FD$\"3HAHqSQ6H7F-7$$\"3B+]il(z5j*FD$\"3O3(**)pe +\">\"F-7$$\"3C+++]oi\"o*FD$\"3=\">B\"\\?6F6F-7$$\"3B+]PMRtNfj@:Fhv7$$\"\"\"F)$\"3ezesIt'QW#!#G-%'COLOURG6&%$RGBG$\" #5!\"\"F(F(-%+AXESLABELSG6$Q\"x6\"Q!Fbil-%%VIEWG6$;F(Fbhl%(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 "2 0 0" 116 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }