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>