# ohniskova vzdalenost objektivu
function ohnisko
  close all
  load -ascii "objektiv.txt"
  mezera=linspace(0.01,1500,50); # 50 ruznych mezer
  f1=objektiv(1); f2=objektiv(2);
  f=f1*f2./(f1+f2-mezera);
  figure(1)
  h=plot(mezera,f,"b");    # kresli graf
  set(h,'linewidth',1.5);    # tloustka cary
  xlabel("mezera");        # popiska osy
  ylabel("ohniskova vzdalenost")
  xlim([-100,1600]);       # rozsah osy x
  ylim([400,2100]); 
  grid on;                 # mrizka
  g=gcf();
  set(g,'PaperSize',[4,3])
  set(g,'PaperPosition',[0,0,4,3])
  print -dpdf "graf.pdf"   # vytvari pdf
endfunction 
