clear all; close all;

s=520:620;

% Tisliar
p01=-5*call(s,550)+6*call(s,520)+call(s,560)+5*7.70-6*21.90-5.60;

% Simeunovic, Othmanova
p02=8*call(s,560)+38*call(s,590)-8*5.60-38*1.45;

% Gramblicka, Komadel, Molnarova, Uhliarik
p03=21*call(s,560)-21*call(s,600)-21*call(s,620)+21*call(s,640)-21*5.60+21*0.85+21*0.25-21*0.25;

% fi-ha
p04=5*call(s,530)+5*call(s,570)-5*16.30-5*3.70;

% Holla
p05=12*call(s,540)+6*call(s,570)+6*call(s,580)+26*call(s,600)+call(s,610)-12*call(s,550)-39*call(s,620)-12*11.70-6*3.70-6*2.35-26*0.95-0.65+12*8.20+39*0.25;

% Slobodnikova, Beran, Majher, Melicher
p06=call(s,540)+15*call(s,560)+call(s,570)+2*put(s,520)-call(s,520)-2*put(s,540)-11.70-15*5.60-3.70-2*14.20+21.20+2*23.60;

% Gyurianova, Krajcovicova, Mackova, Ziakova
p07=2*call(s,500)+call(s,510)-2*35.70-28.40;

% Dadova, Halgasova, Repkova, Zikova
p08=8*call(s,540)+call(s,560)-8*11.70-5.60;

% Baca, Collakova, Peska, Varga
p09=12*call(s,550)-12*8.20;

% Macko, Matejkova
p10=10*put(s,510)-10*put(s,520)+36*call(s,590)-72*call(s,610)+36*call(s,630)-call(s,640)-3*call(s,650)+3*call(s,660)+call(s,710)-10*10.60+10*13.70-36*1.45+72*0.45-36*0.30+0.10+3*0.05-3*0.15-0.10;

% Rumcajs a Cipisek
p11=call(s,540)+15*call(s,550)+10*call(s,620)+6*call(s,630)-32*call(s,590)-11.70-15*8.20-10*0.45-6*0.30+32*1.30;

% Piterkova, Turkova, Vanekova, Zubacova
p12=19*call(s,560)+call(s,580)-14*call(s,610)-40*call(s,640)-19*5.60-2.35+14*0.45+40*0.10;

% ...jama
p13=10*call(s,540)-10*call(s,550)+52*call(s,590)-104*call(s,620)+52*call(s,650)-10*11.70+10*7.70-52*1.45+104*0.25-52*0.20;

plot(s,p01,s,p02,s,p03,s,p04,s,p05,s,p06,s,p07,s,p08,'--',s,p09,'--',s,p10,'--',s,p11,'--',s,p12,'--',s,p13,'--'); 
grid on; 
legend('Tisliar', 'Simeunovic, Othmanova','Gramblicka, Komadel, Molnarova, Uhliarik','fi-ha','Holla','Slobodnikova, Beran, Majher, Melicher','Gyurianova, Krajcovicova, Mackova, Ziakova','Dadova, Halgasova, Repkova, Zikova','Baca, Collakova, Peska, Varga','Macko, Matejkova','Rumcajs a Cipisek','Piterkova, Turkova, Vanekova, Zubacova','...jama',2);