Browse Source

Ajout de 'contributions.m'

Matthieu PUIGT 9 months ago
parent
commit
0d4e1387fa
1 changed files with 28 additions and 0 deletions
  1. 28 0
      contributions.m

+ 28 - 0
contributions.m

@@ -0,0 +1,28 @@
+function [xc]=contributions(A,s)
+
+% Computation of the true contributions - V1.2
+%
+% Inputs
+% A : mixing tensor whose A(i,j,:) element is the filter associated to the
+% j^th source and to the i^th observation
+% s : source vector
+%
+% Output
+% xc : tensor whose xc(i,j,:) element is the true contribution of the j^th
+% source in the i^th observation
+% -------------------------------------------------------------------------
+% History of the software:
+% V1.1: original software written by J. Thomas
+%
+% V1.2: Error messages appeared with recent releases of Matlab in the function
+% contributions. This version corrects them. 
+% Author: Matthieu PUIGT   Contact: matthieu.puigt@univ-littoral.fr
+%
+% -------------------------------------------------------------------------
+
+
+for i=1:size(A,1)
+    for j=1:size(A,2)
+        xc(i,j,:)=filter(reshape(A(i,j,:),size(A,3),1,1),1,s(j,:));
+    end
+end