godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed: call to atan changed into call to _atn

Browse Source
This commit is contained in:
ceriel 1988-07-25 11:41:19 +00:00
parent 9d607caeca
commit 92ee34c7df
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lang/basic/lib/atn.c
View File

@ -92,7 +92,7 @@ _atn(x)
while (x > pr->X) pr++; while (x > pr->X) pr++;
if (pr != prec) { if (pr != prec) {
x = pr->arctan + x = pr->arctan +
atan(pr->one_o_x - pr->one_o_xsq_p_1/(pr->one_o_x + x)); _atn(pr->one_o_x - pr->one_o_xsq_p_1/(pr->one_o_x + x));
} }
else { else {
double xsq = x*x; double xsq = x*x;