{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 "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 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 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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 51 "g:=readdata(\"/home/hundley/sunspot.txt\",in teger,2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "pointplot(g,symbol=circle );" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "plot(g);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "with(CurveFitting):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "h:=LeastSquares(g,x,curve=a*cos((2* 3.1415/11.5)*x)+b*sin((2*3.1415/11.5)*x)+c);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hG,($\"+K[6][!\")\"\"\"*&$\"3*emrZMK%R;!#F-F)-%$sinGF0F)F7 " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "A1:=plot(h,x=1700..1990 ):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "A:=plot(g,color=blue) :" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "with(plots):" }}{PARA 7 "" 1 "" {TEXT -1 50 "Warning, the name changecoords has been redefin ed\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "display(\{A,A1\}); " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "7 0 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }