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

diff --git a/tools/RI_FT.m b/tools/RI_FT.m
new file mode 100644 (file)
index 0000000..b2cf3bc
--- /dev/null
+++ b/tools/RI_FT.m
@@ -0,0 +1,16 @@
+function [ri,ft]=RI_FT(f, sig_exc, sig_mes)\r
+%calcul d'une fonction de tranfert mesurée par l'interface CNAQ\r
+%Sorties : fonction de transfert et réponse impulsionnelle \r
+\r
+% soustraction de la composante continue\r
+DC = mean(sig_mes,1);\r
+sig_mes = sig_mes - DC;\r
+len_f = length(f);\r
+% f0 = f(1);\r
+% f1 = f(length(f));\r
+\r
+% Methode du produit\r
+siginv=fliplr(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
+\r