version 1.1, 2000/09/26 19:29:07
|
version 1.2, 2000/10/05 19:24:23
|
Line 19 sub asin { atan2($_[0], sqrt(1- $_[0] *
|
Line 19 sub asin { atan2($_[0], sqrt(1- $_[0] *
|
|
|
sub html { |
sub html { |
if ( $external::target == "web" ) { |
if ( $external::target == "web" ) { |
$Apache::scripttag::start_script::result.=@_[0]; |
$SCRIPT_RESULT.=@_[0]; |
} |
} |
} |
} |
|
|
Line 28 sub pow {return $_[0] ** $_[1]; }
|
Line 28 sub pow {return $_[0] ** $_[1]; }
|
sub ceil {return (($_[0]-int($_[0]))== 0.0) ? $_[0] : (int($_[0])+ 1); } |
sub ceil {return (($_[0]-int($_[0]))== 0.0) ? $_[0] : (int($_[0])+ 1); } |
sub floor {return int($_[0]); } |
sub floor {return int($_[0]); } |
|
|
|
sub format { |
|
my ($value,$fmt)=@_; |
|
$SCRIPT_RESULT.=sprintf('%.'.$fmt,$value); |
|
} |