function Status = movelog(Group,PZID,Ts)
%MOVELOG  Generate log entry with new location of moved root

%   Author(s): P. Gahinet
%   Copyright 1986-2000 The MathWorks, Inc. 
%   $Revision: 1.2 $ $Date: 2000/06/14 20:18:50 $

if Ts
    DomainVar = 'z';
else
    DomainVar = 's';
end

switch Group.Type
case {'Real','LeadLag'}
    R = get(Group,PZID);
    Status = sprintf('Moved real compensator %s to %s = %.3g',lower(PZID),DomainVar,R);
case 'Complex'
    R = get(Group,PZID);
    Status = sprintf('Moved complex pair of compensator %ss to %s = %.3g %s %.3gi',...
        lower(PZID),DomainVar,real(R(1)),char(177),abs(imag(R(1))));
case 'Notch'
    Z = Group.Zero(1); 
    P = Group.Pole(1);
    Status = sprintf('Moved notch zeros to %s = %.3g %s %.3gi and notch poles to %s = %.3g %s %.3gi',...
        DomainVar,real(Z),char(177),abs(imag(Z)),DomainVar,real(P),char(177),abs(imag(P)));
end