from
3D Solid FEM
by Peter van Alem 3D FEM analysis using linear tetrahedral elements. Also a modal analysis is shown.
N=ShapeFunctions(xi,eta,mu)
function N=ShapeFunctions(xi,eta,mu)
% Isoparametric Shape Functions============================================
NN=[1-xi-eta-mu
xi
eta
mu];
%==========================================================================
N=[];
for i=1:numel(NN)
Nsmall=[NN(i) 0 0
0 NN(i) 0
0 0 NN(i)];
N=[N,Nsmall];
end