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
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
