loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.52, 2002/09/26 20:46:48	version 1.55, 2002/11/15 17:06:08
Line 101 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) {	if (!defined($sig_lbound)) {
$sig_lbound = 0; #SIG_LB_DEFAULT	$sig_lbound = 0; #SIG_LB_DEFAULT
$sig_ubound =15; #SIG_UB_DEFAULT	$sig_ubound =15; #SIG_UB_DEFAULT
}	}
if (!$sig_ubound) { $sig_ubound=$sig_lbound; }	if (!defined($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 240 sub hinton {	Line 240 sub hinton {
sub random {	sub random {
my ($start,$end,$step)=@_;	my ($start,$end,$step)=@_;
if ( ! $hidden::RANDOMINIT ) {	if ( ! $hidden::RANDOMINIT ) {
&random_set_seed_from_phrase($external::randomseed);	if ($external::randomseed == 0) { $external::randomseed=1; }
	&random_set_seed(1,int(abs($external::randomseed)));
	&math_random_uniform();
$hidden::RANDOMINIT=1;	$hidden::RANDOMINIT=1;
}	}
if (!defined($step)) { $step=1; }	if (!defined($step)) { $step=1; }