mirrors/pocketlang
1
0
Fork 0
mirror of https://github.com/zekexiao/pocketlang.git synced 2025-02-11 07:00:58 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge pull request #58 from xSavitar/cos-and-tan

Browse Source 
Fix #56: Implement the `cos()` and `tan()` math functions
This commit is contained in:
Thakee Nathees 2021-06-11 23:00:02 +05:30 committed by GitHub
commit 473daa4716
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 46 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/pk_core.c
View File

@ -880,6 +880,26 @@ static void stdMathSine(PKVM* vm)) {
RET(VAR_NUM(sin(rad)));
}
PK_DOC(
"cosine(rad:num) -> num\n"
"Return the cosine value of the argument [rad] which is an angle expressed "
"in radians.",
static void stdMathCosine(PKVM* vm)) {
double rad;
if (!validateNumeric(vm, ARG(1), &rad, "Argument 1")) return;
RET(VAR_NUM(cos(rad)));
}
PK_DOC(
"tan(rad:num) -> num\n"
"Return the tangent value of the argument [rad] which is an angle expressed "
"in radians.",
static void stdMathTangent(PKVM* vm)) {
double rad;
if (!validateNumeric(vm, ARG(1), &rad, "Argument 1")) return;
RET(VAR_NUM(tan(rad)));
}
/*****************************************************************************/
/* CORE INITIALIZATION */
/*****************************************************************************/
@ -956,16 +976,18 @@ void initializeCore(PKVM* vm) {
#endif
Script* math = newModuleInternal(vm, "math");
moduleAddFunctionInternal(vm, math, "floor", stdMathFloor, 1);
moduleAddFunctionInternal(vm, math, "ceil", stdMathCeil, 1);
moduleAddFunctionInternal(vm, math, "pow", stdMathPow, 2);
moduleAddFunctionInternal(vm, math, "sqrt", stdMathSqrt, 1);
moduleAddFunctionInternal(vm, math, "abs", stdMathAbs, 1);
moduleAddFunctionInternal(vm, math, "sign", stdMathSign, 1);
moduleAddFunctionInternal(vm, math, "hash", stdMathHash, 1);
moduleAddFunctionInternal(vm, math, "sin", stdMathSine, 1);
// TODO: add - cos, tan.
// low priority: sinh, cosh, tanh, asin, acos, atan.
moduleAddFunctionInternal(vm, math, "floor", stdMathFloor, 1);
moduleAddFunctionInternal(vm, math, "ceil", stdMathCeil, 1);
moduleAddFunctionInternal(vm, math, "pow", stdMathPow, 2);
moduleAddFunctionInternal(vm, math, "sqrt", stdMathSqrt, 1);
moduleAddFunctionInternal(vm, math, "abs", stdMathAbs, 1);
moduleAddFunctionInternal(vm, math, "sign", stdMathSign, 1);
moduleAddFunctionInternal(vm, math, "hash", stdMathHash, 1);
moduleAddFunctionInternal(vm, math, "sin", stdMathSine, 1);
moduleAddFunctionInternal(vm, math, "cos", stdMathCosine, 1);
moduleAddFunctionInternal(vm, math, "tan", stdMathTangent, 1);
// TODO: low priority - sinh, cosh, tanh, asin, acos, atan.
// Note that currently it's mutable (since it's a global variable, not
// constant and pocketlang doesn't support constant) so the user shouldn't

15
tests/lang/core.pk
View File

@ -1,4 +1,3 @@
## Core builtin functions and attribute tests.
assert(hex(12648430) == '0xc0ffee')
@ -30,3 +29,17 @@ def fn(p1, p2, p3) end
assert(fn.name == "fn")
assert(fn.arity == 3)
## Math functions
from math import PI, sin, cos, tan, abs
assert(sin(0) == 0)
assert(sin(PI/2) == 1)
threshold = 0.0000000000001
assert(abs(cos(PI/3) - 0.5) < threshold )
assert(abs(tan(PI/4) - 1.0) < threshold )
for i in 0..1000
assert(abs(sin(i) / cos(i) - tan(i)) < threshold)
end