home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_PAS / TRIG.ZIP / TRIG1U.PAS < prev   
Pascal/Delphi Source File  |  1994-01-19  |  2KB  |  54 lines
  1. UNIT TRIG1U;
  2.  
  3. INTERFACE
  4.  
  5. FUNCTION ARCCOS(C,DEFAULT:EXTENDED):EXTENDED;
  6. FUNCTION ARCSIN(S,DEFAULT:EXTENDED):EXTENDED;
  7. FUNCTION TAN(THETA,LIMIT:EXTENDED):EXTENDED;
  8. FUNCTION SINH(U:EXTENDED):EXTENDED;
  9. FUNCTION COSH(U:EXTENDED):EXTENDED;
  10. FUNCTION TANH(U:EXTENDED):EXTENDED;
  11. FUNCTION COTH(U,DEFAULT:EXTENDED):EXTENDED;
  12. FUNCTION SECH(U:EXTENDED):EXTENDED;
  13. FUNCTION CSCH(U,DEFAULT:EXTENDED):EXTENDED;
  14. FUNCTION ARCTANH(U,DEFAULT:EXTENDED):EXTENDED;
  15. FUNCTION ARCCOSH(U,DEFAULT:EXTENDED):EXTENDED;
  16. FUNCTION ARCSINH(U:EXTENDED):EXTENDED;
  17. FUNCTION ARCCSCH(U,DEFAULT:EXTENDED):EXTENDED;
  18. FUNCTION ARCSECH(U,DEFAULT:EXTENDED):EXTENDED;
  19. FUNCTION ARCCOTH(U,DEFAULT:EXTENDED):EXTENDED;
  20. FUNCTION SEC(U,DEFAULT:EXTENDED):EXTENDED;
  21. FUNCTION CSC(U,DEFAULT:EXTENDED):EXTENDED;
  22. FUNCTION COT(U,DEFAULT:EXTENDED):EXTENDED;
  23. FUNCTION ARCSEC(U,DEFAULT:EXTENDED):EXTENDED;
  24. FUNCTION ARCCSC(U,DEFAULT:EXTENDED):EXTENDED;
  25. FUNCTION ARCCOT(U:EXTENDED):EXTENDED;
  26.  
  27. IMPLEMENTATION
  28.  
  29. FUNCTION ARCCOS;              EXTERNAL 'TRIG1' INDEX 1;
  30. FUNCTION ARCSIN;              EXTERNAL 'TRIG1' INDEX 2;
  31. FUNCTION TAN;                 EXTERNAL 'TRIG1' INDEX 3;
  32. FUNCTION SINH;                EXTERNAL 'TRIG1' INDEX 4;
  33. FUNCTION COSH;                EXTERNAL 'TRIG1' INDEX 5;
  34. FUNCTION TANH;                EXTERNAL 'TRIG1' INDEX 6;
  35. FUNCTION COTH;                EXTERNAL 'TRIG1' INDEX 7;
  36. FUNCTION SECH;                EXTERNAL 'TRIG1' INDEX 8;
  37. FUNCTION CSCH;                EXTERNAL 'TRIG1' INDEX 9;
  38. FUNCTION ARCTANH;             EXTERNAL 'TRIG1' INDEX 10;
  39. FUNCTION ARCCOSH;             EXTERNAL 'TRIG1' INDEX 11;
  40. FUNCTION ARCSINH;             EXTERNAL 'TRIG1' INDEX 12;
  41. FUNCTION ARCCSCH;             EXTERNAL 'TRIG1' INDEX 13;
  42. FUNCTION ARCSECH;             EXTERNAL 'TRIG1' INDEX 14;
  43. FUNCTION ARCCOTH;             EXTERNAL 'TRIG1' INDEX 15;
  44. FUNCTION SEC;                 EXTERNAL 'TRIG1' INDEX 16;
  45. FUNCTION CSC;                 EXTERNAL 'TRIG1' INDEX 17;
  46. FUNCTION COT;              EXTERNAL 'TRIG1' INDEX 18;    
  47. FUNCTION ARCSEC;              EXTERNAL 'TRIG1' INDEX 19;
  48. FUNCTION ARCCSC;              EXTERNAL 'TRIG1' INDEX 20;
  49. FUNCTION ARCCOT;              EXTERNAL 'TRIG1' INDEX 21;
  50.  
  51.  
  52. END.
  53.  
  54.