{VERSION 1 0 "X11/Motif" "1.0"}{GLOBALS 3 1}{FONT 0 "-adobe-helve
tica-bold-r-normal--*-140-*" "helvetica" "Helvetica-Bold" 8 14 0 
"Helvetica-Bold" 12}{FONT 1 "-adobe-times-medium-r-normal--*-140-
*" "times" "Times-Roman" 4 14 64 "Times-Roman" 12}{FONT 2 "-adobe
-courier-medium-r-normal--*-140-*" "courier" "Courier" 4 14 192 "
Courier" 12}{SCP_R 1 0 10{INP_R 2 0 "> "{TEXT 0 34 "f:=4*(cos((Pi
/2)*(sin(t)-1/2)))^2;"}}{OUT_R 3 0 2{DAG :3n3\`f`+3*3(3n3\`cos`,2
+3*5n3\`Pi`j2x0001+5(3n3\`sin`,2n3\`t`pD/3i2x0001j2x0002pDpD/3pDp
1Ap1Aj2x0004}}{SEP_R 4 0}{INP_R 5 0 "> "{TEXT 0 35 "plot([f,t,t=0
..2*Pi],coords=polar);"}}{INP_R 6 0 "> "{TEXT 0 47 "g:=(sin(5*(Pi
/2)*sin(t))/sin((Pi/2)*sin(t)))^2;"}}{OUT_R 7 0 6{DAG :3n3\`g`*5(
3n3\`sin`,2+3*5n3\`Pi`j2x0001(3p5,2n3\`t`pC/3j2x0005j2x0002p17(3p
5,2+3p9/3pCp17i2x0002}}{SEP_R 8 0}{INP_R 9 0 "> "{TEXT 0 53 "plot
([g,t,t=0..(1/2)*Pi],coords=polar,numpoints=200);"}}{SEP_R 10 0}
{INP_R 11 0 "> "{TEXT 0 0 ""}}}{END}