#
# create random data, used e.g. by 
# random.dem, ellipse.dem, rugplot.dem, and kdensity2d.dem
#
if (!exist("$random")) {
    load "stat.inc"
    nsamp = 3000
    # Generate N random data points.
    set print $random
    do for [i=1:nsamp] {
	print sprintf("%8.5g %8.5g %8.5g", invnorm(rand(0)), invnorm(rand(0)), invnorm(rand(0)))
    }
    unset print
}