home *** CD-ROM | disk | FTP | other *** search
/ Amiga ACS 1998 #2 / amigaacscoverdisc1998-021998.iso / utilities / shareware / dev / e_v3.3a / src.lha / Src / Rkrm / Math / dptrans.e < prev    next >
Encoding:
Text File  |  1995-09-20  |  735 b   |  32 lines
  1. -> dptrans.e - Math Double-Precision Transcendental example of dSin().
  2.  
  3. ->>> Header (globals)
  4. MODULE 'tools/longreal'
  5.  
  6. CONST STRSIZE=20
  7. CONST FRACTSIZE=STRSIZE-8
  8. ->>>
  9.  
  10. ->>> PROC main()
  11. PROC main() HANDLE
  12.   -> E-Note: use the longreals from 'tools/longreal' for double precision IEEE
  13.   DEF num1:longreal, result:longreal, four:longreal, s[STRSIZE]:STRING
  14.   dInit()
  15.   dDiv(dPi(num1), dFloat(4, four), num1)
  16.   -> E-Note: or alternatively use dRad(dFloat(45, num1), num1)
  17.  
  18.   dSin(num1, result)
  19.   WriteF('The double precision sine of 45 degrees is \s\n',
  20.          dFormat(s, result, FRACTSIZE))
  21.  
  22. EXCEPT DO
  23.   dCleanup()
  24.   SELECT exception
  25.   CASE "DLIB";  WriteF('Error: could not open mathieeedoubbas library\n')
  26.   ENDSELECT
  27. ENDPROC
  28. ->>>
  29.  
  30.  
  31.  
  32.