function m = getMu(R,P)
% Get transformation for potential energy derivatives
%   R - rotation from i-1 to i frame
%   P - position of i frame
% Return:
%   transformation matrix

    m = [zeros(6,10);
         zeros(3,6),R',zeros(3,1);
         zeros(1,6),P',1];
end