function grafica_complejos (z)
    x = real(z);
    y = imag(z);
    plot([0 x],[0 y],"-r","linewidth",4);
    hold on;
    plot(x,y,"ok","markersize",12,"markerfacecolor","red");
    axis([-abs(x)-5,abs(x)+5,-abs(y)-5,abs(y)+5]);
    grid on;
    ylabel("Imaginarios","fontsize",16);
    xlabel("Reales","fontsize",16);
    title(["Complejo " num2str(z)],"fontsize",20);
    hold off;
endfunction