function graf_komplex_cis
% zobrazeni komplexnich cisel ulozenych v matici a,
% vypocet velikosti a uhlu pro zobrazeni v polarnich souradnicich

a=[1+2i;-1+i;-3-4i;1-i]; % dana komplexni cisla
fprintf('\n Zobrazovana komplexni cisla:') % vypis textu na obrazovku
fprintf('\n') % \n  - dalsi text zacina na nove radce
disp(a) % zobrazi promennou bez jejiho nazvu, tj. bez " a = "

subplot(2,2,1); % rozdeleni grafickeho okna na 4 casti (nasledujici graf v 1. casti)
plot(a,'ko','MarkerFaceColor','y','MarkerSize',10) % vytvari dvourozmerny graf
    % komplexni cisla jsou zobrazena jako kolecka s cernym obrysem a zlutou vyplni 
    % MarkerFaceColor - barva vyplne znacky zluta
    % MarkerSize - velikost znacky
xlabel('Re') % popis osy x (realna osa)
ylabel('Im') % popis osy y (imaginarni osa)
grid % mrizka
title('Graf pomoci \itplot') % nazev grafu 
                             % \it - formátováno kurzívou (italic)

subplot(2,2,2); % rozdeleni grafickeho okna na 4 casti (nasledujici graf v 2. casti)
compass(a,'r') % vytvari graf komplexnich cisel ve forme sipek vychazejicich z pocatku
               % zvolena barva sipek je cervena
title('Graf pomoci \itcompass') % nazev grafu 
                                % \it - formátováno kurzívou (italic)

v=abs(a); % vypocet velikosti komplexniho cisla podle vzorce: sqrt(Re^2+Im^2)
          % parametr funkce abs je komplexni cislo nebo matice
fprintf('\n Velikost danych komplexnich cisel:') % vypis textu na obrazovku
fprintf('\n') % \n  - dalsi text zacina na nove radce
disp(v) % zobrazi promennou bez jejiho nazvu, tj. bez " v = "

u_rad=angle(a); % vypocet uhlu komplexniho cisla podle vzorce: arctg(Im/Re)
                    % parametr funkce angle je komplexni cislo nebo matice
fprintf('\n Uhly danych komplexnich cisel v radianech,') % vypis textu na obrazovku
fprintf('\n zjistene pomoci prikazu angle:') % vypis textu na obrazovku
fprintf('\n') % \n  - dalsi text zacina na nove radce
disp(u_rad) % zobrazi promennou bez jejiho nazvu

u_st=u_rad*180/pi; % prevod na stupne
fprintf('\n Prevod na stupne:') % vypis textu na obrazovku
fprintf('\n') % \n  - dalsi text zacina na nove radce
disp(u_st) % zobrazi promennou bez jejiho nazvu

subplot(2,2,3); % rozdeleni grafickeho okna na 4 casti (nasledujici graf v 3. casti)
polar(u_rad,v,'b*') % vytvari graf v polarnich souradnicich
                    % komplexni cisla jsou zobrazena jako modre hvezdicky
title('Graf pomoci \itpolar') % nazev grafu 
                             % \it - formátováno kurzívou (italic)

subplot(2,2,4); % rozdeleni grafickeho okna na 4 casti (nasledujici graf v 4. casti)
feather(a,'g') % vytvari graf komplexnich cisel ve forme sipek vychazejicich 
               % z rovnomerne rozlozenych bodu na horizontalni ose,
               % tj. body pocatku sipek jsou [1,0], [2,0], [3,0], [4,0]
grid % mrizka
title('Graf pomoci \itfeather') % nazev grafu 
                                % \it - formátováno kurzívou (italic)

Re=real(a); % realne casti komplexnich cisel z matice a
fprintf('\n Realne casti danych komplexnich cisel:') % vypis textu na obrazovku
fprintf('\n') % \n  - dalsi text zacina na nove radce
disp(Re) % zobrazi promennou bez jejiho nazvu, tj. bez " Re = "

Im=imag(a); % imaginarni casti komplexnich cisel z matice a
fprintf('\n Imaginarni casti danych komplexnich cisel:') % vypis textu na obrazovku
fprintf('\n') % \n  - dalsi text zacina na nove radce
disp(Im) % zobrazi promennou bez jejiho nazvu, tj. bez " Im = "

K_s=conj(a); % komplexne sdruzena cisla ke komplexnim cislum z matice a
fprintf('\n Komplexne sdruzena cisla k danym komplexnim cislum:') % vypis textu na obrazovku
fprintf('\n') % \n  - dalsi text zacina na nove radce
disp(K_s) % zobrazi promennou bez jejiho nazvu, tj. bez " K_s = "
                             
                             