loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.161, 2011/10/06 17:15:40	version 1.163, 2013/01/21 06:16:50
Line 816 sub cos { CORE::cos(shift) }	Line 816 sub cos { CORE::cos(shift) }
sub exp { CORE::exp(shift) }	sub exp { CORE::exp(shift) }
sub int { CORE::int(shift) }	sub int { CORE::int(shift) }
sub log { CORE::log(shift) }	sub log { CORE::log(shift) }
	sub ln { CORE::log(shift) }
sub atan2 { CORE::atan2($_[0],$_[1]) }	sub atan2 { CORE::atan2($_[0],$_[1]) }
sub sqrt { CORE::sqrt(shift) }	sub sqrt { CORE::sqrt(shift) }

Line 1032 sub format_significant_figures {	Line 1033 sub format_significant_figures {
$number = abs($number);	$number = abs($number);
# needed to correct for a number greater than 1 (or	# needed to correct for a number greater than 1 (or
my $power = ($number < 1) ? 0 : 1;	my $power = ($number < 1) ? 0 : 1;
	if ($power && $number =~ /^\d+$/) {
	my $nonzeros = $number;
	$nonzeros =~ s/0+$//;
	if (length($number) - length($nonzeros) > 1) {
	# convert to exponential form
	my $n = $sig-1;
	my $numSig = sprintf('%.' . $n . 'E', $number);
	# return number with sign
	return $sign.$numSig;
	}
	}
# could round up. Take the integer part of log10.	# could round up. Take the integer part of log10.
my $x10 = int(log($number)/log(10));	my $x10 = int(log($number)/log(10));
# find number with values left of decimal pt = # of sign figs.	# find number with values left of decimal pt = # of sign figs.