function xc=evaldcm(x,f)
%EVALDCM  Evaluate center of moments (discrete).
%   XC = EVALDCM(X,F)  evaluates the center of moments
%   for forces F at discrete points along a line X
%   on the body. XC is thus the point at which all forces
%   seems to be concentrated.
%
%   See also EVALCCM.

% Copyright (c) 2003-06-25, B. Rasmus  Anthin.

xc=sum(x.*f)/sum(f);