FONForum

function[] = daLiJeKvadratna(R)
B = size(R);
if(B(1) == B(2))
    disp('matrica je kvadratna')
else
    disp('matrica nije kvadratna')
end

function[] = prviZadatak(A)
% pod a
B = size(A)
if(B(1) == B(2))
    det(A)
else
    disp('matrica nije kvadratna')
end 
% pod b
%moze i if i switch
znak = sign(max(max(A)))
if(znak == 1)
    disp('Najveci element je pozitivan broj')
elseif (znak == 0)
    disp('Najveci element je 0')
else
    disp('Najveci element je negativan broj')
end
%pod c
%Sta je pisac hteo reci :) 
%Ako su mislili na razliku izmedju determinante i znaka(posto znak vraca
%-1,1,0) to je sledeci kod
razlika = det - znak;
if(rem(razlika,3) ~= 0)
    disp('Razlika nije deljiva sa 3')
else
    disp('Razlika je deljiva sa 3')
end

function [] = drugiZadatak(A)
%Kolko kapiram ovaj zadatak 2 on se lagano moze odraditi u command windowu,
%ali preko m file izgleda ovako...
% pod a
[I,J] = find(A>15); 
if(I ~= 0)
n = max(size(I));
disp(n)
else
    disp('Nijedan dan gledanost nije bila veca')
end 
% pod b
[K,L] = find(A>20 & A<80);
if(K ~= 0)
    b = max(size(K));
    disp(b)
else
    disp('Nijedan dan gledanost nije bila veca od 20 a manja od 80')
end
% pod c
c=size(A);
for i=1:c(1)
    for j=1:c(2)
    if (A(i,j)>75 && A(i,j)<100)
        disp((i-1)*7+j);
    end
j=j+1;
    end
i=i+1;
end

 

A=[-2,8,4;-8,8,10;4,2,8]
 
B=diag(fliplr(magic(3)))
 
x=inv(A)*B
 
 
p=[diag(fliplr(magic(3)))]
 
polyval(p,sum(sum(A)))