{VERSION 5 0 "IBM INTEL LINUX" "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 "" 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 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 163 "#This program will \+ graph the eigenvalues versus normal derivatives for the 5-series, for \+ each j, on a log-log scale. (Note that this is natural log, not base \+ 10)." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "with(plots): with(C urveFitting): read \"values_5.m\"; Digits:=20;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'DigitsG\"#?" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 107 "#To plot points, \+ we need to put our values into a sequence of ordered pairs, so that's \+ what I'm doing here." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "for i from 1 to 512 do " }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "y[i]:=log(-dn5[i]):" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "for j from 1 to 512 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "x[j]: =log(El5[j]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "data_list:= [seq([x[i],y[i]],i=1..5 12)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "#And here's the graph. Ooh, pretty." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 141 "pointplot(data_list,title= \"logarithmic graph of eigenvalue vs. normal derivative for 5 series\" , labels=[\"Eigenvalues\",\"Normal Derivatives\"]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 13 "" 1 "" {GLPLOT2D 382 382 382 {PLOTDATA 2 "6%-%'POINTSG6\\[m7$$\"5c\"\\w,T\"3JBS!#>$\"5L!)G\"GP6&)GRpF)$\"56@OkaW U!3L$F)7$$\"5CZlKl>kZSrF)$\"5na>![)=?U#*RF)7$$\"5s^cl?x0#RT)F)$\"5G:K% Gu)p*\\C%F)7$$\"5z7$G.*)*fE\"\\)F)$\"5nH],s-5_+QF)7$$\"5\\h_(y9T0$)y)F )$\"5&*HIcjCmC\"R%F)7$$\"5e*p\\KuPh3$))F)$\"5Ie9Exo,rv[F)7$$\"5#[\\NGy H%e()**F)$\"5r?ua!3(=KC]F)7$$\"5!G[VEdfv1+\"!#=$\"5r:y'p\\(46'f%F)7$$ \"541ip+.E,75FW$\"512pDCkh-DVF)7$$\"5%[XPR:GhW,\"FW$\"5,j-o5P8kR[F)7$$ \"54F2Pw2%)*o.\"FW$\"5*)y>!*\\VqCoaF)7$$\"5yo#>+3xY&Q5FW$\"5J+EY;%zqL# \\F)7$$\"5W]u^-5E#[/\"FW$\"5G#[[O!f$>XC&F)7$$\"5p.MX-7!*oX5FW$\"5!*[9 \\C3?F'p&F)7$$\"5jc!o,51K*e6FW$\"5(Q+;![N/%=#eF)7$$\"5IBn*y`(eLf6FW$\" 59E?N#o?1AQ&F)7$$\"5q=9&***\\s:i6FW$\"5Xs3j_h)yP9&F)7$$\"5=YhO_3\"pG; \"FW$\"5U4z?\"[+&44dF)7$$\"56&3(Q***4#[r6FW$\"5m^Y*[**Q3DK&F)7$$\"5!R9 V8807B<\"FW$\"5q2&fEN5!HJ[F)7$$\"5\")=5!\\G>2f<\"FW$\"5o:h\"R.7P`?&F)7 $$\"5@$H,lz2xk<\"FW$\"5rE3[oEg>]cF)7$$\"5/+s$o%oL3(>\"FW$\"5-Ct67%y!e. jF)7$$\"58#RGK$p'*[(>\"FW$\"5.h'4bmi/W%eF)7$$\"5uke0MGa!**>\"FW$\"5>DP :B'\\heU&F)7$$\"5nY3Fj9'G/?\"FW$\"55p\\*ySx)49fF)7$$\"5LPL4ynM<07FW$\" 5]L7?VbZ%RM'F)7$$\"59O]6&4)R^07FW$\"5>J9we[c<'y&F)7$$\"5\"p2sK'[Dz17FW $\"5[,w]$R'y-fgF)7$$\"54\")[^H4l'p?\"FW$\"58'[\"*p*\\:(>8FW$\"5j(\\?bpZ@]i'F)7$$\"5P&R2![25!)>8FW$\"5@&pa]A2TB='F)7$$\" 5r9cp;YmR?8FW$\"5r'fF&oKzNFfF)7$$\"5xT+OAvRb?8FW$\"5J21hElz\")*['F)7$$ \"5U1&=V*G1pA8FW$\"5VeGY_QYlAhF)7$$\"5&***=b^4+#HK\"FW$\"5\\p7QlOy/TcF )7$$\"56a:)RrhjRK\"FW$\"5u?Iz%=)Gc*3'F)7$$\"5.CDY&GmOTK\"FW$\"5fKBu`l1 o`lF)7$$\"5GHZL)QDc?L\"FW$\"5Dm%3or$GnAhF)7$$\"5Wn%HtxB`AL\"FW$\"5%G67 %G)y[Lo&F)7$$\"5#H2Xa2'4ZL8FW$\"5!fg]yZFOOM&F)7$$\"5[S)QHI1YPL\"FW$\"5 o]w>n@PkUeF)7$$\"5#etB'zuPZO8FW$\"5Q%pn,v\"*ftI'F)7$$\"5[R[W)o>*oO8FW$ \"5IQ1XC>\")H[dF)7$$\"5L2ygXr&GvL\"FW$\"5hR6Ct()*Q7,'F)7$$\"5N\\**)>)[ okP8FW$\"5F=(3'e&yYVX'F)7$$\"5Efa*p&*>kyN\"FW$\"5%RW&>?'yOU6(F)7$$\"5S G^2SC'\\zN\"FW$\"5Z0WT$fhgwm'F)7$$\"5g.$y#y-wae8FW$\"5-w6MwA7z$Q'F)7$$ \"5//wT(ew)pe8FW$\"5sa9YjfzRQpF)7$$\"5GxU/L&GM0O\"FW$\"5`ANe'G\\e*RkF) 7$$\"5JNQbjl:rg8FW$\"597_J3qXJRfF)7$$\"5_PS;$Qoz9O\"FW$\"5nJV-ltfbuiF) 7$$\"5m)H:@-V,;O\"FW$\"5P$)y1/\"*[`8nF)7$$\"5H(y&3`O*ffO\"FW$\"5LA)*Q. JWD&=(F)7$$\"5.Q2Vc9U/m8FW$\"5=[wH4__(Gs'F)7$$\"5r;P5G&>VlO\"FW$\"5#)4 _]`1*QaG'F)7$$\"5L[y'H^v]mO\"FW$\"5gn=j+'*\\hpnF)7$$\"51nXhX+phn8FW$\" 5wb!HXKF!)H;(F)7$$\"5x&f#*R1`&on8FW$\"5NwL64%46Eg'F)7$$\"5Y]%*z(**HUzO \"FW$\"55>$*R$3T4d'oF)7$$\"56TvT#*>r(zO\"FW$\"5QI.$>z!p_4tF)7$$\"5ekfz Lcn2SP<'o2[\"FW$\"5')GyYp\">Ums'F)7$$\"56p'oL1x+3[\"FW$\"5Y#o6'yC0)zG( F)7$$\"56NXq4I5D\"[\"FW$\"54#Rly,@E\"3pF)7$$\"5T)o!*3L)3I\"[\"FW$\"5*y K<3'\\)RaU'F)7$$\"5&4&eDiW9`\"[\"FW$\"5-LIMd\"3^(poF)7$$\"5Q1!f\"4r-d \"[\"FW$\"575sI(\\s&GLtF)7$$\"5GP`uVFO`$[\"FW$\"5R[Dg4h=<>pF)7$$\"5!f[ pllB(e$[\"FW$\"58IY$4Y(eu\"['F)7$$\"5\">N!>e^R#R[\"FW$\"5S?ie4&=Pi:'F) 7$$\"5Xh'yY^H,S[\"FW$\"5*4%f(*fB<6fmF)7$$\"5==cA%=.%z%[\"FW$\"5p@JorAV J!=(F)7$$\"5$GF.fume[[\"FW$\"5A2yD$zLcvi'F)7$$\"5$>N'Qp'R8^[\"FW$\"5HR fmgk,q=pF)7$$\"5sIFdmh'\\^[\"FW$\"5!\\aWi<86jO(F)7$$\"5?Y%>j&H;#H\\\"F W$\"5@(\\#pcX7iCpF)7$$\"5+tK9w$piH\\\"FW$\"5DvQ&\\:emE['F)7$$\"5_$z%Q# >v_K\\\"FW$\"5%=$4))z#[wyA'F)7$$\"5g%Qys6\"oK$\\\"FW$\"5?!**3+h1@!*y'F )7$$\"5w?aWg67D%\\\"FW$\"5:_-Ni6bO]jF)7$$\"5]!y'p]$3VV\\\"FW$\"5`,-6Em \\&R&eF)7$$\"5ekGV_/ou%\\\"FW$\"5='3^lWU)40iF)7$$\"5s!p4XMm6[\\\"FW$\" 5G2!p0cThik'F)7$$\"5D)[O]t4>t\\\"FW$\"5\"QvXL$\\24\\rF)7$$\"5$>YD4bwrt \\\"FW$\"5[mUnL%p*\\'o'F)7$$\"5rRS$Rd`(o(\\\"FW$\"58_(H&o5L:ZiF)7$$\"5 0j([LY^cx\\\"FW$\"5q'H0s\\*pwInF)7$$\"5R^yaKaN8a6Dh)\\\"FW$\"5=2q)> yI!\\:oF)7$$\"5%e&=&))=NO')\\\"FW$\"5)p\">u//>()esF)7$$\"5z//q\"= *=:FW$\"5t9HP_G H/%>:FW$\"5UH$z%>-/(*otF)7$$\"5KgV-NpHX>:FW$\"5t#*G+v7*GQ)oF)7$$\"5A5* ysbdu'>:FW$\"5)z5L+MALmJ(F)7$$\"5RKBE>V8r>:FW$\"5r)ptRJ,<_\"FW$\"5L?I,OK![#\\kF)7$$\"51y%4^O3g<_\"FW$\"56rz'p\">))=X pF)7$$\"5OIB'*)[)GMA:FW$\"5^o'o/O()30Q(F)7$$\"5lOS&f*4*)QA:FW$\"5^(p)e j\"y)>>oF)7$$\"5F1q&)zG#oD_\"FW$\"5VW]U*Q$RZtqF)7$$\"51R]Ne%\\$fA:FW$ \"5jA=Cd[BP:vF)7$$\"5iUa]2)*)po_\"FW$\"584\\P>_w>(*zF)7$$\"5f*z)ewLw)o _\"FW$\"59$\\lzmZY*\\vF)7$$\"5$)[a?Qk;,F:FW$\"5\"4>3+^Uj8E(F)7$$\"5`17 (*H%)H/F:FW$\"5kWa-C@3y9yF)7$$\"5jH#o10:Au_\"FW$\"5TGrFc6b)>I(F)7$$\"5 CA,rF)7$$\"5*R'fR;s\"o'G:FW$\"5%3@?j,#pd%e(F)7$$\"52?!z6z;i)G: FW$\"5'[Mtm-]s0(zF)7$$\"5iS3R#f\"f()G:FW$\"5/\\$))oMgz'4uF)7$$\"5B.qm3 8t#*G:FW$\"5Po]a(*o6#3n(F)7$$\"5;yU$*G:FW$\"54Wsc:\"[tV6)F)7$$\"57 ku?$QEp:k\"FW$\"5!R/(RLv^3M#)F)7$$\"5`?!4*=QDdT;FW$\"5,DyfbE>j!z(F)7$$ \"5oc!eVKp'fT;FW$\"5tz]l([I?-`(F)7$$\"5_`^)HA:.;k\"FW$\"5;O.:\\2\"384) F)7$$\"5pKosE(>%pT;FW$\"5iPO4O6!f!3xF)7$$\"5XC_RUYVqT;FW$\"5W6w7'RZ5]A (F)7$$\"5$>86,CY^U -%48)F)7$$\"5`]/Bm3Ip/R$)GW(F)7$$\"5Y9!p.'*))\\Ck\"FW$\"5!4a58.<-4'zF)7$$\"5YI'4%\\ IVYU;FW$\"5pp8Bm>Y\"zS(F)7$$\"5x,9-)HZ@Dk\"FW$\"55)*eKq$R)>)p(F)7$$\"5 D*e^\\\"Q'HDk\"FW$\"5/Hzv.B?pX\")F)7$$\"5gqT#>T9cWk\"FW$\"5CS)4)fDHR?x F)7$$\"5xnimN!GnWk\"FW$\"5keS;PIt\")ysF)7$$\"5/oN*=gBYXk\"FW$\"5rIfO&o .Ho-(F)7$$\"5U`W-BykcW;FW$\"5t@'QNd6D()e(F)7$$\"5&[%3#Gy)>#[k\"FW$\"5& )e+8#4y!zgrF)7$$\"5#\\N\\s5nZ[k\"FW$\"5L(*Q*H;h\"flmF)7$$\"5I\"eU&pc6' \\k\"FW$\"5d2!)F)7$$\"5OPI!e(>TsX;FW$\"5k\")oB_%yd\"evF) 7$$\"5hx#3>I()=ek\"FW$\"5dT])o[hj!GrF)7$$\"5D!)eMjd'Rek\"FW$\"52_T,([V *z8wF)7$$\"5U!po/`_Kgk\"FW$\"5V5t([9Cg4-)F)7$$\"5%fhJoKnYgk\"FW$\"5.Y% y[xPj:Y(F)7$$\"5/+ZU**o,5Y;FW$\"5HA!GOu4.$GxF)7$$\"50:dxC$\\2hk\"FW$\" 576\\Oqq]hs\")F)7$$\"5yz=YeP&\\Ql\"FW$\"5Q@jDTq+qGxF)7$$\"5aq\"eP@#y&Q l\"FW$\"5\"G!)y#f)4^bG(F)7$$\"5\"=B]9FqF)7$$\"5uW z<'QWMRl\"FW$\"5WH>D%oz)p)e(F)7$$\"50h**\\+1S:a;FW$\"52E'[!**4%\\\"4sF )7$$\"5Mgs:nlx#p*)*zT#e; FW$\"5M`3V20/6hzF)7$$\"5%*))>z>_GDe;FW$\"5'RKG;\"*)*>Q^(F)7$$\"5\"G*fN iv.Le;FW$\"50\\W`akB#\\A(F)7$$\"5I$G%)Ri,]$e;FW$\"5j#f`L(***\\#yxF)7$$ \"5r.%Q`l!**ee;FW$\"5I@zMuNE,ksF)7$$\"55CxT@8Khe;FW$\"5.Af=*eZ9(e;FW$\"5-%3&[f$)4F!4(F)7$$\"5j&y@_xcI(e;FW$\"5C(z9]h3l\" GvF)7$$\"5`*oRjO?9$f;FW$\"5STgWkp$G$fzF)7$$\"5D8YF=McKf;FW$\"57qw*eP** Gh\\(F)7$$\"5vi&y+LU$Rf;FW$\"5RE'[vjB0Q0(F)7$$\"51n`d?h!3%f;FW$\"5jc/` [;6#p`(F)7$$\"5_T)\\2z%*R&f;FW$\"5A.pVT4)[1#zF)7$$\"5uXWM5W$\\&f;FW$\" 5Qs=_jjmeftF)7$$\"5PP\")G/JXef;FW$\"5c'HQefI%3?wF)7$$\"5V7B-i1$*ef;FW$ \"5&>@(*=FY[N1)F)7$$\"5%>XDl-07(z;FW$\"5Ni_%GRB'4D()F)7$$\"5'*[z)[/^:( z;FW$\"5vNm]82o[\"G)F)7$$\"5+&)f3#3*4uz;FW$\"5HX7![!fU#*>!)F)7$$\"5$eK ?e1zZ(z;FW$\"5?Ohz#[=/2e)F)7$$\"59'om57/V)z;FW$\"5jT8A>+56$>)F)7$$\"59 4&yA2f`)z;FW$\"5[?%pcw-x&4xF)7$$\"545^Z])Q-*z;FW$\"5M9C8y_/**\\\")F)7$ $\"52_nOQ21\"*z;FW$\"5()\\V7G7A(Gh)F)7$$\"5W2fRu)pE.o\"FW$\"5TPpmDZ60n \")F)7$$\"5gG;+zs!Q.o\"FW$\"5e/mHU4HzGxF)7$$\"5'><[Pq_4/o\"FW$\"5,/yC( *=j4)R(F)7$$\"5'*oapkVfU!o\"FW$\"5!3`t)Hh\")y**yF)7$$\"5mbAci!G%f!o\"F W$\"5'>&HJZ?E14%)F)7$$\"5Dq9`w6!31o\"FW$\"5\"pa*o&R)pMbyF)7$$\"5/Vo(\\ X8i1o\"FW$\"55#[=h1%)QF9)F)7$$\"5uUl=!4%)p1o\"FW$\"5Yhzry#*z\")*e)F)7$ $\"5#3X]\\z2/u25yX(F)7$$\"5\"4lyjlKo\"FW$\"5dujG]d6FB#)F)7$$\" 5vQ:^n!*oF$o\"FW$\"5U' =Z&z\")F)7$$\"5i]/nN#o/No\"FW$\"52\")[hu&[pzh(F)7$$\"5DpfX#y&>a$o\"FW$ \"5\\y#fY1n#HwyF)7$$\"5&Q;#*o.0ZNo\"FW$\"5\"Q5zzgzI%>$)F)7$$\"5jH2-b)F)7$$\"5e+sW%H-,!)o\"FW$\" 5E*>70[;XSl)F)7$$\"5C<T)o\"FW$\"5_2oZ7$GQ&4tF)7$$\" 5g4A28-SU)o\"FW$\"5FN#o.-?A]!yF)7$$\"5wO*G\"=>Qa)o\"FW$\"5)oK1z77=eB)F )7$$\"5Pqc[QrKb)o\"FW$\"5Mte'Gs_^Tn(F)7$$\"5-4?82%3!f)o\"FW$\"5#\\\")3 &yhr.FzF)7$$\"5%eq\"46p_f)o\"FW$\"5Fxa*[(\\+uo$)F)7$$\"5^our67fY*o\"FW $\"5#*\\%oZ(\\Tp<))F)7$$\"5$*3cj;#\\p%*o\"FW$\"5%y[J'RcwIq$)F)7$$\"5l( ))3a3_%\\*o\"FW$\"5d`*)>s*ew23)F)7$$\"5th>J$*Q3]*o\"FW$\"5$G-Y,d!\\&Rj )F)7$$\"5#[I]t\"fsd*o\"FW$\"5)QX&\\pzOE=\")F)7$$\"5V\\/f15Ye*o\"FW$\"5 _Fp<'3]hfh(F)7$$\"5)ebzglR;'*o\"FW$\"5S(ol!pdU.WzF)7$$\"5Uce\">^U@'*o \"FW$\"5#>QU#G6%z=Q)F)7$$\"56!HbX!*f*z*o\"FW$\"5Gr'f#3]mK8))F)7$$\"5OR \"Q@o+.)*o\"FW$\"5Cc\")\\qgN<]$)F)7$$\"5B.Ed=_J#)*o\"FW$\"5jEY=')f&f\" 3zF)7$$\"5r?]Ss([F)*o\"FW$\"59T![[ql\\8R)F)7$$\"5#z1FS#=j')*o\"FW$\"5) eVIVKlmex)F)7$$\"5%3q#*G(o!p)*o\"FW$\"5E5/v-[#p[@)F)7$$\"57Az>!*\\$z)* o\"FW$\"5gjTf6A'=cZ)F)7$$\"5V`d!oHu!))*o\"FW$\"5FId))Q1z6>*)F)7$$\"5%f 4Uj\")z6D!=FW$\"5]5bmIQWV,5!e\\)F)7$$\" 5QUtIo8kq-=FW$\"5AC-QV5!QK%*)F)7$$\"5vTn&QJ?7J!=FW$\"5I\"[,pMhhk])F)7$ $\"5l[#R9!4Y6.=FW$\"57z356#[I[1)F)7$$\"5$G3;sloJJ!=FW$\"5pm9Ck*\\bC\"y F)7$$\"5kD/cXqg8.=FW$\"5C-bk\"[L`UP)F)7$$\"5F/\"zEWg\">.=FW$\"50]nn]\" z;^%zF)7$$\"57@;#yo?(>.=FW$\"5S:VG4h/!)\\uF)7$$\"5>(***pn1?A.=FW$\"5r( y)*zNv+h!yF)7$$\"5eU!\\v$=gA.=FW$\"5Rdu'4YJZ\"[#)F)7$$\"5$Hspw,6(Q.=FW $\"5\\pGq924(**z)F)7$$\"5$fm=$HA1R.=FW$\"5Op:RFo\\zQ$)F)7$$\"5L'*Quz#z 6M!=FW$\"5bI*4ds*RO3zF)7$$\"55#[LnMW;M!=FW$\"5+n?%paaFSR)F)7$$\"5'H65G crfM!=FW$\"5^@e^NB%Q0!))F)7$$\"5\"eS37#)*GY.=FW$\"5KR)fyN\\&4T#)F)7$$ \"5y)GygB%\\Z.=FW$\"5&\\0O%\\=Dm2&)F)7$$\"5)p-PEEfwM!=FW$\"5;Viv#fI^>& *)F)7$$\"5.QbtuIcR0=FW$\"5#*oXq%))[EV_)F)7$$\"5j)R<0e(yR0=FW$\"5z0))=p 3LD\"3)F)7$$\"5fTNAD0VT0=FW$\"5%*Hw3[1mSByF)7$$\"5r?T,qf'=a!=FW$\"5Ll- `*375^Q)F)7$$\"5U'*Hq0;%ya!=FW$\"5CZdgCVqn2!)F)7$$\"5ntO2F+\\[0=FW$\"5 c&33Q70o\\_(F)7$$\"5uO[$))>d9b!=FW$\"5ZEZ\\5F(o%ozF)7$$\"5M6%**\\\">&> b!=FW$\"5o7DTe@^vJ%)F)7$$\"5!)G?T*=Sad!=FW$\"5wh'4J$)*p4)F)7$$\"5rRW?()>#ym!=FW$\"5Y@i5j@@)3l)F)7$$\"5GOngP)>]n!=FW $\"5,N.So)=mO9)F)7$$\"5\"p0bu8@dn!=FW$\"5(Q_r1GVu@k(F)7$$\"5F;=MRAxy1= FW$\"52V2w`vMutzF)7$$\"5w[7.5xDz1=FW$\"5&=ZK#=1/97%)F)7$$\"5PU6(**Rzpp !=FW$\"5R!4'=7sB-j))F)7$$\"5q\"yGUqGtp!=FW$\"5(*3BfPh*R-S)F)7$$\"5RTh1 G?S*p!=FW$\"5<[NLb9#=/'zF)7$$\"5>F?3B,&)*p!=FW$\"5cI%ece)*zSW)F)7$$\"5 9$f'3%y$*Qq!=FW$\"5oaxoTem#G$))F)7$$\"57=)f!4B=/2=FW$\"5U=ut8w)G@F)F)7 $$\"5$3(**p&Hj_q!=FW$\"5>sP\"*Rm(**R`)F)7$$\"5$QV<-25aq!=FW$\"5nzI1Ub6 lx*)F)7$$\"5n47$*)R9!z9=FW$\"50vIQ8zvGL&)F)7$$\"5eqoC\"Q!=z9=FW$\"5K)o Au#H,()*3)F)7$$\"5t*o*y;JS![\"=FW$\"5ih9ad1frHyF)7$$\"5)oMo0cH2[\"=FW$ \"5%3`[\"=FW$\"5*)yFNHxxU3!)F)7$$\"5(Hg\")eD; e[\"=FW$\"5>e(f+J^aa_(F)7$$\"5fL$\\G8n\")[\"=FW$\"5#*HdMFg#Q%ozF)7$$\" 5wSxL\"Qj&)[\"=FW$\"5SgL&y?-\\.D_\"=FW$\"5oS9$zIy#)oq(F)7$$\"5x\\IrEP;D:=FW$\"5H'fN &)Q**Gl*zF)7$$\"5G8ijnGaD:=FW$\"5KLF_$>\"f#RW)F)7$$\"5$o3bTFS*3;=FW$\" 5Ts<,5PsEbzF)7$$\"5<'eKnM#R4;=FW$\"5^F!z?&)4dI^(F)7$$\"5vYnrE!*e7;=FW$ \"5MQW;njBYcsF)7$$\"5P)QL.>1Mh\"=FW$\"5-lxH$R0Xr\"yF)7$$\"5h'*\\V\"=RO i\"=FW$\"5$Q6A\"fkhqstF)7$$\"5)*)RRpbfYi\"=FW$\"5QdwT&*[)=d(oF)7$$\"5. g#p$32:H;=FW$\"5/Gh]_69KCsF)7$$\"5w?hHAL()H;=FW$\"5TGu`^K^2lwF)7$$\"5A @:uAJ/e;=FW$\"5GK)=P$HJ#>:)F)7$$\"5`Uq(=sR'e;=FW$\"5?@rDM)3#**)o(F)7$$ \"5P[&o2&3Ai;=FW$\"5'*otDE6vgZsF)7$$\"559/)H5/Im\"=FW$\"5u)3(o;pcxIxF) 7$$\"5J$QS/aL-n\"=FW$\"5j#)*y**Qp3( 4b(F)7$$\"517!=)*z_Fn\"=FW$\"5hw#y5$=A%*4yF)7$$\"5)>\"*)ew]-t;=FW$\"5b rVoQ3!oJD)F)7$$\"5AwwC468=>=FW$\"54mJd_z1Hn()F)7$$\"57zwd)Qa$=>=FW$\"5 \")o#z*4MK/B$)F)7$$\"5#*\\98AZ)*>>=FW$\"5sL@#)3/hxc!)F)7$$\"5>UI#Qv:/# >=FW$\"5_)R#pi*z(H;')F)7$$\"5ZAe$zx&GE>=FW$\"5E?N))p`y$3@)F)7$$\"5L@^g 9x\"p#>=FW$\"5ebI0z.]GDxF)7$$\"5r/(z\"*)pzH>=FW$\"5=O)*H%499i:)F)7$$\" 57tNTm]FI>=FW$\"5rrKZ<')F)7$$\"5@)QSGqKB&>=FW$\"5(R^f;-KF\"p!)F)7$ $\"5m2;U*H&)G&>=FW$\"5T&Hai\")=gri(F)7$$\"5')y8%>+0j&>=FW$\"5N%)f&3avX 8F(F)7$$\"5<.ly.%yq&>=FW$\"5C8&oAaAqnw(F)7$$\"5z0^iR@wk>=FW$\"5yfLdA#* *Rp>)F)7$$\"5E2Kic+Pl>=FW$\"5NLh'>5z?_j(F)7$$\"5[sJ1G,un>=FW$\"5%=q/=FW$\"5#*Gb0Fx@dH$)F)7$$\"5@U_,=3MD?=FW$\"5/6! >/MM+;x)F)7$$\"5xaaYs7eD?=FW$\"5P')o9-qpNEF?=FW$\"5 .$pw<(\\jQM!)F)7$$\"5Boc&f])oF?=FW$\"5R^BPY9')\\(e)F)7$$\"5X&>!=I&RG.# =FW$\"5)eRwax9!*42)F)7$$\"5sUYkZgLL?=FW$\"5$4#RZ(R13'ovF)7$$\"5#*RSr$= &[N?=FW$\"5PR48Wi%Hj*yF)7$$\"5[&oQv[De.#=FW$\"5&>'R_%4J=TL)F)7$$\"5CS$ fGXRz/#=FW$\"5pQCg3=4[j()F)7$$\"5)43N?As\"[?=FW$\"5&yf!yc_hG+$)F)7$$\" 5'=s(o\"4\\&\\?=FW$\"5DE=7'HxB!eyF)7$$\"5PcOX)fX)\\?=FW$\"5(\\6Ra%*Hg6 M)F)7$$\"5RLwjtT]_?=FW$\"5dfU[_z2>D()F)7$$\"5#*ftg\"p#p_?=FW$\"5,)z'*f 4ZeT;)F)7$$\"5]nNN*f(R`?=FW$\"5Sq[qS*>xZU)F)7$$\"5qYT-TJ\\`?=FW$\"5*Q# eHq_)e#o))F)7$$\"5JR'[rG^a1%=FW$\"5at.J$Hii)H&*F)7$$\"5^PY3?0_lS=FW$\" 5$Rj,#>s=N'3*F)7$$\"5GR!oHEJg1%=FW$\"5R9gIIE\"=b#))F)7$$\"5G#*GoOy;mS= FW$\"5TN3YiRH\\'Q*F)7$$\"5(3<683$4oS=FW$\"5h.yx]bxl,!*F)7$$\"5(>5O)4xI oS=FW$\"5E?h))\\BAV=&)F)7$$\"5;=iXFTIpS=FW$\"5J7hSB%*F)7$$\"556&>Wo@#yS=FW$\"5H-_-?7:\\!**)F)7$$\"5$4 nf`-n%yS=FW$\"54xz`*=70Eb)F)7$$\"57Pd$\\)e,!3%=FW$\"51>vV:0%pUA)F)7$$ \"5ukP/%et.3%=FW$\"5pt4#e+c5ls)F)7$$\"5]0r&*f93%3%=FW$\"5w34>=FW $\"5\"=!z*z(y-kt#)F)7$$\"5YO?2x&Q*GT=FW$\"5&=cN@E$GAN))F)7$$\"5?k)[Urg V8%=FW$\"5gA$4...^LS)F)7$$\"5Fw,C:e!\\8%=FW$\"51iN6CDZAY\"p.;%=FW$\"5@[K 9i)>cdo)F)7$$\"5#)Qt2Nf]hT=FW$\"5)ym5a=g6<&*)F)7$$\"5QZ^d!eh;;%=FW$\"5 (**Hj!\\Em\"fR*F)7$$\"55Q#[tsdmK%=FW$\"5VZ@=P@N]^))F)7$$\"5Uj@wYY$oK%= FW$\"5w^B1IT(e#3%)F)7$$\"5Ju8#)e$G\"GV=FW$\"5$G\"eXlg,:\\\")F)7$$\"5%Q DI2&4ZGV=FW$\"5K8xY!**)z^5()F)7$$\"5GKRnT+;LV=FW$\"5yYzDhnCVG$)F)7$$\" 5Q0g2%[nOL%=FW$\"5iJDY\"p>8_%yF)7$$\"5xpG*R7')fL%=FW$\"5)oDx9WVkjG)F)7 $$\"5&yR'3n@POV=FW$\"5\"RX7%o)*pD\\()F)7$$\"5\"3\"[5\"3DXN%=FW$\"5l!)H ^%*yPtg#)F)7$$\"5Ak])Q\")))\\N%=FW$\"5mNe]L%RS*>yF)7$$\"5ESk1E)oyN%=FW $\"5]1@MG?h4ruF)7$$\"5kA1^QE_eV=FW$\"5#p??i!Q'H!ozF)7$$\"5^03'*=*o]O%= FW$\"5-$3>%o\"*[%>T)F)7$$\"5zY#p)[3flV=FW$\"5\\\"\\)=[#R@7&yF)7$$\"52s `&>UJwO%=FW$\"5X2oyd@/m2\")F)7$$\"5m1-\\Z)>zO%=FW$\"5dY\"Hhru[)\\&)F)7 $$\"5TDy')QB\\?W=FW$\"5G%GvuPj6b.*F)7$$\"5?T#pwZG2U%=FW$\"5Am!ze(>a5)e )F)7$$\"5TjX>.[QAW=FW$\"5fewSO#o&R)H)F)7$$\"5lWYPKW!GU%=FW$\"5@SLrt%p< :&))F)7$$\"5(4cFQqHzU%=FW$\"5$\\lH8,nwZL)F)7$$\"5$oBJSkF%GW=FW$\"5XW*3 ?U9PB$yF)7$$\"5nNiHu5fIW=FW$\"5)*pd;ue'R(f\")F)7$$\"5!QVRm'[$4V%=FW$\" 5nhsrOsqY(f)F)7$$\"5^]F&)pKSVW=FW$\"5J?!*evB\"3E-*F)7$$\"5c\\<^]ukVW=F W$\"5\\a*Hd$*H\"Hf&)F)7$$\"5y/8Dhb4XW=FW$\"5>`wk^PMF;\")F)7$$\"5*[EBMD 3aW%=FW$\"5'ek+)*[CR#*f)F)7$$\"53(=[\"[bA[W=FW$\"5&pYB]_T=;)*)F)7$$\"5 IX>mhiU[W=FW$\"5'*[e@&*R-Y?%)F)7$$\"5,*yU7*y<\\W=FW$\"5T(*e#\\v'*)f!o) F)7$$\"5Z4R2-*z#\\W=FW$\"5N:\\\"*p0T,C\"*F)7$$\"5Z]$G.,B\\([=FW$\"5lH2 _'yCr$3'*F)7$$\"5)RJ**f'[*\\([=FW$\"5>r&RZ![Vtk\"*F)7$$\"5p#)))3\")R_v [=FW$\"5K/(zVcUqH!*)F)7$$\"5#fw+uPZ2ww)[=FW$\"5)4`%HK&Gxa/*F)7$$\"5d>J'*e=\"z)[=FW$\"58%R*oF.&Hrg )F)7$$\"5d#)*)pHHR*)[=FW$\"57y4'3WRqeF)F)7$$\"5Oj`IiJt*)[=FW$\"5z\"4h^ 7?Lux)F)7$$\"5OM!R8*4A$*[=FW$\"5BZvK*\\$QQ&G*F)7$$\"58Vwj:a]$*[=FW$\"5 $yiJN/5g:t)F)7$$\"5QuUP$REY*[=FW$\"5aqwecEm_=!*F)7$$\"5'yjG4*fy%*[=FW$ \"5jLY,uA_al%*F)7$$\"5fDbM**>+H\\=FW$\"5%4]y5Ya7+\"*)F)7$$\"5+>?C%o#=H \\=FW$\"5pJo\\eJL^n%)F)7$$\"5p/<=u)e/$\\=FW$\"5!o&4:w\"=\"*)3#)F)7$$\" 5NUm#Rp%yI\\=FW$\"5\\n!GOILh!p()F)7$$\"5,Qe\"\\j][$\\=FW$\"5=:5bA%=s$= $)F)7$$\"5E,JuIYDN\\=FW$\"5NJ&)f$*y'y2#yF)7$$\"5LcO$GrHq$\\=FW$\"5$*ym n/\\'\\n;)F)7$$\"5_i25[[JP\\=FW$\"5YE'\\HO\"e32')F)7$$\"5[]PsG*G$[\\=F W$\"5FOf$yRcV(y!*F)7$$\"5&z>9(e+c[\\=FW$\"5A]h@x+K^:')F)7$$\"5x4:;xb%* \\\\=FW$\"5Tgi%RRc[B<)F)7$$\"5\")R%3\"*=[-&\\=FW$\"5)H)eTNO58b')F)7$$ \"5?6=XFT.`\\=FW$\"5.k]!f;qVK.*F)7$$\"5NzN>RpB`\\=FW$\"52$=&*QTy*er%)F )7$$\"5Le.94>+a\\=FW$\"5dDi.:YSiH()F)7$$\"5bc%*46k5a\\=FW$\"5BK'*yBpf%yLlzn1*F)7$$\"5&4B+/bqO/&=F W$\"5:7]Pd@w<\"e)F)7$$\"5Jc*[mz'fW]=FW$\"5!HTB&)y%y)=,*F)7$$\"5)ec4$)R ]Z/&=FW$\"5-)\\\"H\"*Q*4JZ*F)7$$\"5&eqg!Hvx^]=FW$\"5#f$e*zt$pUB*)F)7$$ \"5!)H:Dt?&>0&=FW$\"53k%>KV)RV\"[)F)7$$\"5D%z)*QfII0&=FW$\"5'*GOT=!fla 7)F)7$$\"5(38(*G7uK0&=FW$\"5\"\\ -U2&=FW$\"5&*e:U'z@!eD'*F)7$$\"5`^`(e$RFu]=FW$\"5^:uoT*\\m\"y\"*F)7$$ \"5mulzUaxu]=FW$\"5[J%fm\"*pW%))))F)7$$\"5)Q*3xI?!\\2&=FW$\"5cKkKp2VdT %*F)7$$\"54#4e2)GVw]=FW$\"5xzL$H]!3ID*)F)7$$\"5'[C@_5!ew]=FW$\"5gqx?\" *HF%HU)F)7$$\"591-rqm@x]=FW$\"51UqFL]Mx]()F)7$$\"5_5EXltJx]=FW$\"5KO;S fB+e)=*F)7$$\"5&==v\"*p$)33&=FW$\"5zxw*=_Pp'='*F)7$$\"5V;lM!)=&43&=FW$ \"5qo8mbF,\\b\"*F)7$$\"5`V\"Hq\"\\N\"3&=FW$\"5DNu(ybkALr)F)7$$\"5k64m] ;W\"3&=FW$\"5'ftF*F)7$$\"5;[C-(Q=A3&=FW$\"5I0@L*eW+2e*F)7$$\"5V= jM+MF#3&=FW$\"51p.7lh@o>!*F)7$$\"5][jxI!zC3&=FW$\"5c^XjScKN!G*F)7$$\"5 s)*oF#*o]#3&=FW$\"5-xKN38;%Qs*F)-%+AXESLABELSG6$Q,Eigenvalues6\"Q3Norm al~DerivativesFf[u-%&TITLEG6#Q]ologarithmic~graph~of~eigenvalue~vs.~no rmal~derivative~for~5~seriesFf[u" 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 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 303 "#It se ems that the maximum point in each grouping falls along something of a straight line. Let's investigate that. First we need to make a new \+ sequence of ordered pairs involving only the maximum points. It turns out that those points are 2^i, which are sequences with only one + ch osen for epsilon." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "for i from 0 to 9 do " }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "b[i]:=log(-dn5[2^i]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for j from 0 to 9 do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a[j]:=log(El5[2^j]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "#These are the values for those maximum points (on a logarithmic scale)." }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 40 " data_list2:= [seq([a[i],b[i]],i=0..9)]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "data_list2;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7,7$$\"5c\"\\w,T\"3JBS!#>$\"5L!)GkZSrF'$\"5na>![)=?U#*RF'7$$ \"5e*p\\KuPh3$))F'$\"5Ie9Exo,rv[F'7$$\"5p.MX-7!*oX5!#=$\"5!*[9\\C3?F'p &F'7$$\"54\")[^H4l'p?\"F<$\"58'[\"*p*\\:r(zO\"F<$\"5 QI.$>z!p_4tF'7$$\"5;yU$*G:F<$\"54Wsc:\"[tV6)F'7$$\"5V`d!oHu!))*o\" F<$\"5FId))Q1z6>*)F'7$$\"5s)*oF#*o]#3&=F<$\"5-xKN38;%Qs*F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "#And here's what they look like." }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 97 "pointplot(data_list2, title=\"Maximum Points Graph\", labels=[\"Eigenvalues\",\"Normal Derivatives\"]);" }}{PARA 13 "" 1 "" {GLPLOT2D 375 375 375 {PLOTDATA 2 "6%-%'POINTSG6,7$$\"5R>wt 3[2LAG!#>$\"5\"4^GM&*>Ayo\"F)7$$\"5I8XqQh6M\"[&F)$\"5Dh\\S@iS5\\GF)7$$ \"5i_SNqsz.6sF)$\"5@m,pC.6SsPF)7$$\"5ZW.0k26NX))F)$\"5]i6%H0744g%F)7$$ \"5B[:$))Qf!)f/\"!#=$\"5$3WH1uY5/T&F)7$$\"5mHH*4(**[-27F>$\"5I_3g+/s3; iF)7$$\"5ud\\)*)4!)))zO\"F>$\"5@$zm&R`t*4-(F)7$$\"5'eS)f_9m$*G:F>$\"5L O#)zy\\\\vDyF)7$$\"5-fg$R-@\"))*o\"F>$\"5!3;jWtp\"[I')F)7$$\"5%G3AxB;D 3&=F>$\"5!*zcVyXC?N%*F)-%+AXESLABELSG6$Q,Eigenvalues6\"Q3Normal~Deriva tivesFhn-%&TITLEG6#Q5Maximum~Points~GraphFhn" 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 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 320 "#It' s nearly .5 (and we're not using many points, so the approximation won 't be fantastic) which indicates that the normal derivatives are of th e order of the square root of the eigenvalue, just like on the unit in terval. Now, we'll take points with better accuracy (those more to th e right) and see if this idea holds." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "#Using \+ a Least Squares Method, we can see what the slope of the line is." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "LeastSquares(data_list2,v); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&$\"5&4GOp5!#?\"\"\"*&$\"5yw i6knlG')\\F&F'%\"vGF'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 " d[0]:=log(-dn5[1]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 " for i from \+ 1 to 8 do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "d[i]:=log(-dn5[2^(i+1 )]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"dG6#\"\"!$\"5 L!)G" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "c[0]:=lo g(El5[1]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for j from 1 to 8 do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "c[j]:=log(El5[2^(j+1)]):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"cG6#\"\"!$\"5c\"\\w,T\"3 JBS!#>" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 " data_list3:= [se q([c[i],d[i]],i=0..8)];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%+data_lis t3G7+7$$\"5c\"\\w,T\"3JBS!#>$\"5L!)GkZSrF)$\"5na >![)=?U#*RF)7$$\"5e*p\\KuPh3$))F)$\"5Ie9Exo,rv[F)7$$\"5p.MX-7!*oX5!#=$ \"5!*[9\\C3?F'p&F)7$$\"54\")[^H4l'p?\"F9$\"58'[\"*p*\\:r(zO\"F9$\"5QI.$>z!p_4tF)7$$\"5;yU$*G:F9$\"54Wsc:\"[tV6)F)7$$\" 5V`d!oHu!))*o\"F9$\"5FId))Q1z6>*)F)7$$\"5s)*oF#*o]#3&=F9$\"5-xKN38;%Qs *F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "pointplot(data_list3 , title=\"Maximum Points Graph\", labels=[\"Eigenvalues\",\"Normal Der ivatives\"]);" }}{PARA 13 "" 1 "" {GLPLOT2D 382 382 382 {PLOTDATA 2 "6 %-%'POINTSG6+7$$\"5c\"\\w,T\"3JBS!#>$\"5L!)GkZSr F)$\"5na>![)=?U#*RF)7$$\"5e*p\\KuPh3$))F)$\"5Ie9Exo,rv[F)7$$\"5p.MX-7! *oX5!#=$\"5!*[9\\C3?F'p&F)7$$\"54\")[^H4l'p?\"F9$\"58'[\"*p*\\:r(zO\"F9$\"5QI.$>z!p_4tF)7$$\"5;yU$*G:F9$\"54Wsc:\"[tV6 )F)7$$\"5V`d!oHu!))*o\"F9$\"5FId))Q1z6>*)F)7$$\"5s)*oF#*o]#3&=F9$\"5-x KN38;%Qs*F)-%+AXESLABELSG6$Q,Eigenvalues6\"Q3Normal~DerivativesFY-%&TI TLEG6#Q5Maximum~Points~GraphFY" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "LeastSquares(data_list3,v); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&$\"5]PkhOXn^k]!#?\"\"\"*&$\"5!Q( G$pf\"HYs\\F&F'%\"vGF'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "for i from 1 to 8 do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "f[i]:=log (-dn5[2^(i+1)]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }{TEXT -1 0 "" }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for j fro m 1 to 8 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "e[j]:=log(El5[2^(j+1 )]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "data_list4:= [seq([e[i],f[i]],i=1..8)];" }} {PARA 12 "" 1 "" {XPPMATH 20 "6#>%+data_list4G7*7$$\"5CZlKl>kZSr!#>$\" 5na>![)=?U#*RF)7$$\"5e*p\\KuPh3$))F)$\"5Ie9Exo,rv[F)7$$\"5p.MX-7!*oX5! #=$\"5!*[9\\C3?F'p&F)7$$\"54\")[^H4l'p?\"F4$\"58'[\"*p*\\:r(zO\"F4$\"5QI.$>z!p_4tF)7$$\"5;yU$*G:F4$\"54Wsc:\"[tV6)F)7$ $\"5V`d!oHu!))*o\"F4$\"5FId))Q1z6>*)F)7$$\"5s)*oF#*o]#3&=F4$\"5-xKN38; %Qs*F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "pointplot(data_li st4, title=\"Maximum Points Graph\", labels=[\"Eigenvalues\",\"Normal \+ Derivatives\"]);" }}{PARA 13 "" 1 "" {GLPLOT2D 382 382 382 {PLOTDATA 2 "6%-%'POINTSG6*7$$\"5CZlKl>kZSr!#>$\"5na>![)=?U#*RF)7$$\"5e*p\\KuPh3 $))F)$\"5Ie9Exo,rv[F)7$$\"5p.MX-7!*oX5!#=$\"5!*[9\\C3?F'p&F)7$$\"54\") [^H4l'p?\"F4$\"58'[\"*p*\\:r(zO\"F4$\"5QI.$>z!p_4tF) 7$$\"5;yU$*G:F4$\"54Wsc:\"[tV6)F)7$$\"5V`d!oHu!))*o\"F4$\"5FId))Q1 z6>*)F)7$$\"5s)*oF#*o]#3&=F4$\"5-xKN38;%Qs*F)-%+AXESLABELSG6$Q,Eigenva lues6\"Q3Normal~DerivativesFT-%&TITLEG6#Q5Maximum~Points~GraphFT" 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 27 "LeastSquares(data_list4,v); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&$\"5Rovu8^%3dD%!#?\"\"\"*&$\"59B %f%eAFcG]F&F'%\"vGF'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "f or i from 4 to 9 do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "h[i]:=log(- dn5[2^(i)]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }{TEXT -1 0 "" }{MPLTEXT 1 0 0 "" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for j from 4 t o 9 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "g[j]:=log(El5[2^(j)]):" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "data_list5:=[seq([g[i],h[i]],i=4..9)];" }}{PARA 12 " " 1 "" {XPPMATH 20 "6#>%+data_list5G7(7$$\"5p.MX-7!*oX5!#=$\"5!*[9\\C3 ?F'p&!#>7$$\"54\")[^H4l'p?\"F)$\"58'[\"*p*\\:r(zO\"F )$\"5QI.$>z!p_4tF,7$$\"5;yU$*G:F)$\"54Wsc:\"[tV6)F,7$$\"5V`d!oHu!) )*o\"F)$\"5FId))Q1z6>*)F,7$$\"5s)*oF#*o]#3&=F)$\"5-xKN38;%Qs*F," }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 97 "pointplot(data_list5, title= \"Maximum Points Graph\", labels=[\"Eigenvalues\",\"Normal Derivatives \"]);" }}{PARA 13 "" 1 "" {GLPLOT2D 382 382 382 {PLOTDATA 2 "6%-%'POIN TSG6(7$$\"5p.MX-7!*oX5!#=$\"5!*[9\\C3?F'p&!#>7$$\"54\")[^H4l'p?\"F)$\" 58'[\"*p*\\:r(zO\"F)$\"5QI.$>z!p_4tF,7$$\"5;yU$* G:F)$\"54Wsc:\"[tV6)F,7$$\"5V`d!oHu!))*o\"F)$\"5FId))Q1z6>*)F,7$$\"5s) *oF#*o]#3&=F)$\"5-xKN38;%Qs*F,-%+AXESLABELSG6$Q,Eigenvalues6\"Q3Normal ~DerivativesFJ-%&TITLEG6#Q5Maximum~Points~GraphFJ" 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 27 "LeastSquares(data_list5,v);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#,&$\"5*>!yl$RV'*em%!#?\"\"\"*&$\"5A5N2$=R()=+&F&F'%\" vGF'F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 117 "#As we can see, our conjecture was corre ct. The slope of the line gets closer to .5 as we take more accurate \+ points." }}}{PARA 0 "" 0 "" {TEXT -1 0 "" }}}{MARK "42" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }