From 4d573fa32997a8e4824bf8326fb675d0c195b1ac Mon Sep 17 00:00:00 2001 From: Tom Smeding 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(-) 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