mirror of
https://github.com/louisrubet/rpn
synced 2025-02-06 08:46:31 +01:00
65 lines
1.3 KiB
C
65 lines
1.3 KiB
C
|
#define _USE_MATH_DEFINES
|
||
|
|
#include <math.h>
|
||
|
|
|
||
|
|
//
|
||
|
|
void pi(void)
|
||
|
|
{
|
||
|
|
putf(M_PI);
|
||
|
|
}
|
||
|
|
|
||
|
|
void d2r(void)
|
||
|
|
{
|
||
|
|
MIN_ARGUMENTS(1);
|
||
|
|
ARG_IS_OF_TYPE(0, cmd_number);
|
||
|
|
((number*)_stack->get_obj(0))->_value *= M_PI / 360;
|
||
|
|
}
|
||
|
|
|
||
|
|
void r2d(void)
|
||
|
|
{
|
||
|
|
MIN_ARGUMENTS(1);
|
||
|
|
ARG_IS_OF_TYPE(0, cmd_number);
|
||
|
|
((number*)_stack->get_obj(0))->_value *= 360 / M_PI;
|
||
|
|
}
|
||
|
|
|
||
|
|
void rpn_sin(void)
|
||
|
|
{
|
||
|
|
MIN_ARGUMENTS(1);
|
||
|
|
ARG_IS_OF_TYPE(0, cmd_number);
|
||
|
|
((number*)_stack->get_obj(0))->_value = sin(((number*)_stack->get_obj(0))->_value);
|
||
|
|
}
|
||
|
|
|
||
|
|
void rpn_asin(void)
|
||
|
|
{
|
||
|
|
MIN_ARGUMENTS(1);
|
||
|
|
ARG_IS_OF_TYPE(0, cmd_number);
|
||
|
|
((number*)_stack->get_obj(0))->_value = asin(((number*)_stack->get_obj(0))->_value);
|
||
|
|
}
|
||
|
|
|
||
|
|
void rpn_cos(void)
|
||
|
|
{
|
||
|
|
MIN_ARGUMENTS(1);
|
||
|
|
ARG_IS_OF_TYPE(0, cmd_number);
|
||
|
|
((number*)_stack->get_obj(0))->_value = cos(((number*)_stack->get_obj(0))->_value);
|
||
|
|
}
|
||
|
|
|
||
|
|
void rpn_acos(void)
|
||
|
|
{
|
||
|
|
MIN_ARGUMENTS(1);
|
||
|
|
ARG_IS_OF_TYPE(0, cmd_number);
|
||
|
|
((number*)_stack->get_obj(0))->_value = acos(((number*)_stack->get_obj(0))->_value);
|
||
|
|
}
|
||
|
|
|
||
|
|
void rpn_tan(void)
|
||
|
|
{
|
||
|
|
MIN_ARGUMENTS(1);
|
||
|
|
ARG_IS_OF_TYPE(0, cmd_number);
|
||
|
|
((number*)_stack->get_obj(0))->_value = tan(((number*)_stack->get_obj(0))->_value);
|
||
|
|
}
|
||
|
|
|
||
|
|
void rpn_atan(void)
|
||
|
|
{
|
||
|
|
MIN_ARGUMENTS(1);
|
||
|
|
ARG_IS_OF_TYPE(0, cmd_number);
|
||
|
|
((number*)_stack->get_obj(0))->_value = atan(((number*)_stack->get_obj(0))->_value);
|
||
|
|
}
|