Clear["Global`*"];
MapaH5="c:\\Users\\gal\\Documents\\DRUGI PROGRAMI\\Wolfram Mathematica\\saška ura\\data iz posnetkov\\";
fps=240;
tzf=5;(*točk levo in desno za fitanje parabole*)
RedGlDef=5;(*default*)
RedGlMax=200;


ImenaH5=FileNames[{"*TNjim.h5"},MapaH5,{2}];
zjiji=Import[#,{"Data",1}]&/@ImenaH5;
zjiji=zjiji[[;;,;;,2]];

iposn=8;  (*kera povrsti h5 je to*)



zji=zjiji[[iposn]];
Manipulate[
maksimumi=FindPeaks[zji,RedGl];
minimumi=FindPeaks[-zji,RedGl];
minimumi[[;;,2]]*=-1;
ekstremi=SortBy[Join[minimumi,maksimumi],First];
ekstremi=ekstremi[[EkstOd;;EkstDo]];

ListLinePlot[
 {zji,ekstremi},
 Joined -> {True, False},
 PlotStyle -> {Automatic, PointSize[.010]}
 ]
 Length@ekstremi,

{{RedGl,RedGlDef},1,RedGlMax,1},
{{EkstOd,2},1,5,1},(*od kje vpoštevamo najdene ekstreme*)
{{EkstDo,5},1,30,1}
]

ImeEks0=StringJoin@Riffle[Join[
	StringSplit[ImenaH5[[iposn]],"\\"][[;;-2]],
	{"ekstremi0.h5"}
],"\\"];
Export[ImeEks0,ekstremi];