function Soustava_rovnic
% reseni soustavy rovnic o zvolenem poctu neznamych
clc; 
r=input('Zadejte pocet neznamych v soustave rovnic:\n n=');
  % vstup, do promenne r se ulozi hodnota zadana z klavesnice
  % \n - text n= se zacina psat na nove radce
A=zeros(r); % vytvoreni nulove ctvercove matice
fprintf('\n Zadejte prvky matice soustavy A:'); % vypis dat na obrazovku
                                                % \n  - text zacina na nove radce
for m=1:r % cyklus s pevnym poctem opakovani, m urcuje radky matice
    for n=1:r % cyklus s pevnym poctem opakovani, n urcuje sloupce matice
        fprintf('\n A[%d,%d]=',m,n) % vypis dat na obrazovku
                                    % misto znaku % se vypisi cisla m,n
                                    % napr. A[1,1]=
                                    % \n  - text zacina na nove radce
        A(m,n)=input(''); % vstup, do do matice A
                          % na pozici m-ty radek a n-ty sloupec se ulozi
                          % hodnota zadana z klavesnice 
    end; % ukonceni cyklu
end; % ukonceni cyklu
fprintf('\n Zadejte prvky vektoru pravych stran b:'); % vypis dat na obrazovku
                                                      % \n  - text zacina na nove radce
for m=1:r % cyklus s pevnym poctem opakovani, m urcuje poradi prvku ve vektoru
    fprintf('\n b[%d]=',m) % vypis dat na obrazovku
                           % misto znaku % se vypise cislo m
                           % napr. b[1]=
                           % \n  - text zacina na nove radce
    b(m)=input(''); % vstup, do do m-teho prvku vektoru b
                    % se ulozi hodnota zadana z klavesnice
end;
fprintf('\n Reseni soustavy rovnic je:'); % vypis dat na obrazovku
                                          % \n  - text zacina na nove radce
x=A\b'; % reseni soustavy rovnic, odpovida operaci inv(A)*b'
for m=1:r % cyklus s pevnym poctem opakovani, m urcuje poradi prvku ve vektoru
    fprintf('\n x(%d)=%12.2f',m,x(m)) % vypis formatovanych dat, misto znaku % se
                                      % vypisi cislo m a vypoctena neznama,
                                      % zaokrouhlena na 2 desetinna mista
                                      % napr. x[1]= 0.50
                                      % \n  - text zacina na nove radce
end; % ukonceni cyklu
fprintf('\n') % \n  - dalsi text zacina na nove radce