version 1.48, 2002/07/17 18:08:39
|
version 1.51, 2002/09/26 20:45:00
|
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 ) { |
srand($external::randomseed); |
&random_set_seed_from_phrase($external::randomseed); |
$hidden::RANDOMINIT=1; |
$hidden::RANDOMINIT=1; |
} |
} |
if (!defined($step)) { $step=1; } |
if (!defined($step)) { $step=1; } |
my $num=1+int(($end-$start)/$step); |
my $num=1+int(($end-$start)/$step); |
my $result=$start + int(rand() * $num)*$step; |
my $result=$start + int(&math_random_uniform() * $num)*$step; |
return $result; |
return $result; |
} |
} |
|
|
sub random_normal { |
sub random_normal { |
my ($item_cnt,$seed,$av,$std_dev) = @_; |
my ($item_cnt,$seed,$av,$std_dev) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_normal($item_cnt,$av,$std_dev); |
@retArray=&math_random_normal($item_cnt,$av,$std_dev); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_beta { |
sub random_beta { |
my ($item_cnt,$seed,$aa,$bb) = @_; |
my ($item_cnt,$seed,$aa,$bb) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_beta($item_cnt,$aa,$bb); |
@retArray=&math_random_beta($item_cnt,$aa,$bb); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_gamma { |
sub random_gamma { |
my ($item_cnt,$seed,$a,$r) = @_; |
my ($item_cnt,$seed,$a,$r) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_gamma($item_cnt,$a,$r); |
@retArray=&math_random_gamma($item_cnt,$a,$r); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_exponential { |
sub random_exponential { |
my ($item_cnt,$seed,$av) = @_; |
my ($item_cnt,$seed,$av) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_exponential($item_cnt,$av); |
@retArray=&math_random_exponential($item_cnt,$av); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_poisson { |
sub random_poisson { |
my ($item_cnt,$seed,$mu) = @_; |
my ($item_cnt,$seed,$mu) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_poisson($item_cnt,$mu); |
@retArray=&math_random_poisson($item_cnt,$mu); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_chi { |
sub random_chi { |
my ($item_cnt,$seed,$df) = @_; |
my ($item_cnt,$seed,$df) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_chi_square($item_cnt,$df); |
@retArray=&math_random_chi_square($item_cnt,$df); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_noncentral_chi { |
sub random_noncentral_chi { |
my ($item_cnt,$seed,$df,$nonc) = @_; |
my ($item_cnt,$seed,$df,$nonc) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_noncentral_chi_square($item_cnt,$df,$nonc); |
@retArray=&math_random_noncentral_chi_square($item_cnt,$df,$nonc); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_f { |
sub random_f { |
my ($item_cnt,$seed,$dfn,$dfd) = @_; |
my ($item_cnt,$seed,$dfn,$dfd) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_f($item_cnt,$dfn,$dfd); |
@retArray=&math_random_f($item_cnt,$dfn,$dfd); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_noncentral_f { |
sub random_noncentral_f { |
my ($item_cnt,$seed,$dfn,$dfd,$nonc) = @_; |
my ($item_cnt,$seed,$dfn,$dfd,$nonc) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_noncentral_f($item_cnt,$dfn,$dfd,$nonc); |
@retArray=&math_random_noncentral_f($item_cnt,$dfn,$dfd,$nonc); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_multivariate_normal { |
sub random_multivariate_normal { |
my ($item_cnt,$seed,$mean,$covar) = @_; |
my ($item_cnt,$seed,$mean,$covar) = @_; |
|
my @oldseed=&random_get_seed(); |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_multivariate_normal($item_cnt,@$mean,@$covar); |
@retArray=&math_random_multivariate_normal($item_cnt,@$mean,@$covar); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_multinomial { |
sub random_multinomial { |
my ($item_cnt,$seed,@p) = @_; |
my ($item_cnt,$seed,@p) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_multinomial($item_cnt,@p); |
@retArray=&math_random_multinomial($item_cnt,@p); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_permutation { |
sub random_permutation { |
my ($seed,@inArray) = @_; |
my ($seed,@inArray) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_permutation(@inArray); |
@retArray=&math_random_permutation(@inArray); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_uniform { |
sub random_uniform { |
my ($item_cnt,$seed,$low,$high) = @_; |
my ($item_cnt,$seed,$low,$high) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_uniform($item_cnt,$low,$high); |
@retArray=&math_random_uniform($item_cnt,$low,$high); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_uniform_integer { |
sub random_uniform_integer { |
my ($item_cnt,$seed,$low,$high) = @_; |
my ($item_cnt,$seed,$low,$high) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_uniform_integer($item_cnt,$low,$high); |
@retArray=&math_random_uniform_integer($item_cnt,$low,$high); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_binomial { |
sub random_binomial { |
my ($item_cnt,$seed,$nt,$p) = @_; |
my ($item_cnt,$seed,$nt,$p) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_binomial($item_cnt,$nt,$p); |
@retArray=&math_random_binomial($item_cnt,$nt,$p); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
sub random_negative_binomial { |
sub random_negative_binomial { |
my ($item_cnt,$seed,$ne,$p) = @_; |
my ($item_cnt,$seed,$ne,$p) = @_; |
|
my @oldseed=&random_get_seed(); |
my @retArray; |
my @retArray; |
&random_set_seed_from_phrase($seed); |
&random_set_seed_from_phrase($seed); |
@retArray=&math_random_negative_binomial($item_cnt,$ne,$p); |
@retArray=&math_random_negative_binomial($item_cnt,$ne,$p); |
|
&random_set_seed(@oldseed); |
return @retArray; |
return @retArray; |
} |
} |
|
|
Line 445 sub format {
|
Line 477 sub format {
|
my $dollarmode; |
my $dollarmode; |
if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; } |
if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; } |
my $result=sprintf('%.'.$fmt,$value); |
my $result=sprintf('%.'.$fmt,$value); |
|
$result=~s/(E[+-]*)0/$1/; |
if ($dollarmode) {$result=&dollarmode($result);} |
if ($dollarmode) {$result=&dollarmode($result);} |
return $result; |
return $result; |
} |
} |
Line 460 sub prettyprint {
|
Line 493 sub prettyprint {
|
if ($dollarmode) { $frac=&dollarformat($frac); } |
if ($dollarmode) { $frac=&dollarformat($frac); } |
my $exponent=$2; |
my $exponent=$2; |
$exponent=~s/^\+0*//; |
$exponent=~s/^\+0*//; |
|
$exponent=~s/^-0*/-/; |
if ($exponent) { |
if ($exponent) { |
if ($external::target eq 'web') { |
if ($external::target eq 'web') { |
$result=$frac.'×10<sup>'.$exponent.'</sup>'; |
$result=$frac.'×10<sup>'.$exponent.'</sup>'; |
Line 499 sub dollarformat {
|
Line 533 sub dollarformat {
|
|
|
sub map { |
sub map { |
my ($phrase,$dest,$source)=@_; |
my ($phrase,$dest,$source)=@_; |
|
my @oldseed=&random_get_seed(); |
my @seed = &random_seed_from_phrase($phrase); |
my @seed = &random_seed_from_phrase($phrase); |
&random_set_seed(@seed); |
&random_set_seed(@seed); |
my $destct = scalar(@$dest); |
my $destct = scalar(@$dest); |
Line 510 sub map {
|
Line 545 sub map {
|
$output[$ctr] = $$dest[$idx[$ctr]]; |
$output[$ctr] = $$dest[$idx[$ctr]]; |
$ctr++; |
$ctr++; |
} |
} |
|
&random_set_seed(@oldseed); |
return @output; |
return @output; |
} else { |
} else { |
my $num = scalar(@$source); |
my $num = scalar(@$source); |
Line 529 sub map {
|
Line 565 sub map {
|
} |
} |
} |
} |
} |
} |
|
&random_set_seed(@seed); |
|
return ''; |
} |
} |
|
|
sub rmap { |
sub rmap { |
my ($phrase,$dest,$source)=@_; |
my ($phrase,$dest,$source)=@_; |
|
my @oldseed=&random_get_seed(); |
my @seed = &random_seed_from_phrase($phrase); |
my @seed = &random_seed_from_phrase($phrase); |
&random_set_seed(@seed); |
&random_set_seed(@seed); |
my $destct = scalar(@$dest); |
my $destct = scalar(@$dest); |
Line 550 sub rmap {
|
Line 589 sub rmap {
|
$output[$ctr] = $$dest[$r_idx[$ctr]]; |
$output[$ctr] = $$dest[$r_idx[$ctr]]; |
$ctr++; |
$ctr++; |
} |
} |
|
&random_set_seed(@oldseed); |
return @output; |
return @output; |
} else { |
} else { |
my $num = scalar(@$source); |
my $num = scalar(@$source); |
Line 575 sub rmap {
|
Line 615 sub rmap {
|
} |
} |
} |
} |
} |
} |
|
&random_set_seed(@oldseed); |
|
return ''; |
} |
} |
|
|
sub capa_id { return } |
sub capa_id { return } |
Line 686 sub choose {
|
Line 728 sub choose {
|
return $_[$num]; |
return $_[$num]; |
} |
} |
|
|
|
# expiremental idea |
|
sub proper_path { |
|
my ($path)=@_; |
|
if ( $external::target eq "tex" ) { |
|
return '/home/httpd/html'.$path; |
|
} else { |
|
return $path; |
|
} |
|
} |
|
|