function grafica_complejos (z)
    x = real(z);
    y = imag(z);
    n = length(x);
    mx = max(abs(x));
    my = max(abs(y));
    clf;
    axis([-mx-5,mx+5,-my-5,my+5]);
    hold on;
    plot([-mx-5,mx+5],[0,0],"-m");
    plot([0,0],[-my-5,my+5],"-m");
    for k=1:n
      plot([0 x(k)],[0 y(k)],"-r","linewidth",4);
      plot(x(k),y(k),"or","markersize",8,"markerfacecolor","red");
      z1 = complex(x(k),y(k));
      text(x(k),y(k),num2str(z1),"fontsize",16);
    end  
    grid on;
    ylabel("Imaginarios","fontsize",16);
    xlabel("Reales","fontsize",16);
    title("Numeros Complejo ","fontsize",20);
    hold off;
endfunction