{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 }