{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 51 "with(plots): with(Cu rveFitting): read \"values_2.m\";" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "#This program finds the slope of the line of minimum \+ points from the curve2 program." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "#Here I'm setting up a list of all the points in the graph and creating the graph. " }}}{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 18 "y[i]:=log(-dn[i]):" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "for j from 1 to 512 do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "x[j] :=log(El[j]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "list1:= [seq([x[i],y[i]], i=1..512) ]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 145 "pointplot(list1, tit le=\"logarithmic graph of eigenvalues vs. normal derivatives for the 2 -series\", labels=[\"Eigenvalues\", \"Normal Derivatives\"]);" }} {PARA 13 "" 1 "" {GLPLOT2D 382 382 382 {PLOTDATA 2 "6%-%'POINTSG6\\[m7 $$\"5R>wt3[2LAG!#>$\"5\"4^GM&*>Ayo\"F)7$$\"5I8XqQh6M\"[&F)$\"5Dh\\S@iS 5\\GF)7$$\"5'4#\\w*z-Z]#oF)$\"5.BVgTN%*))fJF)7$$\"5i_SNqsz.6sF)$\"5@m, pC.6SsPF)7$$\"5u5G.au;!HQ)F)$\"5yAE;cyR5NRF)7$$\"53[ae<@E%)G&)F)$\"5I6 Pk*=B^it$F)7$$\"5_bD-om-#Rw)F)$\"5g01LzZd2aVF)7$$\"5ZW.0k26NX))F)$\"5] i6%H0744g%F)7$$\"5QBj=8h_'3)**F)$\"5\"*pURY7NVHZF)7$$\"5-pc%*>nvt,5!#= $\"5PBmdWqla*e%F)7$$\"559$pg%R[v55FW$\"5)yYBQl,8_A%F)7$$\"5jn%[Wj\"HR: 5FW$\"5a%>y*4es'ob%F)7$$\"5DgS!R;FSi.\"FW$\"5`H#o\"yr\"fk?&F)7$$\"5>E@ &fr_\\$R5FW$\"5&[Q-`qL%R<[F)7$$\"5oJT,!G??V/\"FW$\"5qq>0l?6ME_F)7$$\"5 B[:$))Qf!)f/\"FW$\"5$3WH1uY5/T&F)7$$\"546'HAbN&ze6FW$\"5dO\\Lj\")y&=`& F)7$$\"5'=VU`3To&f6FW$\"5:Lf#e5gp4P&F)7$$\"5'pJJ4FpLbaF)7$$\"5#RtBiV3h6<\"FW$\"5O#)4 /')z(42.&F)7$$\"5S6ZX/82ts6FW$\"51:UmV&R?Lu%F)7$$\"5GY(H-W%pev6FW$\"5# =2zNT`j%*=&F)7$$\"5GJ$op1Kum<\"FW$\"5otSPuKa4h`F)7$$\"5?]+F)**=Tp>\"FW $\"5)[mu@juH,-'F)7$$\"55kI1^&4:x>\"FW$\"5j!4V-ApY;#eF)7$$\"5\\(yy\"RUn j*>\"FW$\"5r8o19a]=S`F)7$$\"5EHdGM_wi+7FW$\"5u>!=;R\"zk@cF)7$$\"5a@*ez 6/P]?\"FW$\"5!)p.tjJ%Qt3'F)7$$\"5W2KA%p;zc?\"FW$\"5@A.\"zU$)fRn&F)7$$ \"5'R$*42YO\"p17FW$\"5>M`@kd`oWgF)7$$\"5mHH*4(**[-27FW$\"5I_3g+/s3;iF) 7$$\"5GGOk0F>p>8FW$\"5'G;/`*f'3hL'F)7$$\"5aQ(*3$*G%[)>8FW$\"55:];MhwUp hF)7$$\"5(eX\"*ox7?.K\"FW$\"5\"Rwk%[(GcG\"eF)7$$\"5gT#)zJcoh?8FW$\"5go n[iWK3NiF)7$$\"5-,:pXYIgA8FW$\"5cv\\@lUxmFeF)7$$\"5c*=q'3St.B8FW$\"5(* zBB'z3d(ebF)7$$\"5qp$G))>InQK\"FW$\"5*fiR6BX^S1'F)7$$\"5.fH;&40(>C8FW$ \"5M\"Q,7$GC&>F'F)7$$\"5'HL5I(>y)>L\"FW$\"5@P>HC#>];$eF)7$$\"5N&Ho1FXj BL\"FW$\"55u$z?bZu0n&F)7$$\"5f2(G,:MJLL\"FW$\"5%4&o'p,I=^ )pX(=&QL\"FW$\"5\"*H/zhkW%Qb&F)7$$\"5-$\\=mrM)QO8FW$\"5S8'z>]BDguL\"FW$\"5HJ_L*[S)*z* fF)7$$\"5w=T.g&y'oP8FW$\"5f2V!z],Qb;'F)7$$\"5f\"3kO+HNyN\"FW$\"5I_&Q&) pLJm#oF)7$$\"5_.QnTN))*zN\"FW$\"5IZRb]v.[_mF)7$$\"5e!G+$)G6t%e8FW$\"5d _`%)\\))p1tiF)7$$\"57d([dJXe(e8FW$\"54f%>27'y[!o'F)7$$\"5'o@KC`sl/O\"F W$\"5>J**>>0s&=:'F)7$$\"5$HNXSY+,3O\"FW$\"5@[@Ug#ehm%eF)7$$\"5gLp7[j7T h8FW$\"5[+j_x=r,iiF)7$$\"5dJ^RxkNkh8FW$\"5v1()*)>*z9CU'F)7$$\"5pDGw&=U IfO\"FW$\"5vfjt()Qk#H!pF)7$$\"5rwa#G<$44m8FW$\"5dl%)y[m8FW$\"5=?'*fX!\\_=?'F)7$$\"5TKi*4Zi\"pm8FW$\"5**)G$p#*eS.AzO\"FW$\"59&*[1dH#Q@&oF)7$$\"5ud\\)*)4!)))zO\"FW$\"5@$ zm&R`t*4-(F)7$$\"5IK#[%>lii![\"FW$\"5Y!f#z*3^L29(F)7$$\"5_rmi!Gkd1[\"F W$\"57\"=y5dy@G(pF)7$$\"5Oi,zkGIv![\"FW$\"5&*4L\")e!R&p7mF)7$$\"5Dx=Kz fO\"3[\"FW$\"5n8qrx(H/G.(F)7$$\"5k%\\<@I2K7[\"FW$\"5&=\\O^qF)7$$\"5$o!RLze]^$[\"FW$ \"5&)RnzwBP^FmF)7$$\"5:@aU;(=P'F)7$$\"5=Xh)) >$[oZ[\"FW$\"5)o?M>J'Rn@pF)7$$\"535\"*fT#[!*[[\"FW$\"5SkWFLG;&[\"FW$\"5%**RRC** [b!zqF)7$$\"5iJNWN`x!H\\\"FW$\"5+hVQ!y#HUNmF)7$$\"5&)*)pVa\"R')H\\\"FW $\"5`i!QyK^\"4qkF)7$$\"5Al`$GvO;K\\\"FW$\"5(G*od5!z'F)7$$\"5J%[C')p;M[\\\"FW$\"5>v<$e&yq(eN'F)7$$\"5JGH!yop+t\\\"FW$ \"5sya=hT)Ho'oF)7$$\"5Vh#*)*zT5S(\\\"FW$\"5mPw2L$4P=m'F)7$$\"5%RT_ w\\\"FW$\"56F#\\\"))oY$Q;'F)7$$\"5tFIi&>\"Gy(\\\"FW$\"5=](H-GkXlV'F)7$ $\"5%Q%)H))fCt$)\\\"FW$\"5Ish!>1\"*37'oF)7$$\"52HnF>'[g%)\\\"FW$\"5k#o h4JYS:W'F)7$$\"5ZwPBmb')f)\\\"FW$\"5y0bdt:&p@!oF)7$$\"5tmI;DfVk)\\\"FW $\"5r`_)GTy$>qpF)7$$\"5?)\\IXn4p(=:FW$\"5Uj*pHDg16>-) =:FW$\"5*>\">qVq$*HiuF)7$$\"5mN>yMx>!*=:FW$\"5j`UNRN;i(4(F)7$$\"51`_E( *yZ'*=:FW$\"5c%ye=wOJ[^(F)7$$\"5q#p)=@5dQ>:FW$\"5lYXc1*HT`2(F)7$$\"5EV hHRsyZ>:FW$\"57o**R[\"pT(*z'F)7$$\"5F&H(o!Q6a'>:FW$\"504'pO1#oa#H(F)7$ $\"5=nYb[vTs>:FW$\"5Mrn?Y4')e&\\(F)7$$\"5E093G=XQ@:FW$\"5`TDc`9S:apF)7 $$\"5)z3Uf4uk9_\"FW$\"5H*)*y+%)>T()y'F)7$$\"5n-L\"y_[r;_\"FW$\"5#y*)y' QXZ*)ejF)7$$\"5?<\"fi%*o#y@:FW$\"5Q@#GY5(\\@bmF)7$$\"53ovL\"HjCB_\"FW$ \"5LQ'HU_%)o^7(F)7$$\"5?@+ug&[6C_\"FW$\"5[3#=O8-k]q'F)7$$\"5+q,k`MObA: FW$\"5u-ej79H$41(F)7$$\"5w#3$)=b--E_\"FW$\"58c3AyCD7:(F)7$$\"5&G()onsMbq_\"FW$\"5s^=59K=Scv F)7$$\"51*3HHr-3u_\"FW$\"5,3B?MY!=W,(F)7$$\"50k_^xkqZF:FW$\"5_#zt&)\\* Qh1nF)7$$\"5@K<+TFDgF:FW$\"53uikzmAB*H_G:FW$\"5YX*>^t'**QBxF)7$$\"5iWKyB\"Qb&G:FW$\"56- =[UJ1e'z0=qF)7$$\"5q#GTnbRw'G:FW$\" 5x7uvCO!4,?6>U;FW$\"5LH+B0SHjbsF)7$$\"5ol_#Ha@vYoF)7$$\"5s`aW#pB\"GU;FW$\"5c-Z8T\\5^brF)7$$\"5@c[!e! )=WCk\"FW$\"5[FqJ5WPN-xF)7$$\"5lcd`HZ9ZU;FW$\"5*zo()[*)H))zH(F)7$$\"5h Vj'e%pn^U;FW$\"5/?7#z(>)*[#o(F)7$$\"53eo+_,C`U;FW$\"5;0#elZ>(ReyF)7$$ \"5EBxBN$Q_Wk\"FW$\"5dEs()p?u1JuF)7$$\"5H#fr\"o6PZW;FW$\"5+7([DfvikE(F )7$$\"5)*p+Gi.j`W;FW$\"5yi'\\`qoF)7$$\"55*fb$\\*pg[k\"FW$\" 5(*R`xQ*=9cd'F)7$$\"5BbC\\%))*3&\\k\"FW$\"5Y`ws$f/i!3qF)7$$\"5#pE#)*=[ e)\\k\"FW$\"5d&38$\\a:[urF)7$$\"5FV(3vJ)GqX;FW$\"5q(4\"Qi.)[<$>gLtF)7$$\"5jkW nrV\\9a;FW$\"5ZMdvB%HtY\"pF)7$$\"5=T%=mJ$**=a;FW$\"5V\\&R[aLFKk'F)7$$ \"549cWzwiFa;FW$\"5I-=HD')ylVrF)7$$\"5_.4`H:2Ja;FW$\"5MV!RLO<>'\\tF)7$ $\"5-E&RK-rY^l\"FW$\"5bxE$z5.MA'oF)7$$\"5\\oP_C6\")=b;FW$\"5-1_\"3Db?) )p'F)7$$\"5UpSkyc_Hb;FW$\"5/L;Ft.$4RF'F)7$$\"5@Iy)\\$fJNb;FW$\"5Lwm#z? NfFd'F)7$$\"5t7)>Bq6Qcl\"FW$\"5.WcO4*\\tQ0(F)7$$\"5]7>Bm@Uob;FW$\"5l%R i'RclQNmF)7$$\"5f'[`gc%*fdl\"FW$\"5x2(Q]#zs!Q*pF)7$$\"5RYpd#**z&yb;FW$ \"5(pm2@*H=()frF)7$$\"5qe.j$31Q#e;FW$\"5![&)*z&\\qYPn(F)7$$\"5g(4J!o@# f#e;FW$\"5%[Nc4BLG#)\\(F)7$$\"51*=g/Oq?$e;FW$\"5g(*H'QK)z#[6(F)7$$\"5( o\")=Qixd$e;FW$\"5f#yG`kZM)>vF)7$$\"5wwI!3'**3ee;FW$\"5)oltPA_5l(pF)7$ $\"5&=I/d2)\\ie;FW$\"5-\"p$3P6uPomF)7$$\"5+_@IVPaqe;FW$\"5&y!3c@$*)R$y qF)7$$\"53&yCh&Rhte;FW$\"5)41ZD?-pmB(F)7$$\"52Tu2$>?5$f;FW$\"57Z)Q8c%p GxwF)7$$\"5;?Blus>Lf;FW$\"5Z@$[QGBU6Z(F)7$$\"50Q4M`**eQf;FW$\"5fE'G`9% HwqpF)7$$\"5L?Jj`DOTf;FW$\"5y&HVezjCDC(F)7$$\"5*)=8.Z!=O&f;FW$\"5)f>F. ,ai`m(F)7$$\"5+8=:d)*Qbf;FW$\"57/#*z'GYtdC(F)7$$\"53I^%))>v\"ef;FW$\"5 mI\"fj0,>ng(F)7$$\"5WTnq*)34ff;FW$\"5))Qn))[..!\\x(F)7$$\"58;>i@*)3rz; FW$\"5MO`9'o)o\\O%)F)7$$\"5)R&[s\"Q_<(z;FW$\"5?:jvy=n.o#)F)7$$\"5^u,X= %pP(z;FW$\"5Xl[_W3\"[i!zF)7$$\"5x)3fhl^](z;FW$\"5g6Y!=#=[ID$)F)7$$\"5Q _b`%)H!R)z;FW$\"5AL2L)F)7$$\"5PN4iDfFK!o\"FW$\"5hEN$onE\"ovyF)7$$\"5/!=,_!fWM!o\"FW$\"5 Lp;lz)**emr(F)7$$\"5+bw%=TB,/o\"FW$\"5Q>EnC%)R\"\\I(F)7$$\"5v4q+(\\GK/ o\"FW$\"5D=xu6@@47wF)7$$\"5s!e@HL&))e!o\"FW$\"5.!='*44!4!3:)F)7$$\"5fa **[#3x91o\"FW$\"5-v!oTinh]u(F)7$$\"5q+u>C#pd1o\"FW$\"5jx&\\B`**os7)F)7 $$\"5ZL*QbuWs1o\"FW$\"5PoF5\\AGQ-$)F)7$$\"5gEzSj9KK#o\"FW$\"57m[/!G<.# exF)7$$\"51;l`F3+M#o\"FW$\"5JXB'>b4g>f(F)7$$\"5JHD^BB\"*Q#o\"FW$\"5_hh +Td+.LsF)7$$\"5sWQqtu*=Co\"FW$\"5L1CD\")*p;7l(F)7$$\"5`Ujzk.Eg#o\"FW$ \"5be]2tz!3%orF)7$$\"5!eQ7QLtREo\"FW$\"5t!H,7VaY#poF)7$$\"50:0KIx#3Fo \"FW$\"5_'f=T9M4OH(F)7$$\"5z&fhliqMFo\"FW$\"5H/'p%R]2#oX(F)7$$\"5+17-] 1X+wqr-7%zF)7$$\"5U3z;nXJG$o\"FW$\"5A57**HR)e^t(F)7$$\"5 %3Iu2V!oL$o\"FW$\"5^s!*=L,d`MsF)7$$\"5=]@BU5ZO$o\"FW$\"5bP(\\vdy))e](F )7$$\"5)GdAnn%3\\$o\"FW$\"5A>B>=5&fW#zF)7$$\"5;'Q+5I[4No\"FW$\"5Pk!*pY Vp*Q](F)7$$\"5?+\\J0)**QNo\"FW$\"5r9&o%p]K6jyF)7$$\"5!e+?=3w[No\"FW$\" 5_URH#o[r1.)F)7$$\"5w3*yDGh0yo\"FW$\"5'3W-**G$\\(\\^)F)7$$\"55=on/&[7y o\"FW$\"5I.FmK@lIX$)F)7$$\"5J\"Q%[L-K$yo\"FW$\"5Bkl9[R,%)zzF)7$$\"5(eq gF!Qi%yo\"FW$\"5!e#[,81Tb'R)F)7$$\"5m.JQ^]N$zo\"FW$\"5*)[?Uwrcu`zF)7$$ \"5b_2tO`E&zo\"FW$\"5-]UX%pM?un(F)7$$\"5C2`xVp\"*)zo\"FW$\"5DC0<.Y#R)o \")F)7$$\"5'oUUI0o.!)o\"FW$\"5kJ*4'[P0Lr$)F)7$$\"5]o01%zmY$)o\"FW$\"52 &)>l*G+4p\"yF)7$$\"517Xg&[>j$)o\"FW$\"50Y2(e!G>(3l(F)7$$\"5'=[+Gqw0%)o \"FW$\"5)[ch%4rsT>sF)7$$\"5[>#G`RlG%)o\"FW$\"5PrqcM#ys[^(F)7$$\"5t!4h \\.2S&)o\"FW$\"5n](3b'R#>1)zF)7$$\"5Rr::A2zb)o\"FW$\"59vK=%RPT)fvF)7$$ \"5a(oOM))3(e)o\"FW$\"5'*4ESk0$4Y\"zF)7$$\"5J^Kgs>qf)o\"FW$\"5.Y3KjXvX z!)F)7$$\"586,$*H+ZY*o\"FW$\"5l*>_\"Q'3j.`)F)7$$\"5F<#*o-a:Z*o\"FW$\"5 26=Q1]3ma$)F)7$$\"5j&y`1hS\"\\*o\"FW$\"5Ft[IwCmvqzF)7$$\"5q92ckKL]*o\" FW$\"5m_PhVf9[v$)F)7$$\"5W,N^*[Tu&*o\"FW$\"5#*Gj;jCR!3$yF)7$$\"5z^GId; $)e*o\"FW$\"5/_euO+FZAvF)7$$\"5)3>X&RpNh*o\"FW$\"58wG6'f7L@$zF)7$$\"5Q 9Nu![;B'*o\"FW$\"5/fF9L_qO!4)F)7$$\"5\"yo;o_S)z*o\"FW$\"5+>q*QVXp7`)F) 7$$\"5DEz.=&*[!)*o\"FW$\"51Aao&>A8_K)F)7$$\"5>\"4/[<#4#)*o\"FW$\"5n6W) >eF!3DyF)7$$\"5/pBtWM\"H)*o\"FW$\"5J'H8s1*=)p4)F)7$$\"5`Jfc#[@l)*o\"FW $\"5_bPKwNXb?&)F)7$$\"5Q9**[;,/()*o\"FW$\"5u6K_awy3,\")F)7$$\"5F^.;)*Q &y)*o\"FW$\"5u8G;CgFBi%)F)7$$\"5-fg$R-@\"))*o\"FW$\"5!3;jWtp\"[I')F)7$ $\"5UB,3[y:^-=FW$\"5>!otFa#*[,v)F)7$$\"5,=<+LMG^-=FW$\"56Z(3+)yy$>e)F) 7$$\"5>70O)*fm^-=FW$\"5%=86tLi34A)F)7$$\"5Jo%)y&z4>D!=FW$\"5l,([jg/\\/ k)F)7$$\"53T!>5\\0OD!=FW$\"5=M`3/M$)Q<#)F)7$$\"5\")*3N=Q\"*RD!=FW$\"5B #zo#z-OgXzF)7$$\"5Xu6SIVua-=FW$\"5$zb4S#\\P'fW)F)7$$\"5ZQUq*>\\]D!=FW$ \"5%pMl3i%>6_')F)7$$\"5bT.BVOFj-=FW$\"5o6*))HL!4p8#)F)7$$\"5x#*Rn`Nsj- =FW$\"5P!3HE_(Gfb!)F)7$$\"5&eN>&*R2\\E!=FW$\"5QUk!\\'>#*GYwF)7$$\"5Pdq Vw*ebE!=FW$\"50(>$HB'p;[&zF)7$$\"5)*y3L%=*))o-=FW$\"5)zs30Bf(\\+&)F)7$ $\"5(=AloqZ%p-=FW$\"5#*[!)*G3-Tf4)F)7$$\"5')e?dLsPq-=FW$\"5bbA%HN=D,[) F)7$$\"5a@KX*4)pq-=FW$\"5tTJMl$*R#fl)F)7$$\"5,\"4d=3R6J!=FW$\"5!*>M1zc X:<#)F)7$$\"5u%\\_c()*f6.=FW$\"5:CSjgIXW_!)F)7$$\"5()[#pSj`HJ!=FW$\"5> ?F+xY83)p(F)7$$\"5&=/gF!4y8.=FW$\"5J;=8v&\\1\">\")F)7$$\"5g(p\")='\\%* =.=FW$\"50RC))=5L!\\l(F)7$$\"5w&Qhq-0+K!=FW$\"5U3kLi?UwftF)7$$\"5Sy4r1 i(>K!=FW$\"5YwgvZ-z!=z(F)7$$\"5(y&*4p?TFK!=FW$\"5&3q#poIH2ezF)7$$\"5iO idV%)eQ.=FW$\"5)fNwn5f>s^)F)7$$\"5e/&H))od#R.=FW$\"5DDg$Q$pw#\\J)F)7$$ \"5$*)\\vpNT4M!=FW$\"5[cw#3-,5S#yF)7$$\"5nQ^V%*=#=M!=FW$\"5%o2@#>nuf+ \")F)7$$\"5%[FQnMWeM!=FW$\"5)Q5K!z:H_Mg;ZrZ.=FW$ \"5'G^@/n4!ej')F)7$$\"5$RDmmm([R0=FW$\"5jMS=H4aaN#)F)7$$\"5I:sHd!=*R0= FW$\"5R`f!4h(=6o!)F)7$$\"510CWn*=7a!=FW$\"5^]\"fb3*GF4xF)7$$\"5?$[1@=S ?a!=FW$\"5QUICOsu368xF)7$$\"5pgWgAA #)[0=FW$\"5oPk;TBO6UuF)7$$\"5S2j>\"=#=^0=FW$\"5&ep@>\"e*>M%zF)7$$\"59n dXRZ7_0=FW$\"5k3cUw>mt\\\")F)7$$\"5T3o#y'*H_d!=FW$\"5n(GlaB/M?n(F)7$$ \"5YTPmgaQw0=FW$\"5&z(*3!)=2c\"4vF)7$$\"5ggt(p\"3Qz0=FW$\"5%oUvm+#zl&3 (F)7$$\"5agUU7D+\"e!=FW$\"53\\Wh3ttG&Q(F)7$$\"5*>+bw'Q,*e!=FW$\"5'GdN_ t<1/(yF)7$$\"5^cimF[J!f!=FW$\"5F!p^a\"GWf_uF)7$$\"5u40DeWX#f!=FW$\"5zo WG\"p-T@\"yF)7$$\"5ygI'*3e=$f!=FW$\"5b%p`$eD^fyzF)7$$\"5Qbw)RavWm!=FW$ \"5a$*RU/!)[CV&)F)7$$\"5wtbzQu5l1=FW$\"5j`1O#R!>Jo$)F)7$$\"5^')*HT-Xpm !=FW$\"5[sa;@)RIm)zF)7$$\"5[f\"H1Ca!o1=FW$\"5yA)*QVzno#R)F)7$$\"5AbN;7 *[Zn!=FW$\"5p\"*)fLo1$*e&yF)7$$\"5ReX0e`2w1=FW$\"5g;S**y&H%4\\vF)7$$\" 5f+naM'*\\y1=FW$\"5tys)\\Q(>`hzF)7$$\"5>6beVeUz1=FW$\"5bu`(4p$)=37)F)7 $$\"5SQCiJr&op!=FW$\"5,C@>Yt`$3e)F)7$$\"5`!)yzSC_(p!=FW$\"5>Fl:hY^[v$) F)7$$\"5kk9_l<<*p!=FW$\"5%)Q8\"z7/'4xyF)7$$\"5:yN3&\\?+q!=FW$\"54!>%Hq 59*)\\\")F)7$$\"5!p-A`6yPq!=FW$\"5irF?U#Q%Rx&)F)7$$\"5q))Q2#=AVq!=FW$ \"5USVBIbI\\e\")F)7$$\"52#pM+*y<02=FW$\"5sEXiKLa_?&)F)7$$\"5LvUg=$faq! =FW$\"5aR??4[e1*o)F)7$$\"5_o9n2(e*y9=FW$\"5(3XsS9\"QiW#)F)7$$\"5&=dgy' pFz9=FW$\"5J)fvtszJl2)F)7$$\"5i*))4T([C![\"=FW$\"5+wTKf\"Reer(F)7$$\"5 (3E+4Wg3[\"=FW$\"5$H;Dr^)*>c8)F)7$$\"5f:_gb`6&[\"=FW$\"5n[T==[m(Rr(F)7 $$\"5W$yJ:Dxg[\"=FW$\"5&ePv#*Gp&[UuF)7$$\"5okO:#QZz[\"=FW$\"5o=.W[$y*Q VzF)7$$\"5(>MoU4-()[\"=FW$\"5(Qcv7\"Gnu\\\")F)7$$\"5!4Wjq![a3:=FW$\"5w vHU?ZUq9xF)7$$\"5@R`?0Hg4:=FW$\"5)*>T^0/JncvF)7$$\"5GC\"Qd?uB^\"=FW$\" 5GBDU8X#*[ZrF)7$$\"5nm8zS;*Q^\"=FW$\"5\"[M(z#\\]\\gX(F)7$$\"5;3\"GeMi: _\"=FW$\"5*[hcf)>-`,!)F)7$$\"5`S1[P_$G_\"=FW$\"5GQF0&eQ\")of(F)7$$\"5U +)fc\")F)7 $$\"5%4`R%Rvy3;=FW$\"5>4?o\\W\\:mwF)7$$\"5qFi$*)G`'4;=FW$\"5%*z#H>Q)[L +vF)7$$\"5].d%)3x=7;=FW$\"5[ZX?<`(HE9(F)7$$\"5JPC$eeGJ3(F)7$$\"5lgfN-m=m\"=FW$\"5=+@gpGx^krF)7$$\"5X>`B*z-Lm\"=FW$ \"5FbWt-&)QQOuF)7$$\"5!QGJp[A+n\"=FW$\"5]2tK>$3=s&yF)7$$\"5G5;))>v,r;= FW$\"5ZIz'G\"\\D)pV(F)7$$\"51UR9tXfs;=FW$\"5p!e'zM7=r'z(F)7$$\"5ZrorOl 6t;=FW$\"5Cy!*p=FW$\"5i\"yqs]F0*y%)F)7$$\"5s D\\i(4%[=>=FW$\"5/*>Z!>c>A4$)F)7$$\"5gQ(pm9v(>>=FW$\"5zhihH)e4P%zF)7$$ \"5hma*[2)e?>=FW$\"5\"\\a\"pvRORg$)F)7$$\"5&[PY!zX/E>=FW$\"58#31WK[lt \"zF)7$$\"5GFsi&3Ts#>=FW$\"5L6EQPAs)4k(F)7$$\"5r%eXl(4`H>=FW$\"5y21+)f H,B8)F)7$$\"5JjP#\\%>WI>=FW$\"5!)G#>6r1\\ZL)F)7$$\"56\">&yk29_>=FW$\"5 'oRq)o8_-zxF)7$$\"5QzZ7dX>`>=FW$\"57=wFza?\"Hh(F)7$$\"5nx<^-E\"f&>=FW$ \"5Y&=A7]Ca7=(F)7$$\"5gJ/+afPd>=FW$\"5\"[q?(*[^(fwuF)7$$\"5$=xyc5@X'>= FW$\"5>TaYDW=wTzF)7$$\"5%z=FW$\"5%)yH!4KH&)3_(F)7$$\"5Y@vzTran >=FW$\"5K`Cu9u#)[vyF)7$$\"5.1Y')*4(=o>=FW$\"5kv.f\\T$z-/)F)7$$\"5mY>xN %f_-#=FW$\"5_Yo?>,d-#=FW$\"5e8\")32])3&3$)F)7$$\" 5-gPEbS0F?=FW$\"5b;z^?!4*RCzF)7$$\"5ZN+W#Gcy-#=FW$\"5]7_:tD#***G$)F)7$ $\"5azu$>YZE.#=FW$\"5!)>BdRf9c$y(F)7$$\"5ue\\$QZ'eL?=FW$\"546<]eJ%y]Z( F)7$$\"5c-*3`*QHN?=FW$\"5T'4\"p\"pyfW)yF)7$$\"5\"4Dx'RK%f.#=FW$\"5nNSz fVjeU!)F)7$$\"5lQS<@z&y/#=FW$\"5S$3+HsLQ9[)F)7$$\"5Q>^aC7I[?=FW$\"53m> td0DIv#)F)7$$\"5TJDBylR\\?=FW$\"53l_xWY@(\\x(F)7$$\"5[Xr'\\Be*\\?=FW$ \"5H@R8&\\(=xY!)F)7$$\"59&*4O`&GC0#=FW$\"5&oIsgta#*)p%)F)7$$\"5H/(yh-% y_?=FW$\"5,LE*[.@g.0)F)7$$\"5sv#)e')>M`?=FW$\"5GIH-,%p,9T)F)7$$\"5#G4 \"y*=DN0#=FW$\"51vRm\"\\m;'z&)F)7$$\"5lu(RI1Ga1%=FW$\"5R#y)fnE.BT#*F)7 $$\"5t)fB#=3clS=FW$\"5%e7([4$HfH2*F)7$$\"5kW^QCQLI2 ()F)7$$\"5)=Hq15=%oS=FW$\"5:.-Sg_XLN%)F)7$$\"5b;C?(y5#pS=FW$\"5BN,!Ro* fLN*)F)7$$\"5!zepl_J&pS=FW$\"5^ZK$4L*)Q89*F)7$$\"59l*=eyO\"yS=FW$\"5V? u*)oXM**)p)F)7$$\"5-u4gB\\gyS=FW$\"5_[\"GB-f!oS&)F)7$$\"5&)[^!3%=FW$\"5ikU^u/t-R%)F)7$$\"5R*>U_ xgR3%=FW$\"5#pvm0M]:J)*)F)7$$\"58uA_zx`%3%=FW$\"5\"yS*=Tx;Hy&)F)7$$\"5 @!>!=pr\\&3%=FW$\"5'oO7WymI?'*)F)7$$\"5@\"*3K%3Ge3%=FW$\"5P(3U/8\"fnP \"*F)7$$\"5%45je&y^ET=FW$\"5`\"*RI8]eLz')F)7$$\"5g%zM6Nqp7%=FW$\"5ya$Q rE\\*R9&)F)7$$\"5(\\P(yT$)HGT=FW$\"5'zdVfj(=Pf\")F)7$$\"5_NM`Z)3\"HT=F W$\"5f\"o*o'yp!**z&)F)7$$\"5daG%e'4:MT=FW$\"5'*f,.GMOC8\")F)7$$\"5bW*3 fL#=NT=FW$\"5PV\")*e'e6e(p'o4PT=FW$\"5ffvU+N(\\'[#)F)7$$ \"5Xl&*)RtQy8%=FW$\"5%p*eg'3NOXT)F)7$$\"5`WE.i\\1`T=FW$\"5*y<7U8Ksd'*) F)7$$\"5p5?gF@q`T=FW$\"5&R1o2qjVJw)F)7$$\"5!*)G-%HIIbT=FW$\"5vofy7/tPr #)F)7$$\"5:L(\\*4\"Rh:%=FW$\"5S)4D%>O/_Z&)F)7$$\"56_Nb4$[*fT=FW$\"5t/+ JJl&*[*)*)F)7$$\"57,tV2`^gT=FW$\"5khb[wd'\\Ed)F)7$$\"5F)4&z6bThT=FW$\" 5gxVgUa]\"z$*)F)7$$\"5fJ5+wQrhT=FW$\"5Po4&Hw&o^2\"*F)7$$\"5EIT[&H)fEV= FW$\"5)3K*))fE.yi&)F)7$$\"5*GX/EXPpK%=FW$\"5jw]^#e><]R)F)7$$\"5)prb(o= 'zK%=FW$\"5Ni95PT)y^.)F)7$$\"5[(3-,)zgGV=FW$\"5N#)>(\\MsY`X)F)7$$\"5&H RJl\\mHL%=FW$\"5)>a*pm_01M!)F)7$$\"5sYkD]t#RL%=FW$\"5#**zsV=c'4ixF)7$$ \"5of&R#oj:)F)7$$\"5G/)e%Hr%eO%=FW$\"5 t^$f-/&)ptt(F)7$$\"5Mdl#>#\\YnV=FW$\"5'p?TW1$4&\\4)F)7$$\"5\"eUr[G \"QG_ck3U%=FW$\"5Bv!R&)[UYCd)F)7$$\"5Yy2ac\"y@U%=FW$\"5/pwd'4'=S)=)F)7 $$\"5bWpUF-(HU%=FW$\"5#3x!pp73-$f)F)7$$\"5r**pesstFW=FW$\"5WN#QthUot/) F)7$$\"5%z0pO0z'GW=FW$\"5D)H2fS`w(QxF)7$$\"5l$4PI(zRIW=FW$\"5ZN<*4*3I! z9)F)7$$\"5e7Wg/R0JW=FW$\"5WE04]QK\"fI)F)7$$\"5'[(4/%y>GTJ\\W=FW$\"5_C`(Q#p&\\`$))F)7$$\"5Z\"GE$** ))*[([=FW$\"5F=g>-_6y>$*F)7$$\"5pX&fhnO]([=FW$\"5[:[o7:*F)7$$\"5$= j!fEbXv[=FW$\"5PFVvLk0K*y)F)7$$\"5kyd5zHCW!))[=FW$\"59Uni,'e X\\f)F)7$$\"5#>`8O0@#*)[=FW$\"5z(=2Jsw`F=)F)7$$\"5]e&e7ek)*)[=FW$\"5na cpS]to*[)F)7$$\"5SzP;o&3J*[=FW$\"5s0FKX5Y;F!*F)7$$\"5Q\")fM 3u\"o.4M:)F)7$$\"5)>o&ewPTP\\=FW$\"5*>VS*Q7\\T;$)F)7$$\"5$e[ht<[#[\\=F W$\"5JkAs%Rt0nz)F)7$$\"5Y%R45`)o[\\=FW$\"5y\"=A6kp&\\!f)F)7$$\"5Oj[T@0 z\\\\=FW$\"5mp)>,/Sc%*3)F)7$$\"5#G>\"G^NO]\\=FW$\"5*=-A$4\"=$fg$)F)7$$ \"58!>V#zH&H&\\=FW$\"5R91,pCo=y()F)7$$\"5.R=1kaL`\\=FW$\"5(*GrmHp*zuN) F)7$$\"5o*>v?;z45:9a\\=FW$\"5G4G8!*=. &R)))F)7$$\"5c[)>&)H23/&=FW$\"5gqI8P?K`N$*F)7$$\"5F!osh-Y4/&=FW$\"57R# \\XG97e;*F)7$$\"5>6,!e@k8/&=FW$\"5JyV6U$\\(=+))F)7$$\"51t%>$HtiT]=FW$ \"5;#pQeTX,o@*F)7$$\"5o8eat#*QV]=FW$\"5#4UM[2RELx)F)7$$\"5\"H1PknuP/&= FW$\"5v4*H7Z'\\&o\\)F)7$$\"5hcd^08^W]=FW$\"5)R*z,8x[*z)*)F)7$$\"5*\\PR =+/[/&=FW$\"5)z`Hou=v.>*F)7$$\"5&4rnf)or^]=FW$\"5>&e\"4fYVLL')F)7$$\"5 Lip#Rs\\?0&=FW$\"5lIe?s)3rrY)F)7$$\"5L*Qh+)p!H0&=FW$\"5=6O+]^4RN!)F)7$ $\"5e)\\*GxxO`]=FW$\"5p5B&3'G?nI$)F)7$$\"5(3imDL5c0&=FW$\"5aUd]hO\"obz )F)7$$\"5s*>K`Cpf0&=FW$\"5&eZd#zmUlu$)F)7$$\"5R/!HaPcl0&=FW$\"5S+(*e\\ K%*>H()F)7$$\"5p&HDj;cn0&=FW$\"5S4^e:y;(R*))F)7$$\"5f[GE8zv[.8Z2&=FW $\"5SuxUcL&[%y()F)7$$\"52r#fL*>&\\2&=FW$\"5dt='oRK#3$=*F)7$$\"5'Qh(*Q \"fPw]=FW$\"5K6c<1,H'yj)F)7$$\"5?G$RwLam2&=FW$\"5?5))3Z7dUH$)F)7$$\"5U '*G*o0gr2&=FW$\"5FT2M;#y$*)Q()F)7$$\"5F[AU,ANx]=FW$\"5&4<\\[$GU0(*))F) 7$$\"5wrEQ9)f33&=FW$\"5a/2SD>9iO$*F)7$$\"5GYMFh'*)43&=FW$\"58-WP\"RZ:0 8*F)7$$\"5p_Y#eH583&=FW$\"5F61M(RTg-j)F)7$$\"5mo%[Lfu93&=FW$\"5]6()o<- #*4-*)F)7$$\"5sQd5#3&=FW$\"5'R " 0 "" {MPLTEXT 1 0 74 " #Below I'm hard-coding the points at which each grouping has it's mini mum." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 277 "#There is an inter esting recursion here. Let's say k[i] = log(-dn[r]) for some number r . Then k[i+2] = log(-dn[2^i + r]). Kind of reminiscent of Fibonacci \+ recursion to me. The same thing goes for the j's. The j sequences wh ich produce minimums are those with the most +'s." }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 36 "k[1]:=log(El[1]): j[1]:=log(-dn[1]):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "k[2]:=log(El[2]): j[2]:=log( -dn[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "k[3]:=log(El[3] ): j[3]:=log(-dn[3]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "k[ 4]:=log(El[6]): j[4]:=log(-dn[6]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "k[5]:=log(El[11]): j[5]:=log(-dn[11]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "k[6]:=log(El[22]): j[6]:=log(-dn[22 ]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "k[7]:=log(El[43]): j [7]:=log(-dn[43]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "k[8]: =log(El[86]): j[8]:=log(-dn[86]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "k[9]:=log(El[171]): j[9]:=log(-dn[171]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "k[10]:=log(El[342]): j[10]:=log(-dn [342]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "#Now we make a new list with only t he minimum points, so that we can graph only them." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "list2:=[seq([k[i],j[i]],i=6..10)]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "list2;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7'7$$\"5S6ZX/82ts6!#=$\"51:UmV&R?Lu%!#>7$$\"5f2(G,:MJLL \"F'$\"5%4&o'p,I= " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 38 "#And then we graph the minimum points." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 92 "pointplot(list2, title=\"Minimum Po ints Graph\", labels=[\"Eigenvalues\",\"Normal Derivatives\"]);" }} {PARA 13 "" 1 "" {GLPLOT2D 382 382 382 {PLOTDATA 2 "6%-%'POINTSG6'7$$ \"5S6ZX/82ts6!#=$\"51:UmV&R?Lu%!#>7$$\"5f2(G,:MJLL\"F)$\"5%4&o'p,I= " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 146 "#Now we find the slope using least squares method. \+ It's somewhat inaccurate since we're only using 7 digits and some of t hese numbers are x*10^5." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "LeastSquares(list2,v);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&$\"5R%p?J gRd=-\"!#>\"\"\"*&$\"54;7*4rC\"*G<$!#?F'%\"vGF'F'" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 34 "list3:=[seq([k[i],j[i]],i=5..10)]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 92 "pointplot(list3, title=\"Min imum Points Graph\", labels=[\"Eigenvalues\",\"Normal Derivatives\"]); " }}{PARA 13 "" 1 "" {GLPLOT2D 382 382 382 {PLOTDATA 2 "6%-%'POINTSG6( 7$$\"559$pg%R[v55!#=$\"5)yYBQl,8_A%!#>7$$\"5S6ZX/82ts6F)$\"51:UmV&R?Lu %F,7$$\"5f2(G,:MJLL\"F)$\"5%4&o'p,I= " 0 "" {MPLTEXT 1 0 22 "LeastSquares(list3,v);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&$\"5*o2(4fMDl;5!#>\"\"\"*&$\"5;^*>pXKTh<$!#?F'%\"vGF'F'" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "list4:=[seq([k[i],j[i]],i=7. .10)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "pointplot(list4, \+ title=\"Minimum Points Graph\", labels=[\"Eigenvalues\", \"Normal Deri vatives\"]);" }}{PARA 13 "" 1 "" {GLPLOT2D 382 382 382 {PLOTDATA 2 "6% -%'POINTSG6&7$$\"5f2(G,:MJLL\"!#=$\"5%4&o'p,I=7$$\"5]\"3Wyfh*Q% \\\"F)$\"5E28?-lLNjdF,7$$\"5UpSkyc_Hb;F)$\"5/L;Ft.$4RF'F,7$$\"5lgfN-m< D;=F)$\"5ea " 0 " " {MPLTEXT 1 0 22 "LeastSquares(list4,v);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,&$\"5wQLa40k?>5!#>\"\"\"*&$\"5Bb " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "4 0 0" 10 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }