home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / lpr / longmath.def < prev    next >
Encoding:
Modula Definition  |  1994-09-22  |  881 b   |  36 lines
  1. DEFINITION MODULE LongMathLib0;
  2.  
  3. VAR Pi, E : LONGREAL;
  4.  
  5. PROCEDURE Entier(x : LONGREAL) : LONGINT;
  6.  
  7. PROCEDURE LongReal(x : LONGINT) : LONGREAL;
  8.  
  9. PROCEDURE Ln  (A : LONGREAL) : LONGREAL;
  10.  
  11. PROCEDURE Exp (A : LONGREAL) : LONGREAL;
  12.  
  13. PROCEDURE Sqrt(A : LONGREAL) : LONGREAL;
  14.  
  15. PROCEDURE Sin (A : LONGREAL) : LONGREAL;
  16.  
  17. PROCEDURE Cos (A : LONGREAL) : LONGREAL;
  18.  
  19. PROCEDURE Tan (A : LONGREAL) : LONGREAL;
  20.  
  21. PROCEDURE Arctan(A : LONGREAL) : LONGREAL;
  22.  
  23. PROCEDURE Arctan2 (A,B : LONGREAL) : LONGREAL;
  24.  
  25. (* Arctan2 returns the angle (in radians) with tangent A/B
  26.    Arctan2(A,B)=Arctan(A/B)
  27.  
  28.    Also, Arctan2 returns a value in the range 0 to 2*pi 
  29.    Whereas Arctan returns the value in the range -pi/2..pi/2
  30.  
  31.    This means that Arctan2 can be used directly for rectangular
  32.    to polar co-ordinates. In addition, Arctan2 works when B=0.0 *)
  33.  
  34. END LongMathLib0.
  35.  
  36.