version 1.10, 2000/11/21 18:36:37
|
version 1.11, 2000/11/22 00:00:54
|
Line 67 sub caparesponse_check {
|
Line 67 sub caparesponse_check {
|
|
|
sub tex { |
sub tex { |
if ( $external::target eq "tex" ) { |
if ( $external::target eq "tex" ) { |
#$SCRIPT_RESULT.=@_[0]; |
|
return @_[0]; |
return @_[0]; |
} else { |
} else { |
#$SCRIPT_RESULT.=@_[1]; |
|
return @_[1]; |
return @_[1]; |
} |
} |
} |
} |
|
|
sub web { |
sub web { |
if ( $external::target eq "tex" ) { |
if ( $external::target eq "tex" ) { |
#$SCRIPT_RESULT.=@_[1]; |
|
return @_[1]; |
return @_[1]; |
} else { |
} else { |
if ( $external::target eq "web") { |
if ( $external::target eq "web") { |
#$SCRIPT_RESULT.=@_[0]; |
|
return @_[0]; |
return @_[0]; |
} else { |
} else { |
#$SCRIPT_RESULT.=@_[2]; |
|
return @_[2]; |
return @_[2]; |
} |
} |
} |
} |
} |
} |
|
|
sub problem { |
sub problem { |
$SCRIPT_RESULT.='1'; |
return '1'; |
return ''; |
|
} |
} |
|
|
sub hinton { |
sub hinton { |
Line 113 sub asin { atan2($_[0], sqrt(1- $_[0] *
|
Line 107 sub asin { atan2($_[0], sqrt(1- $_[0] *
|
|
|
sub html { |
sub html { |
if ( $external::target eq "web" ) { |
if ( $external::target eq "web" ) { |
#$SCRIPT_RESULT.=@_[0]; |
|
return @_[0]; |
return @_[0]; |
} |
} |
} |
} |
Line 125 sub floor {return int($_[0]); }
|
Line 118 sub floor {return int($_[0]); }
|
|
|
sub format { |
sub format { |
my ($value,$fmt)=@_; |
my ($value,$fmt)=@_; |
$SCRIPT_RESULT.=sprintf('%.'.$fmt,$value); |
return sprintf('%.'.$fmt,$value); |
return $SCRIPT_RESULT; |
|
} |
} |
|
|
sub map { |
sub map { |