home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / lpr / mathlib0.def < prev    next >
Encoding:
Modula Definition  |  1994-09-22  |  813 b   |  37 lines
  1. DEFINITION MODULE MathLib0;
  2.  
  3. CONST pi      = 3.14159265358979323;
  4.       e       = 2.71828182845904523;
  5.  
  6. PROCEDURE entier(x : REAL) : INTEGER;
  7.  
  8. PROCEDURE real(x : INTEGER) : REAL;
  9.  
  10. PROCEDURE ln(A:REAL):REAL;
  11.  
  12. PROCEDURE exp(A:REAL):REAL;
  13.  
  14. PROCEDURE sqrt(A:REAL):REAL;
  15.  
  16. PROCEDURE sin(A:REAL):REAL;
  17.  
  18. PROCEDURE cos(A:REAL):REAL;
  19.  
  20. PROCEDURE tan(A:REAL):REAL;
  21.  
  22. PROCEDURE arctan(A:REAL):REAL;
  23.  
  24. PROCEDURE arctan2(A,B:REAL):REAL;
  25.  
  26. (* arctan2 returns the angle (in radians) with tangent A/B
  27.    arctan2(A,B)=arctan(A/B)
  28.  
  29.    Also, arctan2 returns a value in the range 0 to 2*pi 
  30.    Whereas arctan returns the value in the range -pi/2..pi/2
  31.  
  32.    This means that arctan2 can be used directly for rectangular
  33.    to polar co-ordinates. In addition, arctan2 works when B=0.0*)
  34.    
  35. END MathLib0.
  36.  
  37.