{VERSION 4 0 "IBM INTEL NT" "4.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 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 " Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 1 0 0 0 0 1 0 1 0 2 2 0 1 } } {SECT 0 {EXCHG {PARA 0 "" 0 "" {TEXT -1 17 "\307\340\344\340\351\362 \345 \364\363\355\352\366\350\376: " }{MPLTEXT 1 0 6 "y:=x:\n" }{TEXT -1 29 "\307\340\344\340\351\362\345 \350\355\362\345\360\342\340\353 \+ \360\340\347\353\356\346\345\355\350\377: " }{MPLTEXT 1 0 16 "L1:=-Pi: L2:=Pi:\n" }{TEXT -1 38 "\307\340\344\340\351\362\345 \352\356\353\350 \367\345\361\362\342\356 \367\353\345\355\356\342 \360\340\347\353\356 \346\345\355\350\377: " }{MPLTEXT 1 0 6 "n:=5:\n" }{TEXT -1 25 "\307 \340\344\340\351\362\345 \354\340\361\370\362\340\341 \343\360\340\364 \350\352\340: " }{MPLTEXT 1 0 511 "A:=5:B:=6:\ny1:=y:print(`\320\340 \347\353\356\346\345\355\350\345 \364\363\355\352\366\350\350 f(x)`=y) ;print(`\342 \350\355\362\345\360\342\340\353\345:`);[L1,L2];print(` \312\356\353\350\367\345\361\362\342\356 \367\353\345\355\356\342 \360 \340\347\353\356\346\345\355\350\377`= n);k:='k':L:=(L2-L1)/2:a0:=1/L* int(y,x=L1..L2):for k from 1 by 1 to n do a[k]:=1/L*int(y*cos(Pi*k*x/L ),x=L1..L2): b[k]:=1/L*int(y*sin(Pi*k*x/L),x=L1..L2): od:k:='k':y:=a0/ 2+sum('a[k]*cos(Pi*k*x/L)+b[k]*sin(Pi*k*x/L)','k'=1..n):print(`\320 \340\347\353\356\346\345\355\350\345 \350\354\345\345\362 \342\350\344 :`);print(`f(x)`=y);y2:=factor(y):print(`\317\356\361\362\360\356\350 \354 \343\360\340\364\350\352\350 \364\363\355\352\366\350\350 \350 \+ \345\345 \360\340\347\353\356\346\345\355\350\377 \342 \360\377\344 \+ \324\363\360\374\345:`);plot(\{y1,y\},x=-A..A,view=[-A..A,-B..B]);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#/%8|[x|[y|by|fy|iy|ay|`y|hy|cy|`y~|_z| ^z|hy|ey|az|cy|cy~f(x)G%\"xG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%-|]y~ |cy|hy|]z|`y|[z|]y|[y|fy|`y:G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7$,$% #PiG!\"\"F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%=|ew|iy|fy|cy|bz|`y| \\z|]z|]y|iy~|bz|fy|`y|hy|iy|]y~|[z|[y|by|fy|iy|ay|`y|hy|cy|jzG\"\"&" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%6|[x|[y|by|fy|iy|ay|`y|hy|cy|`y~|cy |gy|`y|`y|]z~|]y|cy|_y:G" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#/%%f(x)G,, -%$sinG6#%\"xG\"\"#-F'6#,$F)F*!\"\"*&#F*\"\"$\"\"\"-F'6#,$F)F1F2F2*&#F 2F*F2-F'6#,$F)\"\"%F2F.*&#F*\"\"&F2-F'6#,$F)F>F2F2" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#%V|jw|iy|\\z|]z|[z|iy|cy|gy~|^y|[z|[y|_z|cy|ey|cy~|_z |^z|hy|ey|az|cy|cy~|cy~|`y|`y~|[z|[y|by|fy|iy|ay|`y|hy|cy|jz~|]y~|[z|j z|_y~|_x|^z|[z|gz|`y:G" }}{PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6&-%'CURVESG6$7S7$$!\"&\"\"!F(7$$!3YLLLe%G?y%!#f_PF.F<7$$!3K++vo1YZNF.F?7$$!3;LL3-OJNLF.FB7$$!3p***\\P*o%Q7$ F.FE7$$!3Kmmm\"RFj!HF.FH7$$!33LL$e4OZr#F.FK7$$!3u*****\\n\\!*\\#F.FN7$ $!3%)*****\\ixCG#F.FQ7$$!3#******\\KqP2#F.FT7$$!39LL3-TC%)=F.FW7$$!3[m mm\"4z)e;F.FZ7$$!3Mmmmm`'zY\"F.Fgn7$$!3#****\\(=t)eC\"F.Fjn7$$!3!ommmh 5$\\5F.F]o7$$!3S$***\\(=[jL)!#=F`o7$$!3)f***\\iXg#G'FboFdo7$$!3ndmmT&Q (RTFboFgo7$$!3%\\mmTg=><#FboFjo7$$!3vDMLLe*e$\\!#?F]p7$$\"3!=nm\"zRQb@ FboFap7$$\"3_,+](=>Y2%FboFdp7$$\"3summ\"zXu9'FboFgp7$$\"3#4+++]y))G)Fb oFjp7$$\"3H++]i_QQ5F.F]q7$$\"3b++D\"y%3T7F.F`q7$$\"3+++]P![hY\"F.Fcq7$ $\"3iKLL$Qx$o;F.Ffq7$$\"3Y+++v.I%)=F.Fiq7$$\"3?mm\"zpe*z?F.F\\r7$$\"3; ,++D\\'QH#F.F_r7$$\"3%HL$e9S8&\\#F.Fbr7$$\"3s++D1#=bq#F.Fer7$$\"3\"HLL $3s?6HF.Fhr7$$\"3a***\\7`Wl7$F.F[s7$$\"3enmmm*RRL$F.F^s7$$\"3%zmmTvJga $F.Fas7$$\"3]MLe9tOcPF.Fds7$$\"31,++]Qk\\RF.Fgs7$$\"3![LL3dg6<%F.Fjs7$ $\"3%ymmmw(GpVF.F]t7$$\"3C++D\"oK0e%F.F`t7$$\"35,+v=5s#y%F.Fct7$$\"\"& F*Fft-%'COLOURG6&%$RGBG$\"#5!\"\"$F*F*F_u-F$6$7]v7$F($\"3s=%oq`:(\\9F. 7$$!3Gmm;HU,\"*[F.$\"3pMIu+dnB;F.7$F,$\"3nij%H6Lwr\"F.7$$!33](=UZ@$eZF .$\"36B3i$y`ms\"F.7$$!3pmT5!\\9Yt%F.$\"36ct0K&4=t\"F.7$$!3I$e*)f]24r%F .$\"3\"e&)z?wELt\"F.7$$!3!***\\(=_+so%F.$\"3\"\\bq/;(\\J10RXF.$\"3QdF'*GE kq;F.7$$!3O**\\7`'Gd[%F.$\"3k?vj7x:W;F.7$$!3Q#3_+nn!fWF.$\"3jN0))e`pL; F.7$$!3Hm\"zpo1CV%F.$\"3&)*p1NBiii\"F.7$$!3?]i!RqXdS%F.$\"3z-4*)fZqA;F .7$F3$\"3.Y'z%\\(>Qi\"F.7$$!39L$e9,ZAN%F.$\"345Ep-)*RI;F.7$$!33LL3-$4a K%F.$\"3T'eM%)*G6V;F.7$$!3+L$3Ffr&)H%F.$\"3?GT&=0;Dm\"F.7$$!3#HLLL)Qtr UF.$\"3)[r!)3e\\!*o\"F.7$$!3yKLek%e!=UF.$\"339K&fm3Yw\"F.7$F6$\"3sl:%> OH0(=F.7$$!35+]7GCadSF.$\"3u\"ezRaqA;#F.7$F9$\"3Pp=@\">n7_#F.7$$!3w*** \\7)ok^QF.$\"31s'3(pr$p%GF.7$F<$\"3%>4sHW@o3$F.7$$!3immmT0&ps$F.$\"3S] :'[4y_7$F.7$$!3Q++DJ\"48q$F.$\"37]i\"p3T::$F.7$$!3qLL$3sncn$F.$\"3)=)y s\"Q'[kJF.7$$!3/nmT5j-]OF.$\"3gn9U8%*4jJF.7$$!3mLLe*[V()f$F.$\"39s_.D< \"R6$F.7$F?$\"3aaJ[;rh)*HF.7$$!3kLL3-RU%\\$F.$\"3=S!p;SIp!GF.7$$!3'pm; a8(QTMF.$\"3=vUc$R_F.$!3WV^Xri)yl\"F.7$$!39$3xcV;`&>F.$!3g&>rd'pnT;F.7$$!3&**\\7ylD ;$>F.$!3bN`SwikI;F.7$$!3b;z%*z[$z!>F.$!38Xxy)G3Wi\"F.7$FW$!37qiPJ\\^A; F.7$$!3#)**\\(ofh:x\"F.$!3E9C9onQc;F.7$FZ$!3Q&ReB%HE8K(GioJt\"F.7$$!3Wm;a8!e&R:F.$!3:%4J3(=H Ig+Dv:F.7$Fjn$!3Y()e wFmHw8F.7$F]o$!3mlshYwho&*Fbo7$$!3tIL3xrs9%*Fbo$!3I+%*oC3n`wFbo7$F`o$! 3Ihal4WpvjFbo7$$!30%**\\7G7H#yFbo$!37#)*\\0G9)4gFbo7$$!3q%****\\Pw%4tF bo$!3_P1Z\"okXy&Fbo7$$!3M&**\\(o//'z'Fbo$!3'G_z]F$oucFbo7$Fdo$!3QyD7C/ fYcFbo7$$!3$oK$3_:<6_Fbo$!3O%yQJNNin&Fbo7$Fgo$!3mu=99=9>bFbo7$$!3Ihm\" HdGe:$Fbo$!3#*3IUVnd_\\Fbo7$Fjo$!37W8T[1_lQFbo7$F]p$!33!)f3?/>r)*F_p7$ Fap$\"3=&3p))**om&Fbo7$Fgp$\"3]w++DcljL*Fbo$\"3aBah@xcPvFbo7$F]q$\"39Bf\"GN59N*Fbo7$F`q$\"3a bwfrfZm8F.7$$\"3G+]P4kh`8F.$\"3KTa\"F.$\"3T#*RbwHvIt\"F.7$$\"3Z**\\(o/?yh\"F.$\"36M6*p*[:F F.$\"3 2m$[xN\\Xi\"F.7$$\"3!p;Hd&\\@L>F.$\"3wP37[;BJ;F.7$$\"37]P4YAnd>F.$\"3H 0dF)=^Ik\"F.7$$\"3ML$ek`H@)>F.$\"3/%zy`SE/m\"F.7$$\"3y*\\(=T@%3$HF.7$$\"3#om\"H2FO3GF.$\"3<%RSkQttr #F.7$$\"3')*\\7y&\\yfGF.$\"3,Dq3AtlNCF.7$Fhr$\"3/_YgvQ)**3#F.7$$\"3!)* \\i!R:/lHF.$\"3I&o5U#ePn;F.7$$\"3Am;zpe()=IF.$\"3'Q5RuwPP>\"F.7$$\"3mK 3_+-rsIF.$\"3Y2hlo$y&GoFbo7$F[s$\"3ne^gNw=/:Fbo7$$\"3amT5!R$RyJF.$!3-P Ov-v%4n$Fbo7$$\"3cL$e*[ACIKF.$!3oob!ehD\"Q()Fbo7$$\"3e+D\"y5\"4#G$F.$! 3;]a=mJ-b8F.7$F^s$!3ebmO#)RA(z\"F.7$$\"3on;a8H'pQ$F.$!3->saP2&p>#F.7$$ \"3wnmTge)*RMF.$!3O!)z#=TuP`#F.7$$\"3%ym\"H2)3I\\$F.$!3S;Ai86!3!GF.7$F as$!3Yex^6ZU%*HF.7$$\"3eM3FWch)f$F.$!3vNTq4#3P6$F.7$$\"3A,]PM&*>^OF.$! 3WOYj-*)[jJF.7$$\"3a%3F%z9\\xOF.$!3o]l[%zFS;$F.7$$\"3'y;zWU$y.PF.$!31^ _;I-d\\JF.7$$\"3=^7`p`2IPF.$!3^Vz:H/A@JF.7$Fds$!3!zpB*R=?!3$F.7$$\"3yn ;H#e0I&QF.$!3C-x%Q@nG%GF.7$Fgs$!3*y\\^(H1#\\_#F.7$$\"3%zm;/@-/1%F.$!3U jJl]sI`@F.7$Fjs$!3E4\"pZQ:b&=F.7$$\"31o;zpBp?UF.$!3%G'=vO*)=gVF.$!3]-'ppLFmk\"F.7$$\"3x+v=n=_WVF.$!3OREMaSSL;F.7$F]t$!3WLDf! e]bi\"F.7$$\"3Q%e*)4Q$p&R%F.$!3+;cfMa`A;F.7$$\"3%4]7`**)4AWF.$!3$3APGM #QC;F.7$$\"3]hE\\'QEp\"F.7$$\"3Y+]il(z5j% F.$!3Zo\\&\\2%*fr\"F.7$$\"3m+++]oi\"o%F.$!3CdA;?\"=1t\"F.7$$\"3B,v=#R+ pq%F.$!3U1\\OGOCLj+(4tr\"F.7$$\"3a+]P40O\"*[F.$!3Qy*3FmSKi \"F.7$Fft$!3s=%oq`:(\\9F.-Fit6&F[uF_uF\\uF_u-%+AXESLABELSG6$Q\"x6\"Q!6 \"-%%VIEWG6$;F(Fft;$!\"'F*$\"\"'F*" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }