function [matriz_reducida,x_reducida] = reduccion_muestral_v4 (matriz,x,tam_reduc)
tam=size(matriz);
num_modos=tam(2);
long=tam(1);
ind=round(linspace(1,long,tam_reduc));

for j=1:num_modos
    k=0;
    for i=1:tam_reduc
        k=k+1;
        matriz_reducida(k,j)=matriz(ind(i),j);
        x_reducida(k)=x(ind(i));
    end
end
