Skip to content

Commit

Permalink
fix typos in aanl.lib
Browse files Browse the repository at this point in the history
  • Loading branch information
dariosanfilippo authored and sletz committed Apr 14, 2021
1 parent a1f2eac commit be58ded
Showing 1 changed file with 12 additions and 13 deletions.
25 changes: 12 additions & 13 deletions aanl.lib
Original file line number Diff line number Diff line change
Expand Up @@ -322,11 +322,11 @@ declare hyperbolic copyright "Copyright (C) 2021 Dario Sanfilippo
  <[email protected]>";
declare hyperbolic license "LGPL v3.0 license";
hyperbolic(x) = ADAA1(EPS, f, F1, x)
with {
EPS = 1.0 / ma.SR;
     f(x_f) = x_f / (1.0 + abs(x_f));
     F1(x_F1) = abs(x_F1) - log(1.0 + abs(x_F1));
  };
with {
EPS = 1.0 / ma.SR;
f(x_f) = x_f / (1.0 + abs(x_f));
F1(x_F1) = abs(x_F1) - log(1.0 + abs(x_F1));
};
// -----------------------------------------------------------------------------

// ---------- (aa.)hyperbolic2; ------------------------------------------------
Expand All @@ -344,14 +344,13 @@ declare hyperbolic2 copyright "Copyright (C) 2021 Dario Sanfilippo
  <[email protected]>";
declare hyperbolic2 license "LGPL v3.0 license";
hyperbolic2(x) = ADAA2(EPS, f, F1, F2, x)
  with {
EPS = 1.0 / ma.SR;
     f(x_f) = x_f / (1.0 + abs(x_f));
     F1(x_F1) = abs(x_F1) - log(1.0 + abs(x_F1));
     F2(x_F2) = ma.signum(x_F2) * (.5 * (3.0 - 2.0 * abs(x_F2) +
       x_F2 ^ 2.0 + 2.0 * log(1.0 + abs(x_F2))) - 3.0 / 2.0) +
3.0 / 2.0;
   };
with {
EPS = 1.0 / ma.SR;
f(x_f) = x_f / (1.0 + abs(x_f));
F1(x_F1) = abs(x_F1) - log(1.0 + abs(x_F1));
F2(x_F2) = ma.signum(x_F2) * (.5 * (3.0 - 2.0 * abs(x_F2) + x_F2 ^ 2.0 +
2.0 * log(1.0 + abs(x_F2))) - 3.0 / 2.0) + 3.0 / 2.0;
};
// -----------------------------------------------------------------------------

// ---------- (aa.)sinarctan; --------------------------------------------------
Expand Down

0 comments on commit be58ded

Please sign in to comment.