% Esta funcion calcula el vector de pesos (Wv) que contiene
% la normalizacion de las columnas de la matriz del
% leadfield.
%
% Sintaxis:
%           w = wiiv(K,Tipo) 
% Tipo:
% 1- Aproximando las componentes xyz por volores diferentes
% 2- Aproximando las componentes xyz por un mismo valor
%
% Autor: Jorge Riera.

function w = wiiv(K,Tipo) 

if Tipo==1
 disp('comienzo de w simple suma');
 w = sqrt(sum((K).^2)).';
 disp('w calculado');
elseif Tipo==2
 disp('comienzo de w doble suma');
 Nc = size(K,2)./3;
 suma=sum(K.^2);
 suma=reshape(suma,3,Nc);
 w=sqrt(sum(suma));
 w=w(:)';
 w=w(ones(3,1),:);
 w=w(:);
 disp('w calculado');
else
 disp('Tipo no definido en wiiv')
end
%