| info

    function [S,b,n]=info( OPm,OPv)

    N=max(size(OPv)); M=min(size(OPv)); p=13; %pocet chladicich okruhu
    a=zeros(p,150);b=a;
    jStart=zeros(p,1); jStop=jStart;n=zeros(p,1);
    S=ones(p,1);

    jj=1;
    for i=1:p
        k=0; jstart=999;jstop=0;
        for j=jj:N
            if OPv(j,3)==i
                k=k+1; a(i,k)=OPv(j,1); %vzdalenost rezu
                b(i,k)=j; %poradi rezu
                if j<jstart
                    jStart(i)=j; %poradi prvniho rezu v okruhu
                    jstart=jStart(i);
                end
                if j>jstop
                    jStop(i)=j; %poradi posledniho rezu v okruhu
                end
            end
            n(i)=k;
            if OPv(j,3)>i %neprochazim nasledujici okruhy
                break;
            end
        end %j - vsechny rezy
        jj=max(jStop); %neprochazim predesle okruhy
        if n(i)~=0
            S(i)=1/2*(a(i,1)+a(i,n(i)))/1000; %stred okruhu v m
        end
    end %i chladici okruhy
    jj=1;
    for i=6:p
        k=0; jstart=999;jstop=0;
        for j=jj:N
            if OPm(j,3)==i
                k=k+1; a(i,k)=OPm(j,1); %vzdalenost rezu
                b(i,k)=j; %poradi rezu
                if j<jstart
                    jStart(i)=j; %poradi prvniho rezu v okruhu
                    jstart=jStart(i);
                end
                if j>jstop
                    jStop(i)=j; %poradi posledniho rezu v okruhu
                end
            end
            if OPm(j,3)>i %neprochazim nasledujici okruhy
                break;
            end
        end %j - vsechny rezy
        jj=max(jStop(1:i)); %neprochazim predesle okruhy
        if k~=0
            n(i)=k; S(i)=1/2*(a(i,1)+a(i,n(i)))/1000; %stred okruhu v m
        end
    end %i chladici okruhy