{VERSION 3 0 "IBM INTEL NT" "3.0" } {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 3 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 2 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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "K:=int(sin(x)^n,x=-P i..Pi);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"KG-%$intG6$)-%$sinG6#% \"xG%\"nG/F,;,$%#PiG!\"\"F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "K2:=subs(sin(x)=1/2/I*(exp(I*x)-exp(-I*x)),K);" }}{PARA 11 "" 1 " " {XPPMATH 20 "6#>%#K2G-%$intG6$),$*&%\"IG\"\"\",&-%$expG6#*&F+\"\"\"% \"xGF2F2-F/6#,$F1!\"\"F7F2#F7\"\"#%#n|irG/F3;,$%#PiGF7F>" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "assume(n,integer);eval(%);" }} {PARA 11 "" 1 "" {XPPMATH 20 "6#-%$intG6$),$*&%\"IG\"\"\",&-%$expG6#*& F)\"\"\"%\"xGF0F0-F-6#,$F/!\"\"F5F0#F5\"\"#%#n|irG/F1;,$%#PiGF5F<" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "expand(K2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%$intG6$),$*&%\"IG\"\"\",&-%$expG6#*&F)\"\"\"%\"x GF0F0-F-6#,$F/!\"\"F5F0#F5\"\"#%#n|irG/F1;,$%#PiGF5F<" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "F:=(x)->[sin(x),cos(x)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"FGR6#%\"xG6\"6$%)operatorG%&arrowGF(7$-% $sinG6#9$-%$cosGF/F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "readlib(C);\nfortran(F);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#R6\"60%%l ocsG%%parsG%%glosG%%declG%\"kG%\"xG%&errorG%+old_DigitsG%*old_QuietG%, output_fileG%(statseqG%$optG%\"AG%(unknownG6#%aoCopyright~(c)~1992~by~ the~University~of~Waterloo.~All~rights~reserved.GF$C9@$3-%%typeG6$&9\" 6#\"\"\"%&arrayG4-F:6$F<%%nameGC$>81F<-%'RETURNG6#-%\"CG6$FG&F=6#;\"\" #9#>8+%'DigitsG>FU\"#;@%4-%)assignedG6#%*precisionG>%,C/precisionG.%'d oubleG>FinFgn@$4-Fen6#&%*infolevelG6#.FL>&Fbo6#FL\"\"!>%+C/filenameG%) terminalG>8$%%NULLG>8&F^p>8%F^p>8'F^p>%'C/ansiG%&falseG>8/Fgp>8-.F[p?& 8(7#FN%%trueG@7/F^q.%*optimizedG>FipF`q/F^q.%%ansiG>FfpF`q/F^q.%&xansi G>FfpFgp-F:6$F^q./-%*identicalG6#%'digitsG%'posintG>FU-%$rhsG6#F^q-F:6 $F^q./-Fcr6#%)filenameG<$%'symbolG%'stringGC$>F[qFhr>FjoFhr-F:6$F^q./- FcrFfnFcs>Fin-%#opG6$FQF^q-F:6$F^q./-Fcr6#%(globalsG-%%listG6#Fcs>F`pF ^q-F:6$F^q./-Fcr6#%'localsGFht>F]pF^q-F:6$F^q./-Fcr6#%+parametersGFht> FbpF^q-F:6$F^q./-Fcr6#%-declarationsG%)anythingGC%>FdpFhr@%-F:6$Fdp<%% #::G-.Fit6#Fjv-.%$setGF]wF$-%&ERRORG6$%1bad~declarationsGFdp>FdpF^q-Fb w6$%+bad~optionGF^q@'/Fin.%'singleG>FU\"\"(/FinFjn>FUFW-Fbw6$%:bad~set ting~for~precisionGFgn@%0F[qF\\q-%*traperrorG6#-%&fopenG6$F[q.%'APPEND G>F[q.F[q@'3FB-F:6$F<.F@C%>8)--%(readlibG6#%-tools/gensymG6#F<-%'assig nG6$Fgy-%/C/arrayreindexGF]z@%Fip>8.7#--Fjy6#.%)optimizeG6#Fgy>Fez7#-% .C/arrayexpandGF\\[l3-F:6$F<.Fcs-F:6$F<.%*procedureGC(-%)userinfoG6%FQ FL%Bgenerating~output~for~a~procedureG@%FipC$>Fip-FhzF]z>8*-Fgx6#--Fjy 6#%,C/procedureG6%FipFFc\\l-Fgx6#-Fg\\l6$FFUFT@%/Fc\\l%*lasterrorG-Fbw6#Fc\\l-FI6#F^pC$>Fg yF<@)Fip>Fez7#-Fhz6&FgyF`pF]pFbp-F:6$Fgy-Fit6#/FD%*algebraicG>FezFgy-F :6$FgyF[_l>Fez7#/%#t0GFgy-Fbw6$%1invalid~argumentGFgy>Fez-%2C/ConvertA ndCheckG6#Fez@$Fc]l>FjoF[q>Fc\\l-Fgx6#-%6C/ComputationSequenceGFi_l@$F c]lFe]l>FUFT@%Fi]lF[^lF^pF$6(%)C/bufferGFfpFgnFinFjoFboF$" }}{PARA 6 " " 1 "" {TEXT -1 37 "c The options were : operatorarrow" }}{PARA 6 " " 1 "" {TEXT -1 30 " subroutine F(x,crea_par)" }}{PARA 6 "" 1 "" {TEXT -1 12 " real x" }}{PARA 6 "" 1 "" {TEXT -1 22 " real c rea_par(2)" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 28 " crea_par(1) = sin(x)" }}{PARA 6 "" 1 "" {TEXT -1 28 " \+ crea_par(2) = cos(x)" }}{PARA 6 "" 1 "" {TEXT -1 14 " ret urn" }}{PARA 6 "" 1 "" {TEXT -1 9 " end" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "L:=proc(a,b);\n\n\nRETURN ([a+b,a-b]);\nend;" } }{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6 #>%\"LGR6$%\"aG%\"bG6\"F)F)-%'RETURNG6#7$,&9$\"\"\"9%F0,&F/F0F1!\"\"F) F)F)" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "fortran(L);" }} {PARA 6 "" 1 "" {TEXT -1 32 " subroutine L(a,b,crea_par)" }} {PARA 6 "" 1 "" {TEXT -1 12 " real a" }}{PARA 6 "" 1 "" {TEXT -1 12 " real b" }}{PARA 6 "" 1 "" {TEXT -1 22 " real crea_par(2 )" }}{PARA 6 "" 1 "" {TEXT -1 0 "" }}{PARA 6 "" 1 "" {TEXT -1 25 " \+ crea_par(1) = a+b" }}{PARA 6 "" 1 "" {TEXT -1 25 " crea_par (2) = a-b" }}{PARA 6 "" 1 "" {TEXT -1 14 " return" }}{PARA 6 " " 1 "" {TEXT -1 9 " end" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "dsolve" }}}}{MARK " 9 0 0" 5 }{VIEWOPTS 1 1 0 1 1 1803 }