{VERSION 6 0 "IBM INTEL NT" "6.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 } {CSTYLE "" -1 256 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 257 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 266 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 268 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 269 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 } {CSTYLE "" -1 271 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{CSTYLE "" -1 273 "" 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 }{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 "Ti mes" 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 Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 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 266 25 "ENGI 3424 Example 5.10.3 " }{TEXT -1 54 " Graphs of Partial Sums of the Fourier Cosine Series \+ " }}{PARA 0 "" 0 "" {TEXT -1 4 "of " }{TEXT 256 1 "f" }{TEXT -1 1 "( " }{TEXT 257 1 "x" }{TEXT -1 4 ") = " }{TEXT 273 1 "x" }{TEXT -1 11 " \+ on (0, +1)" }}{PARA 0 "" 0 "" {TEXT -1 31 "The graphs of the partial s ums " }{TEXT 268 1 "S" }{TEXT -1 3 "3, " }{TEXT 269 1 "S" }{TEXT -1 6 "5 and " }{TEXT 271 1 "S" }{TEXT -1 21 "50 are plotted here." }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart:" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 46 "f(k,x) := -4/Pi^2*cos((2*k-1)*Pi*x)/(2*k-1)^ 2;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%\"fG6$%\"kG%\"xG,$**\"\"%\"\" \"%#PiG!\"#-%$cosG6#*(,&*&\"\"#F,F'F,F,F,!\"\"F,F-F,F(F,F,F3F.F6" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "s3(x) := 1/2 + sum(f(k,x),k= 1..2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>-%#s3G6#%\"xG,(#\"\"\"\"\"# F**(\"\"%F*%#PiG!\"#-%$cosG6#*&F.F*F'F*F*!\"\"*F-\"\"*F**&F.F/-F16#, $*(\"\"$F*F.F*F'F*F*F*F*F4" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "plot(s3(x), x=-3..3, y=-1.5..1.5, colour=blue, thickness=2, \ntitl e=`y = S3(x)`);" }}{PARA 13 "" 1 "" {GLPLOT2D 335 335 335 {PLOTDATA 2 "6(-%'CURVESG6#7as7$$!\"$\"\"!$\"34MsV
Is!fg%*F-7$$!3u**\\7.k&4&HF
1$\"3\"*oL.T#)*yS*F-7$$!3&*****\\P&3Y$HF1$\"3x0;!p?&4N$*F-7$$!3#****\\
i!G\">!HF1$\"3*4UGL%p:L\"*F-7$$!3!******\\2<#pGF1$\"3ueF3#*y&\\'))F-7$
$!3')**\\78.K7GF1$\"3/=_=:w%*z#)F-7$$!3#)***\\7bBav#F1$\"3P%Gh,/qCh(F-
7$$!3'***\\(=>P9p#F1$\"3A!4Ky3\\]&oF-7$$!36++]K3XFEF1$\"3OlK_BO$)fhF-7
$$!3w******H./jDF1$\"3]VGO$yJ`a&F-7$$!3%)****\\F)H')\\#F1$\"3W)H^o]p$)
)\\F-7$$!3))**\\(oXDXV#F1$\"3)*\\![n)yzKWF-7$$!3#****\\i3@/P#F1$\"3vEh
'4UF%=QF-7$$!3/++vG\"))4J#F1$\"3)fIL.gXF<$F-7$$!3;++Dr^b^AF1$\"3%>UI1J
%HrCF-7$$!3/++D'y:+>#F1$\"3G4+AG0QY