home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch4 / cos < prev    next >
Encoding:
Text File  |  1992-10-18  |  197 b   |  11 lines

  1. # Here's the lazy way of getting degrees-to-radians.
  2.  
  3. $pi = atan2(1,1) * 4;
  4. $piover180 = $pi/180;
  5.  
  6. # Print table.
  7.  
  8. for ($_ = 0; $_ <= 90; $_++) {
  9.     printf "%3d %7.5f\n", $_, cos($_ * $piover180);
  10. }
  11.