--- loncom/homework/default_homework.lcpm	2001/05/25 21:20:19	1.20
+++ loncom/homework/default_homework.lcpm	2001/05/28 21:47:48	1.21
@@ -10,7 +10,7 @@
 # 05/25/2001 H. K. Ng
 #
 $RANDOMINIT=0;
-$pi=atan2(1,1)*4;
+#$pi=atan2(1,1)*4;
 
 sub caparesponse_check {
   my $answer='';  #done
@@ -151,9 +151,9 @@ sub random {
 }
 
 sub tan  { sin($_[0]) / cos($_[0]) }
-sub atan { atan2($_[0], 1); }
-sub acos { atan2(sqrt(1 - $_[0] * $_[0]), $_[0] ); }
-sub asin { atan2($_[0], sqrt(1- $_[0] * $_[0]) );  }
+#sub atan { atan2($_[0], 1); }
+#sub acos { atan2(sqrt(1 - $_[0] * $_[0]), $_[0] ); }
+#sub asin { atan2($_[0], sqrt(1- $_[0] * $_[0]) );  }
 sub log10 { log($_[0])/log(10); }
 sub factorial {
     my $input = int(shift);