function zcat(Z,ZZ);
ov=0;
nv=0;
hold on
for i=[1:length(Z)];
    nv=nv+Z(i);
    line([real(ov) real(nv)],[imag(ov) imag(nv)],'LineWidth',2);
    hold on
    line(real(nv),imag(nv),'Marker','*','LineWidth',2);
    ov=nv;
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(ZZ(i)),'Color','r','Marker','*','LineWidth',2);
    end
end