version 1.176, 2019/04/03 21:37:11
|
version 1.177, 2019/11/06 16:20:06
|
Line 29
|
Line 29
|
|
|
#init some globals |
#init some globals |
$hidden::RANDOMINIT=0; |
$hidden::RANDOMINIT=0; |
|
$hidden::RANDOMINITTRYPART=''; |
$pi=atan2(1,1)*4; |
$pi=atan2(1,1)*4; |
$rad2deg=180.0/$pi; |
$rad2deg=180.0/$pi; |
$deg2rad=$pi/180.0; |
$deg2rad=$pi/180.0; |
Line 655 sub hinton {
|
Line 656 sub hinton {
|
|
|
sub random { |
sub random { |
my ($start,$end,$step)=@_; |
my ($start,$end,$step)=@_; |
if ( ! $hidden::RANDOMINIT ) { |
if (( ! $hidden::RANDOMINIT ) || |
|
(($external::randomizetrypart ne '') && |
|
($hidden::RANDOMINITTRYPART ne $external::randomizetrypart))) { |
if ($external::randomseed == 0) { $external::randomseed=1; } |
if ($external::randomseed == 0) { $external::randomseed=1; } |
if ($external::randomseed =~/,/) { |
if ($external::randomseed =~/,/) { |
my ($num1,$num2) = map { abs($_); } split(/,/,$external::randomseed); |
my ($num1,$num2) = map { abs($_); } split(/,/,$external::randomseed); |
Line 681 sub random {
|
Line 684 sub random {
|
} |
} |
&math_random_uniform(); |
&math_random_uniform(); |
$hidden::RANDOMINIT=1; |
$hidden::RANDOMINIT=1; |
|
$hidden::RANDOMINITTRYPART=$external::randomizetrypart; |
} |
} |
if (!defined($step)) { $step=1; } |
if (!defined($step)) { $step=1; } |
my $num=1+int(($end-$start)/$step); |
my $num=1+int(($end-$start)/$step); |