function argprin(p)
% function argprin(p)
% illustrerar argumentprincipen med p ett polynom, ledande koefficient först
n=size(p);
n=n(2);
% derivatan av p
k=1:n-1;
q=p(1:n-1);
q=q.*fliplr(k);
% bilden av enhetscirkeln
z=0:.002:1;
z=exp(2*pi*i*z);
w=polyval(p,z);
plot(w)
title('bilden av enhetscirkeln')
% nu till logaritmiska derivatan
l=polyval(q,z)./w;
figure
plot(imag(cumsum(l.*z*i))*.002);
title('så här växer imagin:rdelen av integralen av logaritmiska derivatan')
figure
plot(angle(w));
title('så här beter sig argumentet av p')


