{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 } {CSTYLE "big" -1 256 "courier" 1 24 0 0 0 0 0 1 0 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 }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 1 }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 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "norm2 := (arg) -> simplify(arg*subs (I=-I,arg));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&norm2Gf*6#%$argG6 \"6$%)operatorG%&arrowGF(-%)simplifyG6#*&9$\"\"\"-%%subsG6$/^#F1^#!\" \"F0F1F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "d1:= (u(n+1 ,j) - u(n,j))/dt + a*(u(n,j)- u(n,j-1))/dx;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#d1G,&*&,&-%\"uG6$,&%\"nG\"\"\"F-F-%\"jGF--F)6$F,F.! \"\"F-%#dtGF1F-*(%\"aGF-,&F/F--F)6$F,,&F.F-F-F1F1F-%#dxGF1F-" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "d1 := (u(n+1,j) - (u(n,j-1) \+ + u(n,j+1))/2)/dt -a*(2*u(n,j-1)+3*u(n,j)-6*u(n,j+1)+u(n,j+2))/(6*dx); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#d1G,&*&,(-%\"uG6$,&%\"nG\"\"\"F -F-%\"jGF-*&#F-\"\"#F--F)6$F,,&F.F-F-!\"\"F-F5*&#F-F1F--F)6$F,,&F.F-F- F-F-F5F-%#dtGF5F-*&#F-\"\"'F-*(%\"aGF-,**&F1F-F2F-F-*&\"\"$F--F)6$F,F. F-F-*&F>F-F8F-F5-F)6$F,,&F.F-F1F-F-F-%#dxGF5F-F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "u := (argn,argj) -> g^(argn - n)*\n \+ convert(exp(I*(argj - j)*Theta),trig);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"uGf*6$%%argnG%%argjG6\"6$%)operatorG%&arrowGF)*& )%\"gG,&9$\"\"\"%\"nG!\"\"F2-%(convertG6$-%$expG6#*(,&9%F2%\"jGF4F2%&T hetaGF2^#F2F2%%trigGF2F)F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "d1;\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&,&%\"gG\"\"\"-%$cosG 6#%&ThetaG!\"\"F'%#dtGF,F'*&#F'\"\"'F'*(%\"aGF',,*&\"\"%F'F(F'F,*&^#! \")F'-%$sinGF*F'F'\"\"$F'-F)6#,$*&\"\"#F'F+F'F'F'*&-F:F=F'^#F'F'F'F'%# dxGF,F'F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "gsol := solve( d1,g);\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%gsolG,$*&#\"\"\"\"\"'F( *&,.*(F)F(-%$cosG6#%&ThetaGF(%#dxGF(!\"\"**\"\"%F(%\"aGF(%#dtGF(F-F(F( **^#\"\")F(F5F(F6F(-%$sinGF/F(F(*(\"\"$F(F5F(F6F(F2*(F5F(F6F(-F.6#,$*& \"\"#F(F0F(F(F(F2**^#F2F(F5F(F6F(-F;F@F(F(F(F1F2F(F2" }}}{EXCHG {PARA 11 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 " g1 := simplify(subs(dt=lambda*dx,gsol));\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#g1G,.**^##!\"%\"\"$\"\"\"%\"aGF+%'lambdaGF+-%$sinG6# %&ThetaGF+F+*,^##F+F*F+F,F+F-F+F.F+-%$cosGF0F+F+*&#\"\"#F*F+*(F,F+F-F+ F5F+F+!\"\"*(F*F;F,F+F-F+F+*&F4F+*(F,F+F-F+)F5F9F+F+F+F5F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "g2 := simplify(norm2(g1));\n" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>%#g2G,2*&#\"\"%\"\"*\"\"\"*()%\"aG\" \"#F*)%'lambdaGF.F*)-%$cosG6#%&ThetaG\"\"$F*F*F**&#F.F6F**(F-F*F0F*F1F *F*F**&#F(F6F**(F-F*F0F*)F2F.F*F*!\"\"*$F=F*F**&#F(F6F**(F,F*F/F*F2F*F *F>*&F8F**(F-F*F0F*F2F*F*F**(F,F*F/F*F=F*F>**\"#F-F.F0F.F*" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "g21:=factor(g2-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$g21G,$*&#\"\"\"\"\"*F(*&,&-%$cosG6#%&Thet aGF(F(!\"\"F(,0**\"\"%F()%\"aG\"\"#F()%'lambdaGF6F()F,F6F(F(**\"\"'F(F 5F(F8F(F9F(F(**F;F(F5F(F8F(F,F(F0**\"\"&F(F4F(F7F(F,F(F0*&F)F(F,F(F(*( \"# " 0 "" {MPLTEXT 1 0 30 "g22 := 9*g21/(cos(Theta) - 1 );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$g22G,0**\"\"%\"\"\")%\"aG\"\" #F()%'lambdaGF+F()-%$cosG6#%&ThetaGF+F(F(**\"\"'F(F*F(F-F(F.F(F(**F4F( F*F(F-F(F/F(!\"\"**\"\"&F(F)F(F,F(F/F(F6*&\"\"*F(F/F(F(*(\"# " 0 "" {MPLTEXT 1 0 41 "g23 := subs(a=d/ lambda,cos(Theta)=x,g22);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$g23G,0 *(\"\"%\"\"\")%\"dG\"\"#F()%\"xGF+F(F(*(\"\"'F(F*F(F,F(F(*(F/F(F*F(F-F (!\"\"*(\"\"&F(F)F(F-F(F1*&\"\"*F(F-F(F(*&\"# " 0 "" {MPLTEXT 1 0 29 "subs(x=1,g23);subs(x=-1,g23);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&\"#=\"\"\")%\"dG\"\"#F&!\"\"F%F&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&*&\"\")\"\"\")%\"dG\"\"#F&!\"\"*& \"#7F&F(F&F&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "dg := diff( g23,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#dgG,,*(\"\")\"\"\")%\"dG \"\"#F(%\"xGF(F(*(\"#7F(F*F(F,F(F(*&\"\"'F(F*F(!\"\"*&\"\"&F(F)F(F1\" \"*F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "x0:= solve(dg=0,x) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#x0G,$**\"\"%!\"\",(\"\"*F(*&\" \"'\"\"\"%\"dGF-F-*&\"\"&F-)F.\"\"#F-F-F-F.F(,&*&F2F-F.F-F-\"\"$F-F(F- " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "plot(x0,d=0.1 ..1);" }} {PARA 13 "" 1 "" {GLPLOT2D 383 383 383 {PLOTDATA 2 "6%-%'CURVESG6$7dw7 $$\"0+++++++\"!#:$!0+++]PM_'!#97$$\"08E_W=t/\"F*$!0'4rk)>c='F-7$$\"0/2 9(**[)3\"F*$!0')e/a]c\"fF-7$$\"0'Hfe;zM6F*$!0?OD=>?#p8&F-7$$\"0Z%*)3Tzq7F*$!0u[R/5 6$\\F-7$$\"0yb67D`J\"F*$!0l&e3WCKZF-7$$\"0pQx:z8O\"F*$!0-Z]t@.a%F-7$$ \"0@U%)\\&G29F*$!0)Q*[\\t:O%F-7$$\"0JiC\"e]a9F*$!0y.'z)Q&*=%F-7$$\"0x` 2\\(4'\\\"F*$!0$3gbD0ZSF-7$$\"0uZ&p)>Ha\"F*$!0$fXn)))e*QF-7$$\"0kFb]M* *e\"F*$!0q7lU9Jv$F-7$$\"0Z%*)==CN;F*$!0Iu71SLi$F-7$$\"0v\\**>&Qw;F*$!0 /Dvw3;^$F-7$$\"0\\(\\f'3`s\"F*$!0Y\\JfJdQ$F-7$$\"0=NqC`nw\"F*$!0!y7K'* e%G$F-7$$\"0iC\\:j\\\"=F*$!0[8<\"=zsJF-7$$\"0JhA4Pw&=F*$!0;aZU5(yIF-7$ $\"0([(\\;dW!>F*$!0ACxdx.)HF-7$$\"0!4=Y4/\\>F*$!0U2n@p6*GF-7$$\"0iBZWf b*>F*$!0w&QjdP-GF-7$$\"0X*)y%zFQ?F*$!0v%Q!oPWs#F-7$$\"07BYibV3#F*$!05% 3dd)Rk#F-7$$\"0Fa3QO=^3%GCF-7$$\"0AV'3mOlAF*$!0%Q()zc#*fBF-7$$\"0g>RW X3J#F*$!0H>0fCcH#F-7$$\"0kFbb[[N#F*$!0&*\\QF,eB#F-7$$\"0AV'3lq.CF*$!0] *eXU(><#F-7$$\"0\"Gc_vgZCF*$!0:NT&H#o6#F-7$$\"0>PuG\"[%\\#F*$!0rv)Qr5g ?F-7$$\"0?S!ee&p`#F*$!0R^JvZ0,#F-7$$\"0d8Fy\"R$e#F*$!0nV4(fDe>F-7$$\"0 (\\**oV3FEF*$!0!))zeZw5>F-7$$\"0`06rbFn#F*$!0p0n11G'=F-7$$\"0!*zfz2ur# F*$!0lBG)))\\<=F-7$$\"0_.2RaTw#F*$!0aPLHe;x\"F-7$$\"0%pQY;F-7 $$\"0X*)yDPG%HF*$!0hf'R`15;F-7$$\"0D\\)4`#4*HF*$!0(f-gv#*p:F-7$$\"0#Ry Oe$R.$F*$!0lOK^C^`\"F-7$$\"0['HHSzzIF*$!0JVl)p5*\\\"F-7$$\"0_/4<'oBJF* $!03@*>@kl9F-7$$\"0$oO`FUsJF*$!0YOd!))eH9F-7$$\"0d8F0DY@$F*$!08W([#p#* R\"F-7$$\"0v\\*R]_iKF*$!0@Y(R^#eO\"F-7$$\"0Y\"Hy1=1LF*$!05&o%H0iL\"F-7 $$\"0Sze3LRN$F*$!0\"F-7$$\"0e;LW9yd$F*$!0acjIr%o6F-7$$\"0:Igxq6i$F*$!0'y=Ey2W 6F-7$$\"0]**)>,/oOF*$!0b0V`r$=6F-7$$\"0LlI+5Fr$F*$!08J?#**[%4\"F-7$$\" 0He;&HsfPF*$!0$**pAL)*p5F-7$$\"0yb6*4G-QF*$!0\"o%eOM$[5F-7$$\"0ze\\i)RF*$!0xW\"e(3?g*F*7$$\"0Gc7!R[HSF*$!0oYZ8m oS*F*7$$\"0\"=O_@wtSF*$!0_9>6B9@*F*7$$\"029Gg]E7%F*$!0y+6tT1+*F*7$$\"0 E^-4:p;%F*$!0J,LI#=9))F*7$$\"0D\\)>Q=7UF*$!0*z\\k6mF')F*7$$\"004=&4AeU F*$!0ZL0ue@W)F*7$$\"07BY.Q0I%F*$!0#ow6=Dv#)F*7$$\"0'GdumkXVF*$!0q7yD?5 5)F*7$$\"06BY%>T!R%F*$!0()pg@h<$zF*7$$\"0AW)ooHQWF*$!0,#>m=gaxF*7$$\"0 ]+,C`0[%F*$!01]WFrF*7$$\"08D]'=ljYF*$!07(\\#))4 7(pF*7$$\"0AV'[Ol5ZF*$!0#e)Gpqv\"oF*7$$\"0c6BJ=Mv%F*$!0I)>S1^!o'F*7$$ \"0kFb[K))z%F*$!0E09\"[sPlF*7$$\"0+++G_J%[F*$!0D'3i30,kF*7$$\"0(Qx/a> \"*[F*$!04$o;0zbiF*7$$\"0jD^1mF$\\F*$!05w/NkC8'F*7$$\"0D\\)z9^!)\\F*$! 0dw\"=;9&F*7$$\"0mJjV`>M&F*$!0%z=LneC]F*7$$\"0LlIO%Q)Q&F*$!09\"zW]!*4 \\F*7$$\"0V&3x)e+V&F*$!0eSN!*3(3[F*7$$\"06@UMD%zaF*$!0)[u@w!4p%F*7$$\" 0PtY\"Ht?bF*$!0$RG'fASf%F*7$$\"0X!4en/pbF*$!0&odnTg#[%F*7$$\"0.17kd^h& F*$!08qZWH\"yVF*7$$\"0$pQn\"Hjl&F*$!0dZ?hYjG%F*7$$\"0'Gda3j-dF*$!0&R9% [yZ=%F*7$$\"0)pRf%R#\\dF*$!0)=\\')4E%3%F*7$$\"0He;aEcz&F*$!08gcv'*e)RF *7$$\"0Pu[IL'QeF*$!0#3o#feh*QF*7$$\"0oNrJkJ)eF*$!0ax/F%o/QF*7$$\"0f=PN =#HfF*$!0[aZ*=f6PF*7$$\"06AWpC^(fF*$!0L'=S7H?OF*7$$\"0@U%3]MAgF*$!0\\x UH'*y_$F*7$$\"0nLnoOR1'F*$!0H(=??wZMF*7$$\"0kFb1f26'F*$!0D&z'>;*eLF*7$ $\"0a2:qtx:'F*$!0$*QvFH6F$F*7$$\"0Pu[,\"3.iF*$!0,sy\\\\y=$F*7$$\"0lHfR CUC'F*$!0)R@X4K8JF*7$$\"0Rxa&y9$H'F*$!0?ljAHg-$F*7$$\"02:IW#fMjF*$!0iM @I)=`HF*7$$\"0_/4N-GQ'F*$!0Tz$ofqpGF*7$$\"0@T#)GwaU'F*$!0ay%ps!pz#F*7$ $\"0xa4O'HskF*$!0Ws<\\&>=FF*7$$\"0!3;U,)o^'F*$!0^pO#yMWEF*7$$\"0_.2k)R jlF*$!0tYms>%oDF*7$$\"0NpQ9_mF*$!0w44 J&eECF*7$$\"0k![\">AF*7$$\"06BY!e?LoF*$!0S(\\oOY\\@F*7$$\"0]**)R YoyoF*$!0W;%G=D#3#F*7$$\"0a2:v(oApF*$!0vCuK2\"=?F*7$$\"07BYqX:(pF*$!0v F=d')y%>F*7$$\"0rU&[nW:qF*$!0()4Qbqc)=F*7$$\"03(F*$!00Nd\"HlR;F*7$$\"0V&32\\fSsF*$!0g;O#f5z:F*7$$\"0!)f>*pC&G( F*$!0b[(\\lo?:F*7$$\"0U$o'e$*>L(F*$!0J(p+PLg9F*7$$\"0$oO8h,xtF*$!0!yqf A(HS\"F*7$$\"0C['\\\"eIU(F*$!0csh1u]M\"F*7$$\"07BY$*=(ouF*$!0y=%fAS)G \"F*7$$\"0NpQXw1^(F*$!0$oot1(pB\"F*7$$\"09He]k(evF*$!0#HsZ)o(y6F*7$$\" 0#QwK]x,wF*$!0;![oTPF6F*7$$\"0Qw_ALwk(F*$!0ft\"GCDt5F*7$$\"0U%)oOD:p(F *$!0qz!yE4A5F*7$$\"0tY$\\>ESxF*$!0hAJo#3g'*!#;7$$\"0Z$p[UY#y(F*$!0U/_q h/=*Fajm7$$\"0lHfBk.$yF*$!0lL7yWFk)Fajm7$$\"0OrU()>S(yF*$!0pe4\\K(e\") Fajm7$$\"0If=Gs<#zF*$!0p3la'zNwFajm7$$\"0%)oP`uH'zF*$!0X*[`U&**=(Fajm7 $$\"0BY#*3**)4!)F*$!05+^6Q\")o'Fajm7$$\"0LmK*eAb!)F*$!0Y4;M>$4iFajm7$$ \"0\">Q'3B05)F*$!0x%QDb^OdFajm7$$\"0['HROlX\")F*$!0gyaWB5F&Fajm7$$\"00 5?(*4!*=)F*$!085[E#)*G[Fajm7$$\"0SzeJzeB)F*$!0%)z%ekqcVFajm7$$\"0BX!*> \\0G)F*$!0oS\\S,>\"RFajm7$$\"0>Qw9ivK)F*$!00F94l#\\MFajm7$$\"0oNr=?,P) F*$!0ojWD__.$Fajm7$$\"0pQxyarT)F*$!0YA)e<*Ge#Fajm7$$\"0BX!Rd?i%)F*$!0e F]NYY:#Fajm7$$\"0Qv].Zr])F*$!0H#QKIFK(Fajm7$$\"0KkGb$oP'*F*$\"0b@()e]8^(Fajm7$$\"0D]+fo@o*F*$\"0+)40lu FyFajm7$$\"0b5@^Svs*F*$\"0;$\\.UBZ\")Fajm7$$\"0)pR*)Rjv(*F*$\"0L=vO\"R #[)Fajm7$$\"0'Hf)*4t>)*F*$\"0UgA'Ge'y)Fajm7$$\"0(\\**3/Ej)*F*$\"0B4+#y (R3*Fajm7$$\"0c6Bj#z4**F*$\"0Ctvzm()R*Fajm7$$\"0BX!fNAc**F*$\"0y:\")*4 q4(*Fajm7$$\"\"\"\"\"!F(-%'COLOURG6'%$RGBG$\"*++++\"!\")$F\\jnF\\jnFdj n-%+_ATTRIBUTEG6#/Q'source6\"Q,mathdefaultFjjn-%+AXESLABELSG6$%\"dGQ!F jjn-%%VIEWG6%;$F[jn!\"\"Fjin%(DEFAULTGFejn" 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 "dsol:=solve(x0=-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%dsolG6$,&#\"\"*\"#8!\"\"*(\"\"$\"\"\"F)F*\"#A#F-\"\"#F-,&#F(F )F**(F,F-F)F*F.F/F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "eval f(dsol);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$$\"+Z%f4!R!#5$!+H8ru " 0 "" {MPLTEXT 1 0 12 "d0:=dsol[1];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#d0G,&#\"\"*\"#8!\"\"*(\"\"$\"\"\"F(F)\"#A #F,\"\"#F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "gx0 := factor (simplify(subs(x=x0,g23)));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$gx0G ,$*.\"\"*\"\"\"\"\")!\"\",(*&\"#6F()%\"dG\"\"#F(F(*&\"#5F(F/F(F(\"\"$F *F(,(*&F3F(F.F(F(*&F0F(F/F(F(F3F*F(F/F*,&*&F0F(F/F(F(F3F(F*F*" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "plot(gx0,d=0.1 ..1);" }} {PARA 13 "" 1 "" {GLPLOT2D 383 383 383 {PLOTDATA 2 "6%-%'CURVESG6$7dw7 $$\"0+++++++\"!#:$!0+]i:N0%=!#87$$\"08E_W=t/\"F*$!0&\\osU'3p\"F-7$$\"0 /29(**[)3\"F*$!0242U)[r:F-7$$\"0'Hfe;zM6F*$!0\"=V3v(yW\"F-7$$\"04x*4aL8F-7$$\"0RycM(yF7F*$!09(GR5nG7F-7$$\"0Z%*)3Tzq7F*$!0Ks/ ,_&Q6F-7$$\"0yb67D`J\"F*$!0$puU-s^5F-7$$\"0pQx:z8O\"F*$!0#o1Vv\"=o*!#9 7$$\"0@U%)\\&G29F*$!0]@Ko;k!*)FV7$$\"0JiC\"e]a9F*$!0%=C8)yG;)FV7$$\"0x `2\\(4'\\\"F*$!0zx[`\\$\\vFV7$$\"0uZ&p)>Ha\"F*$!0q;)**[-,pFV7$$\"0kFb] M**e\"F*$!0Xk:+39H'FV7$$\"0Z%*)==CN;F*$!0mM-4!))RdFV7$$\"0v\\**>&Qw;F* $!0yCgAGsE&FV7$$\"0\\(\\f'3`s\"F*$!0#*Q8-Vut%FV7$$\"0=NqC`nw\"F*$!0N:0 2iSJ%FV7$$\"0iC\\:j\\\"=F*$!0Pr4&>s[QFV7$$\"0JhA4Pw&=F*$!0EMo+'\\fMFV7 $$\"0([(\\;dW!>F*$!0dQg$)Q_0$FV7$$\"0!4=Y4/\\>F*$!0mI(Hr(4p#FV7$$\"0iB ZWfb*>F*$!0)GvNz)4L#FV7$$\"0X*)y%zFQ?F*$!0U$eCrKt')z8FV7$$\"0w^.=\")Q<#F*$!0`5iK_$= 6FV7$$\"08E_Az)=AF*$!0c%4k\"[T\\)F*7$$\"0AV'3mOlAF*$!0^`,w`[&eF*7$$\"0 g>RWX3J#F*$!0tcLPa>S$F*7$$\"0kFbb[[N#F*$!0reUH8O9\"F*7$$\"0AV'3lq.CF*$ \"0Qj\"yscQ7F*7$$\"0\"Gc_vgZCF*$\"0#oGq&[CF$F*7$$\"0>PuG\"[%\\#F*$\"0Y \"HAQXQ`F*7$$\"0?S!ee&p`#F*$\"0LR`\\h47(F*7$$\"0d8Fy\"R$e#F*$\"0jy'HP' p(*)F*7$$\"0(\\**oV3FEF*$\"0U1TR&*Q1\"FV7$$\"0`06rbFn#F*$\"07p60%GH7FV 7$$\"0!*zfz2ur#F*$\"0#HN.I6$Q\"FV7$$\"0_.2RaTw#F*$\"0L=GX'>O:FV7$$\"0% pQFV7$$\"0X*)yDPG%HF*$\"0LY^U&\\_?FV7$$\"0D\\)4`#4*HF*$ \"0Yz'G*GV<#FV7$$\"0#RyOe$R.$F*$\"0XeQrJwF#FV7$$\"0['HHSzzIF*$\"0c0M84 @Q#FV7$$\"0_/4<'oBJF*$\"07%pPO$oZ#FV7$$\"0$oO`FUsJF*$\"0OIT?(>wDFV7$$ \"0d8F0DY@$F*$\"0eA#oCZdEFV7$$\"0v\\*R]_iKF*$\"0KGFV7$$\"0Sze3LRN$F*$\"0F/gx$>'*GFV7$$\"0%*)yP`8&R$F*$ \"0O#4?ReeHFV7$$\"0LmK*)f?W$F*$\"0xWg;B`-$FV7$$\"0V'G(p'Q([$F*$\"0;`bQ>$FV7$$ \"0:Igxq6i$F*$\"0D1Gt%QSKFV7$$\"0]**)>,/oOF*$\"0e8bB3pG$FV7$$\"0LlI+5F r$F*$\"05`X$HqFLFV7$$\"0He;&HsfPF*$\"0JGxk3qO$FV7$$\"0yb6*4G-QF*$\"0)) 4k:p%*R$FV7$$\"0zeV$FV7$$\"0LlIamV*QF*$\"0gQpOB* fMFV7$$\"0[&4RyIRRF*$\"0&[s[&QZ[$FV7$$\"0#\\)p>\\i)RF*$\"0x*G!=*[2NFV7 $$\"0Gc7!R[HSF*$\"0nNK$4lDNFV7$$\"0\"=O_@wtSF*$\"0=h(RQaTNFV7$$\"029Gg ]E7%F*$\"0zf8%p)fb$FV7$$\"0E^-4:p;%F*$\"0HXIA@jc$FV7$$\"0D\\)>Q=7UF*$ \"0yiF7eUd$FV7$$\"004=&4AeUF*$\"0su2ei'zNFV7$$\"07BY.Q0I%F*$\"0EP2L5Be $FV7$$\"0'GdumkXVF*$\"0IUDhQFe$FV7$$\"06BY%>T!R%F*$\"0.nI\\s2e$FV7$$\" 0AW)ooHQWF*$\"0\"yCE\"*3wNFV7$$\"0]+,C`0[%F*$\"0KIih'ypNFV7$$\"0^-0K3$ HXF*$\"0ygj')R+c$FV7$$\"0a3<-1Ld%F*$\"0<$*408!\\NFV7$$\"0V'GZ%Roh%F*$ \"0?[\"G,1ONFV7$$\"08D]'=ljYF*$\"09-^c2*>NFV7$$\"0AV'[Ol5ZF*$\"0Uz%=\\ T,NFV7$$\"0c6BJ=Mv%F*$\"09QYgXE[$FV7$$\"0kFb[K))z%F*$\"0F\\]:A2Y$FV7$$ \"0+++G_J%[F*$\"0_L,c$QPMFV7$$\"0(Qx/a>\"*[F*$\"0^e[%R&*4MFV7$$\"0jD^1 mF$\\F*$\"03Pn?hWQ$FV7$$\"0D\\)z9^!)\\F*$\"0NSLy-KN$FV7$$\"0u[(zYRD]F* $\"04A;*)>>K$FV7$$\"0U%)oNW)p]F*$\"0%)z(Q`:*G$FV7$$\"0NqSRHV6&F*$\"0\" o#*4\\haKFV7$$\"0lIhJ,(f^F*$\"0#\\@y+hM&F*$\"0X\"*4zH90$FV7$$\"0LlIO%Q)Q&F*$\"0-s![Ot/IFV7$$\"0V&3x)e+V &F*$\"0x6x!\\NhHFV7$$\"06@UMD%zaF*$\"0**)\\z#*>3HFV7$$\"0PtY\"Ht?bF*$ \"0OM-ckA'GFV7$$\"0X!4en/pbF*$\"0R?z0xo!GFV7$$\"0.17kd^h&F*$\"0m7a:lBv #FV7$$\"0$pQn\"Hjl&F*$\"0.pzdZBq#FV7$$\"0'Gda3j-dF*$\"0Z6Kz*fWEFV7$$\" 0)pRf%R#\\dF*$\"0_&*ea')[e#FV7$$\"0He;aEcz&F*$\"0tqVJ**Q_#FV7$$\"0Pu[I L'QeF*$\"0j3P'Q)fY#FV7$$\"0oNrJkJ)eF*$\"0V]N\\RYS#FV7$$\"0f=PN=#HfF*$ \"0o1L/S(RBFV7$$\"06AWpC^(fF*$\"0&)onD!ftAFV7$$\"0@U%3]MAgF*$\"0d\\\\A WS?#FV7$$\"0nLnoOR1'F*$\"0)H_'fQ:9#FV7$$\"0kFb1f26'F*$\"0b,M%fyp?FV7$$ \"0a2:qtx:'F*$\"0goU5wi*>FV7$$\"0Pu[,\"3.iF*$\"0'*oB)G1C>FV7$$\"0lHfRC UC'F*$\"0(Hu#*)Ht&=FV7$$\"0Rxa&y9$H'F*$\"0c'G*felx\"FV7$$\"02:IW#fMjF* $\"0q\"zs!Rpq\"FV7$$\"0_/4N-GQ'F*$\"0(eQUyeC;FV7$$\"0@T#)GwaU'F*$\"0k! \\DoZ]:FV7$$\"0xa4O'HskF*$\"0*)R%QG'yY\"FV7$$\"0!3;U,)o^'F*$\"06XToQzQ \"FV7$$\"0_.2k)RjlF*$\"0UG^'4D.8FV7$$\"0NpQ9_mF*$\"0Y5s8jz8\"FV7$$\"0(F*$\"0(*3.ir$*y#!#;7$$\"0V&32\\fSsF*$ !0+2BZzxI(Fffm7$$\"0!)f>*pC&G(F*$!0g*=BC'*GL(F*$!0SUq :bby#F*7$$\"0$oO8h,xtF*$!0Vb!4tJ9QF*7$$\"0C['\\\"eIU(F*$!0w;!)\\6w([F* 7$$\"07BY$*=(ouF*$!0E\"*>VeK%fF*7$$\"0NpQXw1^(F*$!0QX7Z>A$pF*7$$\"09He ]k(evF*$!0W2!4G4x!)F*7$$\"0#QwK]x,wF*$!0rxIq`86*F*7$$\"0Qw_ALwk(F*$!0? YN%>ZA5FV7$$\"0U%)oOD:p(F*$!0n>IQd+8\"FV7$$\"0tY$\\>ESxF*$!0/%p\"[#o]7 FV7$$\"0Z$p[UY#y(F*$!0/RHr?hN\"FV7$$\"0lHfBk.$yF*$!0;;\"pq*oZ\"FV7$$\" 0OrU()>S(yF*$!0aYVG))ze\"FV7$$\"0If=Gs<#zF*$!0S6>b41r\"FV7$$\"0%)oP`uH 'zF*$!0n-$pXL<=FV7$$\"0BY#*3**)4!)F*$!0>\"yi#>*R>FV7$$\"0LmK*eAb!)F*$! 05r$oVPf?FV7$$\"0\">Q'3B05)F*$!0H-m9s(z@FV7$$\"0['HROlX\")F*$!0Sh2SP2I #FV7$$\"005?(*4!*=)F*$!04@o.$*yT#FV7$$\"0SzeJzeB)F*$!0>S4rzba#FV7$$\"0 BX!*>\\0G)F*$!0fqMKu#oEFV7$$\"0>Qw9ivK)F*$!0:YcQa%)z#FV7$$\"0oNr=?,P)F *$!0kWj[Bs\"HFV7$$\"0pQxyarT)F*$!0;)=MR]\\IFV7$$\"0BX!Rd?i%)F*$!0\")y2 M/s<$FV7$$\"0Qv].Zr])F*$!0f#)e(Rc0LFV7$$\"0#['HR)3a&)F*$!0$fs8omSMFV7$ $\"0=Os4Btf)F*$!0?Pa\")Hgc$FV7$$\"0rT$[8gT')F*$!0l/@9Q`p$FV7$$\"0(Rz)z *[!p)F*$!0E4f#p=RQFV7$$\"0;JiGaZt)F*$!0=j_(=SqRFV7$$\"0:He,B+y)F*$!0\" )\\WdXb5%FV7$$\"0%*)yZ,1E))F*$!0CXr:nRC%FV7$$\"0-.1Bx$o))F*$!04%oEf2sV FV7$$\"0w_0(e[8*)F*$!0C/T.`&4XFV7$$\"0-.19^#e*)F*$!0pyFj;pk%FV7$$\"07C [1Oh+*F*$!0=`(4'y[z%FV7$$\"0S!3OCR[!*F*$!0Wl#plKE\\FV7$$\"0T#[;v9(4*F* $!0js4&)4!z]FV7$$\"0W)o<_9T\"*F*$!0(eMl(Hx@&FV7$$\"0LmKkyY=*F*$!0V:qVc eN&FV7$$\"0-051\"\\J#*F*$!0y^t`]`]&FV7$$\"07BY%G\\y#*F*$!0m9h:^kl&FV7$ $\"0Y\"H3vD@$*F*$!0(*o*4,![z&FV7$$\"0a2:ormO*F*$!0P&zaaiUfFV7$$\"0!*zf Z\"*4T*F*$!0HC)3\\y(3'FV7$$\"0x`2gM!f%*F*$!0TlH!o8YiFV7$$\"0`06E01]*F* $!0./db!*RQ'FV7$$\"09Hen]$[&*F*$!0$>u8WFVlFV7$$\"0kGd(QB$f*F*$!0E[GCPR p'FV7$$\"0KkGb$oP'*F*$!0zmQlGS%oFV7$$\"0D]+fo@o*F*$!0w:>)z6&*pFV7$$\"0 b5@^Svs*F*$!0ypKwA,:(FV7$$\"0)pR*)Rjv(*F*$!0#fRk(=aJ(FV7$$\"0'Hf)*4t>) *F*$!0$Q3&\\vyY(FV7$$\"0(\\**3/Ej)*F*$!0auv74#>wFV7$$\"0c6Bj#z4**F*$!0 v1oQ->y(FV7$$\"0BX!fNAc**F*$!0!*Hu4(=XzFV7$$\"\"\"\"\"!$!0++++++5)FV-% 'COLOURG6'%$RGBG$\"*++++\"!\")$F[jnF[jnFejn-%+_ATTRIBUTEG6#/Q'source6 \"Q,mathdefaultF[[o-%+AXESLABELSG6$%\"dGQ!F[[o-%%VIEWG6%;$Fjin!\"\"Fii n%(DEFAULTGFfjn" 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 33 "sgx0 := so lve(gx0=0);evalf(sgx0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%sgx0G6&, &#\"\"\"\"\"$!\"\"*&F)F*\"#5#F(\"\"#F(,&#F(F)F**&F)F*F,F-F*,&#\"\"&\"# 6F**&F5F*\"#eF-F(,&#F4F5F**&F5F*F7F-F*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6&$\"+(>#f2s!#5$!+')eU(Q\"!\"*$\"+^b(zP#F%$!+k%))o9\"F(" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 13 "with(plots):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "contourplot(g23,d=0.. 1,x=-1 .. 1,contours=[-1,0,1,3] );\n" }}{PARA 13 "" 1 "" {GLPLOT2D 453 453 453 {PLOTDATA 2 "6'-%'CURVE SG6_q7$7$$\"0+++++++%!#;$!0!)H$)=:7'p!#:7$$\"0O/.>'ez=F*$!0++++++!oF-7 $F.7$$\"\"!F6$!0nmmmmmm'F-7$F'7$$\"0+NBo1OM&F*$!0+nkL@(oqF-7$7$$\"0+++ ++++)F*$!0Q#)yB$4bsF-F:7$F@7$$\"0\\1.J=^;\"F-$!0*Hh?mBIvF-7$7$$\"0++++ ++?\"F-$!0?F?i-Cb(F-FF7$7$$\"0++++++g\"F-$!0_KA#o7myF-7$$\"0\"Rd`\\zn7 F-$!0++++++g(F-7$FWFL7$FR7$$\"0FOAg)=X=F-$!0asW?x.4)F-7$7$$\"0+++++++# F-$!0))=Ci^v?)F-Fhn7$7$$\"0++++++S#F-$!05U+Na*4')F-7$$\"0Y4@E]P@#F-$!0 ++++++S)F-7$FioF^o7$Fdo7$$\"0([.v'[.t#F-$!0up+N(pg!*F-7$7$$\"0++++++!G F-$!0Cyx%\\\"R9*F-F`p7$7$$\"0666666<$F-$!\"\"F67$$\"0#3&H7!)=*HF-$!0j, fCgPe*F-7$7$$\"06J``^p$GF-$!0++++++?*F-Faq7$FgqFfp7$7$$\"0++++++g&F-$! 0%e&Q'><e)p(R&F-$!0++++++S%F-Fes7$F[t7$$\"0SjL02AV&F-$!0!o s1TTkSF-7$7$$\"0aPR5&)eW&F-$!0++++++g$F-Fat7$Fgt7$$\"0&RRi&Q+[&F-$!0\" zyCr2gLF-7$7$$\"0,8rLxO_&F-$!0++++++!GF-F]u7$Fcu7$$\"0sm/\\bMa&F-$!0XL 4)4\"po#F-7$7$F_r$!0at'op()4AF-Fiu7$7$$\"0+++++++'F-$!0+@?$QM\\uF-7$$ \"0&[SOc\\\\cF-F17$FhvF^r7$F_v7$$\"07v\\+*>?cF-$!0D]*4!)RS?F-7$7$$\"0( e,te,BcF-$!0+++++++#F-F]w7$Fcw7$$\"0\"zsE+Y6dF-$!0$eX`+#HU\"F-7$7$$\"0 2\")[&f'et&F-$!0++++++?\"F-Fiw7$F_x7$$\"0:>#\\a#o!eF-$!03$Q%)*3l8)F*7$ 7$$\"0.L4r9p'eF-$!0-++++++%F*Fex7$F[y7$$\"03%H:t]1fF-$!0r\")eIY,8#F*7$ 7$Fdv$\"0MLLLL$4JF*Fay7$7$$\"0++++++S'F-$!08BR2#3!*yF-7$$\"008bc+15'F- FZ7$F`zFcv7$Fgy7$$\"0z-sTW:,'F-$\"05Wfl6\"pPF*7$7$$\"0qbfcy[,'F-$\"0)* ***********RF*Fez7$F[[l7$$\"0'zt>$em7'F-$\"0&3C0O$oY*F*7$7$$\"0ZFVt\"z rhF-FMFa[l7$Fg[l7$$\"0PML`-VC'F-$\"0DJL$\\R6:F-7$7$$\"0;rfh*GZjF-F_oF[ \\l7$Fa\\l7$$\"0]z4jd`O'F-$\"0+T!QZGp?F-7$7$F\\z$\"0`77%z*=@#F-Fe\\l7$ F[z7$$\"0Q+8#fJ@mF-$!0v+E%=jU!)F-7$7$$\"0++++++!oF-$!0;HM'=`2#)F-F_]l7 $F[]l7$$\"0n\"4[p\"Q\\'F-$\"0m;Q5mBh#F-7$7$$\"0?M*3ihMlF-FgpF[^l7$Fa^l 7$$\"0/e=4%GEmF-$\"0#RG;=VZJF-7$7$$\"0'*3xAf)RnF-$\"0++++++g$F-Fe^l7$F [_l7$$\"0&)pY&f6inF-$\"0Ig14odn$F-7$7$Ff]l$\"0Eb>U>(3QF-Fa_l7$7$$\"0++ ++++?(F-$!02xhbW/Y)F-7$$\"0&zj&*>,#3(F-F\\p7$F``lFe]l7$Fg_l7$$\"0`W3O# H/pF-$\"0%4Jy_T\">%F-7$7$$\"0*p^)px$fpF-$\"0++++++S%F-Fe`l7$F[al7$$\"0 %p3x4U]qF-$\"06Ee/e\"*p%F-7$7$F\\`l$\"0WcahCy>&F-Faal7$F[`l7$$\"0b*et2 aNsF-$!06zra\"3r%)F-7$7$$\"0++++++g(F-$!0/`.^K5m)F-F[bl7$Fgal7$$\"0J0Q *eR+sF-$\"0Q*Q7#3#*>&F-7$7$$\"0c#))z!>1?(F-$\"0++++++?&F-Fgbl7$F]cl7$$ \"0wa+rnkN(F-$\"0[!*)zX1(o&F-7$7$$\"0)4@\"4klX(F-FdvFccl7$Ficl7$$\"0a' =20:;vF-$\"0\"pi&)*)pnhF-7$7$Fbbl$\"0sX>P%y+kF-F]dl7$Fabl7$$\"0GxGu\"= cxF-$!0cad[jBr)F-7$7$$FBF-$!0'Hfq1pS))F-Fgdl7$Fcdl7$$\"0$zF(z]3o(F-$\" 09WaS)HQmF-7$7$$\"0btw*ecOxF-Ff]lFbel7$Fhel7$$\"0^M?Ka+&yF-$\"0)4$fN\" *)*4(F-7$7$F^el$\"0E@\"Hh$p[(F-F\\fl7$F]el7$$\"0)f!G(\\5n#)F-$!0'>hX*4 U$*)F-7$7$$\"0++++++S)F-$!03U5U\"\\/!*F-Fffl7$Fbfl7$$\"0b-AWvQ-)F-$\"0 *[f:\"\\Ab(F-7$7$$\"0hb>+S`))F-7$7$$\"0h@#*>#pK()F-$\"0++++++?*F-F\\jl7$Fbjl7$$\"0h\"[HK'fw)F -$\"0yO5at!o#*F-7$7$Fgil$\"0g4&y;@M$*F-Fhjl7$7$Fejl$!0T:&>w@*G*F-7$$\" 0hOG2hu$F-7$$\"0U$4+?-\"y'F-Fjt7$Fc `m7$$\"0O)GLi1!y'F-$!0swlYK,c$F-7$7$$\"0(yad*=+t'F-FfuFg`m7$F]am7$$\"0 L)Q5PdLnF-$!0nw2UZrm#F-7$7$$\"0XsQ\"4TDnF-FfwFaam7$Fgam7$$\"0v`5&zaMnF -$!0]2@!f4p=F-7$7$$\"0i+e;Uuv'F-FbxF[bm7$Fabm7$$\"0?=2u\")\\w'F-$!0SO9 [j*H6F-7$7$Ff]l$!0q>X2=Rn'F*Febm7$7$F\\`l$!0D'H'Q(eMbF-7$$\"0V]J>@z2(F -Fbs7$Fbcm7$$\"0=(4GZb!)pF-$!0O%>c%46w%F-7$7$$\"0jULI&>))oF-F^tFfcm7$F \\dmF``m7$F[cm7$$\"0(H>?LZoF-F^yFadm7 $Fgdm7$$\"0i&)*R[%)))oF-$\"0m(G+K5BAF*7$7$$\"0'*Qb37T!pF-F^[lF[em7$Fae m7$$\"0,.$3=6rpF-$\"0vRR$Qwx&)F*7$7$$\"0Ow&3;P8qF-FMFeem7$F[fm7$$\"0+^ 9y$**pv?F-7$7$F\\`l$\"0_SGcC/F#F-Fifm7$7$Fbbl$!0kD[ViDQ'F-7$$ \"0%==>f.%Q(F-Ffr7$Ffgm7$F\\`l$!0E'H'Q(eMbF-7$F_gm7$$\"0(oxkR[ssF-$\"0 FY/2K]l#F-7$7$$\"0FYGi8wH(F-FgpF^hm7$Fdhm7$$\"0o8xHo-R(F-$\"0ksXSj%>KF -7$7$$\"0Gj5'4()puF-F^_lFhhm7$F^im7$$\"0\\nxFCO^(F-$\"0.lWW^Fx$F-7$7$F bbl$\"0`%4Ve0DTF-Fbim7$7$F^el$!0s8B)QHjpF-7$$\"0+(>haUjyF-F17$F_jmFcgm 7$Fhim7$$\"0pO-sWSk(F-$\"0iE&f0\">J%F-7$7$$\"0l%[k77kwF-F^alFdjm7$Fjjm 7$$\"0^:!4-y\"y(F-$\"0(*o>eRk$[F-7$7$$\"0RX\\+#GyyF-F`clF^[n7$Fd[n7$$ \"02())yQLCzF-$\"0'eAUAL^`F-7$7$F^el$\"0.!=![Q,g&F-Fh[n7$F\\jm7$$\"0#o Z&=\"Rn\")F-$!0j`4P#yMrF-7$7$F]gl$!0xw$)H&***R(F-Fb\\n7$F^\\n7$$\"0BU \"p+St!)F-$\"0a:<')*>`eF-7$7$$\"0*==u0%f6)F-FdvF\\]n7$Fb]n7$$\"0`1BsO# G#)F-$\"0&pQbl_VjF-7$7$$\"0W9/^S#z$)F-Ff]lFf]n7$F\\^n7$$\"0xa%zz+)Q)F- $\"0Z!4TS)R#oF-7$7$F]gl$\"0!3Z%)z.coF-F`^n7$7$Fgil$!0?TB9!>bxF-7$$\"0U 7mpnMg)F-FZ7$F]_nFh\\n7$Ff^n7$$\"0Y`pBoTb)F-$\"04$4ENm\"H(F-7$7$$\"0`Z i4;em)F-FbblFb_n7$Fh_n7$$\"0)F-7$7$$\"06/vW)f#)*)F-F]glF` an7$Ffan7$$\"0i*3gt>$3*F-$\"0w?)z_gL')F-7$7$Fejl$\"09#oFxp$*))F-Fjan7$ F\\an7$$\"0C#\\n\"3#G&*F-$!0Z%)\\L;kD)F-7$7$F^]m$!0'\\Mw6j5$)F-Fdbn7$F `bn7$$\"0*RX-75q#*F-$\"0.#4&f(zf!*F-7$7$$\"09ABuvY*F-$\"0WcL&3:w%*F-7$7$F^]m$\"0))RJ!pya(*F-Fhcn7$7$Fc\\m$!0- ^v(QpM&)F-7$$\"0z\\++`Ku*F-F\\p7$FednFjbn7$F^dn7$$\"0)=;HE,f'*F-$\"0Bw ;uu>))*F-7$7$$\"0'=)zG`lr*F-Fc\\mFjdn-F]^m6&F_^mF`^m#F`^m\"\"#F6-F$6jn 7$7$Fbbl$!0>a<'*o4u%F-7$$\"0h!em+e)\\(F-F^t7$F]fn7$$\"0\"3)oUlAW(F-$!0 ihP&3`%3%F-7$7$$\"0o#\\75cStF-FjtFafn7$Fgfn7$$\"0+GnTE-F(F-$!0*fXLGXSH F-7$7$$\"0X'Qj'32D(F-FfuF[gn7$Fagn7$$\"0axI'3p8sF-$!03bhs\"QF?F-7$7$$ \"0L2YK=:@(F-FfwFegn7$F[hn7$$\"0vAVW(*H@(F-$!0\\X'))[*fA\"F-7$7$$\"0AL vhyA@(F-FbxF_hn7$Fehn7$$\"0Z!*HG_YC(F-$!0M4)fc/$*[F*7$7$$\"04Jj]&HYsF- F^yFihn7$F_in7$$\"0'3\"Rk;wH(F-$\"0(Gy@rmZ?F*7$7$$\"0158?<%4tF-F^[lFci n7$Fiin7$$\"0&3cjg4mtF-$\"0'HyG(y!y')F*7$7$$\"0RB)=2@*R(F-FMF]jn7$Fcjn 7$$\"09a\"3q#oW(F-$\"0s\"p$)fM1:F-7$7$$\"0\"zQL&*[9vF-F_oFgjn7$F][o7$$ \"0K&G$[(*y`(F-$\"0OHM.0U7#F-7$7$Fbbl$\"0:k#G>Y#[#F-Fa[o7$7$F^el$!0Ka$ [$\\ew&F-7$$\"0Ff?.)QWxF-Fbs7$F^\\oFjen7$Fg[o7$$\"0pkEC5+k(F-$\"0iqY^z *>FF-7$7$$\"0$fvEtL_wF-FgpFc\\o7$Fi\\o7$$\"0C_!)*3W_xF-$\"0`&*Q?=^H$F- 7$7$$\"0mV,#\\m5yF-F^_lF]]o7$Fc]o7$$\"0!e(G/E8(yF-$\"0R[U\"zMdQF-7$7$$ \"0yb)F-F`clFc_o7$F i_o7$$\"0W3)HL*>F)F-$\"08$QSL,caF-7$7$F]gl$\"0$eqgGu(*eF-F]`o7$7$Fgil$ !0(z#*=Kg`pF-7$$\"0)p[TN^f')F-F17$Fj`oF[_o7$Fc`o7$$\"0'4%z[F#=%)F-$\"0 3=T-XN'fF-7$7$$\"0g23$QJG%)F-FdvF_ao7$Feao7$$\"0\"Hl.\"e=d)F-$\"0>%p#z $GckF-7$7$$\"0KB(*[h7o)F-Ff]lFiao7$F_bo7$$\"0L'R\"*GZI()F-$\"0M2s@a!Rp F-7$7$Fgil$\"0S5$\\j1JrF-Fcbo7$Fg`o7$$\"0@QMjbf%*)F-$!0UwoE6>4(F-7$7$F ejl$!0H9UaL%ftF-F]co7$Fibo7$$\"0(=uT'*F-FejlFago7$Fggo7$$\"0ewB$e_-)*F-$\"0% oCN$[\\f*F-7$7$Fc\\mFc\\mF[ho-F]^m6&F_^mF`^m#F`^mFc^mF6-F$6fn7$7$F^el$ !0t'*>)4S&=%F-7$$\"0Lx7=#ocyF-Fjt7$F[io7$$\"0u.>1d&*z(F-$!0Z2Q79\"*>$F -7$7$$\"0$y!3p-8t(F-FfuF_io7$Feio7$$\"0x\"GtzwzwF-$!0ajl%f`f@F-7$7$$\" 0/u.u.Cm(F-FfwFiio7$F_jo7$$\"0%R5t4aUwF-$!0(y?Y>3&G\"F-7$7$$\"0mJe^qyj (F-FbxFcjo7$Fijo7$$\"0Z%Qp(F-F^[lFg[p 7$F]\\p7$$\"0O3vL>Su(F-$\"0'G$)\\Kh>\"*F*7$7$$\"0)3c@2UmxF-FMFa\\p7$Fg \\p7$$\"0J5CHud\"yF-$\"0Qz^T^%o:F-7$7$$\"0)**fmk1myF-F_oF[]p7$Fa]p7$$ \"0bNH4=)**yF-$\"0*)GT\"QO+AF-7$7$$\"0Pz-^\">#*zF-FgpFe]p7$F[^p7$$\"0` #[K)RW*zF-$\"0%\\.N.76GF-7$7$F^el$\"0%[/g`BSGF-F_^p7$7$F]gl$!0(H_Z527` F-7$$\"0+O6(z6X$)F-Fbs7$F\\_p7$$\"0k$oR)=6@)F-$!0Gn$zwBA[F-7$7$$\"0_)o SAja!)F-F^tF`_p7$Ff_pFhho7$Fe^p7$$\"0Rt*)f&e-\")F-$\"0B`?!)G[R$F-7$7$$ \"0\\*z1$G$Q\")F-F^_lF[`p7$Fa`p7$$\"0mY6*e==#)F-$\"0o1x@GO'RF-7$7$$\"0 yd!*=G2J)F-F^alFe`p7$F[ap7$$\"0#=2Aw$3M)F-$\"0PcevC$=XF-7$7$F]gl$\"0$R !*H**eaZF-F_ap7$7$Fgil$!0k+'oF-`gF-7$$\"08iCJ.Ow)F-Ffr7$F\\bpFi^p7$Fea p7$$\"0A*e[]Ms%)F-$\"0c@G!*4`0&F-7$7$$\"0%3#H+zl])F-F`clFabp7$7$$\"0&3 #H+zl])F-F`cl7$$\"0vNcY%=6')F-$\"0]G(o5jxbF-7$7$$\"0zO9FX!G()F-FdvF^cp 7$Fdcp7$$\"0D-%3S$ev)F-$\"0]&>$)>L)3'F-7$7$Fgil$\"0x))zs*3FiF-Fhcp7$Fi ap7$$\"0Ql)>jNx))F-$!0wI(RErahF-7$7$Fejl$!0yu5()o?g'F-Fbdp7$F^dp7$$\"0 Hy'[%o\"3*)F-$\"0TVE5jOe'F-7$7$$\"0w\"\\!=bX(*)F-Ff]lF\\ep7$Fbep7$$\"0 #QA_SLm!*F-$\"0O_b*=LnqF-7$7$Fejl$\"0Ck<(4&zW(F-Ffep7$7$F^]m$!0U,?dUk/ (F-7$$\"037$yB&yN*F-F17$FcfpFhdp7$F\\fp7$$\"0%4tsyUI#*F-$\"08QXDW\"RvF -7$7$$\"0nV6z$>^#*F-FbblFhfp7$F^gp7$$\"0:?V835S*F-$\"0qf8t$)z*zF-7$7$$ \"0bf:#)3tb*F-F]glFbgp7$Fhgp7$$\"0m6(o'\\od*F-$\"0pwDm+jW)F-7$7$F^]m$ \"0#\\QPu#*)\\)F-F\\hp7$F`fp7$$\"03jS1S>#)*F-$!0;E\"G,)QC(F-7$7$Fc\\m$ !0&>7&>7&>uF-Ffhp7$Fbhp7$$\"0YO4HU)e(*F-$\"03F\"=aJ#)))F-7$7$$\"0\")>c Slf*)*F-FejlF`ip7$Ffip7$$\"0G\"fN!Rg%**F-$\"0X<)G>#zI*F-7$7$Fc\\m$\"0! G;^Yg=%*F-Fjip-F]^m6&F_^mF`^mF6F6-%+AXESLABELSG6$%\"dG%\"xG" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "C urve 3" "Curve 4" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "sdg23 \+ := solve(g23=0,d);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&sdg23G6$,$*( \"\"$\"\"\",(*$)%\"xG\"\"#F)!\"\"F-F)*$,,*$)F-\"\"%F)F)*&\"\"'F))F-F(F )F/*&F.F)F,F)F)*&\"#AF)F-F)F)\"# " 0 " " {MPLTEXT 1 0 23 "plot(sdg23[2],x=-1..1);" }}{PARA 13 "" 1 "" {GLPLOT2D 453 453 453 {PLOTDATA 2 "6%-%'CURVESG6$7dw7$$!\"\"\"\"!$\"0+ +++++]\"!#97$$!0\\(\\**y%[*)*!#:$\"0#)ok2n'f9F-7$$!0[&4>cN.)*F1$\"0UoP 2ciU\"F-7$$!0_/4)HY+(*F1$\"01mU!fX!R\"F-7$$!0fiN\"F -7$$!0Y#\\)*e!Q\\*F1$\"0atWTXQK\"F-7$$!0%yc8`B)R*F1$\"0RH%)zp_H\"F-7$$ !0rU&3vF*H*F1$\"0Kd#\\%oqE\"F-7$$!08D]?Np>*F1$\"0(ohLWJR7F-7$$!0'Gd96# \\4*F1$\"0c#fdr+87F-7$$!04CT-5\"F-7$$!0X*)yx@p\\)F1$\"0CY/=4F3\"F -7$$!0Z%*)yH?)Q)F1$\"0F'z*ReG1\"F-7$$!0Rxa*Q5'H)F1$\"0!eQZ\"\\o/\"F-7$ $!0,-\"*yF1$\"0lU(\\%=R%)*F17$$!0'>Ryck( y(F1$\"0^_+1ILq*F17$$!0yc8n:Fp(F1$\"0>69P4.e*F17$$!0&3QwK%4$y'F1$\"0_nE#f%)[')F17$$!0\"=Os/$*ymF1 $\"0E._;5gc)F17$$!0W)oPDa%e'F1$\"0/%yz%eW\\)F17$$!0&)pRf^8['F1$\"0$)*[ /:()>%)F17$$!0&*)ydpD%Q'F1$\"0f\"HX:+`$)F17$$!0;Kk3lFG'F1$\"0Vxf*RP'G) F17$$!0yb6BQN='F1$\"0l%[YuJC#)F17$$!0uZ&4plzgF1$\"0n0q:lC;)F17$$!0E^-& ogzfF1$\"0IxK+od5)F17$$!0NqS@\"HxeF1$\"0u(>q!p00)F17$$!02:I!G#ex&F1$\" 07:mjz%)*zF17$$!0yc8(Qe#o&F1$\"0j%z^6%G&zF17$$!0MoO`@dd&F1$\"0O,5eSI!z F17$$!0iC\\eU,[&F1$\"0(y\"yqo1'yF17$$!0E_/\\N#y`F1$\"0f3$H*\\w\"yF17$$ !0&**)zR(p!G&F1$\"0-X`5u%yxF17$$!0.29)QRs^F1$\"0k)*>Rlrt(F17$$!0&)pR*4 hy]F1$\"0'Qcx(zJq(F17$$!0X*)ydm@(\\F1$\"0FbWMFlm(F17$$!0@T#[S:v[F1$\"0 (3$G$*H[j(F17$$!0nMpeP!pZF1$\"0-\"Q7Y%>g(F17$$!0oNr-xun%F1$\"03:5P6]d( F17$$!0$f=P-?tXF1$\"0X&>()*)*ea(F17$$!0:Ig+uCZ%F1$\"0Zl=\"eH>vF17$$!0U %)od8=P%F1$\"0@*4@<9%\\(F17$$!0['HfM_rUF1$\"0&p3(4\\/Z(F17$$!0LmK0w^<% F1$\"0sj\\#p#*[uF17$$!0*)yd&>-rSF1$\"0tWl&f(pU(F17$$!0sV([bvrRF1$\"04P LL!G2uF17$$!0C['HBGnQF1$\"0@?&*\\&z(Q(F17$$!0rU&3*3Fx$F1$\"0wzNL=7P(F1 7$$!0NpQd(=oOF1$\"0oH![#HSN(F17$$!0sV([V2oNF1$\"0K*)G7T'QtF17$$!005?![ ?oMF1$\"0BMvU.VK(F17$$!0$oOt1*QO$F1$\"03h3Yr.J(F17$$!0#Qw_N\"yE$F1$\"0 A3l?_%)H(F17$$!0)f>RuTpJF1$\"04U$pJ7(G(F17$$!0&4>QkxgIF1$\"0qCT]8cF(F1 7$$!0w_0\"4TiHF1$\"0q`b7ogE(F17$$!0MoOt8='GF1$\"0t)Qj*RrD(F17$$!0!*zf* *3&fFF1$\"0Ei_\"*)*)[sF17$$!0&3$f?F1$\"0'*fQe@L@(F17$$!0:Ig+zD'>F1$\"0Z6d7O5@(F17$$!0Gb5T^&e=F1$\"0 bE[NO#4sF17$$!03:I+.Tv\"F1$\"0\"3Yx!)43sF17$$!0V&30E\"F1$\"0sk?1+8@(F17$$!0MoO$*=W:\"F1$ \"0=ir!Gu8sF17$$!0CZ%*[yY0\"F1$\"0eX')\\xl@(F17$$!0Hd9H9!f&*!#;$\"0;$3 \\&)))>sF17$$!0uZ&4zXq&)Figl$\"0EY.U%pBsF17$$!0Pu[(H>ivFigl$\"01FL!Q2G sF17$$!0)eYXFigl$\"0:4B_$3WsF17$$!0\\'Hfe97NFigl$\"0'*)Hyta]sF17$$!0 =Pu[Z.[#Figl$\"0*H%e[zuD(F17$$!0RzeVF[tF17$$\"04:IgiZ^)Figl$\"0Vx]Df%ftF17$$\"0&4>Qc=Q&*Figl$\"0$Qto cUrtF17$$\"0OrUlKe0\"F1$\"0o\">)\\`PQ(F17$$\"08Faom2;\"F1$\"0qsNuYoR(F 17$$\"0$f=PE>`7F1$\"0`$3cGs3uF17$$\"0?RyOUsN\"F1$\"0XO'fWZAuF17$$\"0U$ oO$>$Ql \"F1$\"0uecxlQY(F17$$\"0v\\**y]Dw\"F1$\"0e,(eA%)zuF17$$\"0$oOt)\\Y&=F1 $\"0q`O]5P\\(F17$$\"005?+$yh>F1$\"0$=%)zfA5vF17$$\"0NpQ(Rhc?F1$\"0Rt?N (=DvF17$$\"0]**)z&e1;#F1$\"0BuAbq>a(F17$$\"0BY#\\OtfAF1$\"0uGQy3$evF17 $$\"0E_/43JO#F1$\"0&oXUbsvvF17$$\"0W([(4Q!eCF1$\"0>pw*30#f(F17$$\"0PtY $HVgDF1$\"0K11i9+h(F17$$\"0$['HR#zmEF1$\"0=VFii!HwF17$$\"0NqShy$fFF1$ \"0a?s\"e'fk(F17$$\"0tY$pUPfGF1$\"0P/9odXm(F17$$\"09HeczE'HF1$\"0wxP%3 8%o(F17$$\"06@UkVP1$F1$\"0$H*o%*QOq(F17$$\"0U$oO$G:;$F1$\"0J$f(R_Gs(F1 7$$\"0:Hec,,F$F1$\"0ie0]vXu(F17$$\"0.17WfwO$F1$\"0VO+oWWw(F17$$\"0T#[' HB=Z$F1$\"0nOjADgy(F17$$\"0yb6B6ic$F1$\"0y=;82f!yF17$$\"0Pu[<-%pOF1$\" 0e1=B**z#yF17$$\"0Gb5\"o\\mPF1$\"0N'*fAE\"\\yF17$$\"017Co))z'QF1$\"0A6 GR=61n%F1$\"0mGj.R=1)F17$$\"0'>Ry#=Dx%F1$ \"0T'Ro%\\w3)F17$$\"0Fa3Pc+([F1$\"09%QQsq7\")F17$$\"0=Pu))f$y\\F1$\"03 r\"f%Q49)F17$$\"0Pu[xU@2&F1$\"0=xiCLd;)F17$$\"0xa4>(ey^F1$\"0G?g)*pU>) F17$$\"0,.1s*fv_F1$\"0'3bWck?#)F17$$\"0b4>=;>S*ydF1$\"0a%em\"4KO)F17$$\"0uZ&4.BzeF1$ \"0oV,BzFR)F17$$\"0*yd:xdvfF1$\"0*Q'Hud:U)F17$$\"0LlI\"=tzgF1$\"0lGcG! 3`%)F17$$\"0]+,A)**yhF1$\"0dBoYDN[)F17$$\"0)f>R9Z$G'F1$\"0h0d(\\*f^)F1 7$$\"0^,.'[/yjF1$\"0gQm)*oda)F17$$\"0([(\\>mD['F1$\"0BSS=+\"z&)F17$$\" 0]+,UzEe'F1$\"05:zD[9h)F17$$\"04n_LTk)F17$$\"0Rxa4joy' F1$\"0<#fE8sy')F17$$\"0S!3;-%H)oF1$\"0SgX#o)4r)F17$$\"0C['HjL\")pF1$\" 0gQ*\\:WW()F17$$\"0F`1Lx**3(F1$\"0VXS*p'=y)F17$$\"0Y\"HeGM)=(F1$\"0f`S k)>;))F17$$\"0)e*F1$\"0&4x9%Hth*F17$$\"0X*)y(zq$H*F1$\"0h@InUAm*F17$$\"0yc8Z MXR*F1$\"0QE4;J'3(*F17$$\"0jE`')39]*F1$\"0>cT#3Xe(*F17$$\"0[&4>AS*f*F1 $\"0sQx(es/)*F17$$\"016ACMhp*F1$\"0nfM2s4&)*F17$$\"0d9H=R&*z*F1$\"0uYA PS5!**F17$$\"0]+,->F!**F1$\"0L_jLg;&**F17$$\"\"\"F*Fjin-%'COLOURG6'%$R GBG$\"*++++\"!\")$F*F*Fcjn-%+_ATTRIBUTEG6#/Q'source6\"Q,mathdefaultFij n-%+AXESLABELSG6$%\"xGQ!Fijn-%%VIEWG6%;F(Fjin%(DEFAULTGFdjn" 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 46 "dsdg:=diff(sdg23[2],x);sdsdg:=solve (dsdg=0,x);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%dsdgG,&*(\"\"$\"\"\" ,(*&\"\"#F(%\"xGF(F(F(!\"\"*(F+F-,,*$)F,\"\"%F(F(*&\"\"'F()F,F'F(F-*&F +F()F,F+F(F(*&\"#AF(F,F(F(\"#%&sdsdgG6$,&\"\"$\"\"\"*$\"#5#F(\"\"#!\"\",&F'F(F)F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "d023:=simplify(subs(x=sds dg[1],sdg23[2]));simplify(d023-(sqrt(10)-1)/3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%d023G,$*(\"\"$\"\"\",&\"#E!\"\"*&\"\"(F(\"#5#F(\"\"# F(F(,&\"#WF+*&\"#>F(F.F/F(F+F+" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\" !" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "31 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }