loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.107.2.3, 2003/10/15 21:26:46	version 1.107.2.4, 2003/10/23 19:36:02
Line 445 sub format_number {	Line 445 sub format_number {

sub make_numerical_bubbles {	sub make_numerical_bubbles {
my ($number_of_bubbles,$target,$answer,$format) =@_;	my ($number_of_bubbles,$target,$answer,$format) =@_;
	my @oldseed=&Math::Random::random_get_seed();
my @bubble_values = ();	my @bubble_values = ();
my @factors = (1.13,1.17,1.25,1.33,1.45); #default values of factors	my @factors = (1.13,1.17,1.25,1.33,1.45); #default values of factors
my @powers = (1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0); #default values for powers	my @powers = (1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0); #default values for powers
Line 459 sub make_numerical_bubbles {	Line 460 sub make_numerical_bubbles {
$format,$target);	$format,$target);

}	}
	&Math::Random::random_set_seed(@oldseed);
return @bubble_values;	return @bubble_values;
}	}