loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

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);
	}