loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.43, 2001/12/13 23:38:28	version 1.45, 2002/01/30 17:32:05
Line 30	Line 30
#	#
# 05/25/2001 H. K. Ng	# 05/25/2001 H. K. Ng
# 05/31/2001 H. K. Ng	# 05/31/2001 H. K. Ng
	# 12/21/2001 Matthew
#	#
#init some globals	#init some globals
$hidden::RANDOMINIT=0;	$hidden::RANDOMINIT=0;
$pi=atan2(1,1)*4;	$pi=atan2(1,1)*4;
$rad2deg=180.0/$pi;	$rad2deg=180.0/$pi;
$deg2rad=$pi/180.0;	$deg2rad=$pi/180.0;
	$"=' ';

sub caparesponse_check {	sub caparesponse_check {
#not properly used yet: calc	#not properly used yet: calc
Line 99 sub caparesponse_check {	Line 101 sub caparesponse_check {
$sig_ubound =15; #SIG_UB_DEFAULT	$sig_ubound =15; #SIG_UB_DEFAULT
} else {	} else {
($sig_lbound,$sig_ubound) = split /,/,$sig;	($sig_lbound,$sig_ubound) = split /,/,$sig;
	if (!$sig_lbound) {
	$sig_lbound = 0; #SIG_LB_DEFAULT
	$sig_ubound =15; #SIG_UB_DEFAULT
	}
	if (!$sig_ubound) { $sig_ubound=$sig_lbound; }
}	}
my $result = &caparesponse_capa_check_answer($response,$answer,$type,	my $result = &caparesponse_capa_check_answer($response,$answer,$type,
$tol_type,$tol,	$tol_type,$tol,
Line 236 sub random {	Line 243 sub random {
srand($external::randomseed);	srand($external::randomseed);
$hidden::RANDOMINIT=1;	$hidden::RANDOMINIT=1;
}	}
	if (!defined($step)) { $step=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;