home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / MISC / IFP05.ZIP / FPDEMO.EXE / COSSIN < prev    next >
Encoding:
Text File  |  1987-02-09  |  285 b   |  14 lines
  1. (*
  2.  * CosSin
  3.  *
  4.  * Compute the sine and cosine of an angle via half-angle formulae.
  5.  * The function is accurate to 12 decimals.
  6.  *)
  7. DEF CosSin AS
  8.    IF [id|Abs,#1e-6]|< THEN [[#1,[Square,#2]|%]|-,id]
  9.    ELSE
  10.       [id,#2]|% | CosSin | 
  11.       [[+,-]|*, [*,*]|+] 
  12.    END;
  13.  
  14.