From 4d573fa32997a8e4824bf8326fb675d0c195b1ac Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 10 Nov 2024 22:39:05 +0100
Subject: Fix forward derivative of 'exp'
---
src/ForwardAD/DualNumbers.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'src')
diff --git a/src/ForwardAD/DualNumbers.hs b/src/ForwardAD/DualNumbers.hs
index 0a08926..e8b140e 100644
--- a/src/ForwardAD/DualNumbers.hs
+++ b/src/ForwardAD/DualNumbers.hs
@@ -79,7 +79,7 @@ dop = \case
EPair ext (recip' t x)
(mul t (neg t (recip' t (mul t x x))) dx))
OExp t -> floatingDual t $ unFloat (\(x, dx) ->
- EPair ext (EOp ext (OExp t) x) (EOp ext (OExp t) dx))
+ EPair ext (EOp ext (OExp t) x) (mul t (EOp ext (OExp t) x) dx))
OLog t -> floatingDual t $ unFloat (\(x, dx) ->
EPair ext (EOp ext (OLog t) x)
(mul t (recip' t x) dx))
--
cgit v1.2.3-70-g09d2