function [coord_int,modosin,modocon,sdf]=modos_todo_punto(tipo_interp,matsin,matcon,coord,n_elem,nbarra,n_puntos_barra);
puntos_barra=[1;n_puntos_barra];
[fil,col]=size(matsin);
%matsin=4.2619*matsin;matcon=4.2619*matcon;
coord_int=[];sdf=[];auxiliar=0;
a=0;b=0;
if tipo_interp==1
for j=1:1:nbarra
a=puntos_barra(j)+a;b=b+puntos_barra(j+1);
for i=1:1:col
modosin((j-1)*n_elem+j:j*(n_elem+1),i)=interp1(coord(a:b),...
matsin(a:b,i),coord(a):(coord(b)-coord(a))/n_elem:coord(b),'cubic')';
modocon((j-1)*n_elem+j:j*(n_elem+1),i)=interp1(coord(a:b),...
matcon(a:b,i),coord(a):(coord(b)-coord(a))/n_elem:coord(b),'cubic')';
end
coord_inta=[coord(a):(coord(b)-coord(a))/n_elem:coord(b)];
coord_int=[coord_int;coord_inta'];
sdf=[sdf;(coord_inta+auxiliar*ones(1,length(coord_inta)))'];
auxiliar=coord_inta(length(coord_inta))+auxiliar;
end
end
if tipo_interp==2
for j=1:1:nbarra
a=puntos_barra(j)+a;b=b+puntos_barra(j+1);
for i=1:1:col
modosin((j-1)*n_elem+j:j*(n_elem+1),i)=interp1(coord(a:b),...
matsin(a:b,i),coord(a):(coord(b)-coord(a))/n_elem:coord(b),'spline')';
modocon((j-1)*n_elem+j:j*(n_elem+1),i)=interp1(coord(a:b),...
matcon(a:b,i),coord(a):(coord(b)-coord(a))/n_elem:coord(b),'spline')';
end
coord_inta=[coord(a):(coord(b)-coord(a))/n_elem:coord(b)];
coord_int=[coord_int;coord_inta'];
auxiliar=coord_inta(length(coord_inta))+auxiliar;
sdf=[sdf;(coord_inta+auxiliar*ones(1,length(coord_inta)))'];
end
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
