From 7899427a34180e8dd39cb5363b24a8c89f994387 Mon Sep 17 00:00:00 2001
From: Jan Thorbecke <janth@xs4all.nl>
Date: Mon, 25 Feb 2019 09:12:15 +0100
Subject: [PATCH] adding alpha for laplace transform
---
utils/freqwave.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/utils/freqwave.c b/utils/freqwave.c
index f12da49..cba0f89 100644
--- a/utils/freqwave.c
+++ b/utils/freqwave.c
@@ -396,7 +396,7 @@ void freqwave(float *wave, int nt, float dt, float fp, float fmin, float flef, f
}
//fprintf(stderr,"scaling factor back FFT=%e\n", max);
for (i = 0; i < nt; i++) {
- wave[i]= rwave[i]*max*exp(alpha*i*dt);
+ wave[i]= rwave[i]*max*exp(-alpha*i*dt);
}
free(cwave);
--
GitLab