version 1.54, 2002/11/13 23:05:46
|
version 1.55, 2002/11/15 17:06:08
|
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(1,$external::randomseed); |
if ($external::randomseed == 0) { $external::randomseed=1; } |
|
&random_set_seed(1,int(abs($external::randomseed))); |
&math_random_uniform(); |
&math_random_uniform(); |
$hidden::RANDOMINIT=1; |
$hidden::RANDOMINIT=1; |
} |
} |