function M01 = MomentoElo01( P,A,M,go )

M01(1) = 0; M01(2) = 0; M01(3) = 0;

%-- Momento M01: pe/perna -----------------------------------------
 for k = 1:size(A,1),    %-- Massa m1:m5 --------------------------- 
    
     M01(1) = M01(1)+M(k+1)*( P(k+2,2)*(A(k,3)+go)-P(k+2,3)*A(k,2) );
     M01(2) = M01(2)-M(k+1)*( P(k+2,1)*(A(k,3)+go)-P(k+2,3)*A(k,1) );
     M01(3) = M01(3)+M(k+1)*( P(k+2,1)*A(k,2)-P(k+2,2)*A(k,1) );    
    
 end
%-- M01(1) = T1 confirmar !!! -------------------------------------
 