Diff for /loncom/homework/default_homework.lcpm between versions 1.3 and 1.4

version 1.3, 2000/10/11 20:59:43 version 1.4, 2000/10/12 20:36:05
Line 4 Line 4
 #  #
 $RANDOMINIT=0;  $RANDOMINIT=0;
   
   sub tex {
     if ( $external::target eq "tex" ) {
       #$SCRIPT_RESULT.=@_[0];
       return @_[0];
     } else {
       #$SCRIPT_RESULT.=@_[1];
       return @_[1];
     }
   }
   
   sub web {
     if ( $external::target eq "tex" ) {
       #$SCRIPT_RESULT.=@_[1];
       return @_[1];
     } else {
       if ( $external::target eq "web") {
         #$SCRIPT_RESULT.=@_[0];
         return @_[0];
       } else {
         #$SCRIPT_RESULT.=@_[2];
         return @_[2];
       }
     }
   }
   
   sub problem {
     $SCRIPT_RESULT.='1';
     return '';
   }
   
 sub hinton {  sub hinton {
   return 0;    return 0;
 }  }
Line 21  sub acos { atan2(sqrt(1 - $_[0] * $_[0]) Line 51  sub acos { atan2(sqrt(1 - $_[0] * $_[0])
 sub asin { atan2($_[0], sqrt(1- $_[0] * $_[0]) );  }  sub asin { atan2($_[0], sqrt(1- $_[0] * $_[0]) );  }
   
 sub html {  sub html {
   if ( $external::target == "web" ) {    if ( $external::target eq "web" ) {
     $SCRIPT_RESULT.=@_[0];      #$SCRIPT_RESULT.=@_[0];
       return @_[0];
   }    }
 }  }
   

Removed from v.1.3  
changed lines
  Added in v.1.4


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>