function [modo_intacta_soft,modo_fallo_soft] = curve_fitting_v3 (modo_intacta,modo_fallo,x)
%
% Suavización mediante función MSLOWESS
%
for i=1:5
modo_intacta_soft(:,i) = mslowess(x',modo_intacta(:,i),'ORDER',2);
modo_fallo_soft(:,i) = mslowess(x',modo_fallo(:,i),'ORDER',2);
%
% suavizacion mediante splines cubicos
%
% end
% modo_intacta_soft=zeros(64,5);
% modo_fallo_soft=zeros(64,5);
% for i=1:5
% sp_intacta = csaps(loc_espacial,modo_intacta(:,i),0.85);
% sp_fallo = csaps(loc_espacial,modo_fallo(:,i),0.85);
% for j=1:64;
% modo_intacta_soft(j,i)=fnval(sp_intacta,j);
% modo_fallo_soft(j,i)=fnval(sp_fallo,j);
% end
end
% figure(11)
% plot(x',modo_intacta(:,1),'gx',x',modo_intacta_soft(:,1),'g',x',modo_fallo(:,1),'rx',x',modo_fallo_soft(:,1),'r');
% title('Comparativa con modos suavizados (Curve-fitting) MODO 1')
% legend('Intacto','Intacto suavizado', 'Dañado', 'Dañado suavizado')
% print -r600 -depsc mode1_shape
% figure(12)
% plot(x',modo_intacta(:,2),'gx',x',modo_intacta_soft(:,2),'g',x',modo_fallo(:,2),'rx',x',modo_fallo_soft(:,2),'r');
% title('Comparativa con modos suavizados (Curve-fitting) MODO 2')
% legend('Intacto','Intacto suavizado', 'Dañado', 'Dañado suavizado')
% print -r600 -depsc mode2_shape
% figure(13)
% plot(x',modo_intacta(:,3),'gx',x',modo_intacta_soft(:,3),'g',x',modo_fallo(:,3),'rx',x',modo_fallo_soft(:,3),'r');
% title('Comparativa con modos suavizados (Curve-fitting) MODO 3')
% legend('Intacto','Intacto suavizado', 'Dañado', 'Dañado suavizado')
% print -r600 -depsc mode3_shape
% figure(14)
% plot(x',modo_intacta(:,4),'gx',x',modo_intacta_soft(:,4),'g',x',modo_fallo(:,4),'rx',x',modo_fallo_soft(:,4),'r');
% title('Comparativa con modos suavizados (Curve-fitting) MODO 4')
% legend('Intacto','Intacto suavizado', 'Dañado', 'Dañado suavizado')
% figure(15)
% plot(x',modo_intacta(:,5),'gx',x',modo_intacta_soft(:,5),'g',x',modo_fallo(:,5),'rx',x',modo_fallo_soft(:,5),'r');
% title('Comparativa con modos suavizados (Curve-fitting) MODO 5')
% legend('Intacto','Intacto suavizado', 'Dañado', 'Dañado suavizado')
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
