{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 }{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 P lot" 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 313 "#This program allow s you to zoom in on any set of points in the graph of the normal deriv ative of the Dirichlet eigenfunction against the eigenvalue. It print s graphs for the 2 and 5 series, as well as printing two different ver sions of each of these. You need to have the value files in the same \+ folder though." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "read \"values_2.m\";" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "read \"values_5.m\";" }}}{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 31 "y1[i]:=log(-dn[i]/sqrt(El[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 "x1[j]:=log(El [j]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 42 "listname1:= [seq([x1[i],y1[i]],i=33..64)]:" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 117 "pointplot(listname1, title =\"points 33-64, 2-series, renormalized y-axis\", labels=[\"eigenvalue \",\"normal derivative\"]);" }}{PARA 13 "" 1 "" {GLPLOT2D 382 382 382 {PLOTDATA 2 "6%-%'POINTSG6B7$$\"+F>p>8!\")$!+`(4Ni#!#57$$\"+H%[)>8F)$! +K[9)H%F,7$$\"+G,K?8F)$!+9NW()yF,7$$\"+coh?8F)$!+p.,!o$F,7$$\"+YIgA8F) $!+(*[Z`yF,7$$\"+St.B8F)$!+8'Hk0\"!\"*7$$\"+-t'QK\"F)$!+v0&Gb&F,7$$\"+ ^q>C8F)$!+k#G.\\$F,7$$\"+?y)>L\"F)$!+m!*)GG)F,7$$\"+`MOK8F)$!+!)yU7**F ,7$$\"+T8LL8F)$!+2%Q\\T\"FF7$$\"+v=&QL\"F)$!+3\\T:6FF7$$\"+Z$)QO8F)$!+ 4c;3jF,7$$\"+l[zO8F)$!+y>r[5FF7$$\"+_-YP8F)$!+n&GI*oF,7$$\"+'y'oP8F)$! +I\"f*G_F,7$$\"+!HNyN\"F)$\"+t')[XP!#67$$\"+N))*zN\"F)$!+;!Q^P\"F,7$$ \"+8JZe8F)$!+fd)H>&F,7$$\"+`%e(e8F)$!+YS/L6F,7$$\"+DdYg8F)$!+9Ur/lF,7$ $\"+05!3O\"F)$!+3WVt&*F,7$$\"+j7Th8F)$!+')>R]aF,7$$\"+lNkh8F)$!+Z-.eQF ,7$$\"+A/$fO\"F)$\"+[HVFtFhp7$$\"+K44m8F)$!+$)*36K\"F,7$$\"+&)y[m8F)$! +H$peI'F,7$$\"+D;pm8F)$!+YOOyNF,7$$\"+v$*en8F)$\"+$[up%pFhp7$$\"+(y=xO \"F)$!+*y*f%\\$F,7$$\"+M?#zO\"F)$\"+7f!GD\"Fhp7$$\"+,)))zO\"F)$\"+)[L0 \"=F,-%&TITLEG6#QLpoints~33-64,~2-series,~renormalized~y-axis6\"-%+AXE SLABELSG6$Q+eigenvalueFhuQ2normal~derivativeFhu" 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 23 "for i from 1 to 512 do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "y2[i]:=log(-dn5[i]/sqrt(El5[i])):" }}{PARA 0 "> " 0 " " {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "fo r j from 1 to 512 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "x2[j]:=log( El5[j]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 42 "listname2:= [seq([x2[i],y2[i]],i=33..64)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 117 "pointplot(listname2, tit le=\"points 33-64, 5-series, renormalized y-axis\", labels=[\"eigenval ue\",\"normal derivative\"]);" }}{PARA 13 "" 1 "" {GLPLOT2D 382 382 382 {PLOTDATA 2 "6%-%'POINTSG6B7$$\"+k$>(>8!\")$\"+0fYUE!#67$$\"+25!)> 8F)$!+_'Rm;%!#57$$\"+YmR?8F)$!+#)HDYnF27$$\"+vRb?8F)$!+2\">&H6F27$$\"+ H1pA8F)$!+h])z!\\F27$$\"+5+#HK\"F)$!+5@_N(*F27$$\"+*oO8F)$!+`'y9N*F27$$\"+r&GvL\"F)$!+'pQSw'F27$$\"+\\okP8F) $!+%eu)QBF27$$\"++U'yN\"F)$\"+\")y:\\KF27$$\"+C'\\zN\"F)$!+g](3A\"F27$ $\"+.wae8F)$!+6zY*3%F27$$\"+m()pe8F)$\"+*HT!\\9F27$$\"+&GM0O\"F)$!+P$H ri$F27$$\"+m:rg8F)$!+!eKCk)F27$$\"+%oz9O\"F)$!+bWUG`F27$$\"+I9gh8F)$!+ 6gAZ%*F,7$$\"+P*ffO\"F)$\"+$[ZXb$F27$$\"+:U/m8F)$!+2#eM2\"F27$$\"+&>Vl O\"F)$!+*pqFZ&F27$$\"+b2lm8F)$!+oz(QO'F,7$$\"++phn8F)$\"+2x&*[KF27$$\" +Jbon8F)$!+\"fl\"eBF27$$\"++B%zO\"F)$\"+c5z*f#F,7$$\"+?r(zO\"F)$\"+!38 kp%F2-%&TITLEG6#QLpoints~33-64,~5-series,~renormalized~y-axis6\"-%+AXE SLABELSG6$Q+eigenvalueFhuQ2normal~derivativeFhu" 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 23 "for i from 1 to 512 do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "y3[i]:=log(-dn[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 "x3[j]:=log(El[j]):" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "listname3:= [seq([x3[i],y3[i]],i=33..64)]:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "pointplot(listname3, title= \"points 33-64, 2-series\", labels=[\"eigenvalue\",\"normal derivative \"]);" }}{PARA 13 "" 1 "" {GLPLOT2D 382 382 382 {PLOTDATA 2 "6%-%'POIN TSG6B7$$\"+F>p>8!\")$\"+g'3hL'!\"*7$$\"+H%[)>8F)$\"+hwUphF,7$$\"+G,K?8 F)$\"+(GcG\"eF,7$$\"+coh?8F)$\"+XK3NiF,7$$\"+YIgA8F)$\"+VxmFeF,7$$\"+S t.B8F)$\"+)3d(ebF,7$$\"+-t'QK\"F)$\"+_90kgF,7$$\"+^q>C8F)$\"+GC&>F'F,7 $$\"+?y)>L\"F)$\"+#>];$eF,7$$\"+`MOK8F)$\"+wWdqcF,7$$\"+T8LL8F)$\"++$= r,iiF,7$$\"+lNkh8F)$\"+*z9CU'F,7$$\"+A/$f O\"F)$\"+Rk#H!pF,7$$\"+K44m8F)$\"+gPM)p'F,7$$\"+&)y[m8F)$\"+!\\_=?'F,7 $$\"+D;pm8F)$\"+f " 0 "" {MPLTEXT 1 0 23 "for i from 1 to 512 do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "y4[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 19 "x4[j]:=log(El5[j]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "listname4:= [seq([x4[i],y 4[i]],i=33..64)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "pointp lot(listname4, title=\"points 33-64, 5-series\", labels=[\"eigenvalue \",\"normal derivative\"]);" }}{PARA 13 "" 1 "" {GLPLOT2D 383 383 383 {PLOTDATA 2 "6%-%'POINTSG6B7$$\"+k$>(>8!\")$\"+x9-Dm!\"*7$$\"+25!)>8F) $\"+s5M#='F,7$$\"+YmR?8F)$\"+LzNFfF,7$$\"+vRb?8F)$\"+lz\")*['F,7$$\"+H 1pA8F)$\"+RYlAhF,7$$\"+5+#HK\"F)$\"+Py/TcF,7$$\"+*oO8F)$\"+>\")H[dF,7$$\"+r&GvL\"F)$\"+))*Q7,'F,7$$\"+\\ okP8F)$\"+'yYVX'F,7$$\"++U'yN\"F)$\"+'yOU6(F,7$$\"+C'\\zN\"F)$\"+;1mnm F,7$$\"+.wae8F)$\"+B7z$Q'F,7$$\"+m()pe8F)$\"+gzRQpF,7$$\"+&GM0O\"F)$\" +$\\e*RkF,7$$\"+m:rg8F)$\"+qXJRfF,7$$\"+%oz9O\"F)$\"+ufbuiF,7$$\"+I9gh 8F)$\"+\"*[`8nF,7$$\"+P*ffO\"F)$\"+JWD&=(F,7$$\"+:U/m8F)$\"+__(Gs'F,7$ $\"+&>VlO\"F)$\"+2*QaG'F,7$$\"+b2lm8F)$\"+'*\\hpnF,7$$\"++phn8F)$\"+t- )H;(F,7$$\"+Jbon8F)$\"+%46Eg'F,7$$\"++B%zO\"F)$\"+6%4d'oF,7$$\"+?r(zO \"F)$\"+3p_4tF,-%&TITLEG6#Q7points~33-64,~5-series6\"-%+AXESLABELSG6$Q +eigenvalueFfuQ2normal~derivativeFfu" 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 "0 0 0" 313 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }