2 # $Id: polar.dem,v 1.6 2004/01/13 07:01:10 sfeam Exp $
4 # Show some of the new polar capabilities.
9 set xtics axis nomirror
10 set ytics axis nomirror
14 set title "Three circles (with aspect ratio distortion)"
16 pause -1 "Hit return to continue"
21 pause -1 "Hit return to continue"
23 plot 2*sqrt(cos(t)),-2*sqrt(cos(t))
24 pause -1 "Hit return to continue"
26 plot sin(4*t),cos(4*t)
28 pause -1 "Hit return to continue"
33 pause -1 "Hit return to continue"
37 pause -1 "Hit return to continue"
41 pause -1 "Hit return to continue"
43 butterfly(x)=exp(cos(x))-2*cos(4*x)+sin(x/12)**5
45 print "This is a big one (many samples), be patient..."
49 pause -1 "Hit return to continue"
51 # undo what we've done above