#!/usr/local/bin/perl
# random-uniform.pl -- Erzeugt gleichverteilte Zufallszahlen.
use vars qw ( @flist1 $fzuff1 $fzuff2 @ilist1 $izuff1 );

use Math::Random;                         # CPAN-Modul

# random_uniform($nr=1, $low=0.0, $hi=1.0) erzeugt $nr Gleitpunkt-
# Zufallszahlen zwischen $low und $hi:
@flist1 = random_uniform(25, -2.5, 2.5);  # 25 Zahlen zw. -2.5 und 2.5
$fzuff1 = random_uniform(1, -5, 5);       # Zufallszahl zw. -5 und 5
$fzuff2 = random_uniform();               # Zufallszahl zw. 0 und 1.0

# random_uniform_integer($nr=1, $low, $hi) erzeugt $nr Integer-
# Zufallszahlen zwischen $low und $hi:
@ilist1 = random_uniform_integer(5, 1, 6);   # Fuenf Wuerfelwuerfe
$izuff1 = random_uniform_integer(1, 1, 10);  # Zufallszahl zw. 1 und 10