function zvect(Z,ZZ);
for i=[1:length(Z)];
    line([0 real(Z(i))],[0 imag(Z(i))],'LineWidth',2);
    hold on;
    line(real(Z(i)),imag(Z(i)),'Marker','*','LineWidth',2);
end
if nargin==2;
    for i=[1:length(ZZ)];
    line([0 real(ZZ(i))],[0 imag(ZZ(i))],'Color','r','LineWidth',2);
    hold on;
    line(real(ZZ(i)),imag(Z(i)),'Color','r','Marker','*','LineWidth',2);
    end
end