home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / rkrmsrc / math / spieee.e < prev    next >
Text File  |  1977-12-31  |  868b  |  33 lines
  1. -> spieee.e - Math SP IEEE example of SPMul().
  2.  
  3. ->>> Header (globals)
  4. MODULE 'mathieeesingbas'
  5.  
  6. ENUM ERR_NONE, ERR_LIB
  7.  
  8. RAISE ERR_LIB IF OpenLibrary()=NIL
  9.  
  10. CONST STRSIZE=10, ACC=5
  11. ->>>
  12.  
  13. ->>> PROC main()
  14. PROC main() HANDLE
  15.   -> E-Note: IEEE single is the format used for reals in E
  16.   DEF mul1=-3.6, mul2=18.7  -> 3.6 multiplied by 18.7
  17.   DEF result, s[STRSIZE]:STRING
  18.   mathieeesingbasbase:=OpenLibrary('mathieeesingbas.library', 34)
  19.   result:=IeeeSPMul(mul1, mul2)
  20.   -> E-Note: alternatively, no need to open library, use:  result:=!mul1*mul2
  21.   WriteF(RealF(s, mul1, ACC))
  22.   WriteF(' multiplied by ')
  23.   WriteF(RealF(s, mul2, ACC))
  24.   WriteF(' = \s\n', RealF(s, result, ACC))
  25. EXCEPT DO
  26.   IF mathieeesingbasbase THEN CloseLibrary(mathieeesingbasbase)
  27.   SELECT exception
  28.   CASE ERR_LIB;  WriteF('Error: could not open mathieeesingbas library\n')
  29.   ENDSELECT
  30. ENDPROC
  31. ->>>
  32.  
  33.