Annotation of OpenXM_contrib/gnuplot/demo/polar.dem, Revision 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>