% pro zadaný rozmìr "magické" matice vypoète souèet prvkù na diagonále
% je-li tento souèet <= 10, parametru p pøiøadí 0,
% je-li tento souèet mezi 10 a 100, parametru p pøiøadí 1,
% je-li tento souèet >=100, parametru p pøiøadí 2.
disp('Zadej rozmer ctvercove matice MAGIC:'); % výpis na obrazovku bez názvu promìnné
k=input('k='); % uživatel zadá hodnotu k
A=magic(k); % magická ètvercová matice A (k øádkù, k sloupcù)
ds=sum(diag(A)); % do ds se uloží souèet prvkù na diagonále matice A

if ds<=10 % podmínka - logický výraz - jestliže platí ds<=10
    p=0; % promìnné p se pøiøadí 0
    disp('Soucet prvku na diagonale je ');disp(ds); % výpis na obrazovku bez názvu promìnné
    disp('Parametr p je ');disp(p); % výpis na obrazovku bez názvu promìnné
    elseif ds>=100 % další podmínka - logický výraz - jestliže neplatí ds<=10, platí ds>=100
        p=2; % promìnné p se pøiøadí 2
        disp('Soucet prvku na diagonale je '); % výpis na obrazovku bez názvu promìnné
        disp(ds); % výpis na obrazovku bez názvu promìnné
        disp('Parametr p je '); % výpis na obrazovku bez názvu promìnné
        disp(p); % výpis na obrazovku bez názvu promìnné
else % jestliže neplatí ani ds<=10 ani ds>=100
    p=1; % promìnné p se pøiøadí 1
    disp('Soucet prvku na diagonale je '); % výpis na obrazovku bez názvu promìnné
    disp(ds); % výpis na obrazovku bez názvu promìnné
    disp('Parametr p je '); % výpis na obrazovku bez názvu promìnné
    disp(p); % výpis na obrazovku bez názvu promìnné
end

% if - podmínìný pøíkaz

% if podmínka 1 - logický výraz
%    pøíkazy (je-li podmínka 1 splnìna)
%    elseif podmínka 2 - logický výraz
%    pøíkazy (je-li podmínka 2 splnìna)
% else
%    pøíkazy (není-li podmínka 2 splnìna)
% end