From 0d2bda21caa41e8e24bfba546ea036ef1d354d1a Mon Sep 17 00:00:00 2001
From: manu <manu@5fc3e0e6-29bc-4d03-b52b-c088cb822bde>
Date: Mon, 31 Mar 2008 12:04:35 +0000
Subject: [PATCH] git-svn-id: http://svn.parisson.org/svn/CNAQ/trunk@158
 5fc3e0e6-29bc-4d03-b52b-c088cb822bde

---
 tools/RI_FT.m | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 tools/RI_FT.m

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