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

float tanhf(float t)
{
    float   p, m;
    
    p = expf(t);
    m = expf(-t);
    return (p-m)/(p+m);
}