version 1.17, 2001/02/19 20:31:53
|
version 1.18, 2001/02/20 23:46:25
|
Line 140 sub random {
|
Line 140 sub random {
|
} |
} |
|
|
sub tan { sin($_[0]) / cos($_[0]) } |
sub tan { sin($_[0]) / cos($_[0]) } |
|
sub atan { atan2($_[0], 1); } |
sub acos { atan2(sqrt(1 - $_[0] * $_[0]), $_[0] ); } |
sub acos { atan2(sqrt(1 - $_[0] * $_[0]), $_[0] ); } |
sub asin { atan2($_[0], sqrt(1- $_[0] * $_[0]) ); } |
sub asin { atan2($_[0], sqrt(1- $_[0] * $_[0]) ); } |
|
sub log10 { log($_[0])/log(10); } |
|
|
sub html { |
sub html { |
if ( $external::target eq "web" ) { |
if ( $external::target eq "web" ) { |