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.3, 2000/10/11 20:59:43
Line 2	Line 2
# used by lonxml::xmlparse() as input variable $safeinit to Apache::run::run()	# used by lonxml::xmlparse() as input variable $safeinit to Apache::run::run()
#	#
#	#
	$RANDOMINIT=0;

sub hinton {	sub hinton {
return 0;	return 0;
}	}

sub random {	sub random {
my ($start,$end,$step)=@_;	my ($start,$end,$step)=@_;
	if ( ! $RANDOMINIT ) { srand($external::randomseed); $RANDOMINIT=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(rand() * $num)*$step;
return $result;	return $result;
Line 19 sub asin { atan2($_[0], sqrt(1- $_[0] *	Line 22 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 31 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);
	}