Informe Truss 3d
Informe Truss 3d
Informe Truss 3d
DEBER
TEMA: Programación por elementos finitos para el elemento barra 3D (Truss 3D).
PROBLEMA:
CODIGO:
clear
clc
%% Datos de armadura 3D
coord=[0 0 2000;4000 0 0;0 0 -2000;0 3000 0];
conect=[1 2;2 3;2 4];
f=[0 0 0 0 -10000 -12000 0 0 0 0 0 0]';
nfijos=[1 2 3 7 8 9 10 11 12]';
U=[0 0 0 0 0 0 0 0 0 0 0 0]';
area=[100;100;100];
mod_elas=[200e3;200e3;200e3];
k1=[1 -1;-1 1]; % Matriz de rigidez elemental en ejes locales
%% Rigidez axial
r_axial=area.*mod_elas;
% matrices de transformacion
R=[cx cx cz 0 0 0; 0 0 0 cx cy cz];
X=mod_elas(1)*[-1/L(1 ) 1/L(1 )]*R;
EA=r_axial(ii);
k(ii)=(EA/L);
%matriz de rigidez del elemento en coordenadas globales
ke=(R')*((EA/L)*k1*R);
U(4)=UD(1);
U(5)=UD(2);
U(6)=UD(3);
U
Fuerzas=Kmod*U
L=[447.21 500 447.21];
%% Esfuerzos
X1=[-40.0000 -40.0000 20.0000 40.0000 0 -20.0000];
X2=[40.0000 40.0000 20.0000 -40.0000 0 -20.0000];
X3=[32 32 0 -32 24 0];
Um=U(1:6);
Esf1=X1*Um
Esf2=X2*Um
Esf3=X3*Um
%% Fuerzas elementales
% Para:
disp('FUERZAS ELEMENTALES')
Elemento1=k(1)*R1*Um
Elemento2=k(2)*R2*Um
Elemento3=k(3)*R3*Um
RESULTADOS
Matriz de rigidez