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

data={{Rind,1,1,1},{Podhorsky,3,1,1},{MatyskaPavel,1,1,1 },{JindraKarel,1,1,1},{VodickaPetr,4,4,4},{Jachym,4,1,1},{Handl,1,1,1},{StastnyMartin,1,1,2},{SrakaLibor,1,1,1},{KejikovaZuzana,4,1,1},{CizinskyT,1,1,1},{NemecMichal,1,1,1},{HroudaJosef,4,1,1},{Gaman,1,1,1},{Krejsa,1,1,1},{Honsa,1,1,2},{TousOndrej,1,1,1},{Kejr,1,1,1},{Bures,1,1,1},{Keclik,3,1,1},{NeumannAlois,1,1,1},{NovakMichal,1,1,1},{Zbornik,1,1,1},{MusalekLubomir,1,1,1},{Cespiva,1,1,1},{MalikJiri,1,3,1},{ChalupaJiri,4,1,1},{VanaJan,1,1,4},{SmetanaJan,1,4,4},{Kobliha,1,1,4},{OrletMartin,1,1,4},{NovakStanislav,1,2,2},{SkalskyJiri,4,1,1},{Hnizdil,1,1,2},{VisnovskyViktor,1,1,4},{PlhakOndrej,2,1,1},{ZoubekOndrej,1,1,1},{KocumLukas,4,1,1},{Helebrant,1,1,1},{RatislavMarek,1,1,2},{DusekZ,1,1,1},{Kollert,1,1,1},{BendikJan,1,1,1},{Ullman,1,1,1},{MuskaJakub,1,1,1},{KohoutJaroslav,1,1,1},{HajekJosef,1,1,2},{Belan,1,1,1},{ModracekPetr,1,1,1},{KopacekMilan,1,1,1},{PhanViet,1,1,1},{BandikZdenek,1,1,2},{NovakZdenek,1,2,2},{PiroutekTomas,1,1,3},{KralFilip,1,1,2},{DostalJaroslav,1,3,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 jak jste uvedli","symetrizace","sdileni","teorie","prumer","navrh vysledku"}]//TableForm;
Export["TeploEST2009.png",%,ImageResolution->300]