From: manu <manu@5fc3e0e6-29bc-4d03-b52b-c088cb822bde>
Date: Mon, 7 Apr 2008 15:04:01 +0000 (+0000)
Subject: Normalization fixed
X-Git-Url: https://git.parisson.com/?a=commitdiff_plain;h=a57b4e0a36c78c129dc18a7e164ae43bb3354f2c;p=cnaq.git

Normalization fixed

git-svn-id: http://svn.parisson.org/svn/CNAQ/trunk@172 5fc3e0e6-29bc-4d03-b52b-c088cb822bde
---

diff --git a/tools/RI_FT.m b/tools/RI_FT.m
index 670577b..a14489f 100644
--- a/tools/RI_FT.m
+++ b/tools/RI_FT.m
@@ -13,8 +13,9 @@ f1 = f(len_f);
 siginv=flipud(sig_exc)./f;
 ft=fft([sig_mes; zeros(len_f-1,1)]).*fft([siginv; zeros(len_f-1,1)]);
 ri=real(ifft(ft));
-norm=sqrt(sum(abs(ri.^2))/len_f);
-yeff=norm*sqrt(f_s/2/(f1-f0));
-scal=f_s/yeff;
+is=fft(sig_exc).*conj(fft(siginv));
+norm=sqrt(sum(abs(is.^2))/len_f);
+norm=norm*sqrt(f_s/2/(f1-f0));
+scal=f_s/norm;
 ri=ri*scal;
-ft=ft/yeff;
\ No newline at end of file
+ft=ft/norm;