loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.32, 2001/07/23 22:40:59	version 1.33, 2001/07/27 18:15:04
Line 268 sub random_noncentral_f {	Line 268 sub random_noncentral_f {
}	}

sub random_multivariate_normal {	sub random_multivariate_normal {
my ($item_cnt,$seed,@mean) = @_;	my ($item_cnt,$seed,$mean,$covar) = @_;
return "Number of deviates must be greater than 0" if $item_cnt <= 0;
my (@covar,@retArray);
my $ind = 0;
while ($ind<$item_cnt) {
push @covar, pop (@mean);
$ind++;
}
&random_set_seed_from_phrase($seed);	&random_set_seed_from_phrase($seed);
@retArray=&math_random_multivariate_normal($item_cnt,@mean,@covar);	@retArray=&math_random_multivariate_normal($item_cnt,@$mean,@$covar);
return @retArray;	return @retArray;
}	}