home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / TRSICAT.LZX / CATS_CD2_TRSI / Reference_Library / lib_examples / mathieeedoubtrans.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-08-21  |  1.4 KB  |  36 lines
  1. #include <exec/types.h>
  2. #include <libraries/mathieeedp.h>
  3. #include <clib/mathdoubtrans_protos.h>
  4.  
  5. struct Library *MathIeeeDoubTransBase;
  6.  
  7. VOID main()
  8. {
  9. DOUBLE d1, d2, d3;
  10. FLOAT f1;
  11.  
  12. if (MathIeeeDoubTransBase = OpenLibrary("mathieeedoubtrans.library",34))
  13.     {
  14.     d1 = IEEEDPAsin(d2);        /* Call IEEEDPAsin entry */
  15.     d1 = IEEEDPAcos(d2);        /* Call IEEEDPAcos entry */
  16.     d1 = IEEEDPAtan(d2);        /* Call IEEEDPAtan entry */
  17.     d1 = IEEEDPSin(d2);         /* Call IEEEDPSin entry */
  18.     d1 = IEEEDPCos(d2);         /* Call IEEEDPCos entry */
  19.     d1 = IEEEDPTan(d2);         /* Call IEEEDPTan entry */
  20.     d1 = IEEEDPSincos(&d3, d2); /* Call IEEEDPSincos entry */
  21.     d1 = IEEEDPSinh(d2);        /* Call IEEEDPSinh entry */
  22.     d1 = IEEEDPCosh(d2);        /* Call IEEEDPCosh entry */
  23.     d1 = IEEEDPTanh(d2);        /* Call IEEEDPTanh entry */
  24.     d1 = IEEEDPExp(d2);         /* Call IEEEDPExp entry */
  25.     d1 = IEEEDPLog(d2);         /* Call IEEEDPLog entry */
  26.     d1 = IEEEDPLog10(d2);       /* Call IEEEDPLog10 entry */
  27.     d1 = IEEEDPPow(d2, d3);     /* Call IEEEDPPow entry */
  28.     d1 = IEEEDPSqrt(d2);        /* Call IEEEDPSqrt entry */
  29.     f1 = IEEEDPTieee(d2);       /* Call IEEEDPTieee entry */
  30.     d1 = IEEEDPFieee(f1);       /* Call IEEEDPFieee entry */
  31.  
  32.     CloseLibrary(MathIeeeDoubTransBase);
  33.     }
  34. else printf("Can't open mathieeedoubtrans.library\n");
  35. }
  36.