function RuzneGrafy
subplot(2,3,1)
compass(4,3,'r') %sipka
subplot(2,3,2)
phi=linspace(0,30*pi,10000);
r=exp(phi/10);
polar(phi,r,'m')
subplot(2,3,4)
C=[1+2i,-3+4i,-2-3i,4-i];
compass(C)
subplot(2,3,6)
plot(C,'go')
xlabel('Re')
ylabel('Im')
grid
disp(C)
disp('Realna cast komplexniho cisla')
disp(real(C))
disp('Imaginarni cast komplexniho cisla')
disp(imag(C))
disp('Velikost komplexniho cisla')
v=(real(C).^2+imag(C).^2).^(1/2);
disp(v)
disp(abs(C))
disp('Uhel komplexniho cisla')
u=atan2(imag(C),real(C));
disp(u)
disp(angle(C)) % rad
disp('Uhel komplexniho cisla ve stupnich')
disp(u*180/pi)
disp(angle(C)*180/pi) % stupne
subplot(2,3,5)
polar(angle(C),abs(C),'c*')
disp('Komplexne sdruzena cisla')
disp(conj(C))
disp('Transpozice')
disp(C.')
disp(C')
end

