home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 1999 February / CT_SW9902.ISO / pc / software / wissen / daten / gnuplot.hqx / gnuplot.2.0b4 / Scripts / demo / random.dem < prev    next >
Text File  |  1997-05-03  |  865b  |  36 lines
  1. #
  2. # $Id: random.dem,v 1.3 1994/03/30 01:28:47 alex Exp $
  3. #
  4. # random.dem
  5. #
  6. # Lattice test for random numbers;
  7. # If you can see any patterns in this plot, the random number generator
  8. # is not very good.
  9. #
  10. # Permission granted to distribute freely for non-commercial purposes only
  11. #
  12. # Copyright (c) 1991, Jos van der Woude, jvdwoude@hut.nl
  13. seed = 1317
  14. seed = rand(seed)
  15. set nokey
  16. set xrange [0: 1]
  17. set yrange [0: 1]
  18. set zrange [0: 1]
  19. set title "Lattice test for random numbers"
  20. set xlabel "rand(n) ->"
  21. set ylabel "rand(n + 1) ->"
  22. set zlabel "rand(n + 2) ->"
  23. set format x "%3.2f"
  24. set format y "%3.2f"
  25. set format z "%3.2f"
  26. set tics
  27. set sample 1000
  28. set function style dots
  29. set parametric
  30. plot rand(1), rand(1)
  31. pause -1 "Hit return to continue"
  32. pause 0 "3D plot ahead, one moment please ..."
  33. set sample 50
  34. splot rand(1), rand(1), rand(1)
  35. pause -1 "Hit return to continue"
  36.