[BACK]Return to random.dem CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / gnuplot / demo

File: [local] / OpenXM_contrib / gnuplot / demo / Attic / random.dem (download)

Revision 1.1, Sun Jan 9 17:01:02 2000 UTC (24 years, 4 months ago) by maekawa
Branch: MAIN

Initial revision

#
# $Id: random.dem,v 1.3 1994/03/30 01:28:47 alex Exp $
#
# random.dem
#
# Lattice test for random numbers;
# If you can see any patterns in this plot, the random number generator
# is not very good.
#
# Permission granted to distribute freely for non-commercial purposes only
#
# Copyright (c) 1991, Jos van der Woude, jvdwoude@hut.nl
seed = 1317
seed = rand(seed)
set nokey
set xrange [0: 1]
set yrange [0: 1]
set zrange [0: 1]
set title "Lattice test for random numbers"
set xlabel "rand(n) ->"
set ylabel "rand(n + 1) ->"
set zlabel "rand(n + 2) ->"
set format x "%3.2f"
set format y "%3.2f"
set format z "%3.2f"
set tics
set sample 1000
set function style dots
set parametric
plot rand(1), rand(1)
pause -1 "Hit return to continue"
pause 0 "3D plot ahead, one moment please ..."
set sample 50
splot rand(1), rand(1), rand(1)
pause -1 "Hit return to continue"