% programa newton_cplx,     exam 9nov'02
% "Encuentre z de e^z+1=0"     26sep'18
%----------------------------------------
clear
format long e
n=20; z=1+i; xx=[]; 
for j=1:n
    fz=exp(z)+1;
    dfz=exp(z);
    xx=[xx;z fz];
    z=z-fz/dfz;
end
xx
subplot(221);
plot(real(xx(:,1)));grid
xlabel('iteraciones'); ylabel('z-real');

subplot(222);
plot(imag(xx(:,1)));grid
xlabel('iteraciones'); ylabel('z-imaginario');

subplot(223);
plot(real(xx(:,2)));grid
xlabel('iteraciones'); ylabel('fz-real');

subplot(224);
plot(imag(xx(:,2)));grid
xlabel('iteraciones'); ylabel('fz-imaginario');
