Usenet 1994 January/usenetsourcesnewsgroupsinfomagicjanuary1994.iso/sources/unix/volume10/ifp/part01/fproot/demo/CosSin

Text File | 1987-07-05 | 271 b | 14 lines

(*
 * CosSin
 *
 * Compute the sine and cosine of an angle via half-angle formulae.
 * The function is accurate to 12 decimals.
 *)
DEF CosSin AS
   IF [id|Abs,#1e-6]|< THEN [[#1,[Square,#2]|%]|-,id]
   ELSE
      [id,#2]|% | CosSin |
      [[+,-]|*, [*,*]|+]
   END;