% vmartins - 25/mai/2018
clear
n = 100;
for k=1:n
%    z(k)=i^k/k;
%    z(k)=k*i/(k+2*i);
    z(k)=(1/sqrt(2)+i/sqrt(2))^k/k;
    plot(z,'-')
    axis("square")
    hold on
    plot(z,'r*')
    hold off
    pause(0.5)
end
%title ("z_n=i^n")
%title ("z_n=n*i/(n+2*i)")
title ("z_n=f(n)")

