function [curvsin_,curvcon_,h,coordcurv_,coord_int]=curv_todo_punto(tipo_interp,matsin,matcon,coord,n_elem,nbarra,n_puntos_barra);
puntos_barra=[1;n_puntos_barra];
[fil,col]=size(matsin);
coord_int=[];sdf=[];auxiliar=0;coordcurv_=[];
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'];
auxiliar=coord_inta(length(coord_inta));
h(j)=coord_inta(2)-coord_inta(1);
end
for i=1:1:col
z=1;
for j=1:1:nbarra
for k=((j-1)*n_elem+j+1):1:j*n_elem+(j-1)
curvsin_(z,i)=(1/(h(j)^2))*(modosin(k-1,i)-2*modosin(k,i)+modosin(k+1,i));
curvcon_(z,i)=(1/(h(j)^2))*(modocon(k-1,i)-2*modocon(k,i)+modocon(k+1,i));
z=z+1;
end
end
end
p=1;
for j=1:1:nbarra
for k=((j-1)*n_elem+j+1):1:j*n_elem+(j-1)
coordcurv_(p,1)=coord_int(k);
p=p+1;
end
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));
h(j)=coord_inta(2)-coord_inta(1);
end
for i=1:1:col
z=1;
for j=1:1:nbarra
for k=((j-1)*n_elem+j+1):1:j*n_elem+(j-1)
curvsin_(z,i)=(1/(h(j)^2))*(modosin(k-1,i)-2*modosin(k,i)+modosin(k+1,i));
curvcon_(z,i)=(1/(h(j)^2))*(modocon(k-1,i)-2*modocon(k,i)+modocon(k+1,i));
z=z+1;
end
end
end
p=1;
for j=1:1:nbarra
for k=((j-1)*n_elem+j+1):1:j*n_elem+(j-1)
coordcurv_(p,1)=coord_int(k);
p=p+1;
end
end
end
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
