home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gp371os2.zip / demo / param.dem < prev    next >
Text File  |  1999-10-11  |  1KB  |  51 lines
  1. #
  2. # $Id: param.dem,v 1.1.1.1.2.1 1999/10/11 13:24:52 lhecking Exp $
  3. #
  4. # Show some of the new parametric capabilities.
  5. #
  6. set parametric
  7. set dummy t
  8. set autoscale
  9. set samples 160
  10. set title ""
  11. set key box
  12. set key below
  13. plot t,sin(t)/t title "t,sin(t)/t or sin(x)/x"
  14. pause -1 "Hit return to continue"
  15.  
  16. plot sin(t)/t,t
  17. pause -1 "Hit return to continue"
  18.  
  19. plot sin(t),cos(t)
  20. pause -1 "Hit return to continue"
  21.  
  22. set xrange [-3:3]
  23. set yrange [-3:3]
  24. set title "Parametric Conic Sections"
  25. plot -t,t,cos(t),cos(2*t),2*cos(t),sin(t),-cosh(t),sinh(t)
  26. set title ""
  27. pause -1 "Hit return to continue"
  28.  
  29. set xrange [-5:5]
  30. set yrange [-5:5]
  31. plot tan(t),t,t,tan(t)
  32. pause -1 "Hit return to continue"
  33.  
  34. set trange [0.00001:3]
  35. plot t,log(t),-t,log(t),sin(t),t**2,-sin(t),t**2
  36. pause -1 "Hit return to continue"
  37.  
  38. set autoscale x
  39. set yrange [-1.5:1.5]
  40. set trange [0.0001:10*pi]
  41. plot sin(t)/t,cos(t)/t
  42. pause -1 "Hit return to continue"
  43.  
  44. # undo what we've done above
  45. set noparametric
  46. set samples 160
  47. set autoscale xy
  48. set title ""
  49. set offset 0,0,0,0
  50. set key
  51.