{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 Comment" 2 18 "" 0 1 0 0 0 0 0 0 0 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 0 1 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 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 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 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 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 0 256 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 256 "" 0 "" {TEXT -1 39 "Maple visualization of a function from " }{XPPEDIT 18 0 "R^2" "6#*$%\"RG\"\"#" }{TEXT -1 4 " t o " }{XPPEDIT 18 0 "R^2" "6#*$%\"RG\"\"#" }{TEXT -1 52 " (note: the 4t h dimension is accomplished by color)." }}{PARA 0 "" 0 "" {TEXT 256 44 "Programmer: kaltofen@math.ncsu.edu 8/29/2002" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1240 "with(plots):\nD2mapD2 := proc(lin1, lin2, p lotpoints)\n # lin1 is a*s+b*t+c, s=0..1, t=0..1, is the height \n # lin2 is aa*s+bb*t+cc, s=0..1, t=0..1, is the color\n \+ # (note: the HUE values vary only in the range -1..1; see piechart below)\n # plotpoints is the grid division along both s and t \+ axis\n local plot, i, j;\n plot :=[seq(\n \+ seq(# plot one patch\n polygonplot3d([subs(\{s=1/pl otpoints*i, t=1/plotpoints*j\},\n [s ,t,lin1]),\n subs(\{s=1/plotpoints*(i+ 1), t=1/plotpoints*j\},\n [s,t,lin1] ),\n subs(\{s=1/plotpoints*(i+1), t=1/ plotpoints*(j+1)\},\n [s,t,lin1]),\n subs(\{s=1/plotpoints*i, t=1/plotpoin ts*(j+1)\},\n [s,t,lin1])],\n \+ color = COLOR(HUE,\n \+ subs(\{s=1/plotpoints*i, t=1/plotpoints*j\},\n \+ lin2))\n \+ ),\n i=0..plotpoints-1),\n \+ j=0..plotpoints-1)];\nend;\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(D2mapD2Gf*6%%%lin1G%%lin2G%+plotpointsG6%%%plotG%\"i G%\"jG6\"F.>8$7#-%$seqG6$-F36$-%.polygonplot3dG6$7&-%%subsG6$<$/%\"sG* &9&!\"\"8%\"\"\"/%\"tG*&FBFC8&FE7%F@FG9$-F<6$<$FF/F@*&FBFC,&FDFEFEFEFE FJ-F<6$<$FO/FG*&FBFC,&FIFEFEFEFEFJ-F<6$<$F?FUFJ/%&colorG-%&COLORG6$%$H UEG-F<6$F>9%/FD;\"\"!,&FBFEFEFC/FIF_oF.F.F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "display(D2mapD2(s-t, s+t-1/2, 20), axes=BOXED);\n " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 680 "piechart := proc(secto rs)\n # sectors is the number of different sectors plotted\n local plo t, i;\n plot :=\n seq( # sequence of color plots\n plots[polygo nplot]([[0,0],# first point of triangle\n # \+ second point of triangle\n [cos(2*Pi*i/secto rs),sin(2*Pi*i/sectors)],\n # third point of triangle\n [cos(2*Pi*(i+1)/sectors), sin(2* Pi*(i+1)/sectors)]\n ],\n \+ color=COLOR(HUE,i/sectors)\n ), # finish es a single plot\n i=0..(sectors-1) # range of sequence\n ); \n plots[display]([plot]);\nend; # piechart\n" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%)piechartGf*6#%(sectorsG6$%%plotG%\"iG6\"F+C$>8$-%$se qG6$-&%&plotsG6#%,polygonplotG6$7%7$\"\"!F:7$-%$cosG6#,$*(%#PiG\"\"\"8 %FB9$!\"\"\"\"#-%$sinGF>7$-F=6#,$*(FAFB,&FCFBFBFBFBFDFEFF-FHFK/%&color G-%&COLORG6$%$HUEG*&FCFBFDFE/FC;F:,&FDFBFBFE-&F46#%(displayG6#7#F.F+F+ F+" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "piechart(40);\n" }} {PARA 13 "" 1 "" {GLPLOT2D 400 300 300 {PLOTDATA 2 "6J-%)POLYGONSG6$7% 7$$\"\"!F)F(7$$\"\"\"F)F(7$$\"+1M)o()*!#5$\"+^YMk:F0-%&COLORG6$%$HUEGF )-F$6$7%F'F-7$$\"+j^c5&*F0$\"+W*p,4$F0-F46$F6#F,\"#S-F$6$7%F'F:7$$\"+U _15*)F0$\"+)*\\!*RXF0-F46$F6#F,\"#?-F$6$7%F'FF7$$\"+V*p,4)F0$\"+CD&y(e F0-F46$F6#\"\"$FB-F$6$7%F'FR7$$\"+5y1rqF0Fin-F46$F6#F,\"#5-F$6$7%F'Fhn 7$$\"+AD&y(eF0$\"+W*p,4)F0-F46$F6#F,\"\")-F$6$7%F'Fbo7$$\"+&*\\!*RXF0$ \"+V_15*)F0-F46$F6#FZFN-F$6$7%F'F^p7$$\"+Q*p,4$F0$\"+l^c5&*F0-F46$F6# \"\"(FB-F$6$7%F'Fip7$$\"+_YMk:F0F.-F46$F6#F,\"\"&-F$6$7%F'Feq7$F(F+-F4 6$F6#\"\"*FB-F$6$7%F'F_r7$$!+_YMk:F0F.-F46$F6#F,\"\"%-F$6$7%F'Fgr7$$!+ Q*p,4$F0F\\q-F46$F6#\"#6FB-F$6$7%F'Fas7$$!+&*\\!*RXF0Fap-F46$F6#FZF^o- F$6$7%F'F[t7$$!+AD&y(eF0Feo-F46$F6#\"#8FB-F$6$7%F'Fdt7$$!+5y1rqF0Fin-F 46$F6#FaqFN-F$6$7%F'F^u7$$!+V*p,4)F0FU-F46$F6#FZFjo-F$6$7%F'Fgu7$$!+U_ 15*)F0FI-F46$F6#\"\"#F[r-F$6$7%F'F`v7$$!+j^c5&*F0F=-F46$F6#\"#FB-F$6$7%F'F]x7$Few$!+^YMk:F0-F46$F6#F,Ffv-F$6$7%F'Fgx7$F[w$!+W*p,4$ F0-F46$F6#\"#@FB-F$6$7%F'F`y7$Fav$!+)*\\!*RXF0-F46$F6#FgsFN-F$6$7%F'Fj y7$Fhu$!+CD&y(eF0-F46$F6#\"#BFB-F$6$7%F'Fcz7$F_uF_u-F46$F6#FZF[r-F$6$7 %F'F][l7$Fet$!+W*p,4)F0-F46$F6#F[rFjo-F$6$7%F'Fd[l7$F\\t$!+V_15*)F0-F4 6$F6#FjtFN-F$6$7%F'F]\\l7$Fbs$!+l^c5&*F0-F46$F6#\"#FFB-F$6$7%F'Ff\\l7$ FhrFew-F46$F6#FaqF^o-F$6$7%F'F`]l7$F(F^x-F46$F6#\"#HFB-F$6$7%F'Fg]l7$F fqFew-F46$F6#FZF]s-F$6$7%F'F_^l7$FjpFg\\l-F46$F6#\"#JFB-F$6$7%F'Ff^l7$ F_pF^\\l-F46$F6#F]sF[r-F$6$7%F'F^_l7$FcoFe[l-F46$F6#\"#LFB-F$6$7%F'Fe_ l7$FinF_u-F46$F6#F`wFN-F$6$7%F'F]`l7$FSFdz-F46$F6#FaqFjo-F$6$7%F'Fd`l7 $FGF[z-F46$F6#FcrF^o-F$6$7%F'F[al7$F;Fay-F46$F6#\"#PFB-F$6$7%F'Fbal7$F .Fhx-F46$F6#FcxFN-F$6$7%F'FjalF*-F46$F6#\"#RFB" 1 2 0 1 10 0 2 9 1 4 2 1.000000 45.000000 45.000000 0 0 "Curve 1" "Curve 2" "Curve 3" "Curv e 4" "Curve 5" "Curve 6" "Curve 7" "Curve 8" "Curve 9" "Curve 10" "Cur ve 11" "Curve 12" "Curve 13" "Curve 14" "Curve 15" "Curve 16" "Curve 1 7" "Curve 18" "Curve 19" "Curve 20" "Curve 21" "Curve 22" "Curve 23" " Curve 24" "Curve 25" "Curve 26" "Curve 27" "Curve 28" "Curve 29" "Curv e 30" "Curve 31" "Curve 32" "Curve 33" "Curve 34" "Curve 35" "Curve 36 " "Curve 37" "Curve 38" "Curve 39" "Curve 40" }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "1 0 0" 13 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }