weierstrass-functions 0.1.3.0 → 0.1.3.1

raw patch · 3 files changed

+8/−2 lines, 3 files

Files

CHANGELOG.md +5/−0
src/Math/Eisenstein.hs +2/−1
weierstrass-functions.cabal +1/−1

CHANGELOG.md view

@@ -1,5 +1,10 @@ # Changelog for `weierstrass-functions`
 
+## 0.1.3.1 - 2023-09-12
+
+Changed `kleinJ` to avoid possible float overflows.
+
+
 ## 0.1.3.0 - 2023-08-24
 
 Fixed some mistakes.

src/Math/Eisenstein.hs view

@@ -99,7 +99,8 @@   lbd = lambda tau
   x = lbd * (1 - lbd)
   in
-  256 * ((1 - x) %^% 3) / (x %^% 2)
+  -- 256 * ((1 - x) %^% 3) / (x %^% 2)
+  256 * ((1/x - 1) %^% 2) * (1 - x)
   --eisensteinE4 tau %^% 3 / modularDiscriminant tau
 
 -- | Arithmetic-geometric mean

weierstrass-functions.cabal view

@@ -1,5 +1,5 @@ name:                weierstrass-functions
-version:             0.1.3.0
+version:             0.1.3.1
 synopsis:            Weierstrass Elliptic Functions
 description:         Evaluation of Weierstrass elliptic functions and some related functions.
 homepage:            https://github.com/stla/weierstrass-functions#readme