{VERSION 5 0 "Windows 7" "5.0" } {USTYLETAB {PSTYLE "Ordered List 1" -1 200 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 } {PSTYLE "Ordered List 2" -1 201 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 36 2 0 2 2 -1 1 }{PSTYLE "Ordered List 3" -1 202 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 72 2 0 2 2 -1 1 }{PSTYLE "Ordered List 4" -1 203 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 108 2 0 2 2 -1 1 }{PSTYLE "Ordered List 5" -1 204 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 144 2 0 2 2 -1 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 8 8 2 0 2 0 2 2 -1 1 }{PSTYLE "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 } 1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Annotation Title" -1 205 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }3 1 0 0 12 12 2 0 2 0 2 2 -1 1 }{PSTYLE "Fixed Width" -1 17 1 {CSTYLE "" -1 -1 "C ourier" 1 10 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Line Printe d Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Help" -1 10 1 {CSTYLE "" -1 -1 "Courier" 1 9 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 } {PSTYLE "Diagnostic" -1 9 1 {CSTYLE "" -1 -1 "Courier" 1 10 64 128 64 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Dash Item" -1 16 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Maple Ou tput12" -1 206 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "HyperlinkError" -1 207 1 {CSTYLE "" -1 -1 "Courier New" 1 12 255 0 255 1 2 2 1 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 " Courier" 1 10 255 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Title" -1 18 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 0 0 1 }3 1 0 0 12 12 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 1 " -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }1 1 0 0 8 4 2 0 2 0 2 2 -1 1 }{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 4" -1 20 1 {CSTYLE "" -1 -1 "Times" 1 10 0 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Headin g 3" -1 5 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Heading 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }1 1 0 0 8 2 2 0 2 0 2 2 -1 1 }{PSTYLE "HyperlinkWarning" -1 208 1 {CSTYLE "" -1 -1 "Courier \+ New" 1 12 0 0 255 1 2 2 1 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Left Justified Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times " 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 } {PSTYLE "List Item" -1 14 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{CSTYLE "Annotation Tex t" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Mapl e Name" -1 35 "Times" 1 12 104 64 92 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2 D Math Bold" -1 5 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "H elp Menus" -1 36 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic" -1 3 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE " Help Normal" -1 30 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE " Plot Text" -1 28 "Times" 1 8 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Hel p Nonterminal" -1 24 "Courier" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 } {CSTYLE "Help Heading" -1 26 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Italic" -1 42 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Variable" -1 25 "Courier" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Italic Bold" -1 40 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Default" -1 38 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Italic" -1 43 "Times" 1 12 0 0 0 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 1 12 0 0 255 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Bold Small" -1 10 "Times" 1 1 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Small" -1 7 "Times" 1 1 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Page Number" -1 33 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Output Labels" -1 29 "Times" 1 8 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Plot Title" -1 27 "Times" 1 10 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Emphasized" -1 22 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Symbol 2" -1 16 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Comment" -1 21 "Cour ier" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Caption Reference" -1 201 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Input Pla ceholder" -1 202 "Courier New" 1 12 200 0 200 1 2 1 2 2 1 2 0 0 0 1 } {CSTYLE "Code" -1 203 "Courier New" 1 12 255 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic Small205" -1 204 "Times" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Inert Output" -1 205 "Times" 1 12 144 144 144 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "2D Math Italic Small" -1 206 "Time s" 1 1 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Comment" -1 18 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Bold" -1 41 "Times" 1 12 0 0 0 1 1 1 2 2 2 2 0 0 0 1 }{CSTYLE "Copyright" -1 34 "Times" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 " Times" 1 12 0 128 128 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined" -1 44 "Times" 1 12 0 0 0 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Prompt" -1 1 "Courier" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math" -1 2 "T imes" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Input" -1 19 "Time s" 1 12 255 0 0 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Header and Footer" -1 207 "Times" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Text" -1 208 "T imes" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Notes" -1 37 "Ti mes" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Bold" -1 39 "Time s" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Equation Label" -1 209 " Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "LaTeX" -1 32 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Popup" -1 31 "Times" 1 12 0 128 128 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "Atomic Variable" -1 210 "Tim es" 1 12 175 0 175 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Dictionary Hyperlin k" -1 45 "Times" 1 12 147 0 15 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Caption Text" -1 211 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help \+ Fixed" -1 23 "Courier" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "" -1 212 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "" -1 213 "Time s" 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }} {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT 214 2 "Q1" }{MPLTEXT 1 0 0 "" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "w:=simplify(convert(1+2*sum(((9/10)^k-(1/3 )^k*k)*cos(k*beta),k=1..infinity),trig));plot(w,beta=0..Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",$*&,(*$-I$cosG6$%*protectedGI(_syslibG6\"6#I% betaGF+\"\"#\"%rGF&!%0\\\"%/@\"\"\"F2,**$F&\"\"$\"%?;F%!%HqF&\"%I**!%D XF2!\"\"F:" }}{PARA 13 "" 1 "" {TEXT 215 0 "" }{GLPLOT2D 812.0 131.0 131.0 {PLOTDATA 2 "6*-%'CURVESG6$7hw7$$\"\"!!\"\"$\"$v\"!\"\"7$$\"1m.f I`s^;!#<$\"2-!*=$z$zXq\"!#:7$$\"1$p4!4F)))3$!#<$\"2at(4r=:+;!#:7$$\"2& z\\#))f**p*Q!#=$\"2u(R>Bg=A:!#:7$$\"1l-k)[;^q%!#<$\"2vgH\"R;HN9!#:7$$ \"2a2p<5!f=b!#=$\"2B:2tr)eU8!#:7$$\"1')y*[rj?L'!#<$\"1d*)H1$\\zC\"!#97 $$\"1(*>%*H5nTr!#<$\"2y,&>,t\\a6!#:7$$\"13h)\\My7&z!#<$\"2d%f!f$\\xj5! #:7$$\"1;@)H'z)=q)!#<$\"1wZ)40*>L)*!#:7$$\"1D\"y4e(\\_%*!#<$\"1iTk&)G> r!*!#:7$$\"17Oe9Bp+6!#;$\"1wlbjSBVw!#:7$$\"235k)G7Xh7!#<$\"1rhWK()R#Q' !#:7$$\"2Ponse%p@9!#<$\"1$y8`H(=G`!#:7$$\"2oA)zxX_'e\"!#<$\"19S]!ekuU% !#:7$$\"2NOwJ#pqJcz.95i#!#:7$$\"2=2(*\\D7u@#!#<$\"2Ml51B, P?#!#;7$$\"2D)p\"yuH5O#!#<$\"2%>M3u(=L)=!#;7$$\"2Y;hx$[!=`#!#<$\"2\"R( oL5\"Qi:!#;7$$\"18$\\&RPZwE!#;$\"2i7[()[\"4L8!#;7$$\"1M>Lk!eZ%G!#;$\"2 w98\"He=26!#;7$$\"1KgW1#=P*H!#;$\"1U*[*4KR!Q*!#;7$$\"1wwD\"4^r:$!#;$\" 0s*fz=;/y!#:7$$\"2u$*3h%yx7L!#<$\"0=:>0FP`'!#:7$$\"2xbx%Q!e^Z$!#<$\"1J 4iD#\\8T&!#;7$$\"2c*>oWPFCO!#<$\"2dwmP&y)p`%!#<7$$\"1mcly^6&y$!#;$\"1- t$fv8xt$!#;7$$\"2&3G*[A%=_R!#<$\"1)=A)GqJVI!#;7$$\"2.%=x?$=w4%!#<$\"1* 3Um8Yg`#!#;7$$\"2uW='G6paU!#<$\"2'*Gx.u%>w?!#<7$$\"1*H4(3F'pT%!#;$\"2U \"*Q0A&f%o\"!#<7$$\"1T'f;z8dd%!#;$\"1\"oLa\\9FP\"!#;7$$\"2npUsi8$HZ!#< $\"2c@dx\\n#H6!#<7$$\"1>Egc+')**[!#;$\"1&>nXK(Ht\"*!#<7$$\"1(QT(3O5`]! #;$\"0X!4\\a'\\s(!#;7$$\"1)zI)4Qs;_!#;$\"1O5g,E6#f'!#<7$$\"1)Hh2.))\\O &!#;$\"1zg'\\Gfw)e!#<7$$\"1m4&f)*zq_&!#;$\"2%3OBboRAa!#=7$$\"1))Hm$)ef zc!#;$\"2D%z&=VJ\"Q_!#=7$$\"1L/BU*=!Re!#;$\"2a%>t(>2LF&!#=7$$\"11A'=7% )[*f!#;$\"2;=#HSdn-b!#=7$$\"1KO5?01eh!#;$\"1APys4[?f!#<7$$\"04&e&y=_J' !#:$\"0h-Lv)3qk!#;7$$\"186\"4\"e$fZ'!#;$\"1VD\\ld2 &f=$e(!#;$\"2v)[Jk-j-9!#<7$$\"1w[nl(*\\Ix!#;$\"2k$G(o$RZ3:!#<7$$\"1#p% HjAq(*y!#;$\"2.Da8X**)H;!#<7$$\"1JpO)=*3]!)!#;$\"2Q)G$zKS6u\"!#<7$$\"1 :J$e`wn@)!#;$\"2vMR>$f#G'=!#<7$$\"1=4qE&*fg$)!#;$\"28j)fB&)Qn>!#<7$$\" 1W-;DrRC&)!#;$\"2y$He8^a&3#!#<7$$\"11N\"*=vh#o)!#;$\"1Lr&*3\"f$)>#!#;7 $$\"1(=66bM2%))!#;$\"1KSa@(p%4B!#;7$$\"11ZF**)p#)**)!#;$\"2mk[*='p#=C! #<7$$\"1F=h]?h\\\"*!#;$\"1/t#e2\"y?D!#;7$$\"0A-U#p@8$*!#:$\"226&\\g6[?6$!#;7$$\"2:\\7%*)>,E5!#;$\"2EU([D\" *H*>$!#<7$$\"2Fn1Wh(RU5!#;$\".%z.YD(G$!#87$$\"19[?t$*[d5!#:$\"2Y*>.ieP lL!#<7$$\"2Dpl&)RXH2\"!#;$\"11:2T#3DW$!#;7$$\"2&Q/3(o5+4\"!#;$\"2Pzq%* Q-V_$!#<7$$\"2ss9!3>Y06!#;$\"2ElK'H'H`f$!#<7$$\"2M`#fvOE@6!#;$\"1R')R( y<]m$!#;7$$\"2Y%R>mOLP6!#;$\"21R&yqg'Gt$!#<7$$\"2V2yY60@:\"!#;$\"1cKVE =e#z$!#;7$$\"2EtE/+^y;\"!#;$\"2vZ()3,)[`Q!#<7$$\"29apu-xM=\"!#;$\"1OV( *Qx<6R!#;7$$\"2;OZ#>?>+7!#;$\"1\"R9n-;*pR!#;7$$\"2P'**RvA%\\@\"!#;$\"2 $y%H._b#>S!#<7$$\"2tu%)*35'>B\"!#;$\"1,'z1t[L2%!#;7$$\"2iZcR5>tC\"!#;$ \"1.y'HLB'>T!#;7$$\"21Thh8:DE\"!#;$\"1(QE7\"=5jT!#;7$$\"2KE_Dvb)y7!#;$ \"2Z7$*QOlt?%!#<7$$\"2%yZ5qCE&H\"!#;$\"13@+'e*G\\U!#;7$$\"2.F!y`,>58!# ;$\"2(fU)e^4`G%!#<7$$\"2%f#e2pUgK\"!#;$\"1tQo$[99K%!#;7$$\"2dz*[$)Q%!#<7$$\"1r3dHVzs8!# :$\"2D^(f^kq:W!#<7$$\"20OZLig%*Q\"!#;$\"2&QGXj5N+-4%[\"!#;$\"10$*zO72wX!#;7$$\"2%4R/d [Q*\\\"!#;$\"2DsK%HZ'=f%!#<7$$\"2)G18nwi::!#;$\"2k*)ft;Ftg%!#<7$$\"2i_ R!=^$=`\"!#;$\"2LQq4Ub8i%!#<7$$\"2KP,xE#QY:!#;$\"10ne,k!Gj%!#;7$$\"2V0 ;bT9Oc\"!#;$\"1VH$HSP]k%!#;7$$\"2HZ4xZL!y:!#;$\"2mb43))3Ul%!#<7$$\"2// J0>)*[f\"!#;$\"1&\\(*GPkPm%!#;7$$\"1OB9DR*4h\"!#:$\"1oJuN/wrY!#;7$$\"2 #Hl#*)\\l`i\"!#;$\"0ia;(f,yY!#:7$$\"1NGsOy_T;!#:$\"2PAkOQ,To%!#<7$$\"1 6a)*3tzd;!#:$\"2d)z>j.E*o%!#<7$$\"2LH'Gb%*)Rn\"!#;$\"1*[$3P.[$p%!#;7$$ \"2L@Ywk,!*o\"!#;$\"1:+$=i=mp%!#;7$$\"2Mz%H.fa/o%!#<7$$\"2)*>i4y\">5>!#;$\"1En!\\'**RxY!#;7$$\"1EtWcWvD>!#:$\" 2aT%>!#;$\"1wbp_vWnY!#;7$$\"2>j/j//p&>!#;$\"1l G$*QzOiY!#;7$$\"1**>q*=))H(>!#:$\"1X(zv\\Aml%!#;7$$\"18dK%4&p*)>!#:$\" 2W2z_\"\\Q]Y!#<7$$\"2mh8R]QU+#!#;$\"2%=0!)f&\\Zk%!#<7$$\"1x#)p%yX*>?!# :$\"1a^'*fkYQY!#;7$$\"1itqUHG0\\h6#!# :$\"28)*ovbIlf%!#<7$$\"1iD\"\\Zv48#!#:$\"1Z/3$[z'*e%!#;7$$\"2(G:VqY=Z@ !#;$\"1MM8X(4@e%!#;7$$\"29t--EOC;#!#;$\"2;7mVRB\\d%!#<7$$\"2dZfgcy$y@! #;$\"2.Fqz%yNnX!#<7$$\"1`E-%3lR>#!#:$\"1ZA05'>*fX!#;7$$\"2dzYQs#G5A!#; $\"1U\">`X+@b%!#;7$$\"28%\\R]&)*fA#!#;$\"2BGixv\\Xa%!#<7$$\"2MaFHDq?C# !#;$\"083(o'=o`%!#:7$$\"2#[([O()3!eA!#;$\"1Fg*oU_\"HX!#;7$$\"1B/x5[lsA !#:$\"2W%=*)oq6AX!#<7$$\"1>]]22W*G#!#:$\"2.&fj(3uS^%!#<7$$\"2&p0l8UX/B !#;$\"22vl)yo!p]%!#<7$$\"1BRS[m _nB!#;$\"2&yAY*3HsZ%!#<7$$\"28!f;)*oC%Q#!#;$\"1'[G49=&pW!#;7$$\"1DJn!f &[*R#!#:$\"1)zz\"**3ciW!#;7$$\"2Lu>aKahT#!#;$\"2&>#G&\\X.bW!#<7$$\"2V_ 1XiO0V#!#;$\"1hMlXhh[W!#;7$$\"2kX_VQ;pW#!#;$\"2;AD3M(RTW!#<7$$\"1$yFPU QFY#!#:$\"2$ypc*z@XV%!#<7$$\"1^v%p7]&yC!#:$\"1;!=()o^xU%!#;7$$\"2F!Rwh OI%\\#!#;$\"2cM(zT<6@W!#<7$$\"1:w*o(yV4D!#:$\"21gCU6O[T%!#<7$$\"2YlcUO )zDD!#;$\"1#p0=Wq\"3W!#;7$$\"2(ob*\\4\"RTD!#;$\"1VGRFj$>S%!#;7$$\"1H&f )4:t&yP%!#<7$$\"1C *[7m)[?E!#:$\"1)=%f%HLAP%!#;7$$\"10JC'Guoj#!#:$\"1#p!)p(p]mV!#;7$$\"2m CT]/m>l#!#;$\"1G^xH%p8O%!#;7$$\"2[7-/2Aum#!#;$\"2:(>B'HYiN%!#<7$$\"2.( o\"*et[%o#!#;$\"2w$o=Zav]V!#<7$$\"2&f6&)z&Q**p#!#;$\"1U30Gl$fM%!#;7$$ \"2a'*GuMSdr#!#;$\"2N)Rc+2;TV!#<7$$\"1x..Q.\"=t#!#:$\"2;4SN@kkL%!#<7$$ \"2k]9ly\"eYF!#;$\"2Fxh*R=HKV!#<7$$\"1lJEswKiF!#:$\"1#GD@o)*zK%!#;7$$ \"2P(fI*p`zx#!#;$\"2``Yeh(*QK%!#<7$$\"2Nz$3\"poYz#!#;$\"2(Q-()H&)o>V!# <7$$\"1'ROs%*=%4G!#:$\"1;v\"fSGhJ%!#;7$$\"2(z6#3oPk#G!#;$\"1\\f-&=-AJ% !#;7$$\"2%3HzvdzTG!#;$\"16B?;u#)3V!#;7$$\"2F%y*z!=*p&G!#;$\"1\"om`wYcI %!#;7$$\"2dp)QCCLtG!#;$\"1@.&p\"QS-V!#;7$$\"2/@T>9R(*)G!#;$\"1B;P7RL*H %!#;7$$\"2Gq;c#om/H!#;$\"2%G(z[!Rq'H%!#<7$$\"20#H!#;$\"2C(y7#=# 3%H%!#<7$$\"2vAE$*))*)f$H!#;$\"2u*)4oh%p\"H%!#<7$$\"2mZ9N5gF&H!#;$\"2v Vm$R#)H*G%!#<7$$\"1.tS,5FnH!#:$\"2bR`_W'Q(G%!#<7$$\"1$z$=&HPR)H!#:$\"1 *\\i>iw`G%!#;7$$\"1v'4v[/'**H!#:$\"1$=kgCpOG%!#;7$$\"1*[V=N?^,$!#:$\"2 `#pHdF:#G%!#<7$$\"1,L;f&[1.$!#:$\"1>(R\"Q$43G%!#;7$$\"2Bo0xM'[YI!#;$\" 1L&35?>'zU!#;7$$\"29`O#QTFjI!#;$\"2:3!\\&!\")-%+ _ATTRIBUTEG6#/%'sourceG%,mathdefaultG-%%VIEWG6$;$\"\"!!\"\"$\"*l#fTJ! \")%(DEFAULTG-&%&_AXISG6#\"\"\"6(-%+_TICKMARKSG6#%)_PITICKSG-%+_GRIDLI NESG6'-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LINESTYLEG6 #\"\"\"-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-%)_VISIBLEG6# \"\"!-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LINESTYLEG6# \"\"\"-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-&%&_AXISG6#\" \"#6'-%+_GRIDLINESG6'-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\" \"-%*LINESTYLEG6#\"\"\"-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\" \"-%)_VISIBLEG6#\"\"!-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\" \"-%*LINESTYLEG6#\"\"\"-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\" \"-%+AXESLABELSG6$Q!6\"Q!6\"-%)_VISIBLEG6#\"\"\"-%%ROOTG6'-%)BOUNDS_XG 6#$\"$+%!\"\"-%)BOUNDS_YG6#$\"#!)!\"\"-%-BOUNDS_WIDTHG6#$\"%Iw!\"\"-%. BOUNDS_HEIGHTG6#$\"$g&!\"\"-%)CHILDRENG6\"-%+ANNOTATIONG6'-%)BOUNDS_XG 6#$\"\"!!\"\"-%)BOUNDS_YG6#$\"\"!!\"\"-%-BOUNDS_WIDTHG6#$\"%+S!\"\"-%. BOUNDS_HEIGHTG6#$\"%+S!\"\"-%)CHILDRENG6\"" 1 2 2 1 10 0 2 0 0 4 2 1.0 45.0 45.0 0 0 "Curve 1" }}{TEXT 215 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "MA:=solve(numer(w),cos(beta)); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,&#\"$X&\"$Q'\"\"\"*&^##!\"\"\"%9>F'\"&z9\"#F'\"\"#F',& F$F'*&^##F'F,F'F-F.F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "ma 1:=solve(y+1/y=2*MA[1]); ma2:=solve(y+1/y=2*MA[2]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$,(*&^##!\"\"\"%9>\"\"\"\"&z9\"#F)\"\"#F)#\"$X&\"$Q'F )*$,&!(];+\"F)*&^#!%qKF)F*F+F)F+#F)F(,(F$F)F-F)F0F&" }}{PARA 11 "" 1 " " {XPPMATH 20 "6$,(*&^##\"\"\"\"%9>F'\"&z9\"#F'\"\"#F'#\"$X&\"$Q'F'*$, &!(];+\"F'*&^#\"%qKF'F)F*F'F*F&,(F$F'F,F'F/#!\"\"F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "expand(evalf((y-ma1[1])*(y-ma2[1]))); " } {MPLTEXT 1 0 37 "expand(evalf((y-ma1[2])*(y-ma2[2])));" }{MPLTEXT 1 0 15 "# TWO solutions" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*$I\"yG6\"\"\"# \"\"\"F$$!+S4q))=!\"*^$$\"+bs(eB\"F*$\"\"!F/F'" }}{PARA 11 "" 1 "" {XPPMATH 20 ",(*$I\"yG6\"\"\"#\"\"\"F$$!+gpAG:!\"*^$$\"+K%=94)!#5$\"\" !F0F'" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "AR:=solve(denom(w) ,cos(beta)); ar1:=solve(y+1/y=2*AR[1]); ar2:=solve(y+1/y=2*AR[2]) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%#\"$\"=\"$!=#\"\"&\"\"$F&" }} {PARA 11 "" 1 "" {XPPMATH 20 "6$#\"#5\"\"*#F%F$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$\"\"$#\"\"\"F#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "expand((y-9/10)*(y-1/3)^2);" }}{PARA 11 "" 1 "" {XPPMATH 20 ",** $I\"yG6\"\"\"$\"\"\"*$F$\"\"##!#Z\"#IF$#\"#K\"#X#!\"\"\"#5F'" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 214 2 "Q2" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 80 "rAR:=i->((1-L[2]^2)*L[1]^(i+1)-(1-L[1]^2)*L[2]^(i+1 ))/(L[1]-L[2])/(1+L[1]*L[2]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "k:=0:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 91 "res[k]:=simpl ify(add(rAR(i)*rAR(k-i),i=0..k)+2*sum(expand(rAR(i)*rAR(k+i)),i=1..inf inity)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "res[k]:=simplif y(subs(\{L[1]=a1/2+sqrt(a1^2/4+a2),L[2]=a1/2-sqrt(a1^2/4+a2)\},res[k]) ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "k:=2:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 91 "res[k]:=simplify(add(rAR(i)*rAR(k-i ),i=0..k)+2*sum(expand(rAR(i)*rAR(k+i)),i=1..infinity)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "res[k]:=simplify(subs(\{L[1]=a1/2+s qrt(a1^2/4+a2),L[2]=a1/2-sqrt(a1^2/4+a2)\},res[k])):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "fin:=-2*res[2]+2*rAR(2)*res[0]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "fin:=simplify(subs(\{L[1]=a1/2+sqrt(a1^2/4+a2),L[2]=a 1/2-sqrt(a1^2/4+a2)\},fin)):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "factor(expand(deno m(fin))/4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*(),&\"\"\"!\"\"%#a2G \"\"\"\"\"#\"\"\",(%#a1G\"\"\"\"\"\"!\"\"%#a2G\"\"\"\"\"\",(%#a1G\"\" \"\"\"\"\"\"\"%#a2G!\"\"\"\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "factor(numer(fin)/4);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$**\"\"#\"\"\",(%#a1G\"\"\"\"\"\"\"\"\"%#a2G!\"\"\"\"\",(%#a1G\" \"\"\"\"\"!\"\"%#a2G\"\"\"\"\"\",,*&)%#a1G\"\"#\"\"\"%#a2G\"\"\"\"\"\" *&\"\"#\"\"\")%#a1G\"\"#\"\"\"\"\"\"%#a2G\"\"\"*&\"\"#\"\"\")%#a2G\"\" #\"\"\"!\"\"*$)%#a2G\"\"$\"\"\"\"\"\"\"\"\"\"\"\"" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 5 "%/%%;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,$*( \"\"#\"\"\",,*&)%#a1G\"\"#\"\"\"%#a2G\"\"\"\"\"\"*&\"\"#\"\"\")%#a1G\" \"#\"\"\"\"\"\"%#a2G\"\"\"*&\"\"#\"\"\")%#a2G\"\"#\"\"\"!\"\"*$)%#a2G \"\"$\"\"\"\"\"\"\"\"\"),&\"\"\"!\"\"%#a2G\"\"\"\"\"#!\"\"!\"\"" }}} {EXCHG {PARA 0 "" 0 "" {TEXT 214 2 "Q3" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "restart:with(stats):with(plots): re ad \"FE3.m\":" }}{PARA 7 "" 1 "" {TEXT 216 50 "Warning, the name chang ecoords has been redefined\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "x:=convert([0$500],array): y:=convert([0$400],array):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "for i from 5 to 500 do x[i]: =-11/10*x[i-1]-17/30*x[i-2]\n" }{MPLTEXT 1 0 68 "+2.4*random[normald]( ); if i>100 then y[i-100]:=x[i] end if end do: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "listplot(convert(y,list)); " }}{PARA 13 "" 1 " " {TEXT 215 0 "" }{GLPLOT2D 495.0 106.0 106.0 {PLOTDATA 2 "6(-%'CURVES G6#7\\dl7$$\"#5!\"\"$!+oUlvb!\"*7$$\"#?!\"\"$\"+Xr?Wn!\"*7$$\"#I!\"\"$ \"*(H[>&)!\"*7$$\"#S!\"\"$!+ly>$=&!\"*7$$\"#]!\"\"$\"+aulTU'Qb!\"*7$$\"$?\"!\"\"$!+6y[*Q'!\"*7$$\"$I\"!\"\"$\"+#)pcvr!\"*7 $$\"$S\"!\"\"$!+'4qES%!\"*7$$\"$]\"!\"\"$\"+%QSPn$!\"*7$$\"$g\"!\"\"$! +,.-XB!\"*7$$\"$q\"!\"\"$!+E\\&*)f#!\"*7$$\"$!=!\"\"$\"+%>`LY&!\"*7$$ \"$!>!\"\"$!+=]\"*eX!\"*7$$\"$+#!\"\"$\"+8\">LV\"!\"*7$$\"$5#!\"\"$\"+ aBnlJ!#57$$\"$?#!\"\"$\"*E!z>X!\"*7$$\"$I#!\"\"$\"+Bz:j&*!#57$$\"$S#! \"\"$!+[x[C!\"*7$$\"$!G!\"\"$\"+4ng[Y!\"*7$$\"$!H!\"\"$!+*z`!\"*7$$\"$]%!\"\"$ !*Vc;D\"!\")7$$\"$g%!\"\"$\"+D\"***fL!\"*7$$\"$q%!\"\"$!+m!Gf7$!\"*7$$ \"$![!\"\"$\"+fL1.]!\"*7$$\"$!\\!\"\"$!+M$G,Q\"!\"*7$$\"$+&!\"\"$\"*a6 &>Z!\"*7$$\"$I&!\" \"$!+tt#3%H!\"*7$$\"$S&!\"\"$\"*7v9S$!\")7$$\"$]&!\"\"$\"+(=\\*)H\"!\" *7$$\"$g&!\"\"$!+7%o$yI!\"*7$$\"$q&!\"\"$!+(f^xm#!\"*7$$\"$!e!\"\"$\"+ LnLIs!\"*7$$\"$!f!\"\"$!+eCV?d!\"*7$$\"$+'!\"\"$\"*0LYM$!\")7$$\"$5'! \"\"$!+f?/rF!\"*7$$\"$?'!\"\"$!+TH?'G\"!\"*7$$\"$I'!\"\"$\"+#[/S)=!\"* 7$$\"$S'!\"\"$\"+&eNsp#!\"*7$$\"$]'!\"\"$!+:Fsm\\!\"*7$$\"$g'!\"\"$\"+ Hil8A!\"*7$$\"$q'!\"\"$!+K5pN]!#57$$\"$!o!\"\"$\"+#es<)>!\"*7$$\"$!p! \"\"$!+DQ(GI\"!\"*7$$\"$+(!\"\"$\"+(GwqC$!\"*7$$\"$5(!\"\"$!+vd9[d!\"* 7$$\"$?(!\"\"$\"+Ju'z5(!\"*7$$\"$I(!\"\"$!+4mOHn!\"*7$$\"$S(!\"\"$\"+# fsl[%!\"*7$$\"$](!\"\"$\"+GCt(>\"!\"*7$$\"$g(!\"\"$!+i+W]\\!\"*7$$\"$q (!\"\"$\"+fAm#)y!\"*7$$\"$!y!\"\"$!+M\"\\Wy'!\"*7$$\"$!z!\"\"$\"+Vn?2_ !\"*7$$\"$+)!\"\"$!+;FbF$*!\"*7$$\"$5)!\"\"$\"+-(e\\D%!\"*7$$\"$?)!\" \"$\"+Bi]Z9!\"*7$$\"$I)!\"\"$!*rhYc\"!\"*7$$\"$S)!\"\"$\"+P&HYb%!#57$$ \"$])!\"\"$!+_]w,L!\"*7$$\"$g)!\"\"$\"+9')=1W!\"*7$$\"$q)!\"\"$!+dE>qG !\"*7$$\"$!))!\"\"$!+DndVI!#57$$\"$!*)!\"\"$\"+j0q\\Z!\"*7$$\"$+*!\"\" $!+LMqxz!\"*7$$\"$5*!\"\"$\"+#*Gg^H!\"*7$$\"$?*!\"\"$\"+hYdv6!\"*7$$\" $I*!\"\"$\"+r-keE!\"*7$$\"$S*!\"\"$!+DdOI^!\"*7$$\"$]*!\"\"$\"+/9**e]! \"*7$$\"$g*!\"\"$\"+%44R+$!\"*7$$\"$q*!\"\"$!+[PJ_%)!\"*7$$\"$!)*!\"\" $\"+jcD3T!\"*7$$\"$!**!\"\"$!+PQ!el'!#57$$\"%+5!\"\"$!+>h6_S!\"*7$$\"% 55!\"\"$\"+1du=%)!\"*7$$\"%?5!\"\"$!+UvHlh!\"*7$$\"%I5!\"\"$\"*VjAB'! \"*7$$\"%S5!\"\"$\"*t+pX\"!\")7$$\"%]5!\"\"$!+o6&H#>!\"*7$$\"%g5!\"\"$ \"*G@8)G!\")7$$\"%q5!\"\"$\"*E2o9)!\"*7$$\"%!3\"!\"\"$!+0+NQL!\"*7$$\" %!4\"!\"\"$\"+l6`!\"*7$$\"%56!\"\"$\"+o!R8k \"!\"*7$$\"%?6!\"\"$!+t+t@>!\"*7$$\"%I6!\"\"$!*m15]\"!\")7$$\"%S6!\"\" $\"+Hn%f_%!\"*7$$\"%]6!\"\"$!+[L'GV*!\"*7$$\"%g6!\"\"$\"+:$\\!Qx!\"*7$ $\"%q6!\"\"$!+Y0HA=!\"*7$$\"%!=\"!\"\"$!+(H#z(Q&!\"*7$$\"%!>\"!\"\"$\" +A]B=Z!\"*7$$\"%+7!\"\"$!(4hb\"!\"'7$$\"%57!\"\"$\"+/P'))p\"!\"*7$$\"% ?7!\"\"$\"+3uQ\"p$!\"*7$$\"%I7!\"\"$!+^I&fx(!\"*7$$\"%S7!\"\"$\"+@))zw z!\"*7$$\"%]7!\"\"$!+:K0LH!\"*7$$\"%g7!\"\"$\"+pK$*)H'!\"*7$$\"%q7!\" \"$!+.(fqy%!\"*7$$\"%!G\"!\"\"$!*%))*ym%!\"*7$$\"%!H\"!\"\"$\"+)H!=+6! \"*7$$\"%+8!\"\"$!+$e&>U6!\"*7$$\"%58!\"\"$!+[7/-!\"*7$$\"%S9!\"\"$\"+`+z%z*!#57$$\"%]9!\"\"$!*8Q%yD! \")7$$\"%g9!\"\"$\"*\"[tb>!\")7$$\"%q9!\"\"$!+7(Hr5$!#57$$\"%![\"!\"\" $!+%>\\6h#!\"*7$$\"%!\\\"!\"\"$!+x9\"*fP!\"*7$$\"%+:!\"\"$\"+/W>c]!\"* 7$$\"%5:!\"\"$!+JZ(>V#!\"*7$$\"%?:!\"\"$\"*iY!)R#!\"*7$$\"%I:!\"\"$!)X L,L!\")7$$\"%S:!\"\"$!+'))ep%[!\"*7$$\"%]:!\"\"$\"+cQ'*R^!\"*7$$\"%g:! \"\"$!+et'3)y!\"*7$$\"%q:!\"\"$\"+$Q%>q^!\"*7$$\"%!e\"!\"\"$!+Cizex!#5 7$$\"%!f\"!\"\"$\"+2c3C;!\"*7$$\"%+;!\"\"$\"+$\\sY^\"!\"*7$$\"%5;!\"\" $!+U*\\`\"*)!\"*7$$\"%?;!\"\"$\"+\"41C%**!\"*7$$\"%I;!\"\"$!+p>V\"\\'! \"*7$$\"%S;!\"\"$!+A#f*QD!\"*7$$\"%];!\"\"$\"+Jx,iW!\"*7$$\"%g;!\"\"$! +$yTv$=!\"*7$$\"%q;!\"\"$\"*cNHq\"!#57$$\"%!o\"!\"\"$!+@ZjU6!\"*7$$\"% !p\"!\"\"$!*LAVg(!\"*7$$\"%+! \"\"$\"+:=GeX!\"*7$$\"%5>!\"\"$!+8QMo8!\"*7$$\"%?>!\"\"$\"+=w>L5!\"*7$ $\"%I>!\"\"$!+.RG8>!\"*7$$\"%S>!\"\"$\"+s\"4dC#!\"*7$$\"%]>!\"\"$!+$Hr &fA!\"*7$$\"%g>!\"\"$!*\"[vUk!\"*7$$\"%q>!\"\"$\")wO\"\\#!\"(7$$\"%!)> !\"\"$!*,+WG'!\")7$$\"%!*>!\"\"$\"+jfp@6!\")7$$\"%+?!\"\"$!*FBp/\"!\"( 7$$\"%5?!\"\"$\"+mS_0h!\"*7$$\"%??!\"\"$!+fA]e;!\"*7$$\"%I?!\"\"$!*'=< #z%!\"*7$$\"%S?!\"\"$!*'\\)e6'!\"*7$$\"%]?!\"\"$\"+\"[bM]\"!\"*7$$\"%g ?!\"\"$!+dJ-\\P!#57$$\"%q?!\"\"$\"+r=j_P!\"*7$$\"%!3#!\"\"$!+F`OqI!\"* 7$$\"%!4#!\"\"$\"+KF0kF!\"*7$$\"%+@!\"\"$!+D]b*)\\!#57$$\"%5@!\"\"$!+@ !4\"zS!\"*7$$\"%?@!\"\"$\")0&z4(!\"(7$$\"%I@!\"\"$!+\"\\)>uK!\"*7$$\"% S@!\"\"$\"+k9o7;!\"*7$$\"%]@!\"\"$!+,0)[\\#!\"*7$$\"%g@!\"\"$\"+:4#[b \"!\"*7$$\"%q@!\"\"$!+%Rt*=6!\"*7$$\"%!=#!\"\"$\"+.JRE:!\"*7$$\"%!>#! \"\"$\"*>Grv%!\"*7$$\"%+A!\"\"$!+'zvq^#!\"*7$$\"%5A!\"\"$\"+[8>#R\"!\" *7$$\"%?A!\"\"$!+'[4J-'!\"*7$$\"%IA!\"\"$\"+K(e#*)[!\"*7$$\"%SA!\"\"$! *ZdYf&!\")7$$\"%]A!\"\"$\"+W'euE&!\"*7$$\"%gA!\"\"$!+pz$pt\"!\"*7$$\"% qA!\"\"$!*pi!)e$!\"*7$$\"%!G#!\"\"$\"+H$o5#o!#57$$\"%!H#!\"\"$\"+#=;D6 (!#57$$\"%+B!\"\"$!+uZN+B!\"*7$$\"%5B!\"\"$\"+$3HV<$!\"*7$$\"%?B!\"\"$ !+9yY%*\\!\"*7$$\"%IB!\"\"$\"+;odiH!\"*7$$\"%SB!\"\"$\"+_6U96!\"*7$$\" %]B!\"\"$!+TRr[W!\"*7$$\"%gB!\"\"$\"+J2q*y'!\"*7$$\"%qB!\"\"$!+\"Q[/*e !\"*7$$\"%!Q#!\"\"$\"*=ifJ\"!\"*7$$\"%!R#!\"\"$\"+JD!QO\"!\"*7$$\"%+C! \"\"$!+CZ53V!\"*7$$\"%5C!\"\"$\"+*zj%\\S!\"*7$$\"%?C!\"\"$!+\"\\KBG'! \"*7$$\"%IC!\"\"$\"+z*)=M]!\"*7$$\"%SC!\"\"$!+XaR\\M!\"*7$$\"%]C!\"\"$ \"+`KntK!\"*7$$\"%gC!\"\"$!+*RU%3R!\"*7$$\"%qC!\"\"$\"+&)z(f4\"!\"*7$$ \"%![#!\"\"$\"+8Im_E!\"*7$$\"%!\\#!\"\"$!+_J50H!\"*7$$\"%+D!\"\"$\"+E: NY'=#!\"*7$ $\"%SE!\"\"$\"+2**pP8!\"*7$$\"%]E!\"\"$!+O*)[0^!\"*7$$\"%gE!\"\"$\"+=d ![I%!\"*7$$\"%qE!\"\"$!+fvC1K!\"*7$$\"%!o#!\"\"$\"+#Q&4;E!\"*7$$\"%!p# !\"\"$\"+*f%)>I$!\"*7$$\"%+F!\"\"$!+*o*eBk!\"*7$$\"%5F!\"\"$\"+LP1#*R! \"*7$$\"%?F!\"\"$\"*e&pgC!#57$$\"%IF!\"\"$!+&e/R^&!\"*7$$\"%SF!\"\"$\" +%3+.r%!\"*7$$\"%]F!\"\"$!+idI9Y!\"*7$$\"%gF!\"\"$\")v>&)=!\"(7$$\"%qF !\"\"$!+cx;Y:!\"*7$$\"%!y#!\"\"$\"+U8#Rr#!\"*7$$\"%!z#!\"\"$!+OM:oK!\" *7$$\"%+G!\"\"$\"+:)puk)!\"*7$$\"%5G!\"\"$!+;s;%\\'!\"*7$$\"%?G!\"\"$! *s\")y$))!\"*7$$\"%IG!\"\"$\"+CpD&*R!\"*7$$\"%SG!\"\"$!+m_JSA!\"*7$$\" %]G!\"\"$\"+)e)G5!\"*7$$\"%5 I!\"\"$\"+GOEq^!\"*7$$\"%?I!\"\"$!+:nm/D!\"*7$$\"%II!\"\"$!+=7pQg!\"*7 $$\"%SI!\"\"$\"+Q8)o>)!\"*7$$\"%]I!\"\"$!+rZ$>T)!\"*7$$\"%gI!\"\"$\"+L )=%>E!\"*7$$\"%qI!\"\"$\"+wzi*)*)!#57$$\"%!3$!\"\"$!+&)HD-M!\"*7$$\"%! 4$!\"\"$\"+6GzSU!\"*7$$\"%+J!\"\"$!+OHm`L!\"*7$$\"%5J!\"\"$\"+1'4*zE! \"*7$$\"%?J!\"\"$!+Q;@/I!#57$$\"%IJ!\"\"$!+TZ)>U%!\"*7$$\"%SJ!\"\"$\"+ \"z$)Ro%!\"*7$$\"%]J!\"\"$!+=S#yS#!\"*7$$\"%gJ!\"\"$!+/ts#e\"!\"*7$$\" %qJ!\"\"$\"+)zh*)R#!\"*7$$\"%!=$!\"\"$!+*y*oc@!\"*7$$\"%!>$!\"\"$!*o>B )f!\"*7$$\"%+K!\"\"$\"+aZ<6)*!#57$$\"%5K!\"\"$\"+VQ(*[D!#57$$\"%?K!\" \"$\"+-D8J@!\"*7$$\"%IK!\"\"$!+A%>K\"G!\"*7$$\"%SK!\"\"$\"+F'Hz$\\!\"* 7$$\"%]K!\"\"$!)EJb7!\"(7$$\"%gK!\"\"$!+B3o!\")7$$\"%qL!\"\"$!+)f$p18!\"*7$$\"%!Q$ !\"\"$\"+8qYh7!\"*7$$\"%!R$!\"\"$!+UEd!z%!\"*7$$\"%+M!\"\"$\"*t>YZ'!\" )7$$\"%5M!\"\"$!+h^[4i!\"*7$$\"%?M!\"\"$\"+=C#)*y\"!\"*7$$\"%IM!\"\"$! +c.2OB!\"*7$$\"%SM!\"\"$\"+lqF-8!\"*7$$\"%]M!\"\"$\"+b>OlE!\"*7$$\"%gM !\"\"$!*'\\#zZ*!\"*7$$\"%qM!\"\"$!+M*[Dk\"!\"*7$$\"%![$!\"\"$\"**ojG** !\"*7$$\"%!\\$!\"\"$!+eqmY:!\"*7$$\"%+N!\"\"$\"+u0??O!#57$$\"%5N!\"\"$ !+^>jA7!#57$$\"%?N!\"\"$!+3*G\"QA!\"*7$$\"%IN!\"\"$\"+\\-VG;!\"*7$$\"% SN!\"\"$!+kP>z?!\"*7$$\"%]N!\"\"$!+9aK-M!\"*7$$\"%gN!\"\"$\"+@J$)Qc!\" *7$$\"%qN!\"\"$\"+$=fN=#!\"*7$$\"%!e$!\"\"$!+-fi\"z&!\"*7$$\"%!f$!\"\" $\"+$futL*!\"*7$$\"%+O!\"\"$!+L6Pd\")!\"*7$$\"%5O!\"\"$\"+RB7dS!\"*7$$ \"%?O!\"\"$\"+M)*3%z\"!\"*7$$\"%IO!\"\"$!+Z(Rg&f!\"*7$$\"%SO!\"\"$\"+p 2y^u!\"*7$$\"%]O!\"\"$!*x^1-$!\")7$$\"%gO!\"\"$\"*Oz2V)!\"*7$$\"%qO!\" \"$\"+-#4..#!\"*7$$\"%!o$!\"\"$!+z?n)*=!\"*7$$\"%!p$!\"\"$!*$35O>!\"*7 $$\"%+P!\"\"$\"*$R6p6!\"*7$$\"%5P!\"\"$!+Y3YTA!#57$$\"%?P!\"\"$!+6JCk8 !\"*7$$\"%IP!\"\"$\"+O&y%yx!#57$$\"%SP!\"\"$\"*k N*\\!\"*7$$\"%qR!\"\"$\"+zlWpT!\"*7$$\"%!)R!\"\"$\"**p=?K!\"*7$$\"%!*R !\"\"$!+z0ba\\!\"*7$$\"%+S!\"\"$\"***GC^$!\")-&%&_AXISG6#\"\"\"6'-%+_G RIDLINESG6'-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LINEST YLEG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-%)_VISIBL EG6#\"\"!-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LINESTYL EG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-&%&_AXISG6# \"\"#6'-%+_GRIDLINESG6'-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!! \"\"-%*LINESTYLEG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!! \"\"-%)_VISIBLEG6#\"\"!-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!! \"\"-%*LINESTYLEG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!! \"\"-%)_VISIBLEG6#\"\"!-%%ROOTG6'-%)BOUNDS_XG6#$\"$g$!\"\"-%)BOUNDS_YG 6#$\"#!)!\"\"-%-BOUNDS_WIDTHG6#$\"%IW!\"\"-%.BOUNDS_HEIGHTG6#$\"$g)!\" \"-%)CHILDRENG6\"-%+ANNOTATIONG6'-%)BOUNDS_XG6#$\"\"!!\"\"-%)BOUNDS_YG 6#$\"\"!!\"\"-%-BOUNDS_WIDTHG6#$\"%+S!\"\"-%.BOUNDS_HEIGHTG6#$\"%+S!\" \"-%)CHILDRENG6\"" 1 2 2 1 10 0 2 0 0 4 2 1.0 45.0 45.0 0 0 "Curve 1" }}{TEXT 215 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "n:=400: \+ d:=add(y[i]^2,i=1..n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "f or i to n-1 do r[i]:=add(y[j]*y[j+i],j=1..n-i)/d end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "w:=[seq([j*Pi/50,evalf(1+2*add(r[i] *cos(i*j*Pi/50),i=1..n-1))],j=0..50)]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "save w,\"FE3.m\": # this is how I generated the data (ignore)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "pointplot (w,connect=true);" }}{PARA 13 "" 1 "" {TEXT 215 0 "" }{GLPLOT2D 495.0 216.0 216.0 {PLOTDATA 2 "6(-%'CURVESG6#7U7$$\"\"!!\"\"$\"*U(\\\"G\"!#5 7$$\"+3`=$G'!#6$\"*.vNH#!#57$$\"+iqjc7!#5$\"*80z*[!#57$$\"+#fb\\)=!#5$ \")nZ4E!#57$$\"+BTF8D!#5$\"**G^yA!#57$$\"+aEfTJ!#5$\"+y\"!\"*$\"*3Ta&G!#57$$\"+iqjc7!\"*$\"*/ZIE'!#57$$\"+:*o% >8!\"*$\"+>%pjy#!#57$$\"+o2I#Q\"!\"*$\"+`N#pW#!#67$$\"+@E8X9!\"*$\"+Q0 HZ9!#57$$\"+uW'z]\"!\"*$\"+^Co$e\"!#57$$\"+Fjzq:!\"*$\")C1b()!\"*7$$\" *=GOj\"!\")$\"+3\\m4\"*!#57$$\"+L+Y'p\"!\"*$\"*$3>E`!\"*7$$\"+')=Hf!\"*$\"+'>>pJ*!#57$$\"+*H>1,#!\"*$\"+X#4*e=!#57$$\"+_6 Xt?!\"*$\"+%**)G%y%!#57$$\"+0IGO@!\"*$\"*yGa3\"!\")7$$\"+e[6*>#!\"*$\" +*ydv4(!#57$$\"+6n%>E#!\"*$\"+&[%[Gd!#57$$\"+k&yZK#!\"*$\"+A/Ff%)!#57$ $\"+!\"\"-%)BOUNDS_YG6#$\"#]!\"\"-%-BO UNDS_WIDTHG6#$\"%5Z!\"\"-%.BOUNDS_HEIGHTG6#$\"%I=!\"\"-%)CHILDRENG6\"- %+ANNOTATIONG6'-%)BOUNDS_XG6#$\"\"!!\"\"-%)BOUNDS_YG6#$\"\"!!\"\"-%-BO UNDS_WIDTHG6#$\"%+S!\"\"-%.BOUNDS_HEIGHTG6#$\"%+S!\"\"-%)CHILDRENG6\"" 1 2 2 1 10 0 2 0 0 4 2 1.0 45.0 45.0 0 0 "Curve 1" }}{TEXT 215 0 "" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "for i from 0 to 50 do wr[i ]:=w[i+1,2] end do: wr[51]:=wr[49]: wr[52]:=wr[48]: wr[-2]:=wr[2]:\n" }{MPLTEXT 1 0 14 "wr[-1]:=wr[1]:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "for i from 0 to 50 do ws[i]:=(wr[i-2]+3*wr[i-1]+5*wr[ i]+3*wr[i+1]+wr[i+2])/13 end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 55 "pointplot([seq([j*Pi/50,ws[j]],j=0..50)],connect=true);" }} {PARA 13 "" 1 "" {TEXT 215 0 "" }{GLPLOT2D 494.0 208.0 208.0 {PLOTDATA 2 "6(-%'CURVESG6#7U7$$\"\"!!\"\"$\"*e!)\\I#!#57$$\"+3`=$G'!# 6$\"+i>m/D!#67$$\"+iqjc7!#5$\"*&=;ZF!#57$$\"+#fb\\)=!#5$\"+\"!\"*$\"+Wsw@\\!#67$$\"+iqjc7!\"*$\"+E.D)o*!#67$$\"+:*o%>8!\"*$ \"*%[(fS\"!\"*7$$\"+o2I#Q\"!\"*$\"+3*46C\"!#57$$\"+@E8X9!\"*$\"+)fl-E \"!#57$$\"+uW'z]\"!\"*$\"+/Yqk=!#57$$\"+Fjzq:!\"*$\"+UdYDL!#57$$\"*=GO j\"!\")$\"+@O8L^!#57$$\"+L+Y'p\"!\"*$\"+r*>$yW!#57$$\"+')=Hf(fsG!#57$$\" +XuyZ>!\"*$\"+COddY!#57$$\"+*H>1,#!\"*$\"+[O6')[!#57$$\"+_6Xt?!\"*$\"* $zdOg!\"*7$$\"+0IGO@!\"*$\"+\"RO.](!#57$$\"+e[6*>#!\"*$\"+i)e`d(!#57$$ \"+6n%>E#!\"*$\"+F$pIv(!#57$$\"+k&yZK#!\"*$\"*blnu)!\"*7$$\"+Z!\"*7$$\"+Hy$*QE!\"*$\"+yQDAY!\"*7$$\"+# op!\"\"-%)BOUNDS_YG6#$\"#]!\"\"-%-BOUNDS_WIDTH G6#$\"%!o%!\"\"-%.BOUNDS_HEIGHTG6#$\"%] " 0 "" {MPLTEXT 1 0 95 "expand((cos((b-2*a)*k)+3*cos(k*(b-a ))+5*cos(b*k)+3*cos((b+a)*k)+cos((b+2*a)*k))/13/cos(k*b)); \n" } {MPLTEXT 1 0 26 "combine(%); # a = Pi/M" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#,(*&#\"\"%\"#8\"\"\"*$)-%$cosG6#*&%\"kG\"\"\"%\"aG\"\" \"\"\"#\"\"\"\"\"\"\"\"\"#\"\"$\"#8\"\"\"*&#\"\"'\"#8\"\"\"-%$cosG6#*& %\"kG\"\"\"%\"aG\"\"\"\"\"\"\"\"\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# ,(*&#\"\"#\"#8\"\"\"-%$cosG6#,$*(\"\"#\"\"\"%\"kG\"\"\"%\"aG\"\"\"\"\" \"\"\"\"\"\"\"#\"\"&\"#8\"\"\"*&#\"\"'\"#8\"\"\"-%$cosG6#*&%\"kG\"\"\" %\"aG\"\"\"\"\"\"\"\"\"" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 214 2 "Q4" } {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "restart :with(stats): read \"FE4.m\":" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "x:=convert([0$500],array): y:=convert([0$400],array):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "for i from 5 to 500 do x[i]: =19/10*x[i-1]-37/30*x[i-2]+91/270*x[i-3]-1/30*x[i-4]\n" }{MPLTEXT 1 0 68 "+2.4*random[normald](); if i>100 then y[i-100]:=x[i] end if end do : " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 63 "save y,\"FE4.m\": \+ # this is how I generated the data (ignore)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "n:=400: d:=add(y[i]^2,i=1..n):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "for i to n-1 do r[i]:=add(y[j]*y[j+i],j=1. .n-i)/d end do:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "w:=1+2*a dd(r[i]*cos(i*b),i=1..n-1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "plot(w,b=0..Pi);" }}{PARA 13 "" 1 "" {TEXT 215 0 "" }{GLPLOT2D 894.0 117.0 117.0 {PLOTDATA 2 "6*-%'CURVESG6$7a_l7$$\"\"!!\"\"$\".O1:: 'f$*!#77$$\"2Y<&3/1$*R@!#>$\"1\"f\\d9]A'**!#:7$$\"1\\.<37')zU!#=$\"2Q& ['Q;Up;\"!#:7$$\"1CbD7=z>k!#=$\"2%**\\C\"z2)>9!#:7$$\"1*pSjTA(f&)!#=$ \"2)3y0itX8r\" !#=$\"2(3K#f'Gv)R#!#:7$$\"1dmnVv$f#>!#<$\"20&)yD!*>-H#!#:7$$\"2X<&3/1$ *R@!#=$\"2C*Hwp/zc?!#:7$$\"1#p$\\kO#RN#!#<$\"2'yZrd<1BQd()H8!#97$$\"2ts5`y4>y#!#=$\"/P+7s,#G*!#87$$\"2YC>d% G!f*H!#=$\"1LKQu4'Hp&!#:7$$\"1ix71f*)4K!#<$\"1C\"4\"!#;7$$\"1(zWp-#)yj$!#<$\"1aur*=!\\2V!#;7$$\"19 LN(3v=&Q!#<$\"1yt8u'Q-*Q!#;7$$\"2:$=wZ\"oe1%!#=$\"0ZSl$ezZr!#:7$$\"1 \\.<37')zU!#<$\"2Vp4km(Ht5!#;7$$\"1n)y&oU&Q\\%!#<$\"2_Skad$eU7!#;7$$\" 1%Q()*Gt%yq%!#<$\"2lpcxrXx9\"!#;7$$\"1-fR*QS=#\\!#<$\"1&zA=U_tU)!#;7$$ \"2&>W!)\\M$e8&!#=$\"2EMx<#pIWZ!#<7$$\"1PH@5l#)\\`!#<$\"1`P#4Pdwl#!#;7 $$\"1b9iq&>Qc&!#<$\"1XUZ_;Cb_!#;7$$\"2;(*H5j7yx&!#=$\"1#3d>V)e^;!#:7$$ \"1*[Q9p0=*f!#<$\"1Oq`\"Q0N2%!#:7$$\"12q%=v)z0i!#<$\"1dS?0&)p-\")!#:7$ $\"1CbD7=z>k!#<$\"1$)>u=82s8!#97$$\"1USms[yLm!#<$\"1YA\"oJ/./#!#97$$\" 1fD2LzxZo!#<$\"1')GO&Qx+r#!#97$$\"1M$>2:sR.(!#<$\"23>)*e'=G)=$!#:7$$\" 12hOoj;?s!#<$\"2%\\D%3D!>zM!#:7$$\"1#)G,'egjS(!#<$\"1M1'o`jj_$!#97$$\" 1d'fO![b#f(!#<$\"1c(z1$pn>L!#97$$\"1KkI@!\\(yx!#<$\"2Z8(>(oz)**G!#:7$$ \"12K&*QK%\\'z!#<$\"2()RM9\"))yZB!#:7$$\"1\")**fcu8^\")!#<$\"14xJ3zJh< !#97$$\"1cnCu;LP$)!#<$\"2K&)R!GzQG7!#:7$$\"1JN*=*e_B&)!#<$\"1'z8z1*=b! )!#:7$$\"11.a4,s4()!#<$\"1.xhx_-'4&!#:7$$\"1\"3(=FV\"f*))!#<$\"1d#[4#R A[K!#:7$$\"1cQ$[a3@3*!#<$\"1$RjU;aE?#!#:7$$\"0j![iFIo#*!#;$\"2i)f(Q@#G $p\"!#;7$$\"10u7!)p\\a%*!#<$\"2eK/6!)flh\"!#;7$$\"0=ux>\"pS'*!#;$\"2N8 *ebJJB?!#;7$$\"1b4U:a)o#)*!#<$\"2KEAu$R&e*H!#;7$$\"1tnIjzI,5!#;$\"1r&z 9>.N[%!#:7$$\"20Xr]QF*>5!#<$\"1WljL)y_>'!#:7$$\"1Gh$o!oaQ5!#;$\"17BUxi uCw!#:7$$\"2a!3gGi;d5!#<$\"1s4Zq;'y@)!#:7$$\"1$[l.l&yv5!#;$\"1)=ezM*H> w!#:7$$\"2/;I@20W4\"!#<$\"1\\9A&31H)e!#:7$$\"2y$[*Q\\CI6\"!#<$\"2Ef0,< -V`$!#;7$$\"2_^fc\"RkJ6!#<$\"2Ex))4&)y9V\"!#;7$$\"2F>CuLj-:\"!#<$\"2WF K$[RW\"f%!#<7$$\"2,())=fF))o6!#<$\"2,1'G(\\pS<\"!#;7$$\"2wa`4=-v=\"!#< $\"1)Q63QnCb$!#:7$$\"1D#=Fg@h?\"!#;$\"1'feb'3:dp!#:7$$\"2D!H[C5uC7!#<$ \"2=pZ**Qy_.\"!#:7$$\"0eZiWgLC\"!#:$\"1s@())H#)*o7!#97$$\"2uD7!o)z>E\" !#<$\"2B>pYT;+L\"!#:7$$\"1Npx*G*f!G\"!#;$\"2%3R$*pPq87!#:7$$\"1Ze*oxQ: I\"!#;$\"1[W:F=A<%*!#:7$$\"2(eZ,k#yCK\"!#<$\"1<-yxXuCk!#:7$$\"2.nL6v&G.s\"!#<$\"14%f'4Cm\\c!#:7$$\"2D*HR1!o7u\"!#<$\"2oHdr:O<&= !#;7$$\"2U!>^$\\2Aw\"!#<$\"1o@oiE\\p!)!#;7$$\"2i\"3j!)p9$y\"!#<$\"1[aR N*H!)3\"!#:7$$\"2\"G(\\xY'3/=!#<$\"2#41)zx&3H9!#;7$$\"2)R'o[&f-D=!#<$ \"2_j.?;fa@\"!#;7$$\"2:b()>Wlf%=!#<$\"12%zmaCYn&!#;7$$\"2KY1\"H\\!p'=! #<$\"17'Hh8]<](!#<7$$\"1v`A;W%y)=!#;$\"1&pH%*)G\\BQ!#;7$$\"2mGWL!Ry3>! #<$\"2c)R()=\\&)Q=!#;7$$\"2$)>j/RB(H>!#<$\"1ZEct?bXV!#:7$$\"06#exGm]>! #:$\"1w7+&*G61u!#:7$$\"2L'R@l6ur>!#<$\"2UiY(\\wTK5!#:7$$\"2l\"e%GX>G*> !#<$\"24%[TYoCN7!#:7$$\"2)pwZSx*Q,#!#<$\"2VWit3_cH\"!#:7$$\"1B&4\"Gg( \\.#!#;$\"1ZE/RQd$>\"!#97$$\"2jPTdJag0#!#<$\"19DcII<(\\*!#:7$$\"2'HKP. E8x?!#<$\"20$)z9`=8C'!#;7$$\"2G305*3@)4#!#<$\"1u=IZP*G.$!#:7$$\"1Opjy \"*G>@!#;$\"1$*>HD$=Fc(!#;7$$\"2%*yoiYn.9#!#<$\"2xAIvt!o&R\"!#=7$$\"2E k+RvX9;#!#<$\"1)[!pd_\"Q$))!#;7$$\"1'\\K:/CD=#!#;$\"1pe9AB9cG!#:7$$\"2 #\\V;HBg.A!#<$\"1D`]5Kg?]!#:7$$\"2C?'z;1oCA!#<$\"02NJ`vXV'!#97$$\"2d0G W!*edC#!#<$\"1z2Pr`3Hl!#:7$$\"14*f?>PoE#!#;$\"1*35j)HN^`!#:7$$\"2Aw\"p za\"zG#!#<$\"19Nj%HCJ_$!#:7$$\"2bhBtw$**3B!#<$\"2$pW,lQ+I>!#;7$$\"2)oa &\\0s+L#!#<$\"2o6`c6l[H\"!#;7$$\"1AteU.:^B!#;$\"2PbGEt6v%=!#;7$$\"2`<> -jGAP#!#<$\"18Jk1))f\\K!#:7$$\"2'G5&y\"pI$R#!#<$\"1E>O\\&4wz%!#:7$$\"2 =)G[0_Q9C!#<$\"1Nl&3@;Ly&!#:7$$\"1NZ6$\\jaV#!#;$\"1w%)zH]0>e!#:7$$\"2% )eY2yTlX#!#<$\"1T?hF?2q\\!#:7$$\"1&H5gN)p)\\#!#;$\"1&)G'*4O1zB!#:7$$\" 29+u7$\\&3a#!#<$\"1PU_$y8'R6!#:7$$\"13x`1:,$e#!#;$\"2[Zs%psf47!#;7$$\" 2XT,=3o^i#!#<$\"1X5;$zp$z6!#:7$$\"1LC[JH*Hz#!#;$\"1NE2\"Q)H;u!#;7$$\"2 BXj6y<3'H!#<$\"1Ki:S9aNQ!#;7$$\"2&zNP()ez\")H!#<$\"2E2DQ6)pB6!#;7$$\"1 2Pe$*Rx-I!#;$\"2Bf%=++MN=!#;7$$\"2W$Qz*4_P-$!#<$\"1Z3!>O[x2#!#:7$$\"2; 'R+1-tWI!#<$\"2pJ7PC!zn;!#;7$$\"2$*39AJ3d1$!#<$\"1X*[5)H[1%)!#;7$$\"2l @C%=ko'3$!#<$\"1Bvy4xM2$!#<$\"18I0@@H1h!#:7$$ \"1\")\\ob]b7K!#;$\"1%Hc2w%=\"f&!#:7$$\"13^*=;LNB$!#;$\"1G.lw.S,Q!#:7$ $\"2dB0\"o7^aK!#<$\"1gkdK!#:7$$ \"1'43-Em`L$!#;$\"2'GCz'H;C%p!#;7$$\"2')R\\+l:[N$!#<$\"2K\\Q1xz$*3\"!# :7$$\"2:q!*)R]EuL!#<$\"2M(>1JEP%R\"!#:7$$\"2V+K(HWr$R$!#<$\"2oC#)4N[9_ \"!#:7$$\"12Ld>Q;8M!#;$\"2C]:%zz,U9!#:7$$\"0h9%4KhKM!#:$\"2-/LW6dD>\"! #:7$$\"18fD*fi?X$!#;$\"/3zKO7a&)!#87$$\"2d@(4*)>^rM!#<$\"03@zfMNC&!#97 $$\"2&=&Q*y8'4\\$!#<$\"2vr/%QMy.F!#;7$$\"29#)z(o2T5N!#<$\"1:RGoSc<7!#: 7$$\"1C6ie,')HN!#;$\"1)Qf.S6>Z'!#;7$$\"0t.$Q*e(oN!#:$\"17L)QJ#)4Y(!#;7 $$\"2cL')zrdwg$!#<$\"0=S`qq0-\"!#97$$\"28%*ow\\clk$!#<$\"2NW4?N\\BB#!# ;7$$\"1Z:Nx_X&o$!#;$\"1y)G#QT1PZ!#:7$$\"0&G>nY!\\q$!#:$\"1`'QhR9[v&!#: 7$$\"2F:Mq0aVs$!#<$\"1\\Tb9,?&3'!#:7$$\"2bXvoW.Qu$!#<$\"1)fANAG)Qb!#:7 $$\"2%enrOGDjP!#<$\"1(>G>]`-B%!#:7$$\"1h!elA-Fy$!#;$\"2(Gm$>jK3'R]5%Q!#:$\"1a*[eEv`I\"!#;7$$\"2adkd<\\*zQ!#<$\"2n@Z4tp(*G#!#;7$$ \"1\"=Za&z%)=R!#;$\"17(*4p$Ru#[!#:7$$\"1C_2sm)*QR!#;$\"1`1@Am)fN&!#:7$ $\"2uE.()QD\"fR!#<$\"14eIQ/x#>&!#:7$$\"20JJ`5k#zR!#<$\"2&p!G`bWMZ%!#;7 $$\"1`$f>#GS**R!#;$\"19$G')Q:^W$!#:7$$\"2(Qa@b-oRS!#<$\"1stBX&G:$*)zK#))\\!#< 7$$\"16ws@^B?T!#;$\"0'eH()\\Tlz!#<7$$\"2Vlb$QQPST!#<$\"1(QJbR\"*=K*!#< 7$$\"2up$)\\b70;%!#<$\"1%\\zOx4Td#!#;7$$\"2PyR#))**y+U!#<$\"1X()[w.hPk !#;7$$\"2$pe\\@u1TU!#<$\"1ZV@vglY()!#;7$$\"1T!3!)GA;K%!#;$\"1kuU!z79T' !#;7$$\"19-_ar<-W!#;$\"2o!#<7$$\"1majm=%\\g%!#;$\"2)[@akNL#>#! #<7$$\"2MPEd%ofYY!#<$\"0&3a2MjGA!#:7$$\"1\"G<[#=D)o%!#;$\"2mvW$*en*G@! #<7$$\"2$*=3R!o!*HZ!#<$\"2kX&**GCOEM!#<7$$\"2v4**Hyh:x%!#<$\"1tB/&!#;$ \"1YAk>\"eA/\"!#:7$$\"1`ajOm9j]!#;$\"1ZLkfX**f#)!#;7$$\"0OEdh,[5&!#:$ \"2ZFV8xX8a#!#<7$$\"1os\"[fck9&!#;$\"2A'QLgD)[;\"!#<7$$\"1w\"3Rd6\")=& !#;$\"1Z#HE5JEz&!#;7$$\"1%3**Hbm(H_!#;$\"27PbfEl81\"!#;7$$\"1(zxr6_eR& !#;$\"11vKCxK1I!#;7$$\"0^c8oP>c&!#:$\"2k$)='ez%[K#!#=7$$\"1*=,C2fMg&!# ;$\"1Bg%y$fh?S!#;7$$\"1neWj/)\\k&!#;$\"1(oTto0>Y*!#;7$$\"10#o*e6ulc!#; $\"2y;$*>Qc12\"!#;7$$\"1W0\\a=]'o&!#;$\"0X*GKH\"H.\"!#97$$\"1%)G,]DE2d !#;$\"10da*GV*)[)!#;7$$\"1B_`XK-Gd!#;$\"1)>6/U(32e!#;7$$\"1jv0TRy[d!#; $\"1'3'f@77IJ!#;7$$\"1-*zljW&pd!#;$\"2`V:))R\"pF7!#<7$$\"1TA5K`I!z&!#; $\"1xgxIj`7a!#<7$$\"1\"eCw-m5\"e!#;$\"2F'fMAHls5!#<7$$\"0Ep'=ue_e!#:$ \"1D%z3$yt]S!#;7$$\"1PRr4)3T*e!#;$\"1_:N7\\+4f!#;7$$\"1'4JSm=o$f!#;$\" 1cY2(GPPl%!#;7$$\"1c#[$=&G&zf!#;$\"2(fnaNns#)=!#<7$$\"1No]XM)3+'!#;$\" 10PaI%oGL)!#<7$$\"1:ams$QA-'!#;$\"2mSH&\\]G?Q!#=7$$\"1&*R#)*H$fVg!#;$ \"1;87ozi<=&!#:7$$\"1#*ohNzO]h!#;$\"1&y!G+4.x$)!#;7$$\"0ZvF'Gsrh!#:$\" 1otC*)Re\"**)!#;7$$\"1^S$**yxI>'!#;$\"1RQ6XSE:()!#;7$$\"1JE47u_f'=!#;7$$\"1X)>:1FmS'!#;$\"2D1)R,/ZIZ!#<7$$\"1C%y'))>)zU'!#;$ \"1\"f?*GP__d!#;7$$\"1/q$e\"pL\\k!#;$\"/87*R1i5'!#97$$\"1%e&*H%=pqk!#; $\"0z0z![/Td!#:7$$\"1jT:qn/#\\'!#;$\"28)\\)R)z9;[!#<7$$\"1B8ZCmvMl!#;$ \"164-)*Qy@C!#;7$$\"1#[)yykYxl!#;$\"1\"zJpg6\")G(!#<7$$\"1)[`-\"fF'f'! #;$\"2l(ohgP6-R!#=7$$\"1%\\=%zs'!#:$\"0f`(3o;p))!#:7$$\"1`&ojlzJ!o!#; $\"0n!Q:\"4>!f!#:7$$\"1x&GAQ<%yo!#;$\"1t,_kv)**p)!#=7$$\"1D'[R$G*)Gq!# ;$\"1'f(pue\\Jr!#<7$$\"1s'ocGo$zr!#;$\"2:@flI#HX5!#<7$$\"19WK:#=\"!#<7$$\"1BJgjyYLu!#;$\"2;<:1T]5=$!#=7$$\"1$*4VGG kau!#;$\"2NeD6blge$!#=7$$\"1k)eKzoCPWi!#<7$$\"1s`P&45@6) !#;$\"1%3,;*3@U[!#<7$$\"1$)pWSx:(>)!#;$\"1\"Ge57RVB\"!#<7$$\"1)y#)Hc\" oR#)!#;$\"2%)Q=v_'e\\F!#=7$$\"1%f=bQ0AG)!#;$\"2v,P5uOSK$!#=7$$\"/W03#H ZK)!#9$\"1f*>zX)GJf!#<7$$\"10-fIIDn$)!#;$\"2%pOie8'ee\"!#<7$$\"16g7`ox 4%)!#;$\"1&o\\\"H&3,'G!#;7$$\"1<=mv1I_%)!#;$\"0G^`6&4%G$!#:7$$\"1Aw>) \\C[\\)!#;$\"1MY)4&*oL\\#!#;7$$\"1GMt?$[t`)!#;$\"1F(z+K!f*Q\"!#;7$$\"1 O`q&[2$>')!#;$\"2G[wEVKQ*>!#<7$$\"1Wsn]mE,()!#;$\"2(*=XIEwW<#!#<7$$\"1 )>jJBYAu)!#;$\"1odJ'=#yv#)!#<7$$\"1_\"\\c\"eA$y)!#;$\"1uI%oG27@(!#=7$$ \"10^8)R0U#))!#;$\"2d<\"\\\"o1T@#!#=7$$\"1f5i!)\\=l))!#;$\"197vWI9*!#;$\"1bSFhlH[o!#<7$ $\"0^JTT[uE*!#:$\"2e%)*o%f*z]H!#=7$$\"1HVv(=v=M*!#;$\"2T*\\x$3ZkC\"!#< 7$$\"1ZrPh>I;%*!#;$\"2:csn%)yLY(!#>7$$\"1m***\\tG2\\*!#;$\"1j:l')=4%*o !#<7$$\"1-cC#G#eR'*!#;$\"2m[)*)32^(H\"!#<7$$\"0C\"\\HeV)y*!#:$\"2E$e._ J5g?!#<7$$\"2N!)of$QC95!#;$\"1T_OK4SWB!#;7$$\"2G[))*)3W'\\5!#;$\"23^R% fbN, 7tLiH'=\"!#<7$$\"2PmK?[AMP\"!#;$\"2u_yz)*ork$!#=7$$\"1a@X.EuS9!#:$\"1p qsz)=g!#=7$$\"2xR1/.CRw\"!#;$\"1*He.YPNQ$!#=7$$\"0t&)H7*>J=!#9$ \"2wC#)>qlWt\"!#=7$$\"2$fb7wY,(*=!#;$\"1h!G\\!GlOh!#=7$$\"2Y.hzg%pg>!# ;$\"00NO**[Bz$!#<7$$\"1pJ8:.SJ?!#:$\"1_,dkny-:!#<7$$\"/2zPD$\\4#!#8$\" 2&*[%)[3PZn\"!#=7$$\"2x,fhumF;#!#;$\"2/%4Ow9oW=!#=7$$\"2[X'3@YBCA!#;$ \"0z*G)H)zTV!#<7$$\"1/b7$$\"0GNMzlYN#!#9$ \"1`(f-!)\\[k$!#=7$$\"2mOmk$*f2U#!#;$\"2$*\\iW\"3'*y>!#>7$$\"11()=U!z` [#!#:$\"2k%=\")pdP)=$!#>7$$\"1kHHd#HIb#!#:$\"1#)f(GVl!o%)!#=7$$\"1_r&[ X%==E!#:$\"2&e')o%e?(fR!#>7$$\"1K-%\\0:[o#!#:$\"1FM4)e:g-#!#=7$$\"20c8 +#R*3v#!#;$\"2&*z'yK\"fED#!#>7$$\"1/0LMNh6G!#:$\"1XZ*\\#3<:'*!#?7$$\"2 GoUX107)G!#;$\"2l8`dOyF6\"!#=7$$\"2%46xe&[M%H!#;$\"1>Ql$H4$>R!#=7$$\"2 L5\")e58)4I!#;$\"2X[FR-D<*[!#>7$$\"2Lx!RXCLtI!#;$\"2bDCu:VkW%!#>7$$\"- X]EfTJ!#6$\"2bE,?:lwO%!#>-%&COLORG6&%$RGBG$\"#5!\"\"$\"\"!!\"\"$\"\"!! \"\"-%%VIEWG6$;$\"\"!!\"\"$\"+aEfTJ!\"*%(DEFAULTG-&%&_AXISG6#\"\"\"6'- %+_GRIDLINESG6'-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LI NESTYLEG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-%)_VI SIBLEG6#\"\"!-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LINE STYLEG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-&%&_AXI SG6#\"\"#6'-%+_GRIDLINESG6'-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\" \"!!\"\"-%*LINESTYLEG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\" \"!!\"\"-%)_VISIBLEG6#\"\"!-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\" \"!!\"\"-%*LINESTYLEG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\" \"!!\"\"-%+AXESLABELSG6$Q\"b6\"Q!6\"-%)_VISIBLEG6#\"\"!-%%ROOTG6'-%)BO UNDS_XG6#$\"$?%!\"\"-%)BOUNDS_YG6#$\"$+\"!\"\"-%-BOUNDS_WIDTHG6#$\"%q% )!\"\"-%.BOUNDS_HEIGHTG6#$\"$+'!\"\"-%)CHILDRENG6\"-%+ANNOTATIONG6'-%) BOUNDS_XG6#$\"\"!!\"\"-%)BOUNDS_YG6#$\"\"!!\"\"-%-BOUNDS_WIDTHG6#$\"%+ S!\"\"-%.BOUNDS_HEIGHTG6#$\"%+S!\"\"-%)CHILDRENG6\"" 1 2 2 1 10 0 2 0 0 4 2 1.0 45.0 45.0 0 0 "Curve 1" }}{TEXT 215 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 82 "plot(75/16*int(w*(25*(b-beta)^2-1)^2,b=beta- .2..beta+.2),beta=0..Pi); # directly " }}{PARA 13 "" 1 "" {TEXT 215 0 "" }{GLPLOT2D 495.0 134.0 134.0 {PLOTDATA 2 "6*-%'CURVESG6$7`o7$$\" \"!!\"\"$\"1E8(>zB=5\"!#97$$\"2(R\"oK[W>r\"!#=$\"2()=\"z&px>5\"!#:7$$ \"2%zi`m*))QU$!#=$\"2i:WLTtN5\"!#:7$$\"1\\.<37')zU!#<$\"2:11Fp>\\5\"!# :7$$\"2&>W!)\\M$e8&!#=$\"14tb%)3X/6!#97$$\"1*[Q9p0=*f!#<$\"1z)G7g\"4,6 !#97$$\"1fD2LzxZo!#<$\"2lYd+&*Q[4\"!#:7$$\"1b4U:a)o#)*!#<$\"23rFy4P* \\5!#:7$$\"1Npx*G*f!G\"!#;$\"18:\"e3?5v*!#:7$$\"2)G#Gn=:\"[9!#<$\"0VGk %3!y@*!#97$$\"2C_zO3Jch\"!#<$\"1u^)*3&>?h)!#:7$$\"2i\"3j!)p9$y\"!#<$\" 2NKPxgi3*z!#;7$$\"06#exGm]>!#:$\"1@!#;$\" 118x'>r2z'!#:7$$\"2Aw\"pza\"zG#!#<$\"1Oa3F7F'>'!#:7$$\"2%)eY2yTlX#!#<$ \"1,]euEJ#e&!#:7$$\"2XT,=3o^i#!#<$\"1@Z1OA?%)\\!#:7$$\"2BXj6y<3'H!#<$ \"1W^Zfc-ER!#:7$$\"0\\D0[nkH$!#:$\"1[*R'>\\2$*H!#:7$$\"2cL')zrdwg$!#<$ \"2s\\.)3UJAC!#;7$$\"1\"=Za&z%)=R!#;$\"1%)=a2sLe?!#:7$$\"2wbWv)oGjX!#< $\"2([9()Ql>78!#;7$$\"1@=F?n_'*[!#;$\"1wN*3nM(3#*!#;7$$\"1%3**Hbm(H_!# ;$\"1&)>2@]-7i!#;7$$\"1(zxr6_eR&!#;$\"0*fGp$G$Q`!#:7$$\"0^c8oP>c&!#:$ \"1\\BO1$)=/[!#;7$$\"1B_`XK-Gd!#;$\"1K%f1O(fkW!#;7$$\"1PRr4)3T*e!#;$\" 19Py+#z3H%!#;7$$\"0@^Uk(yNi!#:$\"2MEz[$4&f9%!#<7$$\"1#[)yykYxl!#;$\"1; un*3#zKR!#;7$$\"1s'ocGo$zr!#;$\"2$[ZEvXMCM!#<7$$\"1Q0;gr'p&y!#;$\"2b!* *o\"yO$RE!#<7$$\"1GMt?$[t`)!#;$\"1*!#;$\"2L HAPO#4d7!#<7$$\"0C\"\\HeV)y*!#:$\"2sz8QBtN9\"!#<7$$\"2G[))*)3W'\\5!#;$ \"2(QjO#z&=n5!#<7$$\"1'[@XS@'46!#:$\"1PWGO<$Q$*)!#<7$$\"2VhP3G*Qz6!#;$ \"1X(*)))4hjW'!#<7$$\"2U3*3tc9T7!#;$\"1d7\"3*3cJb!#<7$$\"2$y0DBA!*38!# ;$\"1)pnpI0<.&!#<7$$\"2PmK?[AMP\"!#;$\"1O#[poR+B%!#<7$$\"1a@X.EuS9!#:$ \"1.!H^%oA'H$!#<7$$\"2Qu#)**[jD]\"!#;$\"2m95Y,)QqD!#=7$$\"27mL:@!#<7$$\"2nZ.*4(4&Q;!#;$\"2V,c'*e#)pd\"!#=7$$\"2`K`@E/))p \"!#;$\"1l,5`,+p6!#<7$$\"2xR1/.CRw\"!#;$\"1Jw%4XBr]*!#=7$$\"0t&)H7*>J= !#9$\"19$eNO[>])!#=7$$\"2$fb7wY,(*=!#;$\"1Jm'z%G'GO)!#=7$$\"2Y.hzg%pg> !#;$\"0VA$=EWvz!#<7$$\"1pJ8:.SJ?!#:$\"1rPWVV#z`(!#=7$$\"/2zPD$\\4#!#8$ \"1RwV(pTzK(!#=7$$\"2x,fhumF;#!#;$\"1=?*3zD^>(!#=7$$\"2[X'3@YBCA!#;$\" 0YJxTRDo'!#<7$$\"1/b%*>e!#=7$$\"0GNMzlYN#!#9$\"1)3 Z\"y8*RA&!#=7$$\"2mOmk$*f2U#!#;$\"1(G2*HCpnY!#=7$$\"11()=U!z`[#!#:$\"0 W0mC\\U@%!#<7$$\"1kHHd#HIb#!#:$\"21+aW&fLaQ!#>7$$\"1_r&[X%==E!#:$\"2nv q:)Q,JO!#>7$$\"1K-%\\0:[o#!#:$\"1z!*>wzJMO!#=7$$\"20c8+#R*3v#!#;$\"1vw ^hl2MS!#=7$$\"1/0LMNh6G!#:$\"1%=j.@2L^%!#=7$$\"2GoUX107)G!#;$\"1#y.i,D *)p%!#=7$$\"2%46xe&[M%H!#;$\"1*)oXSeMbX!#=7$$\"2L5\")e58)4I!#;$\"1M\"[ $4\\)p/%!#=7$$\"2Lx!RXCLtI!#;$\"1*z`@Y%QEO!#=7$$\"-X]EfTJ!#6$\"2F66`'4 ;@O!#>-%&COLORG6&%$RGBG$\"#5!\"\"$\"\"!!\"\"$\"\"!!\"\"-%%VIEWG6$;$\" \"!!\"\"$\"+aEfTJ!\"*%(DEFAULTG-&%&_AXISG6#\"\"\"6'-%+_GRIDLINESG6'-%& COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LINESTYLEG6#\"\"!-%* THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-%)_VISIBLEG6#\"\"!-%&CO LORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LINESTYLEG6#\"\"!-%*TH ICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-&%&_AXISG6#\"\"#6'-%+_GRI DLINESG6'-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LINESTYL EG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-%)_VISIBLEG 6#\"\"!-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\"\"-%*LINESTYLEG 6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\"\"-%+AXESLABELSG 6$Q%beta6\"Q!6\"-%)_VISIBLEG6#\"\"!-%%ROOTG6'-%)BOUNDS_XG6#$\"$q$!\"\" -%)BOUNDS_YG6#$\"#]!\"\"-%-BOUNDS_WIDTHG6#$\"%5X!\"\"-%.BOUNDS_HEIGHTG 6#$\"$])!\"\"-%)CHILDRENG6\"-%+ANNOTATIONG6'-%)BOUNDS_XG6#$\"\"!!\"\"- %)BOUNDS_YG6#$\"\"!!\"\"-%-BOUNDS_WIDTHG6#$\"%+S!\"\"-%.BOUNDS_HEIGHTG 6#$\"%+S!\"\"-%)CHILDRENG6\"" 1 2 2 1 10 0 2 0 0 4 2 1.0 45.0 45.0 0 0 "Curve 1" }}{TEXT 215 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "int((25*(z)^2-1)^2,z=-1/5..1/5);" }}{PARA 11 "" 1 "" {XPPMATH 20 " 6##\"#;\"#v" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "L:=expand(75 /16*int((25*(z-b)^2-1)^2*cos(k*z),z=b-1/5..b+1/5)/cos(b*k));" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"LG,(*(\"'D19\"\"\")%\"kG\"\"&!\"\"-%$sin G6#,$*&\"\"&!\"\"%\"kG\"\"\"\"\"\"\"\"\"\"\"\"*(\"%v=\"\"\")%\"kG\"\"$ !\"\"-%$sinG6#,$*&\"\"&!\"\"%\"kG\"\"\"\"\"\"\"\"\"!\"\"*(\"&D\"G\"\" \")%\"kG\"\"%!\"\"-%$cosG6#,$*&\"\"&!\"\"%\"kG\"\"\"\"\"\"\"\"\"!\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "with(plots): listplot([s eq(L,k=1..100)]);" }}{PARA 7 "" 1 "" {TEXT 216 50 "Warning, the name c hangecoords has been redefined\n" }}{PARA 13 "" 1 "" {TEXT 215 0 "" } {GLPLOT2D 495.0 127.0 127.0 {PLOTDATA 2 "6(-%'CURVESG6#7`q7$$\"#5!\"\" $\"&:(**!\"&7$$\"#?!\"\"$\"'A'))*!\"'7$$\"#I!\"\"$\"(:au*!\"(7$$\"#S! \"\"$\")k!4b*!\")7$$\"#]!\"\"$\")xD0$*!\")7$$\"#g!\"\"$\"*2'o6!*!\"*7$ $\"#q!\"\"$\"*v+Sn)!\"*7$$\"#!)!\"\"$\"*sQlH)!\"*7$$\"#!*!\"\"$\"*%o3% )y!\"*7$$\"$+\"!\"\"$\"+#4)zTu!#57$$\"$5\"!\"\"$\"+'>-^(p!#57$$\"$?\"! \"\"$\"+vEh*['!#57$$\"$I\"!\"\"$\"+\\A.\"*f!#57$$\"$S\"!\"\"$\"+'\\e][ &!#57$$\"$]\"!\"\"$\"+=;Hx\\!#57$$\"$g\"!\"\"$\"+#>YJZ%!#57$$\"$q\"!\" \"$\"+d&ox(R!#57$$\"$!=!\"\"$\"+09'f\\$!#57$$\"$!>!\"\"$\"*\"p6KI!\"*7 $$\"$+#!\"\"$\"+a&f,f#!#57$$\"$5#!\"\"$\"+c&*\\t@!#57$$\"$?#!\"\"$\"+f v*\\y\"!#57$$\"$I#!\"\"$\"*%4%pU\"!\"*7$$\"$S#!\"\"$\"+;>.,6!#57$$\"$] #!\"\"$\"+/E(Q3)!#67$$\"$g#!\"\"$\"+(o#\\&\\&!#67$$\"$q#!\"\"$\"+.L2XK !#67$$\"$!G!\"\"$\"+'p#HF8!#67$$\"$!H!\"\"$!*Xe)zE!#67$$\"$+$!\"\"$!+& )zBb:!#67$$\"$5$!\"\"$!+%GSFb#!#67$$\"$?$!\"\"$!+NU)>G$!#67$$\"$I$!\" \"$!+0s0nP!#67$$\"$S$!\"\"$!*;0S.%!#57$$\"$]$!\"\"$!+j>>5T!#67$$\"$g$! \"\"$!+$[pO-%!#67$$\"$q$!\"\"$!*\">d-Q!#57$$\"$!Q!\"\"$!+6lauM!#67$$\" $!R!\"\"$!+2!#67$$\"$g%!\"\"$\"+La1#)>!#77$$\"$q%!\"\"$\"+ tYoH`!#77$$\"$![!\"\"$\"+.oUw!)!#77$$\"$!\\!\"\"$\"+[Lv>5!#67$$\"$+&! \"\"$\"+/H8p6!#67$$\"$5&!\"\"$\"+')ynd7!#67$$\"$?&!\"\"$\"+_F2*G\"!#67 $$\"$I&!\"\"$\"+95\\o7!#67$$\"$S&!\"\"$\"+WIG-7!#67$$\"$]&!\"\"$\"+9(f w4\"!#67$$\"$g&!\"\"$\"+Yb!Qi*!#77$$\"$q&!\"\"$\"+C]aW!)!#77$$\"$!e!\" \"$\"+.Ug=j!#77$$\"$!f!\"\"$\"*6OH_%!#67$$\"$+'!\"\"$\"+`UVHF!#77$$\"$ 5'!\"\"$\"*veI+\"!#67$$\"$?'!\"\"$!*i1m*f!#77$$\"$I'!\"\"$!+N.tJ?!#77$ $\"$S'!\"\"$!+xZScK!#77$$\"$]'!\"\"$!+(>9vC%!#77$$\"$g'!\"\"$!+xrU*) \\!#77$$\"$q'!\"\"$!+/vnwa!#77$$\"$!o!\"\"$!+:@H8d!#77$$\"$!p!\"\"$!+z N'=r&!#77$$\"$+(!\"\"$!+b_T#\\&!#77$$\"$5(!\"\"$!+h.6\"3&!#77$$\"$?(! \"\"$!+pu&)3X!#77$$\"$I(!\"\"$!*ok)4Q!#67$$\"$S(!\"\"$!+(y#>?I!#77$$\" $](!\"\"$!+eWNw@!#77$$\"$g(!\"\"$!+4>+98!#77$$\"$q(!\"\"$!+J\"*RnY!#87 $$\"$!y!\"\"$\"+>Q0\\L!#87$$\"$!z!\"\"$\"+#QQV1\"!#77$$\"$+)!\"\"$\"+X 0b*p\"!#77$$\"$5)!\"\"$\"+&psNA#!#77$$\"$?)!\"\"$\"+&f@Zi#!#77$$\"$I)! \"\"$\"+Chk'*G!#77$$\"$S)!\"\"$\"+ " 0 "" {MPLTEXT 1 0 70 "plot(1+2*add(r[k ]*L*cos(k*b),k=1..n-1),b=0..Pi); # via lag windowing" }}{PARA 13 "" 1 "" {TEXT 215 0 "" }{GLPLOT2D 494.0 131.0 131.0 {PLOTDATA 2 "6*-%'CUR VESG6$7`o7$$\"\"!!\"\"$\"2N(4F![E=5\"!#:7$$\"2(R\"oK[W>r\"!#=$\"2NA2&f .)>5\"!#:7$$\"2%zi`m*))QU$!#=$\"2a=\"*=0wN5\"!#:7$$\"1\\.<37')zU!#<$\" 2bl[%=B#\\5\"!#:7$$\"2&>W!)\\M$e8&!#=$\"220jt\\`W5\"!#:7$$\"1*[Q9p0=*f !#<$\"2Fmc4?%4,6!#:7$$\"1fD2LzxZo!#<$\"2s4&eO:%[4\"!#:7$$\"1b4U:a)o#)* !#<$\"2`$)>tjR*\\5!#:7$$\"1Npx*G*f!G\"!#;$\"1V>I)*\\/^(*!#:7$$\"2)G#Gn =:\"[9!#<$\"1m1_![Dy@*!#:7$$\"2C_zO3Jch\"!#<$\"1`-&='Q/7')!#:7$$\"2i\" 3j!)p9$y\"!#<$\"07e]n')3*z!#97$$\"06#exGm]>!#:$\"1&)>\"[Be\")Q(!#:7$$ \"1Opjy\"*G>@!#;$\"01lLo%z!z'!#97$$\"2Aw\"pza\"zG#!#<$\"2&))y)[T%H'>'! #;7$$\"2%)eY2yTlX#!#<$\"2&3**GjbL#e&!#;7$$\"2XT,=3o^i#!#<$\"1O&)oF[A%) \\!#:7$$\"2BXj6y<3'H!#<$\"2)piHbw/ER!#;7$$\"0\\D0[nkH$!#:$\"2LEGII'4$* H!#;7$$\"2cL')zrdwg$!#<$\"1Ds7\\]LAC!#:7$$\"1\"=Za&z%)=R!#;$\"2%[Pp'[d $e?!#;7$$\"2wbWv)oGjX!#<$\"2%*4\\dk:AJ\"!#;7$$\"1@=F?n_'*[!#;$\"1KoL+' >*3#*!#;7$$\"1%3**Hbm(H_!#;$\"1K+`$4/A@'!#;7$$\"1(zxr6_eR&!#;$\"1Xkw0X ]Q`!#;7$$\"0^c8oP>c&!#:$\"1Ry5t4O/[!#;7$$\"1B_`XK-Gd!#;$\"1x.2PswkW!#; 7$$\"1PRr4)3T*e!#;$\"2jE'*y?Y5H%!#<7$$\"0@^Uk(yNi!#:$\"0wW%[96YT!#:7$$ \"1#[)yykYxl!#;$\"1**HS]c%H$R!#;7$$\"1s'ocGo$zr!#;$\"2ntG28([CM!#<7$$ \"1Q0;gr'p&y!#;$\"1u(=E%\\YRE!#;7$$\"1GMt?$[t`)!#;$\"2#f&*Rc$eOy\"!#<7 $$\"1#p30k@I>*!#;$\"2$[FC:X>d7!#<7$$\"0C\"\\HeV)y*!#:$\"2u/OBkgO9\"!#< 7$$\"2G[))*)3W'\\5!#;$\"1**eu$obs1\"!#;7$$\"1'[@XS@'46!#:$\"1kyiz6SM*) !#<7$$\"2VhP3G*Qz6!#;$\"0*4u%3knW'!#;7$$\"2U3*3tc9T7!#;$\"1Qq`sU!=`&!# <7$$\"2$y0DBA!*38!#;$\"1P$ yp/&*!#=7$$\"0t&)H7*>J=!#9$\"1'y%e-\\8(\\)!#=7$$\"2$fb7wY,(*=!#;$\"1pf E&*>!*e$)!#=7$$\"2Y.hzg%pg>!#;$\"1@@^jtVrz!#=7$$\"1pJ8:.SJ?!#:$\"1x.Il sHMv!#=7$$\"/2zPD$\\4#!#8$\"1j-1[SeGt!#=7$$\"2x,fhumF;#!#;$\"1%=9>4'H+ s!#=7$$\"2[X'3@YBCA!#;$\"1#3J)p%!# =7$$\"11()=U!z`[#!#:$\"1@!e\"4R4_U!#=7$$\"1kHHd#HIb#!#:$\"2d0NzG7k*Q!# >7$$\"1_r&[X%==E!#:$\"0)Q!e$3:!o$!#<7$$\"1K-%\\0:[o#!#:$\"1sP(eW#*zn$! #=7$$\"20c8+#R*3v#!#;$\"1DV3e>^wS!#=7$$\"1/0LMNh6G!#:$\"0`j$pspfX!#<7$ $\"2GoUX107)G!#;$\"1fAY>g*ot%!#=7$$\"2%46xe&[M%H!#;$\"1Tc%o9XAf%!#=7$$ \"2L5\")e58)4I!#;$\"2&=)R6s$**zS!#>7$$\"2Lx!RXCLtI!#;$\"1%3&4T'z9l$!#= 7$$\"-X]EfTJ!#6$\"1_Qk:C8LO!#=-%&COLORG6&%$RGBG$\"#5!\"\"$\"\"!!\"\"$ \"\"!!\"\"-%%VIEWG6$;$\"\"!!\"\"$\"+aEfTJ!\"*%(DEFAULTG-&%&_AXISG6#\" \"\"6'-%+_GRIDLINESG6'-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\" \"-%*LINESTYLEG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\" \"-%)_VISIBLEG6#\"\"!-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!!\"\"$\"\"!!\" \"-%*LINESTYLEG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCYG6#$\"\"!!\" \"-&%&_AXISG6#\"\"#6'-%+_GRIDLINESG6'-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\" !!\"\"$\"\"!!\"\"-%*LINESTYLEG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPAREN CYG6#$\"\"!!\"\"-%)_VISIBLEG6#\"\"!-%&COLORG6&%$RGBG$\"\"!!\"\"$\"\"!! \"\"$\"\"!!\"\"-%*LINESTYLEG6#\"\"!-%*THICKNESSG6#\"\"!-%-TRANSPARENCY G6#$\"\"!!\"\"-%+AXESLABELSG6$Q\"b6\"Q!6\"-%)_VISIBLEG6#\"\"!-%%ROOTG6 '-%)BOUNDS_XG6#$\"$q$!\"\"-%)BOUNDS_YG6#$\"#]!\"\"-%-BOUNDS_WIDTHG6#$ \"%+X!\"\"-%.BOUNDS_HEIGHTG6#$\"$?)!\"\"-%)CHILDRENG6\"-%+ANNOTATIONG6 '-%)BOUNDS_XG6#$\"\"!!\"\"-%)BOUNDS_YG6#$\"\"!!\"\"-%-BOUNDS_WIDTHG6#$ \"%+S!\"\"-%.BOUNDS_HEIGHTG6#$\"%+S!\"\"-%)CHILDRENG6\"" 1 2 2 1 10 0 2 0 0 4 2 1.0 45.0 45.0 0 0 "Curve 1" }}{TEXT 215 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 214 2 "Q5" }{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}{PARA 7 "" 1 "" {TEXT 216 80 "Warning, the protected names norm and trace have been redefined an d unprotected\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "n := nop s(convert(y,list)): Z := evalm(y/sigma):\n" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 26 "listplot(convert(y,list));" }}{PARA 13 "" 1 "" {TEXT 215 0 "" }{GLPLOT2D 495.0 219.0 219.0 {PLOTDATA 2 "6(-%'CURVESG6 #7\\dl7$$\"#5!\"\"$!+/BkYD!\")7$$\"#?!\"\"$!+=:XQE!\")7$$\"#I!\"\"$!+W CYW?!\")7$$\"#S!\"\"$!+B([gX\"!\")7$$\"#]!\"\"$!+[c1(R\"!\")7$$\"#g!\" \"$!+D1Y(e\"!\")7$$\"#q!\"\"$!*22(zC\"!\")7$$\"$+\"!\"\"$!+rF.p8!\")7$$\"$5\"!\"\"$!+z]U '3)!\"*7$$\"$?\"!\"\"$\"+\"3TS+\"!\"*7$$\"$I\"!\"\"$\"+7lk'4\"!\")7$$ \"$S\"!\"\"$\"+tH')>!\"\"$\"*2?%=;!\"(7$$\"$+#!\"\"$\"+&*>8&R\"!\")7$$\"$5#!\"\"$\"+$)GGM 6!\")7$$\"$?#!\"\"$\"+/w*)z5!\")7$$\"$I#!\"\"$\"+f%3CB\"!\")7$$\"$S#! \"\"$\"+49bW7!\")7$$\"$]#!\"\"$\"+@=><9!\")7$$\"$g#!\"\"$\"+XG![m\"!\" )7$$\"$q#!\"\"$\"+_)[!\\:!\")7$$\"$!G!\"\"$\"+`#pHR\"!\")7$$\"$!H!\"\" $\"+\"))RhK\"!\")7$$\"$+$!\"\"$\"+x=?28!\")7$$\"$5$!\"\"$\"*0%3m8!\"(7 $$\"$?$!\"\"$\"+(4tVK\"!\")7$$\"$I$!\"\"$\"+-l&\\N\"!\")7$$\"$S$!\"\"$ \"+DGj!=\"!\")7$$\"$]$!\"\"$\"+U![<3)!\"*7$$\"$g$!\"\"$\"+b4[5U!\"*7$$ \"$q$!\"\"$\"+L*=Y)G!\"*7$$\"$!Q!\"\"$\"+FmJ!3%!\"*7$$\"$!R!\"\"$\"+Y' >_:$!\"*7$$\"$+%!\"\"$!+U=94N!\"*7$$\"$5%!\"\"$!+7Y'\\-*!\"*7$$\"$?%! \"\"$!+hP,J:!\")7$$\"$I%!\"\"$!+=q(yp\"!\")7$$\"$S%!\"\"$!+jyc\\6!\")7 $$\"$]%!\"\"$!+&*[uC@!\"*7$$\"$g%!\"\"$\"+J5*o@(!\"*7$$\"$q%!\"\"$\"*- !\\)G\"!\"(7$$\"$![!\"\"$\"+n\"4;(=!\")7$$\"$!\\!\"\"$\"+yjU_C!\")7$$ \"$+&!\"\"$\"+BER5H!\")7$$\"$5&!\"\"$\"+*)RbKG!\")7$$\"$?&!\"\"$\")vF# R#!\"'7$$\"$I&!\"\"$\"+Xh)[f\"!\")7$$\"$S&!\"\"$\"+#\\4(3)*!\"*7$$\"$] &!\"\"$\"+&4l!f%*!\"*7$$\"$g&!\"\"$\"+vC2t5!\")7$$\"$q&!\"\"$\"+c2eyh! \"*7$$\"$!e!\"\"$\"+>CC@$!\"*7$$\"$]'!\"\"$!*C>^r\"! \")7$$\"$g'!\"\"$!+'y?T]#!\"*7$$\"$q'!\"\"$!+8@`hW!\"*7$$\"$!o!\"\"$!+ LwBxJ!\"*7$$\"$!p!\"\"$!+%\\eGH(!#57$$\"$+(!\"\"$\"+Q'Q'\\S!\"*7$$\"$5 (!\"\"$\"+7*zpv%!\"*7$$\"$?(!\"\"$\"+ng$)Gl!\"*7$$\"$I(!\"\"$\"+M$\\\" fd!\"*7$$\"$S(!\"\"$\"+u0cqa!\"*7$$\"$](!\"\"$\"+XBm_w!\"*7$$\"$g(!\" \"$\"+a#4fU)!\"*7$$\"$q(!\"\"$\"+9Z'Q8\"!\")7$$\"$!y!\"\"$\"+U$eHE\"! \")7$$\"$!z!\"\"$\"+U'y2[\"!\")7$$\"$+)!\"\"$\"+0>%[l)!\"*7$$\"$5)!\" \"$!)H`Y**!\")7$$\"$?)!\"\"$!+NB,_r!\"*7$$\"$I)!\"\"$!+^5u\"4'!\"*7$$ \"$S)!\"\"$!+B)=OF#!\"*7$$\"$])!\"\"$!*P'[t?!\")7$$\"$g)!\"\"$!+LM*y\" >!\"*7$$\"$q)!\"\"$!+h(=Va\"!\"*7$$\"$!))!\"\"$!+Mvec@!\"*7$$\"$!*)!\" \"$\")*>B$=!\"*7$$\"$+*!\"\"$!*J'fuo!\"*7$$\"$5*!\"\"$!*R=l8&!\")7$$\" $?*!\"\"$!+&)p\"=$*)!\"*7$$\"$I*!\"\"$!*ovLC&!\")7$$\"$S*!\"\"$!+_-\\% >#!\"*7$$\"$]*!\"\"$\"+&*f9.Q!#57$$\"$g*!\"\"$\"*aV7i(!\")7$$\"$q*!\" \"$\"+\"3@l6\"!\")7$$\"$!)*!\"\"$\"+BBiG&)!\"*7$$\"$!**!\"\"$\"+;jx`S! \"*7$$\"%+5!\"\"$!+\"3aOw\"!\"*7$$\"%55!\"\"$!+[l0kA!\"*7$$\"%?5!\"\"$ !+k7DaC!#57$$\"%I5!\"\"$\")m2&3#!\")7$$\"%S5!\"\"$!+)zXmN\"!\"*7$$\"%] 5!\"\"$!+RSB4G!\"*7$$\"%g5!\"\"$!+t/C%*>!\"*7$$\"%q5!\"\"$\"+_n$f5#!\" *7$$\"%!3\"!\"\"$\"+3iz\\Z!\"*7$$\"%!4\"!\"\"$\"+1wzbd!\"*7$$\"%+6!\" \"$\"+AhICa!\"*7$$\"%56!\"\"$\"+Zty\")f!\"*7$$\"%?6!\"\"$\"+kG(eA&!\"* 7$$\"%I6!\"\"$\"+b_8.:!\"*7$$\"%S6!\"\"$\")$\\Y=$!\"*7$$\"%]6!\"\"$!*2 Jj`&!\")7$$\"%g6!\"\"$!*rG*H5!\"(7$$\"%q6!\"\"$!+V+cV6!\")7$$\"%!=\"! \"\"$!+>9'**Q\"!\")7$$\"%!>\"!\"\"$!+TCI$y\"!\")7$$\"%+7!\"\"$!+)H$*p' >!\")7$$\"%57!\"\"$!)(\\@q\"!\"'7$$\"%?7!\"\"$!+[r)*\\*)!\"*7$$\"%I7! \"\"$!+._f*z%!\"*7$$\"%S7!\"\"$!+Ds3Z;!\"*7$$\"%]7!\"\"$\"+(>$*fx\"!\" *7$$\"%g7!\"\"$\"+%pCz;\"!\")7$$\"%q7!\"\"$\"+4QZ3?!\")7$$\"%!G\"!\"\" $\"+;;pCA!\")7$$\"%!H\"!\"\"$\"+*p9\\#>!\")7$$\"%+8!\"\"$\"+*o**=`\"! \")7$$\"%58!\"\"$\"+:R3R6!\")7$$\"%?8!\"\"$\"+#Gy57'!\"*7$$\"%I8!\"\"$ \"+TPg6g!\"*7$$\"%S8!\"\"$\"+=!R.'**!\"*7$$\"%]8!\"\"$\")=!)o6!\"'7$$ \"%g8!\"\"$\"+BR8N:!\")7$$\"%q8!\"\"$\"+4%RRw\"!\")7$$\"%!Q\"!\"\"$\"+ )G#*3q\"!\")7$$\"%!R\"!\"\"$\"+:W!*Q:!\")7$$\"%+9!\"\"$\"+DDAX:!\")7$$ \"%59!\"\"$\"+fVir:!\")7$$\"%?9!\"\"$\"+R**[Alun3&>!\"*7$$\"%5=!\"\"$!+/'=:C\"!\"*7$$\"%?=!\"\"$!+o<+Y7!\"*7$$\" %I=!\"\"$\"+n74_;!#57$$\"%S=!\"\"$\"*7eQy\"!\")7$$\"%]=!\"\"$\"*#[hzi! \"*7$$\"%g=!\"\"$!+p8f$)R!\"*7$$\"%q=!\"\"$!+s(y'H8!\")7$$\"%!)=!\"\"$ !+&)Q+2=!\")7$$\"%!*=!\"\"$!+&HOm5#!\")7$$\"%+>!\"\"$!+3dys@!\")7$$\"% 5>!\"\"$!+%*\\N&4#!\")7$$\"%?>!\"\"$!+i=3S!\"\"$!+h&)=R:! \")7$$\"%S>!\"\"$!+*z&[R8!\")7$$\"%]>!\"\"$!*(em]7!\"(7$$\"%g>!\"\"$!+ Gqrq8!\")7$$\"%q>!\"\"$!+./!=T\"!\")7$$\"%!)>!\"\"$!+m%R'f!\"\"$!+t&)z]9!\")7$$\"%+?!\"\"$!+\\ug&=\"!\")7$$\"%5?!\"\"$!)0vZ\"* !\"(7$$\"%??!\"\"$!+)42k$z!\"*7$$\"%I?!\"\"$!+js0`h!\"*7$$\"%S?!\"\"$! +np/pm!\"*7$$\"%]?!\"\"$!+-]?$*o!\"*7$$\"%g?!\"\"$!+h4')[d!\"*7$$\"%q? !\"\"$!*>Gjr#!\"*7$$\"%!3#!\"\"$\"+d2G=`!\"*7$$\"%!4#!\"\"$\"+&R3X-\"! \")7$$\"%+@!\"\"$\"+x`\"3Q\"!\")7$$\"%5@!\"\"$\"+6P(RB\"!\")7$$\"%?@! \"\"$\"+.I$>?\"!\")7$$\"%I@!\"\"$\"+ME@:9!\")7$$\"%S@!\"\"$\"+R6rz#!\"\"$\"+UgL\"!\")7$$\"%!H#!\"\"$!+\\7Yw5!\")7$$\"%+B!\"\"$!*dDIj *!\")7$$\"%5B!\"\"$!+-d:wz!\"*7$$\"%?B!\"\"$!+#pu,#!\")7$$\"%?C!\"\"$!+^2*4`#!\")7$$\"%IC!\"\"$!*p?W\"G!\"(7$$\"% SC!\"\"$!+v:.'*H!\")7$$\"%]C!\"\"$!+b_#Rx#!\")7$$\"%gC!\"\"$!+^fvlE!\" )7$$\"%qC!\"\"$!+ATa%p#!\")7$$\"%![#!\"\"$!+70d-D!\")7$$\"%!\\#!\"\"$! +m\">U<#!\")7$$\"%+D!\"\"$!+USUe=!\")7$$\"%5D!\"\"$!+WZ;'Q\"!\")7$$\"% ?D!\"\"$!+8zs]5!\")7$$\"%ID!\"\"$!+d79W')!\"*7$$\"%SD!\"\"$!+&>l9+\"! \")7$$\"%]D!\"\"$!+Qe8q5!\")7$$\"%gD!\"\"$!+*3G!\")7$$\"%IE!\"\"$!+\\E8A>!\")7$$\"%SE!\"\"$!*E`tS\"!\"(7$$\"%]E!\"\" $!+=^3[7!\")7$$\"%gE!\"\"$!+l]lu7!\")7$$\"%qE!\"\"$!+(*e?H9!\")7$$\"%! o#!\"\"$!+iWHk8!\")7$$\"%!p#!\"\"$!+Qu$>\"y!\"*7$$\"%+F!\"\"$!+ONS+#!\")7$$\"%+G!\"\"$!+uC:R7!\")7$$\"%5G!\"\"$!+vTh qR!\"*7$$\"%?G!\"\"$!*//^W\"!\")7$$\"%IG!\"\"$!+#3>Y,#!\"*7$$\"%SG!\" \"$!+L/-<8!\"*7$$\"%]G!\"\"$!+Lu!o,%!#57$$\"%gG!\"\"$\"+(e\\/$\\!\"*7$ $\"%qG!\"\"$\"+wJlz%*!\"*7$$\"%!)G!\"\"$\"+3g:l8!\")7$$\"%!*G!\"\"$\"+ DY#)4:!\")7$$\"%+H!\"\"$\"+E`XV9!\")7$$\"%5H!\"\"$\"+.AOM9!\")7$$\"%?H !\"\"$\"*D8]R\"!\"(7$$\"%IH!\"\"$\"+PFmm5!\")7$$\"%SH!\"\"$\"+peLhz!\" *7$$\"%]H!\"\"$\"+z5:oy!\"*7$$\"%gH!\"\"$\"+L/UO()!\"*7$$\"%qH!\"\"$\" +)*H)H`)!\"*7$$\"%!)H!\"\"$\"*j'e%f(!\")7$$\"%!*H!\"\"$\"+z([6[)!\"*7$ $\"%+I!\"\"$\"+ye=#p*!\"*7$$\"%5I!\"\"$\"+\"*4CZ9!\")7$$\"%?I!\"\"$\"+ c9*=-#!\")7$$\"%II!\"\"$\"*Ua'oN'!\"*7$$ \"%IJ!\"\"$!*^?2\\(!\")7$$\"%SJ!\"\"$!*&f!RT*!\")7$$\"%]J!\"\"$!+d%G^- \"!\")7$$\"%gJ!\"\"$!+r]pv6!\")7$$\"%qJ!\"\"$!+_rXK8!\")7$$\"%!=$!\"\" $!+-BCP9!\")7$$\"%!>$!\"\"$!+#H'f5;!\")7$$\"%+K!\"\"$!*)yL(y\"!\"(7$$ \"%5K!\"\"$!+zc,]B\\eA!\")7$$\"%IL!\"\"$\"+\"G6pM#!\")7$$ \"%SL!\"\"$\"+'em6_#!\")7$$\"%]L!\"\"$\"+D>'f@#!\")7$$\"%gL!\"\"$\"+1, w>;!\")7$$\"%qL!\"\"$\"+b)4?K*!\"*7$$\"%!Q$!\"\"$\"+V2;4`!\"*7$$\"%!R$ !\"\"$!*@7iK)!\"*7$$\"%+M!\"\"$!+f:=3O!\"*7$$\"%5M!\"\"$!)m0_h!\"(7$$ \"%?M!\"\"$!+WK2o!*!\"*7$$\"%IM!\"\"$!+U8hr9!\")7$$\"%SM!\"\"$!+LCI)*= !\")7$$\"%]M!\"\"$!+[()\\*z\"!\")7$$\"%gM!\"\"$!+.BOr7!\")7$$\"%qM!\" \"$!+N*fU/*!\"*7$$\"%![$!\"\"$!+Y6>(G)!\"*7$$\"%!\\$!\"\"$!+z&*\\h'*! \"*7$$\"%+N!\"\"$!+@Mr`6!\")7$$\"%5N!\"\"$!+M1o48!\")7$$\"%?N!\"\"$!+2 T!\"*7$$\"%IO! \"\"$\"+&[@#eW!\"*7$$\"%SO!\"\"$\"+6+44d!\"*7$$\"%]O!\"\"$\"+ai%f])!\" *7$$\"%gO!\"\"$\"+(eRGA\"!\")7$$\"%qO!\"\"$\"+wW[w:!\")7$$\"%!o$!\"\"$ \"+$\\Wg$=!\")7$$\"%!p$!\"\"$\"+y'yZ\"=!\")7$$\"%+P!\"\"$\"+i&**pb\"! \")7$$\"%5P!\"\"$\"+_?\"eE\"!\")7$$\"%?P!\"\"$\"+N=M2))!\"*7$$\"%IP!\" \"$\"+,3<:\\!\"*7$$\"%SP!\"\"$\"+E5n@Q!\"*7$$\"%]P!\"\"$\"*%pd->!\")7$ $\"%gP!\"\"$\"+d%fo\"H!\"*7$$\"%qP!\"\"$\"+a3(3X&!\"*7$$\"%!y$!\"\"$\" +#>Z74(!\"*7$$\"%!z$!\"\"$\"+Y*)[`i!\"*7$$\"%+Q!\"\"$\"+m;C'3$!\"*7$$ \"%5Q!\"\"$\"+$>$3\"R#!\"*7$$\"%?Q!\"\"$\"+MXci!)!\"*7$$\"%IQ!\"\"$\"+ o03. " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "rho[0]:=1: k:=3:\n" }{MPLTEXT 1 0 86 "solve(\{seq(rho[i]=add(alpha[j]*rho[abs(i-j)],j=1..k),i=1..k)\},\{ seq(rho[i],i=1..k)\}): \n" }{MPLTEXT 1 0 10 "assign(%):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "V:=factor(1/(1-add(rho[i]*alpha[i], i=1..k))):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 64 "A:=inverse(ma trix([seq([seq(rho[abs(i-j)],i=1..k)],j=1..k)])*V):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 87 "LF:=expand(log(det(A))-2*n*log(sigma)-eval m([seq(Z[i],i=1..k)]&*A&*[seq(Z[i],i=1..k)])\n" }{MPLTEXT 1 0 53 "-add ((Z[i]-add(Z[i-j]*alpha[j],j=1..k))^2,i=k+1..n)):" }}}{EXCHG {PARA 11 "" 1 "" {TEXT 217 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "LF 1:=subs(\{sigma=1\},LF):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 " " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "sol1 := fsolve(\{seq(di ff(LF1,alpha[i]),i=1..k)\}, \{seq(alpha[i],i=1..k)\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%sol1G<%/&%&alphaG6#\"\"#$!+)R1+@\"!\"*/&%&alpha G6#\"\"\"$\"+gHvx=!\"*/&%&alphaG6#\"\"$$\"+\"e+J#H!#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "LF2:=subs(sol1,LF):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 47 "sol2 := fsolve(\{ diff(LF2, sigma) \}, \{sigma=1\});" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%sol2G<#/%&sigm aG$\"+w%f>S#!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "LF1:=su bs(sol2,LF): # now go back to 'sol1' and repeat till numbers no longe r change" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "# (the converge nce is rather slow)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "# ve rify stability" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "solve(sub s(sol1,x^k=add(alpha[i]*x^(k-i),i=1..k)),x):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "seq(abs(%[i]),i=1..k);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6%$\"+&Qu5w&!#5F#$\"+1%yr!))F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}} {MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }