{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 }{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 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "restart:with(plots): " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 52 "R:=t->100/(100+(t-Pi/2) ^8)*(2-sin(7*t)-cos(30*t)/2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 86 "plot( [R, t->t, -Pi/2..3/2*Pi], coords=polar, axes=none, color=g reen, numpoints=1000):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 56 "u :=x->100*(2-sin(7*x)-1/2*cos(30*x))/(100+(x-1/2*Pi)^8):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for j from 0 to 8 do" }}{PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 56 "G1[j]:=plot([u,x->x+j*Pi/4,-Pi/2..3/2*Pi],coor ds=polar);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 74 "G2[j]:=plot([u,x->x+( Pi*2-j*Pi/4),-Pi/2..3/2*Pi],coords=polar,color=blue);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 69 "G3[j]:=plot([u,x->x+(j)*Pi/4,-Pi/2..3/2*Pi],coor ds=polar,color=blue);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "G4[j]:=plo t([u,x->x+(Pi*2-(j)*Pi/4),-Pi/2..3/2*Pi],coords=polar,color=blue);" }} {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "GS[j]:=plot([u,x->x+(j-1)*Pi/4,-Pi/ 2..3/2*Pi],coords=polar,color=green);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 94 "#display([seq(G [j],j=0..8)],insequence=true,scaling=constrained,view=[-4..4,-4..4],ax es=none);" }{TEXT -1 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "#display([seq(G2[j],j=0..8)],insequence=true,scaling=constrained,view =[-4..4,-4..4],axes=none);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "#display([seq(G3[j],j=0..8)],insequence=true,scaling=constrained,v iew=[-4..4,-4..4],axes=none);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 95 "#display([seq(G4[j],j=0..8)],insequence=true,scaling=constrained ,view=[-4..4,-4..4],axes=none);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i from 0 to 8 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "com b[i]:=display([G3[i],G4[i]]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od: " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "display([seq(comb[j],j= 0..8)],insequence=true,scaling=constrained,view=[-4..4,-4..4],axes=non e);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "for i from 0 to 8 do " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "comb[i]:=display([G1[i],G2[i]]) ;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}}{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 96 "display([seq(comb[j],j=0..8)],insequence=true,scali ng=constrained,view=[-4..4,-4..4],axes=none);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "fo r i from 0 to 8 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "comb[i]:=disp lay([G1[i],GS[i]]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 "od:" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 96 "display([seq(comb[j],j=0..8) ],insequence=true,scaling=constrained,view=[-4..4,-4..4],axes=none);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "0 0 0" 0 } {VIEWOPTS 1 1 0 1 1 1803 }