loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.86, 2004/06/09 21:08:21	version 1.87, 2004/06/09 21:16:43
Line 344 sub random_multivariate_normal {	Line 344 sub random_multivariate_normal {
my ($item_cnt,$seed,$mean,$covar) = @_;	my ($item_cnt,$seed,$mean,$covar) = @_;
my @oldseed=&random_get_seed();	my @oldseed=&random_get_seed();
&random_set_seed_from_phrase($seed);	&random_set_seed_from_phrase($seed);
@retArray=&math_random_multivariate_normal($item_cnt,@$mean,@$covar);	my @retArray=&math_random_multivariate_normal($item_cnt,@$mean,@$covar);
&random_set_seed(@oldseed);	&random_set_seed(@oldseed);
return @retArray;	return @retArray;
}	}
Line 354 sub random_multinomial {	Line 354 sub random_multinomial {
my @oldseed=&random_get_seed();	my @oldseed=&random_get_seed();
my @retArray;	my @retArray;
&random_set_seed_from_phrase($seed);	&random_set_seed_from_phrase($seed);
@retArray=&math_random_multinomial($item_cnt,@p);	my @retArray=&math_random_multinomial($item_cnt,@p);
&random_set_seed(@oldseed);	&random_set_seed(@oldseed);
return @retArray;	return @retArray;
}	}
Line 523 sub chemparse {	Line 523 sub chemparse {
$formula .= $molecule.' ';	$formula .= $molecule.' ';
}	}
# get rid of trailing space	# get rid of trailing space
$formula =~ s/(\Q${nbsp}\E\| )$//;	$formula =~ s/(\&nbsp\;\| )$//;

return &xmlparse($formula);	return &xmlparse($formula);
}	}