loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.54, 2002/11/13 23:05:46	version 1.55, 2002/11/15 17:06:08
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(1,$external::randomseed);	if ($external::randomseed == 0) { $external::randomseed=1; }
	&random_set_seed(1,int(abs($external::randomseed)));
&math_random_uniform();	&math_random_uniform();
$hidden::RANDOMINIT=1;	$hidden::RANDOMINIT=1;
}	}