{VERSION 2 3 "IBM INTEL NT" "2.3" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 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 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }} {PARA 7 "" 1 "" {TEXT -1 32 "Warning, new definition for norm" }} {PARA 7 "" 1 "" {TEXT -1 33 "Warning, new definition for trace" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "t:=array(1..4,[28,77,124,168 ]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"tG-%'VECTORG6#7&\"#G\"#x\"$ C\"\"$o\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A:=matrix(4,3) ;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%&arrayG6%;\"\"\"\"\"%;F) \"\"$7\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 102 "for i from 1 t o 4 do\n A[i,1]:=1.0;\n A[i,2]:=sin(2*Pi*t[i]/365);\n A[i,3]:=co s(2*Pi*t[i]/365);\nod:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(A);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#-%'MATRIXG6#7&7%$\"#5!\"\"-%$sinG6#,$%#PiG#\"#c\"$l$- %$cosGF-7%F(-F,6#,$F/#\"$a\"F2-F4F77%F(-F,6#,$F/#\"$<\"F2,$-F4F>F*7%F( -F,6#,$F/#\"#HF2,$-F4FFF*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "b:=vector([10,12,14,15]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"b G-%'VECTORG6#7&\"#5\"#7\"#9\"#:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "u:=leastsqrs(A,b);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"uG-% 'VECTORG6#7%$\"+M;eC7!\")$\"+8YfVR!#5$!+)=%eDF!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "a:=u[1]; b:=u[2]; c:=u[3];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG$\"+M;eC7!\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG$\"+8YfVR!#5" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"cG$!+) =%eDF!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "t:='t':" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "f:=t->a+b*sin(2*Pi*t/365)+c* cos(2*Pi*t/365);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG:6#%\"tG6\"6 $%)operatorG%&arrowGF(,(%\"aG\"\"\"*&%\"bGF.-%$sinG6#,$*&%#PiGF.9$F.# \"\"#\"$l$F.F.*&%\"cGF.-%$cosGF3F.F.F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "plot(f,0..365);" }}{PARA 13 "" 1 "" {INLPLOT "6$-%'CU RVESG6$7Z7$\"\"!$\"1)****>:K-_*!#:7$$\"1LL$3Fhf&zF+$\"1<&R@\"\\f*f*F+7 $$\"1n\"HK1Sy[\"!#9$\"17r1$yU!4(*F+7$$\"1L$e*o2MmAF4$\"1vE,([:]()*F+7$ $\"1M$3F)=+]IF4$\"1eSYd=]35F47$$\"1n\"z>RQ*HQF4$\"10]/<9IL5F47$$\"1Le* [PRIb%F4$\"1E\"**o3!Qf5F47$$\"1+D1f&ok(F4$\"1:OP1y!R>\"F47$$\"1M$3-D87M)F4$\"1\\%f#Rj*pA\"F47$$\"1,+D'oo% G\"*F4$\"19vd>.=k7F47$$\"1++vom&*=**F4$\"1#eCHV&y+8F47$$\"1+]PJQ2o5!#8 $\"1hkARdtM8F47$$\"1$eRF!4DP6F[p$\"1rFu(*>%RO\"F47$$\"1n;aJ\"4&>7F[p$ \"1a;)G#)pgR\"F47$$\"1nm;TE>*G\"F[p$\"1N7RgVi?9F47$$\"1]ilG6Dq8F[p$\"1 $4QK>?cW\"F47$$\"1nm\"\\i,?W\"F[p$\"1pc*RWuTY\"F47$$\"1]i:\"HB2_\"F[p$ \"1.3VrFK![\"F47$$\"1](oM$\\o&f\"F[p$\"1k%QRmW8\\\"F47$$\"1e*[$QAzM;F[ p$\"1,8j8FM&\\\"F47$$\"1n\"HKa**Qn\"F[p$\"1V#3y89\")\\\"F47$$\"1U&)3dA \")4B=F[p$\"18Z8X5E(\\\"F47$$\" 14-jc\\Vj=F[p$\"1\")Gs?k$R\\\"F47$$\"1$eR_^rO!>F[p$\"1:OB\"3?$*[\"F47$ $\"1]PM+Ost>F[p$\"1x30N,Fy9F47$$\"1MeRrVh$3\"F47$$\"1LL$y3))=/$F[p$\"1jJx^u 1a5F47$$\"1L3F!f,$>JF[p$\"1N\"oqYXo-\"F47$$\"1$F[p$\"13ma%e5L +\"F47$$\"1,+D0+imKF[p$\"1#p44z!y])*F+7$$\"1nTN3OZZLF[p$\"1-#[&4!Q`o*F +7$$\"1ML$[.!z>MF[p$\"1NvVaJCz&*F+7$$\"1#zW\\*F+7$$\"1v=#feY.h$F[p$\"1O];)R\"o*\\*F+7$$ \"$l$F(F)-%'COLOURG6&%$RGBG$\"#5!\"\"F(F(-%%VIEWG6$;F(Fg\\l%(DEFAULTG " 2 269 165 165 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 10030 10061 10056 10074 0 0 0 20030 0 12020 0 0 0 0 0 0 0 1 1 0 0 0 156 189 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "t:=array([28, 77,124,168]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"tG-%'VECTORG6#7& \"#G\"#x\"$C\"\"$o\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "s:= array([10,12,14,15]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"sG-%'VECT ORG6#7&\"#5\"#7\"#9\"#:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 " points:=[seq([t[i],s[i]],i=1..4)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%'pointsG7&7$\"#G\"#57$\"#x\"#77$\"$C\"\"#97$\"$o\"\"#:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "plot1:=plot(points,style=point):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "plot2:=plot(f,0..365):" }} }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "plots[display](\{plot1,plot 2\});" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7Z7$\"\"!$\"1)****>: K-_*!#:7$$\"1LL$3Fhf&zF+$\"1<&R@\"\\f*f*F+7$$\"1n\"HK1Sy[\"!#9$\"17r1$ yU!4(*F+7$$\"1L$e*o2MmAF4$\"1vE,([:]()*F+7$$\"1M$3F)=+]IF4$\"1eSYd=]35 F47$$\"1n\"z>RQ*HQF4$\"10]/<9IL5F47$$\"1Le*[PRIb%F4$\"1E\"**o3!Qf5F47$ $\"1+D1f&ok(F4$\"1:OP1y!R>\"F47$$\" 1M$3-D87M)F4$\"1\\%f#Rj*pA\"F47$$\"1,+D'oo%G\"*F4$\"19vd>.=k7F47$$\"1+ +vom&*=**F4$\"1#eCHV&y+8F47$$\"1+]PJQ2o5!#8$\"1hkARdtM8F47$$\"1$eRF!4D P6F[p$\"1rFu(*>%RO\"F47$$\"1n;aJ\"4&>7F[p$\"1a;)G#)pgR\"F47$$\"1nm;TE> *G\"F[p$\"1N7RgVi?9F47$$\"1]ilG6Dq8F[p$\"1$4QK>?cW\"F47$$\"1nm\"\\i,?W \"F[p$\"1pc*RWuTY\"F47$$\"1]i:\"HB2_\"F[p$\"1.3VrFK![\"F47$$\"1](oM$\\ o&f\"F[p$\"1k%QRmW8\\\"F47$$\"1e*[$QAzM;F[p$\"1,8j8FM&\\\"F47$$\"1n\"H Ka**Qn\"F[p$\"1V#3y89\")\\\"F47$$\"1U&)3dA\")4B=F[p$\"18Z8X5E(\\\"F47$$\"14-jc\\Vj=F[p$\"1\")Gs?k$R\\ \"F47$$\"1$eR_^rO!>F[p$\"1:OB\"3?$*[\"F47$$\"1]PM+Ost>F[p$\"1x30N,Fy9F 47$$\"1MeRrVh$3\"F47$$\"1LL$y3))=/$F[p$\"1jJx^u1a5F47$$\"1L3F!f,$>JF[p$\"1N \"oqYXo-\"F47$$\"1$F[p$\"13ma%e5L+\"F47$$\"1,+D0+imKF[p$\"1#p 44z!y])*F+7$$\"1nTN3OZZLF[p$\"1-#[&4!Q`o*F+7$$\"1ML$[.!z>MF[p$\"1NvVaJ Cz&*F+7$$\"1#zW\\* F+7$$\"1v=#feY.h$F[p$\"1O];)R\"o*\\*F+7$$\"$l$F(F)-%'COLOURG6&%$RGBG$ \"#5!\"\"F(F(-F$6%7&7$$\"#GF($F^]lF(7$$\"#xF($\"#7F(7$$\"$C\"F($\"#9F( 7$$\"$o\"F($\"#:F(Fi\\l-%&STYLEG6#%&POINTG-%%VIEWG6$;F(Fg\\l%(DEFAULTG " 2 270 196 196 2 0 1 0 2 9 0 4 2 1.000000 45.000000 45.000000 10030 10061 10056 10074 0 0 0 20030 0 12020 0 0 0 0 0 0 0 1 1 0 0 0 160 210 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "evalf(f(t[4]) );" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#$\"+t\\V)\\\"!\")" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 27 "x:=array(1..5,[1,2,3,4,5]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG-%'VECTORG6#7'\"\"\"\"\"#\"\"$\"\"%\"\"&" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "y:=array(1..5,[4.1,4.4,5.1,5 .5,5.7]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"yG-%'VECTORG6#7'$\"#T !\"\"$\"#WF+$\"#^F+$\"#bF+$\"#dF+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A:=matrix(2,2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% \"AG-%&arrayG6%;\"\"\"\"\"#F(7\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "n:=5; i:='i';" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>% \"nG\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"iGF$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "A[1,1]:=sum(x[i]^2,i=1..n);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"AG6$\"\"\"F'\"#b" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "A[1,2]:=sum(x[i],i=1..n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"AG6$\"\"\"\"\"#\"#:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "A[2,1]:=A[1,2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"AG6$\"\"#\"\"\"\"#:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "A[2,2]:=n;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"AG 6$\"\"#F'\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "b:=vector (2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG-%&arrayG6$;\"\"\"\"\"#7 \"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "b[1]:=sum(x[i]*y[i],i =1..n);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"bG6#\"\"\"$\"$(y!\"\" " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "b[2]:=sum(y[i],i=1..n); " }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>&%\"bG6#\"\"#$\"$[#!\"\"" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(A);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#-%'MATRIXG6#7$7$\"#b\"#:7$F)\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "evalm(b);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #-%'VECTORG6#7$$\"$(y!\"\"$\"$[#F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "with(linalg):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "u:=linsolve(A,b);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"uG-%' VECTORG6#7$$\"*.++I%!\"*$\"+*)****pOF+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "m:=u[1]; b:=u[2];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6# >%\"mG$\"*.++I%!\"*" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG$\"+*)*** *pO!\"*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "pts:=[seq([x[i], y[i]],i=1..n)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%$ptsG7'7$\"\"\"$ \"#T!\"\"7$\"\"#$\"#WF*7$\"\"$$\"#^F*7$\"\"%$\"#bF*7$\"\"&$\"#dF*" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "plot1:=plot(pts,style=point) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "f:=t->m*t+b;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"fG:6#%\"tG6\"6$%)operatorG%&arrowGF(,&*& %\"mG\"\"\"9$F/F/%\"bGF/F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "plot2:=plot(f,x[1]..x[5]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "plots[display](\{plot1,plot2\});" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7S7$$\"\"\"\"\"!$\"1+++#******4%!#:7$$\"1nmm;' )=(3\"F-$\"1K#Gu4\"\\PTF-7$$\"1LL$e'40j6F-$\"1'[(z2>6qTF-7$$\"1nmm6hO[ 7F-$\"1l\"4hsVUF-7$$\"1LL$eF>(>9F-$ \"1\"\\n=Gz/G%F-7$$\"1nm;>K'*)\\\"F-$\"1d&QxF-$\"1%)*eiQ lI\\%F-7$$\"1+++I,Q+?F-$\"1S6!4Xj,`%F-7$$\"1+++]*3q3#F-$\"1F5wVQTnXF-7 $$\"1+++q=\\q@F-$\"1v9h*\\6Lg%F-7$$\"1nm;fBIYAF-$\"1u0=5+\"fj%F-7$$\"1 LLLj$[kL#F-$\"1yEC#zsYn%F-7$$\"1LLL`Q\"GT#F-$\"1u<<`*4vq%F-7$$\"1++]s] k,DF-$\"1N*zwP2du%F-7$$\"1LLL`dF!e#F-$\"1gTnq&=&zZF-7$$\"1++]sgamEF-$ \"1QY<3[h;[F-7$$\"1++]R>&[F-7$$\"1LLLe/TMGF-$\"1lle% \\'z))[F-7$$\"1LL$eDBJ\"HF-$\"1.xu(*HkA\\F-7$$\"1nmmTc-)*HF-$\"1W2\"R- ^\"f\\F-7$$\"1mm;f`@'3$F-$\"17.q-E2(*\\F-7$$\"1++]nZ)H;$F-$\"1aR^[M3I] F-7$$\"1mmmJy*eC$F-$\"1gVNmgtl]F-7$$\"1+++S^bJLF-$\"1lY>4(oD5&F-7$$\"1 +++0TN:MF-$\"1igRkAgQ^F-7$$\"1++]7RV'\\$F-$\"1-V'=emM<&F-7$$\"1+++:#fk e$F-$\"1x$4AYx@@&F-7$$\"1LLL`4NnOF-$\"1'QN*44'pC&F-7$$\"1+++],s`PF-$\" 1g6wk'*4%G&F-7$$\"1mm;zM)>$QF-$\"1(RY<*pbF-7$$\"1 LL$e#pa-XF-$\"1ufh!=&41cF-7$$\"1+++Sv&)zXF-$\"1t&R\\uQ$RcF-7$$\"1LLLGU YoYF-$\"1E()=@'Run&F-7$$\"1mmm1^rZZF-$\"17)4\"*\\<:r&F-7$$\"1++]sI@K[F -$\"1S;nC;&yu&F-7$$\"1++]2%)38\\F-$\"1mU'*=!GEy&F-7$$\"\"&F*$\"1,++/++ ?eF--%'COLOURG6&%$RGBG$\"#5!\"\"F*F*-F$6%7'7$F($\"1+++++++TF-7$$\"\"#F *$\"1+++++++WF-7$$\"\"$F*$\"1+++++++^F-7$$\"\"%F*$\"1+++++++bF-7$Fdz$ \"1+++++++dF-Fhz-%&STYLEG6#%&POINTG-%%VIEWG6$;F(Fdz%(DEFAULTG" 2 270 213 213 2 0 1 0 2 9 0 1 2 1.000000 45.000000 45.000000 10030 10061 10056 10074 0 0 0 20040 0 12020 0 255 0 0 255 0 0 1 0 0 0 0 208 230 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "42 \+ 1" 1 }{VIEWOPTS 1 1 0 3 2 1804 }