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