loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.101, 2005/07/13 20:44:29	version 1.103, 2005/09/26 21:39:53
Line 451 sub random_negative_binomial {	Line 451 sub random_negative_binomial {
return @retArray;	return @retArray;
}	}

sub abs { abs(shift) }	sub abs { CORE::abs(shift) }
sub sin { sin(shift) }	sub sin { CORE::sin(shift) }
sub cos { cos(shift) }	sub cos { CORE::cos(shift) }
sub exp { exp(shift) }	sub exp { CORE::exp(shift) }
sub int { int(shift) }	sub int { CORE::int(shift) }
sub log { log(shift) }	sub log { CORE::log(shift) }
sub atan2 { atan2($_[0],$_[1]) }	sub atan2 { CORE::atan2($_[0],$_[1]) }
sub sqrt { sqrt(shift) }	sub sqrt { CORE::sqrt(shift) }

sub tan { CORE::sin($_[0]) / CORE::cos($_[0]) }	sub tan { CORE::sin($_[0]) / CORE::cos($_[0]) }
#sub atan { atan2($_[0], 1); }	#sub atan { atan2($_[0], 1); }
Line 637 sub prettyprint {	Line 637 sub prettyprint {
sub commaformat {	sub commaformat {
my ($number,$target) = @_;	my ($number,$target) = @_;
if ($number =~ /\./) {	if ($number =~ /\./) {
while ($number =~ /([^\.,]+)([^\.,][^\.,][^\.,])([,0-9]\.[0-9])$/) {	while ($number =~ /([^0-9])([0-9]+)([^\.,][^\.,][^\.,])([,0-9]\.[0-9]*)$/) {
$number = $1.','.$2.$3;	$number = $1.$2.','.$3.$4;
}	}
} else {	} else {
while ($number =~ /([^,]+)([^,][^,][^,])([,0-9]*)$/) {	while ($number =~ /^([^0-9])([0-9]+)([^,][^,][^,])([,0-9])$/) {
$number = $1.','.$2.$3;	$number = $1.$2.','.$3.$4;
}	}
}	}
return $number;	return $number;