[BACK]Return to polar.dem CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / gnuplot / demo

Annotation of OpenXM_contrib/gnuplot/demo/polar.dem, Revision 1.1.1.1

1.1       maekawa     1: #
                      2: # $Id: polar.dem,v 1.4 1995/03/27 18:07:43 drd Exp $
                      3: #
                      4: # Show some of the new polar capabilities.
                      5: #
                      6: set noborder
                      7: set clip
                      8: set polar
                      9: set xtics axis nomirror
                     10: set ytics axis nomirror
                     11: set samples 160
                     12: set zeroaxis
                     13: set trange [0:2*pi]
                     14: set title "Three circles (with aspect ratio distortion)"
                     15: plot .5,1,1.5
                     16: pause -1 "Hit return to continue"
                     17: set title ""
                     18:
                     19: plot cos(2*t)
                     20: pause -1 "Hit return to continue"
                     21:
                     22: plot 2*sqrt(cos(t)),-2*sqrt(cos(t))
                     23: pause -1 "Hit return to continue"
                     24:
                     25: plot sin(4*t),cos(4*t)
                     26: set offset 0,0,0,0
                     27: pause -1 "Hit return to continue"
                     28:
                     29: set xrange [-5:5]
                     30: set yrange [-5:5]
                     31: plot t/cos(3*t)
                     32: pause -1 "Hit return to continue"
                     33: set autoscale
                     34:
                     35: plot 1-sin(t)
                     36: pause -1 "Hit return to continue"
                     37:
                     38: set trange [0:12*pi]
                     39: plot 2*t
                     40: pause -1 "Hit return to continue"
                     41:
                     42: butterfly(x)=exp(cos(x))-2*cos(4*x)+sin(x/12)**5
                     43: set samples 800
                     44: pause 0 "This is a big one (many samples), be patient..."
                     45: set title "Butterfly"
                     46: set nokey
                     47: plot butterfly(t)
                     48: pause -1 "Hit return to continue"
                     49:
                     50: # undo what we've done above
                     51: reset

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>