home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / pc / 0300 / CCE_0305.ZIP / CCE_0305.PD / MASF.DEF < prev    next >
Text File  |  1990-10-30  |  2KB  |  81 lines
  1.  
  2. (* Floating Point definition module. *)
  3.  
  4. DEFINITION MODULE MASF;
  5.  
  6. (* Import lists and Definitions *)
  7.  
  8.   FROM MASELEM IMPORT GAMMAINT;
  9.  
  10.   FROM MASSTOR IMPORT LIST;
  11.  
  12.  
  13. PROCEDURE FFGI(N : GAMMAINT): LONGREAL;
  14. (*FLOATING POINT FROM GAMMA INTEGER.
  15. THE GAMMA INTEGER N IS CONVERTED TO THE FLOATING POINT NUMBER A. *)
  16.  
  17.  
  18. PROCEDURE IFF(F : LONGREAL): LIST;
  19. (*INTEGER FROM FLOATING POINT.
  20. THE FLOATING POINT NUMBER F IS CONVERTED TO THE INTEGER A. *)
  21.  
  22.  
  23. PROCEDURE FEXP(F, N : LONGREAL): LONGREAL;
  24. (*FLOATING POINT EXPONENTIATION.
  25. THE FLOATING POINT NUMBER F RAISED TO THE N-TH POWER. *)
  26.  
  27.  
  28. PROCEDURE FLOG10(F : LONGREAL): LONGREAL;
  29. (*FLOATING POINT LOGARITHM BASE 10.
  30. THE LOGARITHM OF THE FLOATING POINT NUMBER F WITH BASE 10 IS RETURNED. *)
  31.  
  32.  
  33. PROCEDURE FFINT(N : LIST): LONGREAL;
  34. (*FLOATING POINT FROM INTEGER.
  35. THE INTEGER N IS CONVERTED TO THE FLOATING POINT NUMBER A. *)
  36.  
  37.  
  38. PROCEDURE FFRN(A : LIST): LONGREAL;
  39. (*FLOATING POINT FROM RATIONAL NUMBER.
  40. THE RATIONAL NUMBER A IS CONVERTED TO THE FLOATING POINT NUMBER A. *)
  41.  
  42.  
  43. PROCEDURE RNFF(F : LONGREAL): LIST;
  44. (*RATIONAL NUMBER FROM FLOATING POINT.
  45. THE FLOATING POINT NUMBER F IS CONVERTED TO THE RATIONAL NUMBER A. *)
  46.  
  47.  
  48. PROCEDURE SIN(A : LIST): LIST;
  49. (*SINUS. A IS A RATIONAL NUMBER, THE SINUS OF A IS RETURNED: *)
  50.  
  51.  
  52. PROCEDURE COS(A : LIST): LIST;
  53. (*COSINUS. A IS A RATIONAL NUMBER, THE COSINUS OF A IS RETURNED: *)
  54.  
  55.  
  56. PROCEDURE TAN(A : LIST): LIST;
  57. (*TANGENS. A IS A RATIONAL NUMBER, THE TANGENS OF A IS RETURNED: *)
  58.  
  59.  
  60. PROCEDURE ARCTAN(A : LIST): LIST;
  61. (*ARCUS TANGENS. A IS A RATIONAL NUMBER, THE ARCTANGENS OF A IS RETURNED: *)
  62.  
  63.  
  64. PROCEDURE EXPF(A : LIST): LIST;
  65. (*EXPONENTIAL. A IS A RATIONAL NUMBER, THE EXPONENTIAL OF A IS RETURNED: *)
  66.  
  67.  
  68. PROCEDURE LN(A : LIST): LIST;
  69. (*LN. A IS A RATIONAL NUMBER, THE LN OF A IS RETURNED: *)
  70.  
  71.  
  72. PROCEDURE LOG(A : LIST): LIST;
  73. (*LOG. A IS A RATIONAL NUMBER, THE LOG OF A IS RETURNED: *)
  74.  
  75.  
  76. PROCEDURE SQRT(A : LIST): LIST;
  77. (*SQRT. A IS A RATIONAL NUMBER, THE SQUARE ROOT OF A IS RETURNED: *)
  78.  
  79.  
  80. END MASF.
  81.