24 lines
638 B
Mathematica
24 lines
638 B
Mathematica
|
function [Edof]=caldof(Enode,ndof)
|
||
|
|
% Edof=caldof(Enode,ndof)
|
||
|
|
%-------------------------------------------------------------
|
||
|
|
% PURPOSE
|
||
|
|
% Calculate the node degree of freedom.
|
||
|
|
%
|
||
|
|
% INPUT: Enode: element node
|
||
|
|
%
|
||
|
|
% ndof : degrees of freedom in each node
|
||
|
|
%
|
||
|
|
% OUTPUT: Edof : topology of the structure
|
||
|
|
%-------------------------------------------------------------
|
||
|
|
Nele=size(Enode,1);
|
||
|
|
Esize=size(Enode,2)-1;
|
||
|
|
for i=1:Nele
|
||
|
|
Edof(i,1)=i;
|
||
|
|
for j=1:Esize
|
||
|
|
Edof(i,3*j-1)=3*(Enode(i,j+1)-1)+1;
|
||
|
|
Edof(i,3*j)=3*(Enode(i,j+1)-1)+2; Edof(i,3*j+1)=3*(Enode(i,j+1)-1)+3;
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
%--------------------------end--------------------------------
|