version 1.174, 2018/09/12 21:10:44
|
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; |
} |
} |
Line 976 sub chemparse {
|
Line 989 sub chemparse {
|
return &xmlparse($formula); |
return &xmlparse($formula); |
} |
} |
|
|
sub convert_engineer_format { |
sub conv_eng_format { |
my ($ans,$baseunit)=@_; |
my ($ans,$baseunit)=@_; |
my ($value,$answer,$unit); |
my ($value,$answer,$unit); |
$baseunit =~ s{[^\w/\-\.]}{}g; |
$baseunit =~ s{[^\w/\-\.]}{}g; |