Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd
Upload
114 views

DEVv2 Matlab Code For Computing FEM

This document contains MATLAB code to analyze the stresses in a truss structure using the finite element method. It defines the truss geometry, material properties, and boundary conditions. It then assembles the global stiffness matrix and applies the boundary conditions to solve for displacements. The displacements are then used to calculate element stresses. Key steps include assembly of the stiffness matrix, applying boundary conditions to reduce the matrix, solving the reduced system, and using rotation matrices to transform displacements to local axes for stress calculation.

Uploaded by

Anchel Salk
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
114 views

DEVv2 Matlab Code For Computing FEM

This document contains MATLAB code to analyze the stresses in a truss structure using the finite element method. It defines the truss geometry, material properties, and boundary conditions. It then assembles the global stiffness matrix and applies the boundary conditions to solve for displacements. The displacements are then used to calculate element stresses. Key steps include assembly of the stiffness matrix, applying boundary conditions to reduce the matrix, solving the reduced system, and using rotation matrices to transform displacements to local axes for stress calculation.

Uploaded by

Anchel Salk
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

clear all

clc

% FE Method in Structural Mechanics Assignment no. 1


% Angel Salesa - Nov 2017

% Introduction of the problem constants

elem =[1 2; 2 3; 1 4;2 4;2 5;4 5;3 5]; % Element


conectivity
real =[1184 1184 1184 1184 1184 1184 1184]; % Cross Section
Area
mat =[210e3 210e3 210e3 210e3 210e3 210e3 210e3]; % Young's modulus
lenght=[3e3 3e3 1.5e3*2^0.5 1.5e3*2^0.5 1.5e3*2^0.5 3e3 1.5e3*2^0.5]; % Element
length
angle=[0 0 45 135 45 0 135]; % Element orientation

%Creation of the global stiffness matrix from the local rigidity matrixes and the
%rotation matrix

K_ = zeros(10); % Inicialitation of global stiffness


for ielem = 1:7 % 7 bars in the truss so 7 elements
A = real(ielem); % Element properties
E = mat(ielem); % Element material
L = lenght(ielem); % Element length
c = cos(pi/180*angle(ielem)); % cos component of the rotation matrix
s = sin(pi/180*angle(ielem)); % sin component of the rotation matrix

T = [c s 0 0 ; -s c 0 0 ;
0 0 c s ; 0 0 -s c ]; % 4x4 Rotation matrix

k_e = [ E*A/L 0 -E*A/L 0 ; 0 0 0 0 ;


-E*A/L 0 E*A/L 0 ; 0 0 0 0 ]; % 4x4 Element matrix in local
coordinates

k_ei = T'*k_e*T; % Element matrix in global coordinates

% The following code is able to make the assembly operation of the global
rigidity matrix
i1=2*(elem(ielem,1)-1)+1; % degree of freedom X node i
i2=i1+1; % degree of freedom Y node i
j1=2*(elem(ielem,2)-1)+1; % degree of freedom X node j
j2=j1+1; % degree of freedom X node j

% Assembly process
K_(i1:i2,i1:i2) = K_(i1:i2,i1:i2) + k_ei(1:2,1:2); % Assembly 1st quadrant
K_(i1:i2,j1:j2) = K_(i1:i2,j1:j2) + k_ei(1:2,3:4); % Assembly 2nd quadrant
K_(j1:j2,i1:i2) = K_(j1:j2,i1:i2) + k_ei(3:4,1:2); % Assembly 3rd quadrant
K_(j1:j2,j1:j2) = K_(j1:j2,j1:j2) + k_ei(3:4,3:4); % Assembly 4th quadrant
end

%Boundary conditions of the nodes: as node 1 is pinned and node 3 rolled


%ux1=0 (position 1); uy1=0 (position 2); uy3=0 (position 6);
%The general rigidity matrix can be reduced
K_red = K_; % Reduced matrix
K_red(:,6)=[];K_red(6,:)=[]; % Eliminates row and column #6 due to uy3=0
K_red(:,2)=[];K_red(2,:)=[]; % Eliminates row and column #2 due to uy1=0
K_red(:,1)=[];K_red(1,:)=[]; % Eliminates row and column #1 due to ux1=0
%Other boundary conditions are the known forces in the nodes:
%fx2=0; fy2=P: fx3=0; fx4=0; fy4=P; fx5=0; fy5=P
f_red = [0 100000 0 0 100000 0 100000]' % The Reduced nodal force vector

% Solve partially the system with the above boundary conditions


u_red=inv(K_red)*f_red

% With the above solutions, the displacement matrix is re-assemble


% The nodal displacement will be
u = [0 0 u_red(1) u_red(2) u_red(3) 0 u_red(4) u_red(5) u_red(6) u_red(7)]'
% And the below are Nodal force vector
f = (K_*u)

%To calculate the stresses in the elements (bars) it is necessary to used


%the rotion matrix (2x2) to get the nodal displacements in the local axis.

for bar=1:7; % Select the 7 no. bars

bar1=elem(bar,1); % Select node num. of the bar


bar2=elem(bar,2); % Select the other node num. of the bar

%First node of the selected bar

positionx1=2*((bar1)-1)+1;
positiony1=positionx1+1;

u1global(1)=u(positionx1); % Select ux displacement of the node


u1global(2)=u(positiony1); % Select uy displacement of the node

a=angle(bar); % Select angle of the bar

R=[cosd(a) -sind(a); sind(a) cosd(a)]; % Rotation matrix 2x2

u1local=u1global*R; % Local displacements for one bar node

resultant1=u1local(1); % Select the axial displacement

%Second node of the selected bar, similar procedure to above

positionx2=2*((bar2)-1)+1;
positiony2=positionx2+1;

u2global(1)=u(positionx2);
u2global(2)=u(positiony2);

u2local=u2global*R;

resultant2=u2local(1);

%The final bar stresses are:


sigma(bar)=(mat(bar)/lenght(bar))*[-1 1]*[resultant1; resultant2];
end
sigma

You might also like