
function plotcirc(z)

    t=[0:.1:2.1*pi];
    rad=1;
    for k=1:length(z)
       x=real(z(k));
       y=imag(z(k));
       plot([x+rad*cos(t)],[y+rad*sin(t)],'k');
    end % for k

return;
