loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.45, 2002/01/30 17:32:05
+version 1.46, 2002/02/06 16:18:26
  Line 445  sub format {
    return sprintf('%.'.$fmt,$value);
  }
+ sub prettyprint {
+   my ($value,$fmt)=@_;
+   my $result;
+   if ($fmt) { $value=sprintf('%.'.$fmt,$value); }
+   if ($value =~ /([0-9\.\-\+]+)E([0-9\-\+]+)/ ) {
+     my $frac=$1;
+     my $exponent=$2;
+     $exponent=~s/^\+0*//;
+     if ($external::target eq 'web') {
+       $result=$frac.'&#215;10<sup>'.$exponent.'</sup>';
+     } elsif ($external::target eq 'tex') {
+       $result='\ensuremath{'.$frac.'\times 10^{'.$exponent.'}}';
+     } else {
+       $result=$value;
+     }
+   } else {
+     $result=$value;
+   }
+   return $result;
+ }
  sub map {
      my ($phrase,$dest,$source)=@_;
      my @seed = &random_seed_from_phrase($phrase);