From e84db975252630f8b2dcf2adb41ed21cf11039c7 Mon Sep 17 00:00:00 2001
From: Lukas Balog <lukasbalog66@gmail.com>
Date: Wed, 8 Apr 2026 18:34:49 +0200
Subject: [PATCH] fixed bug

---
 src/Fuzzy/Sets/MembershipFunctions.hs | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/src/Fuzzy/Sets/MembershipFunctions.hs b/src/Fuzzy/Sets/MembershipFunctions.hs
index 06e1739..02abb62 100644
--- a/src/Fuzzy/Sets/MembershipFunctions.hs
+++ b/src/Fuzzy/Sets/MembershipFunctions.hs
@@ -218,13 +218,9 @@ trapezoidal a b1 b2 c x
 >>> f 2
 0.1353352832366127
 -}
-gaussian :: ResiduatedLattice l => Double -> Double -> Double -> (Double -> l)
-gaussian a b c x =
-    let e     = exp 1
-        numer = (x + b) ** 2
-        denom = 2 * (c ** 2)
-        pow   = -(numer / denom)
-    in mkLattice $ a * e**pow
+gaussian :: ResiduatedLattice l => Double -> Double -> Double -> Double -> l 
+gaussian a b c x = 
+    mkLattice $ a * exp ( - ((x - b) ^ 2) / (2 * c ^ 2) )
 
 
 {-| Exponential function eˣ