From 811497e3c6cdc53faac8665f5be364026e1a3c49 Mon Sep 17 00:00:00 2001
From: Jan Thorbecke <janth@xs4all.nl>
Date: Mon, 25 Feb 2019 14:33:59 +0100
Subject: [PATCH] alpha
---
utils/freqwave.c | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/utils/freqwave.c b/utils/freqwave.c
index cba0f89..5915377 100644
--- a/utils/freqwave.c
+++ b/utils/freqwave.c
@@ -396,7 +396,8 @@ 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);
+ tt=(float)i*dt;
+ wave[i]= rwave[i]*max*exp(-alpha*tt);
}
free(cwave);
--
GitLab