drygdryg/calc
1
0
Fork 0
mirror of https://github.com/lcn2/calc.git synced 2025-08-16 01:03:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

add new versin and vercos builtin functions

Browse Source 
Added new versin(x, [,eps]) for versed sine and vercos(x, [,eps])
for versed cosine.

Updated trig help files.
This commit is contained in:
Landon Curt Noll
2023-09-01 17:38:14 -07:00
parent 1c839dfede
commit b0a48a2b70
18 changed files with 493 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
qfunc.c
View File

@@ -45,7 +45,7 @@ STATIC long E_num;
/*
* verify_epsilon - verify that 0 < epsilon < 1
* check_epsilon - verify that 0 < epsilon < 1
*
* given:
* q epsilon or eps argument
@@ -65,27 +65,6 @@ check_epsilon(NUMBER *q)
}
/*
* verify_epsilon - verify that 0 < epsilon < 1
*
* This function is called via the OP_SETEPSILON op code, config("epsilon").
*
* If all is well, this function just returns. If the arg passed is
* out of range, then a math_error() is triggered causing this function
* to not return.
*/
void
verify_epsilon(NUMBER *q)
{
/* verify that 0 < epsilon < 1 */
if (check_epsilon(q) == false) {
math_error("Invalid value for epsilon: must be: 0 < epsilon < 1");
not_reached();
}
return;
}
/*
* Set the default epsilon for approximate calculations.
* This must be greater than zero.
@@ -98,7 +77,18 @@ setepsilon(NUMBER *q)
{
NUMBER *old;
verify_epsilon(q);
/*
* firewall
*/
if (q == NULL) {
math_error("q is NULL for %s", __func__);
not_reached();
}
if (check_epsilon(q) == false) {
math_error("Invalid value for epsilon: must be: 0 < epsilon < 1");
not_reached();
}
old = conf->epsilon;
conf->epsilonprec = qprecision(q);
conf->epsilon = qlink(q);
@@ -321,7 +311,7 @@ qlegtoleg(NUMBER *q, NUMBER *epsilon, bool wantneg)
ZVALUE num;
if (qiszero(epsilon)) {
math_error("Zero epsilon value for legtoleg");
math_error("Zero epsilon value for ltol");
not_reached();
}
if (qisunit(q))
@@ -334,7 +324,7 @@ qlegtoleg(NUMBER *q, NUMBER *epsilon, bool wantneg)
num = q->num;
num.sign = 0;
if (zrel(num, q->den) >= 0) {
math_error("Leg too large in legtoleg");
math_error("Leg too large for ltol");
not_reached();
}
qtmp1 = qsquare(q);
@@ -369,7 +359,7 @@ qsqrt(NUMBER *q1, NUMBER *epsilon, long rnd)
int sign;
if (qisneg(q1)) {
math_error("Square root of negative number");
math_error("Square root of negative number for qsqrt");
not_reached();
}
if (qiszero(q1))
@@ -475,7 +465,7 @@ qisqrt(NUMBER *q)
ZVALUE tmp;
if (qisneg(q)) {
math_error("Square root of negative number");
math_error("Square root of negative number for isqrt");
not_reached();
}
if (qiszero(q))
@@ -1910,15 +1900,15 @@ qispowerof2(NUMBER *q, NUMBER **qlog2)
/* firewall */
if (q == NULL) {
math_error("%s: q NULL", __func__);
math_error("%s: q is NULL", __func__);
not_reached();
}
if (qlog2 == NULL) {
math_error("%s: qlog2 NULL", __func__);
math_error("%s: qlog2 is NULL", __func__);
not_reached();
}
if (*qlog2 == NULL) {
math_error("%s: *qlog2 NULL", __func__);
math_error("%s: *qlog2 is NULL", __func__);
not_reached();
}