4RrmCTt5 setxyrapport
25 setxunit
7.5 setborder
-5 5 setxrange
-5 5 setyrange
jpegmode
car insurance in Allen TX cheap full coverage auto insurance Rockford MI cheap non owners insurance in Rialto CA non owners car insurance quotes Padre Island Ntl Seashor TX
1 1 settkstep
.5 .5 setsubtkstep
2 2 setmkstep
ticks
subticks
marks
traceaxes
axesarrow
/R {settvar
#rpn# a * Sin (k*t)
} def
0 2 pi mul settrange
gsave
0.75 setlinewidth
continu
bleu
(R) courbepolar
grestore