version 1.175, 2018/09/12 22:00:31
|
version 1.176, 2019/04/03 21:37:11
|
Line 656 sub hinton {
|
Line 656 sub hinton {
|
sub random { |
sub random { |
my ($start,$end,$step)=@_; |
my ($start,$end,$step)=@_; |
if ( ! $hidden::RANDOMINIT ) { |
if ( ! $hidden::RANDOMINIT ) { |
if ($external::randomseed == 0) { $external::randomseed=1; } |
if ($external::randomseed == 0) { $external::randomseed=1; } |
if ($external::randomseed =~/,/) { |
if ($external::randomseed =~/,/) { |
my ($num1,$num2)=split(/,/,$external::randomseed); |
my ($num1,$num2) = map { abs($_); } split(/,/,$external::randomseed); |
&random_set_seed(1,abs($num1)); |
if ((!$num1) || ($num1 > 2147483398)) { |
} elsif ($external::randomseed =~/:/) { |
&random_set_seed_from_phrase($external::randomseed); |
my ($num1,$num2)=split(/:/,$external::randomseed); |
} else { |
&random_set_seed(abs($num1),abs($num2)); |
&random_set_seed(1,$num1); |
} else { |
} |
&random_set_seed(1,int(abs($external::randomseed))); |
} elsif ($external::randomseed =~/:/) { |
} |
my ($num1,$num2) = map { abs($_); } split(/:/,$external::randomseed); |
|
if ((!$num1) || (!$num2) || ($num1 > 2147483562) || ($num2 > 2147483398)) { |
|
&random_set_seed_from_phrase($external::randomseed); |
|
} else { |
|
&random_set_seed($num1,$num2); |
|
} |
|
} else { |
|
my $num1 = int(abs($external::randomseed)); |
|
if ((!$num1) || ($num1 > 2147483398)) { |
|
&random_set_seed_from_phrase($external::randomseed); |
|
} else { |
|
&random_set_seed(1,$num1); |
|
} |
|
} |
&math_random_uniform(); |
&math_random_uniform(); |
$hidden::RANDOMINIT=1; |
$hidden::RANDOMINIT=1; |
} |
} |