Diff for /loncom/homework/default_homework.lcpm between versions 1.37 and 1.38

version 1.37, 2001/10/01 20:15:30 version 1.38, 2001/10/05 22:28:31
Line 7 Line 7
 # 05/31/2001 H. K. Ng  # 05/31/2001 H. K. Ng
 #  #
 #init some globals  #init some globals
 $RANDOMINIT=0;  $hidden::RANDOMINIT=0;
 $pi=atan2(1,1)*4;  $pi=atan2(1,1)*4;
 $rad2deg=180.0/$pi;  $rad2deg=180.0/$pi;
 $deg2rad=$pi/180.0;  $deg2rad=$pi/180.0;
Line 191  sub hinton { Line 191  sub hinton {
   
 sub random {  sub random {
   my ($start,$end,$step)=@_;    my ($start,$end,$step)=@_;
   if ( ! $RANDOMINIT ) { srand($external::randomseed); $RANDOMINIT=1; }    if ( ! $hidden::RANDOMINIT ) {
       srand($external::randomseed);
       $hidden::RANDOMINIT=1;
     }
   my $num=1+int(($end-$start)/$step);    my $num=1+int(($end-$start)/$step);
   my $result=$start + int(rand() * $num)*$step;    my $result=$start + int(rand() * $num)*$step;
   return $result;    return $result;

Removed from v.1.37  
changed lines
  Added in v.1.38


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