home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 22 gnu / 22-gnu.zip / gp371os2.zip / demo / simple.dem < prev    next >
Text File  |  1999-10-11  |  1KB  |  48 lines
  1. #
  2. # $Id: simple.dem,v 1.1.1.1.2.1 1999/10/11 13:24:20 lhecking Exp $
  3. #
  4. # Requires data files "[123].dat" from this directory,
  5. # so change current working directory to this directory before running.
  6. # gnuplot> set term <term-type>
  7. # gnuplot> load 'simple.dem'
  8. #
  9. set key left box
  10. set samples 50
  11. plot [-10:10] sin(x),atan(x),cos(atan(x))
  12. pause -1 "Hit return to continue"
  13.  
  14. set key right nobox
  15. set samples 100
  16. plot [-pi/2:pi] cos(x),-(sin(x) > sin(x+1) ? sin(x) : sin(x+1))
  17. pause -1 "Hit return to continue"
  18.  
  19. set key left box
  20. set samples 200
  21. plot [-3:5] asin(x),acos(x)
  22. pause -1 "Hit return to continue"
  23.  
  24. plot [-30:20] besj0(x)*0.12e1 with impulses, (x**besj0(x))-2.5 with points
  25. pause -1 "Hit return to continue"
  26.  
  27. set samples 400
  28. plot [-10:10] real(sin(x)**besj0(x))
  29. pause -1 "Hit return to continue"
  30.  
  31. set key outside below
  32. plot [-5*pi:5*pi] [-5:5] real(tan(x)/atan(x)), 1/x
  33. pause -1 "Hit return to continue"
  34.  
  35. set key left box
  36. set autoscale
  37. set samples 800
  38. plot [-30:20] sin(x*20)*atan(x)
  39. pause -1 "Hit return to continue"
  40.  
  41. plot [-19:19] '1.dat'with impulses ,'2.dat' ,'3.dat' with lines
  42. pause -1 "Hit return to continue"
  43. f(x) = x/100
  44. plot [-19:19] '1.dat'with impulses ,'2.dat' thru f(x) ,'3.dat' with lines
  45. pause -1 "Hit return to continue"
  46. reset
  47.  
  48.