[BACK]Return to default_homework.lcpm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/default_homework.lcpm between versions 1.20 and 1.21

version 1.20, 2001/05/25 21:20:19 version 1.21, 2001/05/28 21:47:48
Line 10 Line 10
 # 05/25/2001 H. K. Ng  # 05/25/2001 H. K. Ng
 #  #
 $RANDOMINIT=0;  $RANDOMINIT=0;
 $pi=atan2(1,1)*4;  #$pi=atan2(1,1)*4;
   
 sub caparesponse_check {  sub caparesponse_check {
   my $answer='';  #done    my $answer='';  #done
Line 151  sub random { Line 151  sub random {
 }  }
   
 sub tan  { sin($_[0]) / cos($_[0]) }  sub tan  { sin($_[0]) / cos($_[0]) }
 sub atan { atan2($_[0], 1); }  #sub atan { atan2($_[0], 1); }
 sub acos { atan2(sqrt(1 - $_[0] * $_[0]), $_[0] ); }  #sub acos { atan2(sqrt(1 - $_[0] * $_[0]), $_[0] ); }
 sub asin { atan2($_[0], sqrt(1- $_[0] * $_[0]) );  }  #sub asin { atan2($_[0], sqrt(1- $_[0] * $_[0]) );  }
 sub log10 { log($_[0])/log(10); }  sub log10 { log($_[0])/log(10); }
 sub factorial {  sub factorial {
     my $input = int(shift);      my $input = int(shift);
Removed from v.1.20  
changed lines
  Added in v.1.21

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