%funkcia na zobrazenie topografickej mapy
%Vstupné parametre:
% hodnoty - 19 hodnôt pre mapovanie
% nadpis - názov zobraznia (mapy)
%Výstupné parametre:
% mapa - topografická mapa po interpolácii
function mapa=top_mapa(hodnoty,nadpis)
%vytvorenie nulovej matice 5x5
mapa=zeros(5,5);
%priradenie hodnôt k elektródam Fp1,Fp2
mapa(1,2)=hodnoty(1); %Fp1
mapa(1,4)=hodnoty(2); %Fp2
%priparadenie hodnôt k elektródam v 2-4 riadku
index=3;
for r=2:4 %index riadku
    for s=1:5 %index ståpca
        mapa(r,s)=hodnoty(index);
        index=index+1;
    end
end
%priradenie hodnôt k elektródam O1,O2
mapa(5,2)=hodnoty(18); %O1
mapa(5,4)=hodnoty(19); %O2
%dopoèítanie chýbajúcich elektród do matice mapa
%stredná elektróda v prvom riadku
mapa(1,3)=(mapa(1,2)+mapa(1,4))/2;
%stredná elektróda v piatom riadku
mapa(5,3)=(mapa(5,2)+mapa(5,4))/2;
%elektródy v rohoch matice
mapa(1,1)=mapa(1,2)+mapa(2,1)-mapa(2,2);
mapa(1,5)=mapa(1,4)+mapa(2,5)-mapa(2,4);
mapa(5,1)=mapa(4,1)+mapa(5,2)-mapa(4,2);
mapa(5,5)=mapa(4,5)+mapa(5,4)-mapa(4,4);
%lineárna interpolácia s poètom iterácií=7
mapa=interp2(mapa,7);
% figure;
%vykreslenie farebnej mapy
imagesc(mapa);
colormap jet
%odstránenie popisu osí
set(gca,'XTick',[],'Ytick',[]);
%mapa bude v¾dy tvaru ¹tvorca
axis square;
title(nadpis);












