{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 8{INP_R 2 0 "> "{TEXT 0 13 "?plot,options"
}}{INP_R 3 0 "> "{TEXT 0 12 "lines:=NULL;"}}{OUT_R 4 0 3{DAG :3n4
\`lines`,1}}{INP_R 5 0 "> "{TEXT 0 78 "for i from 1 to 19 do\012l
ines:=lines,[[i*Pi/20,0],[i*Pi/20,sin(i*Pi/20)^3]];\012od:"}}
{SEP_R 6 0}{INP_R 7 0 "> "{TEXT 0 163 "plot(\{(sin(x))^3,lines\},
x=-4..4,scaling=constrained,thickness=3,ytickmarks=5,xtickmarks=5
,\012axesfont=[HELVETICA,BOLD,18],labelfont=[HELVETICA,BOLD,18],c
olor=black);"}}{SEP_R 8 0}{INP_R 9 0 "> "{TEXT 0 0 ""}}}{END}