Return to default_homework.lcpm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.53, 2002/09/26 21:54:00 | version 1.54, 2002/11/13 23:05:46 |
---|---|
Line 240 sub hinton { | Line 240 sub hinton { |
sub random { | sub random { |
my ($start,$end,$step)=@_; | my ($start,$end,$step)=@_; |
if ( ! $hidden::RANDOMINIT ) { | if ( ! $hidden::RANDOMINIT ) { |
&random_set_seed_from_phrase($external::randomseed); | &random_set_seed(1,$external::randomseed); |
&math_random_uniform(); | |
$hidden::RANDOMINIT=1; | $hidden::RANDOMINIT=1; |
} | } |
if (!defined($step)) { $step=1; } | if (!defined($step)) { $step=1; } |