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 cas and cis trigonometric functions

Browse Source 
Added the following new trigonometric functions:

    cas(x [,eps])		trigonometric cosine plus sine
    cis(x [,eps])		Euler's formula
This commit is contained in:
Landon Curt Noll
2023-10-03 01:41:42 -07:00
parent 26fc394089
commit 2c4abcd2b7
48 changed files with 770 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

109
comfunc.c
View File

@@ -2719,3 +2719,112 @@ c_acrd(COMPLEX *c, NUMBER *epsilon)
*/
return r;
}
/*
* c_cas - COMPLEX valued cosine plus sine
*
* This uses the formula:
*
* cas(x) = cos(x) + sin(x)
*
* given:
* c complex value to pass to the trig function
* epsilon error tolerance / precision for trig calculation
*
* returns:
* complex value result of trig function on q with error epsilon
*/
COMPLEX *
c_cas(COMPLEX *c, NUMBER *epsilon)
{
COMPLEX *r; /* return COMPLEX value */
COMPLEX *csin; /* complex sin(c) */
COMPLEX *ccos; /* complex cos(c) */
/*
* firewall
*/
if (c == NULL) {
math_error("%s: c is NULL", __func__);
not_reached();
}
if (check_epsilon(epsilon) == false) {
math_error("Invalid epsilon arg for %s", __func__);
not_reached();
}
/*
* calculate complex trig function value
*/
csin = c_sin(c, epsilon);
if (csin == NULL) {
math_error("Failed to compute complex sine for complex cas");
not_reached();
}
ccos = c_cos(c, epsilon);
if (ccos == NULL) {
comfree(csin);
math_error("Failed to compute complex cosine for complex cas");
not_reached();
}
r = c_add(csin, ccos);
comfree(csin);
comfree(ccos);
/*
* return trigonometric result
*/
return r;
}
/*
* c_cis - COMPLEX valued Euler's formula
*
* This uses the formula:
*
* cis(x) = cos(x) + 1i*sin(x)
* cis(x) = exp(1i * x)
*
* given:
* c complex value to pass to the trig function
* epsilon error tolerance / precision for trig calculation
*
* returns:
* complex value result of trig function on q with error epsilon
*/
COMPLEX *
c_cis(COMPLEX *c, NUMBER *epsilon)
{
COMPLEX *r; /* return COMPLEX value */
COMPLEX *ctmp; /* 1i * c */
/*
* firewall
*/
if (c == NULL) {
math_error("%s: c is NULL", __func__);
not_reached();
}
if (check_epsilon(epsilon) == false) {
math_error("Invalid epsilon arg for %s", __func__);
not_reached();
}
/*
* calculate complex trig function value
*/
ctmp = c_mul(c, &_conei_);
r = c_exp(ctmp, epsilon);
comfree(ctmp);
if (r == NULL) {
math_error("Failed to compute complex exp for complex cis");
not_reached();
}
/*
* return trigonometric result
*/
return r;
}