home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 1999 February / CT_SW9902.ISO / mac / software / wissen / daten / gnuplot.hqx / gnuplot.2.0b4 / Scripts / demo / polar.dem < prev    next >
Text File  |  1997-05-03  |  1KB  |  52 lines
  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
  52.