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 vercos(), avercos(), covercos(), acovercos()

Browse Source 
Improved trig help files.

Added new vercos(x, [,eps]) for versed cosine and covercos(x, [,eps])
for inverse versed cosine.

Added new avercos(x, [,eps]) for inverse versed cosine and acovercos(x, [,eps])
for inverse coversed cosine.
This commit is contained in:
Landon Curt Noll
2023-09-06 00:52:37 -07:00
parent ea5b5e0b53
commit fdbf53d7e8
28 changed files with 1218 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

105
cal/regress.cal
View File

@@ -3506,9 +3506,9 @@ define test_trig()
/* test 3401-3407 */
tnum = test3400(1, 3401);
vrfy(tnum++ == 3407, '3407: tnum == 3407');
pi = pi(1e-20);
/* test versed trigonometric sine */
pi = pi(1e-20);
vrfy(round(versin(0.2, 1e-10), 10) == 0.0199334222,
strcat(str(tnum++),
': round(versin(0.2, 1e-10), 10) == 0.0199334222'));
@@ -3533,8 +3533,20 @@ define test_trig()
strcat(str(tnum++),
': round(versin(2 + 3i, 1e-10), 10) == 5.189625691+9.1092278938i'));
/* test inverse versed trigonometric sine */
vrfy(round(aversin(0.5, 1e-10), 10) == 1.0471975512,
strcat(str(tnum++),
': round(aversin(0.5, 1e-10), 10) == 1.0471975512'));
vrfy(aversin(0) == 0,
strcat(str(tnum++), ': aversin(0) == 0'));
vrfy(round(aversin(-5, 1e-10), 10) == 2.4778887303i,
strcat(str(tnum++),
': round(aversin(-5, 1e-10), 10) == 2.4778887303i'));
vrfy(round(aversin(2 + 3i, 1e-10), 10) == 1.8783999763+1.8641615439i,
strcat(str(tnum++),
': round(aversin(2 + 3i, 1e-10), 10) == 1.8783999763+1.8641615439i'));
/* test coversed trigonometric sine */
pi = pi(1e-20);
vrfy(round(coversin(0.2, 1e-10), 10) == 0.8013306692,
strcat(str(tnum++),
': round(coversin(0.2, 1e-10), 10) == 0.8013306692'));
@@ -3559,19 +3571,6 @@ define test_trig()
strcat(str(tnum++),
': round(coversin(2 + 3i, 1e-10), 10) == -8.1544991469+4.16890696i'));
/* test inverse versed trigonometric sine */
vrfy(round(aversin(0.5, 1e-10), 10) == 1.0471975512,
strcat(str(tnum++),
': round(aversin(0.5, 1e-10), 10) == 1.0471975512'));
vrfy(aversin(0) == 0,
strcat(str(tnum++), ': aversin(0) == 0'));
vrfy(round(aversin(-5, 1e-10), 10) == 2.4778887303i,
strcat(str(tnum++),
': round(aversin(-5, 1e-10), 10) == 2.4778887303i'));
vrfy(round(aversin(2 + 3i, 1e-10), 10) == 1.8783999763+1.8641615439i,
strcat(str(tnum++),
': round(aversin(2 + 3i, 1e-10), 10) == 1.8783999763+1.8641615439i'));
/* test inverse coversed trigonometric sine */
vrfy(round(acoversin(0.5, 1e-10), 10) == 0.5235987756,
strcat(str(tnum++),
@@ -3585,6 +3584,82 @@ define test_trig()
strcat(str(tnum++),
': round(acoversin(2 + 3i, 1e-10), 10) == -0.3076036495-1.8641615442i'));
/* test versed trigonometric cosine */
vrfy(round(vercos(0.2, 1e-10), 10) == 1.9800665778,
strcat(str(tnum++),
': round(vercos(0.2, 1e-10), 10) == 1.9800665778'));
vrfy(round(vercos(3/7, 1e-10), 10) == 1.9095603517,
strcat(str(tnum++),
': round(vercos(3/7, 1e-10), 10) == 1.9095603517'));
vrfy(round(vercos(-31, 1e-10), 10) == 1.9147423578,
strcat(str(tnum++),
': round(vercos(-31, 1e-10), 10) == 1.9147423578'));
vrfy(vercos(pi/3, 1e-10) == 1.5,
strcat(str(tnum++), ': vercos(pi/3, 1e-10) == 1.5'));
vrfy(vercos(pi/2, 1e-10) == 1,
strcat(str(tnum++), ': vercos(pi/2, 1e-10) == 1'));
vrfy(vercos(pi, 1e-10) == 0,
strcat(str(tnum++), ': vercos(pi, 1e-10) == 0'));
vrfy(vercos(3*pi/2, 1e-10) == 1,
strcat(str(tnum++), ': vercos(3*pi/2, 1e-10) == 1'));
vrfy(round(vercos(1, 1e-10), 10) == 1.5403023059,
strcat(str(tnum++),
': round(vercos(1, 1e-10), 10) == 1.5403023059'));
vrfy(round(vercos(2 + 3i, 1e-10), 10) == -3.189625691-9.1092278938i,
strcat(str(tnum++),
': round(vercos(2 + 3i, 1e-10), 10) == -3.189625691-9.1092278938i'));
/* test inverse versed trigonometric cosine */
vrfy(round(avercos(0.5, 1e-10), 10) == 2.0943951024,
strcat(str(tnum++),
': round(avercos(0.5, 1e-10), 10) == 2.0943951024'));
vrfy(avercos(2) == 0,
strcat(str(tnum++), ': avercos(2) == 0'));
vrfy(round(avercos(-5, 1e-10), 10) == 3.1415926536-2.4778887303i,
strcat(str(tnum++),
': round(avercos(-5, 1e-10), 10) == 3.1415926536-2.4778887303i'));
vrfy(round(avercos(2 + 3i, 1e-10), 10) == 1.2631926773-1.8641615442i,
strcat(str(tnum++),
': round(avercos(2 + 3i, 1e-10), 10) == 1.2631926773-1.8641615442i'));
/* test coversed trigonometric cosine */
vrfy(round(covercos(0.2, 1e-10), 10) == 1.1986693308,
strcat(str(tnum++),
': round(covercos(0.2, 1e-10), 10) == 1.1986693308'));
vrfy(round(covercos(3/7, 1e-10), 10) == 1.415571855,
strcat(str(tnum++),
': round(covercos(3/7, 1e-10), 10) == 1.415571855'));
vrfy(round(covercos(-31, 1e-10), 10) == 1.4040376453,
strcat(str(tnum++),
': round(covercos(-31, 1e-10), 10) == 1.4040376453'));
vrfy(covercos(pi/6, 1e-10) == 1.5,
strcat(str(tnum++), ': covercos(pi/6, 1e-10) == 1.5'));
vrfy(covercos(pi/2, 1e-10) == 2,
strcat(str(tnum++), ': covercos(pi/2, 1e-10) == 2'));
vrfy(covercos(pi, 1e-10) == 1,
strcat(str(tnum++), ': covercos(pi, 1e-10) == 1'));
vrfy(covercos(3*pi/2, 1e-10) == 0,
strcat(str(tnum++), ': covercos(3*pi/2, 1e-10) == 0'));
vrfy(round(covercos(1, 1e-10), 10) == 1.8414709848,
strcat(str(tnum++),
': round(covercos(1, 1e-10), 10) == 1.8414709848'));
vrfy(round(covercos(2 + 3i, 1e-10), 10) == 10.1544991469-4.16890696i,
strcat(str(tnum++),
': round(covercos(2 + 3i, 1e-10), 10) == 10.1544991469-4.16890696i'));
/* test inverse coversed trigonometric cosine */
vrfy(round(acovercos(0.5, 1e-10), 10) == 0.5235987756,
strcat(str(tnum++),
': round(acovercos(0.5, 1e-10), 10) == 0.5235987756'));
vrfy(acovercos(1) == 0,
strcat(str(tnum++), ': acovercos(1) == 0'));
vrfy(round(acovercos(-5, 1e-10), 10) == -1.5707963268+2.4778887303i,
strcat(str(tnum++),
': round(acovercos(-5, 1e-10), 10) == -1.5707963268+2.4778887303i'));
vrfy(round(acovercos(2 + 3i, 1e-10), 10) == 0.3076036495+1.8641615442i,
strcat(str(tnum++),
': round(acovercos(2 + 3i, 1e-10), 10) == 0.3076036495+1.8641615442i'));
print strcat(str(tnum++), ': Ending test_trig');
}
print '051: parsed test_trig()';