packages feed

jacobi-elliptic 0.1.2.0 → 0.1.3.0

raw patch · 5 files changed

+29/−6 lines, 5 filesdep ~jacobi-thetaPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: jacobi-theta

API changes (from Hackage documentation)

Files

CHANGELOG.md view
@@ -1,5 +1,10 @@ # Changelog for `jacobi-elliptic`
 
+## 0.1.3.0 - 2023-10-18
+
+Increased lower bound of the version of 'jacobi-theta' dependency.
+
+
 ## 0.1.2.0 - 2023-10-16
 
 Increased lower bound of the version of 'jacobi-theta' dependency.
jacobi-elliptic.cabal view
@@ -1,5 +1,5 @@ name:                jacobi-elliptic
-version:             0.1.2.0
+version:             0.1.3.0
 synopsis:            Neville Theta Functions and Jacobi Elliptic Functions
 description:         Evaluation of the Neville theta functions and the Jacobi elliptic functions.
 homepage:            https://github.com/stla/jacobi-elliptic#readme
@@ -19,7 +19,7 @@   exposed-modules:     Math.NevilleTheta
                      , Math.JacobiElliptic
   build-depends:       base >= 4.7 && < 5
-                     , jacobi-theta >= 0.2.0.0
+                     , jacobi-theta >= 0.2.1.1
                      , elliptic-integrals >= 0.1.0.0
   default-language:    Haskell2010
   ghc-options:         -Wall
src/Math/JacobiElliptic.hs view
@@ -1,3 +1,12 @@+{-|
+Module      : Math.JacobiElliptic
+Description : Jacobi elliptic functions.
+Copyright   : (c) Stéphane Laurent, 2023
+License     : BSD3
+Maintainer  : laurent_step@outlook.fr
+
+Provides the Jacobi elliptic functions and the amplitude function.
+-}
 module Math.JacobiElliptic
     ( jellip,
       jellip',
src/Math/NevilleTheta.hs view
@@ -1,3 +1,12 @@+{-|
+Module      : Math.NevilleTheta
+Description : Neville theta functions.
+Copyright   : (c) Stéphane Laurent, 2023
+License     : BSD3
+Maintainer  : laurent_step@outlook.fr
+
+Provides the theta Neville functions.
+-}
 module Math.NevilleTheta
     ( theta_c, 
       theta_d,
@@ -11,7 +20,7 @@ import Data.Complex           ( Complex(..) )
 import Math.EllipticIntegrals ( ellipticF )
 import Math.JacobiTheta
-    ( jtheta1, jtheta1Dash, jtheta2, jtheta3, jtheta4 )
+    ( jtheta1, jtheta1Dash0, jtheta2, jtheta3, jtheta4 )
 
 
 i_ :: Complex Double
@@ -62,7 +71,7 @@   -> Complex Double -- ^ q, the nome
   -> Complex Double
 theta_s z q = 
-  j3sq * jtheta1 z' q / jtheta1Dash 0 q
+  j3sq * jtheta1 z' q / jtheta1Dash0 q
   where
     j3 = jtheta3 0 q
     j3sq = j3 * j3
tests/Main.hs view
@@ -139,8 +139,8 @@ 
     testCase "amplitude function" $ do
       let phi = 1 :+ 1
-          ell = ellipticF phi 2
-          obtained = am ell 2
+          ell = ellipticF phi 0.2
+          obtained = am ell 0.2
       assertApproxEqual "" 14 obtained phi
 
   ]