Code covered by the BSD License  

Highlights from
The Plane Stress Problem

image thumbnail
from The Plane Stress Problem by Siva Srinivas Kolukula
Plate under uniform tension at its edges is solved using Finite Element Method

[index]=elementdof(nd,nnel,ndof) 
function [index]=elementdof(nd,nnel,ndof)
%----------------------------------------------------------
%  Purpose:
%     Compute system dofs associated with each element 
%
%  Synopsis:
%     [index]=elementdof(nd,nnel,ndof)
%
%  Variable Description:
%     index - system dof vector associated with element "iel"
%     iel - element number whose system dofs are to be determined
%     nnel - number of nodes per element
%     ndof - number of dofs per node 
%-----------------------------------------------------------
 
 edof = nnel*ndof;
   k=0;
   for i=1:nnel
     start = (nd(i)-1)*ndof;
       for j=1:ndof
         k=k+1;
         index(k)=start+j;
       end
   end

Contact us