workbench/libs/mathieeedoubtrans/ieeedptan.c

   1 /*
   2     Copyright © 1995-2008, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include "mathieeedoubtrans_intern.h"
   7
   8 /*****************************************************************************
   9
  10     NAME */
  11
  12         AROS_LHQUAD1(double, IEEEDPTan,
  13
  14 /*  SYNOPSIS */
  15         AROS_LHAQUAD(double, y, D0, D1),
  16
  17 /*  LOCATION */
  18         struct MathIeeeDoubTransBase *, MathIeeeDoubTransBase, 8, MathIeeeDoubTrans)
  19
  20 /*  FUNCTION
  21         Calculate the tangens of the given IEEE double precision number
  22         where y represents an angle in radians.
  23
  24     INPUTS
  25
  26     RESULT
  27         result - IEEE double precision floating point number
  28
  29     BUGS
  30
  31     INTERNALS
  32
  33 *****************************************************************************/
  34 {
  35     AROS_LIBFUNC_INIT
  36     QUAD sn, cs, Res;
  37
  38     cs = IEEEDPCos(y);
  39     sn = IEEEDPSin(y);
  40     if (is_eqC(cs, 0, 0))
  41     {
  42         Set_Value64C(Res, IEEEDPPInfty_Hi, IEEEDPPInfty_Lo);
  43         return Res;
  44     }
  45     else
  46     {
  47         return IEEEDPDiv(sn, cs);
  48     }
  49
  50     AROS_LIBFUNC_EXIT
  51 }
  52