140 lines
2.1 KiB
C
140 lines
2.1 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#include <extend.h>
|
|
#include <math.h>
|
|
|
|
#ifndef M_PI_2
|
|
#define M_PI_2 1.57079632679489661923
|
|
#endif
|
|
|
|
HARBOUR HB_ACOS( void )
|
|
{
|
|
if( _pcount() > 0 )
|
|
{
|
|
double dNumber = _parnd(1);
|
|
|
|
if( dNumber >= -1 && dNumber <= 1 )
|
|
_retnd( acos(dNumber) );
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
|
|
HARBOUR HB_ASIN( void )
|
|
{
|
|
if( _pcount() > 0 )
|
|
{
|
|
double dNumber = _parnd(1);
|
|
|
|
if( dNumber >= -1 && dNumber <= 1 )
|
|
_retnd( asin(dNumber) );
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
|
|
HARBOUR HB_ATAN( void )
|
|
{
|
|
if( _pcount() > 0 )
|
|
{
|
|
double dNumber = _parnd(1);
|
|
|
|
if( dNumber >= -M_PI_2 && dNumber <= M_PI_2 )
|
|
_retnd( atan(dNumber) );
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
|
|
HARBOUR HB_COS( void )
|
|
{
|
|
if( _pcount() > 0 )
|
|
{
|
|
_retnd( cos( _parnd(1) ) );
|
|
}
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
|
|
HARBOUR HB_COSH( void )
|
|
{
|
|
if( _pcount() > 0 )
|
|
{
|
|
_retnd( cosh( _parnd(1) ) );
|
|
}
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
|
|
HARBOUR HB_LOG10( void )
|
|
{
|
|
if( _pcount() > 0 )
|
|
{
|
|
_retnd( log10( _parnd(1) ) );
|
|
}
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
|
|
HARBOUR HB_SIN( void )
|
|
{
|
|
if( _pcount() > 0 )
|
|
{
|
|
_retnd( sin( _parnd(1) ) );
|
|
}
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
|
|
HARBOUR HB_SINH( void )
|
|
{
|
|
if( _pcount() > 0 )
|
|
{
|
|
_retnd( sinh( _parnd(1) ) );
|
|
}
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
|
|
HARBOUR HB_TAN( void )
|
|
{
|
|
if( _pcount() > 0 )
|
|
{
|
|
_retnd( tan( _parnd(1) ) );
|
|
}
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
|
|
HARBOUR HB_TANH( void )
|
|
{
|
|
if( _pcount() > 0 )
|
|
{
|
|
_retnd( tanh( _parnd(1) ) );
|
|
}
|
|
else
|
|
/* TODO: Error or return NAN */
|
|
_retnd(0);
|
|
}
|
|
|