EdgeLength.m

Go to the documentation of this file.

%****f* FEM/EdgeLength
% NAME
%   EdgeLength
% USE
%   lbe=EdgeLength(be,q)
% DESCRIPTION
%   Computation of edge lengths
% INPUTS
%
% OUTPUT
%
% RETURN VALUE
%
% EXAMPLE
%
% CREATION DATE
%   January 14th 2004
% MODIFICATION HISTORY
%   None
% NOTES
%   Unoptimized
% AUTHOR
%   Cuvelier F., cuvelier@math.univ-paris13.fr
% SOURCE
%
function lbe=EdgeLength(be,q)
  nbe=size(be,2);
  lbe=zeros(1,nbe);
  for i=1:nbe
    lbe(i)=norm(q(:,be(1,i)) - q(:,be(2,i)),2);
  end
%*****