function vysledek=lenka(matice);
% vzorovou matici na vyzkouseni funkce ziskame
% mtc=100*(rand(20,10)-.5);
% tedy rand(20,10) vrati matici nahodnych cisel od 0 do 1
% o velikosti 20 radku a 10 sloupcu
% kdyz odecteme od matice 0.5, tak dostaneme i zaporna cisla
% vynasobenim 100 jenom zvetsujeme cisla

% Funkce vypocita logaritmus tech prvku matice, ktere
% jsou vetsi nez 1 (aby logaritmus byl vetsi nez 0)
% Potom vypocte prumery radku takto upravene matice
% a vykresli do grafu
% Prumery upravenych radku zaroven funkce vraci jako 
% vysledek

% Vrati pocet radku a sloupcu matice
[radky,sloupce]=size(matice);
% tzn.,ze vypise vektor o dvou prvcich

% Zlogaritmuje nektere prvky matice, hodnoty ostatnich 
% nastavi na 0,to x=1:radky znamena,ze to prochazime
% po radcich respektive sloupcich
for x=1:radky
    for y=1:sloupce
	if matice(x,y)>1 matice(x,y)=log(matice(x,y));
	else matice(x,y)=0;
	end
    end
end	

% Vypocteme prumer kazdeho radku
prumer=mean(matice');

% Vypocteme uplny prumer prvku matice
prumer1=ones(radky,1)*mean(prumer);

% Vykreslime
plot(1:radky,prumer,'g*',1:radky,prumer1,'r',1:radky,prumer,'b')
title('Nakreslene vysledky');
xlabel('radky matice');
ylabel('prumery radku');
legend('prumery','stredni hodnota');

% Vratime prumery radku jako vysledek
vysledek=prumer;