d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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 c9f8962fc8
commit 7b1eae1d37
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;