loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.260, 2018/09/14 02:51:39	version 1.261, 2020/12/04 22:19:19
Line 1065 sub make_numerical_bubbles {	Line 1065 sub make_numerical_bubbles {
&Math::Random::random_uniform_integer(1,1,10);	&Math::Random::random_uniform_integer(1,1,10);
}	}
for ($ind=0;$ind<$number_of_bubbles;$ind++) {	for ($ind=0;$ind<$number_of_bubbles;$ind++) {
$bubble_values[$ind] = $answerfactor($factor*($power-$powers[$#powers-$ind]));	my $exponent = $power-$powers[$#powers-$ind];
	if ($exponent == 0) {
	$bubble_values[$ind] = $answerfactor;
	} else {
	$bubble_values[$ind] = $answerfactor($factor*$exponent);
	}
$bubble_display[$ind] = &format_number($bubble_values[$ind],	$bubble_display[$ind] = &format_number($bubble_values[$ind],
$format,$target,$safeeval);	$format,$target,$safeeval);
}	}