function [senal_original_spline,x_spline]=interpolacion_spline_CWT_v3(senal_original,x_original,tam_interpol) %La se�al de entrada debe ser di�dica para que el N_scale no de fallo. L=1.28; %longitud viga espaciado=3*L/(tam_interpol-1); % se pone 3*L porqua la señal ya viene extendida a cada lado for i=1:tam_interpol x_spline(i)=-L+(i-1)*espaciado; end senal_original_spline=spline(x_original,senal_original,x_spline); senal_original_spline=senal_original_spline'; % figure(1) % plot(x_original,senal_original,'r',x_spline,senal_original_spline,'b') % title('CONFIGURACI�N .........') % xlabel('Tamaño muestral interpolado (Localización espacial)') % ylabel('Desplazamientos transversales')