weierstrass-functions 0.1.4.0 → 0.1.5.0

raw patch · 5 files changed

+35/−11 lines, 5 filesdep ~jacobi-thetaPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: jacobi-theta

API changes (from Hackage documentation)

Files

• CHANGELOG.md +6/−0
• src/Math/Eisenstein.hs +12/−4
• src/Math/Weierstrass.hs +13/−3
• tests/Main.hs +2/−2
• weierstrass-functions.cabal +2/−2

@@ -1,5 +1,11 @@ # Changelog for `weierstrass-functions`
 
+## 0.1.5.0 - 2023-10-18
+
+Increased the lower bound of the version of the 'jacobi-theta' dependency, 
+in order to use the new function `jtheta1Dash0`.
+
+
 ## 0.1.4.0 - 2023-10-16
 
 Increased the lower bound of the version of the 'jacobi-theta' dependency.

@@ -1,3 +1,12 @@+{-|
+Module      : Math.Eisenstein
+Description : Some modular functions.
+Copyright   : (c) Stéphane Laurent, 2023
+License     : BSD3
+Maintainer  : laurent_step@outlook.fr
+
+Provides some modular functions and related functions.
+-}
 module Math.Eisenstein
     ( lambda,
       eisensteinE2,
@@ -8,13 +17,12 @@       modularDiscriminant,
       agm,
       etaDedekind,
-      jtheta1DashDashDash0,
-      jtheta1Dash
+      jtheta1DashDashDash0
     ) where
 import           Data.Complex           ( Complex(..) )
 import           Internal               ( (%^%) )
 import           Math.EllipticIntegrals ( ellipticF', ellipticE' )
-import           Math.JacobiTheta       ( jtheta2, jtheta3, jtheta4, jtheta1Dash )
+import           Math.JacobiTheta       ( jtheta2, jtheta3, jtheta4, jtheta1Dash0 )
 
 
 i_ :: Complex Double
@@ -143,7 +151,7 @@ jtheta1DashDashDash0 :: 
     Complex Double -- ^ tau
  -> Complex Double
-jtheta1DashDashDash0 tau = - jtheta1Dash 0 q * eisensteinE2 tau 
+jtheta1DashDashDash0 tau = - jtheta1Dash0 q * eisensteinE2 tau 
   where
     q = exp (i_ * pi * tau)
 

@@ -1,3 +1,12 @@+{-|
+Module      : Math.Eisenstein
+Description : Some Weierstrass functions.
+Copyright   : (c) Stéphane Laurent, 2023
+License     : BSD3
+Maintainer  : laurent_step@outlook.fr
+
+Provides some Weierstrass functions and related functions.
+-}
 module Math.Weierstrass
     ( halfPeriods,
       ellipticInvariants,
@@ -17,6 +26,7 @@                                           jtheta3, 
                                           jtheta1, 
                                           jtheta4,
+                                          jtheta1Dash0,
                                           jtheta1Dash )
 import           Math.Gamma             ( gamma )
 import           Math.EllipticIntegrals ( carlsonRF' )
@@ -136,7 +146,7 @@     j2 = jtheta2 z' q
     j3 = jtheta3 z' q
     j4 = jtheta4 z' q
-    j1dash = jtheta1Dash 0 q
+    j1dash = jtheta1Dash0 q
     j2zero = jtheta2 0 q
     j3zero = jtheta3 0 q
     j4zero = jtheta4 0 q
@@ -169,7 +179,7 @@     w1 = -2 * omega1 / pi
     z1 = z / w1
     j1 = jtheta1 z1 q
-    j1dash = jtheta1Dash 0 q
+    j1dash = jtheta1Dash0 q
     h = - pi / (6 * w1) * jtheta1DashDashDash0 tau / j1dash
 
 -- | Weierstrass zeta function
@@ -185,7 +195,7 @@     q = exp (i_ * pi * tau)
     w1 = - omega1 / pi
     p = 0.5 / w1
-    j1dash = jtheta1Dash 0 q
+    j1dash = jtheta1Dash0 q
     eta1 = p * jtheta1DashDashDash0 tau / (6 * w1 * j1dash)
     pz = p * z
     lj1dash = jtheta1Dash pz q / jtheta1 pz q

@@ -110,8 +110,8 @@ 
     testCase "Differential equation" $ do
       let z = 1 :+ 1
-          g2 = 2 :+ 1
-          g3 = 2 :+ (-1)
+          g2 = 5 :+ 3
+          g3 = 2 :+ 7
           w = weierstrassP z g2 g3
           wdash = weierstrassPdash z g2 g3
           left = wdash ** 2

@@ -1,5 +1,5 @@ name:                weierstrass-functions
-version:             0.1.4.0
+version:             0.1.5.0
 synopsis:            Weierstrass Elliptic Functions
 description:         Evaluation of Weierstrass elliptic functions and some related functions.
 homepage:            https://github.com/stla/weierstrass-functions#readme
@@ -20,7 +20,7 @@                      , Math.Weierstrass
   other-modules:       Internal
   build-depends:       base >= 4.7 && < 5
-                     , jacobi-theta >= 0.2.0.0
+                     , jacobi-theta >= 0.2.1.1
                      , elliptic-integrals >= 0.1.0.0
                      , gamma >= 0.10.0.0
   default-language:    Haskell2010