static void math_atan (void) { double d; lua_Object o = lua_getparam (1); if (o == NULL) { lua_error ("too few arguments to function `atan'"); return; } if (!lua_isnumber(o)) { lua_error ("incorrect arguments to function `atan'"); return; } d = lua_getnumber(o); lua_pushnumber (TODEGREE(atan(d))); }
static void math_atan (void) { double d = lua_check_number(1, "atan"); lua_pushnumber (TODEGREE(atan(d))); }
static void math_atan2 (void) { double d1 = lua_check_number(1, "atan2"); double d2 = lua_check_number(2, "atan2"); lua_pushnumber (TODEGREE(atan2(d1, d2))); }
static void math_acos (void) { double d = lua_check_number(1, "acos"); lua_pushnumber (TODEGREE(acos(d))); }