SetDirectory["FileName" /. NotebookInformation[
              EvaluationNotebook[]] /. FrontEnd`FileName[
              d_List, nam_, ___] :> ToFileName[d]];

data = {{Adamek, 2, 1, 1}, {Hamouz, 2, 1, 1}, {RadaLukas, 2, 4, 
            2}, {FerzikRadek, 1, 1, 2}, {Jarka, 1, 1, 1}, {VenclicekJan, 1, 
            4, 3}, {RandaJiri, 1, 4, 1}, {MelicharJan, 2, 4, 1}, {Hons, 2, 4, 
            1}, {Kladivko, 1, 2, 1}, {StokJan, 2, 1, 1}, {JuklTomas, 1, 1, 
            1}};

f[x_] := "A" /; x ≤ 1.5;
f[x_] := "B" /; 
          1.5 < x ≤ 2;
f[x_] := "C" /; 
          2 < x ≤ 2.5;
f[x_] := "D" /; 
          2.5 < x ≤ 3;
f[x_] := "E" /; 
          3 < x ≤ 3.5;
f[x_] := "F" /; 3.5 < x;

pom = 
        Union[data /. {a_, b_, c_, d_} :> {a, b, c, d, 
                (1. /3)*(b + d + c), 
                f[(1. /3)*(b + d + c)]}];

\(Prepend[
      pom, {"jmeno", "cerpadlo", "vzduch", "indukce", "prumer", "navrh vysledku"}]\)
Export["vysledkyET2navrh2009.png", %]