function Ridka_matice
% vytvori ctvercovou matici rozmeru NxN (N je mozno zvolit od 3 do 10),  
% ktera bude mit na diagonale cisla 5, v prvcich okolo diagonaly cisla -3, ostatni prvky budou 0


N=input('\nZadejte rozmer ctvercove matice (vyberte, prosim, hodnotu od 3 do 10): \nN='); 
  % vstup, do promenne N se ulozi hodnota zadana z klavesnice

while (N>10)|(N<3) % cyklus s podminkou na zacatku, N musi byt zvoleno od 3 do 10
        N=input('\nZadejte rozmer ctvercove matice \n(vyberte, prosim, hodnotu od 3 do 10): \nN='); 
          % vstup, do promenne N se ulozi hodnota zadana z klavesnice
end; % ukonceni cyklu

for k=1:N % cyklus s pevnym poctem opakovani, k urcuje radky matice
    for m=1:N % cyklus s pevnym poctem opakovani, m urcuje sloupce matice
        if k==m % podmineny prikaz 
            A(k,m)=5; % kdyz plati podminka: k je rovno m, do matice A
                      % na pozici k-ty radek a m-ty sloupec se ulozi
                      % cislo 5
        elseif (k==m-1)|(k==m+1) 
            A(k,m)=-3; % kdyz je pravdiva podminka: 
                       % k je rovno m+1 nebo k je rovno m-1,
                       % do matice A na pozici k-ty radek
                       % a m-ty sloupec se ulozi cislo -3
        else
            A(k,m)=0;  % v ostatnich pripadech se
                       % do matice A na pozici k-ty radek
                       % a m-ty sloupec se ulozi cislo 0
        end; % ukonceni podmineneho prikazu
    end; % ukonceni cyklu
end; % ukonceni cyklu
fprintf('\nVysledna matice\n');
disp(A) % zobrazi matici bez jejiho nazvu, tj. bez " A = "