/*
=============================================================================
        Copyright (C) 1997-1999 NINTENDO Co.,Ltd.
        
        $RCSfile: tanf.c,v $
        $Revision: 1.1.1.1 $
        $Date: 2002/10/30 02:07:09 $
=============================================================================
関数名：tanf
-----------------------------------------------------------------------------
書式：  #include <math.h>
        float tanf(float t);
引数：  t ラディアン角
戻り値：タンジェント
説明：  引数 ｔ からタンジェントを求めます。
-----------------------------------------------------------------------------
*/
#include "math.h"

float tanf(float t)
{
    float   c, s;
    long    tn;

    tn = (t / FVAL_PI) + ((t>=0) ? 0.5 : -0.5);
    t = t - tn * FVAL_PI;
    if (t == 0) return FVAL_ZERO;
    s = _nsinf(t);
    c = _ncosf(t);
    if (c != 0) return s/c;
    else return FLT_MAX;
}