[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.2

1.1       maekawa     1: #
1.1.1.2 ! maekawa     2: # $Id: polar.dem,v 1.1.1.1.2.1 1999/10/11 13:24:50 lhecking Exp $
1.1       maekawa     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 ""
1.1.1.2 ! maekawa    18: set key box
1.1       maekawa    19:
                     20: plot cos(2*t)
                     21: pause -1 "Hit return to continue"
                     22:
                     23: plot 2*sqrt(cos(t)),-2*sqrt(cos(t))
                     24: pause -1 "Hit return to continue"
                     25:
                     26: plot sin(4*t),cos(4*t)
                     27: set offset 0,0,0,0
                     28: pause -1 "Hit return to continue"
                     29:
                     30: set xrange [-5:5]
                     31: set yrange [-5:5]
                     32: plot t/cos(3*t)
                     33: pause -1 "Hit return to continue"
                     34: set autoscale
                     35:
                     36: plot 1-sin(t)
                     37: pause -1 "Hit return to continue"
                     38:
                     39: set trange [0:12*pi]
                     40: plot 2*t
                     41: pause -1 "Hit return to continue"
                     42:
                     43: butterfly(x)=exp(cos(x))-2*cos(4*x)+sin(x/12)**5
                     44: set samples 800
                     45: pause 0 "This is a big one (many samples), be patient..."
                     46: set title "Butterfly"
                     47: set nokey
                     48: plot butterfly(t)
                     49: pause -1 "Hit return to continue"
                     50:
                     51: # undo what we've done above
                     52: reset

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