function [x,e] = diskret(k,l,h)

% [x,e] = diskret(k,l,h)
%          Funkce diskretizuje interval <k,l> s krokem h.
%          x je vektor uzlovych souranic.
%          e jsou elementy = dvojice indexu uzlu.

x = k:h:l;

% pocet uzlu
n = max(size(x));

% pocet elementu
ne = n-1;

% seznam elementu
e = zeros(ne,2);

for i=1:ne
    e(i,1) = i;
    e(i,2) = i+1;
end
