///////////////////////////////////////////////////////////////////////////////////////////////////////////////
Var: wmax,wmin,meseprec,contagiornoinessere,cambiatogiorno,prova;
Var: max10,min10,max11,min11,max12,min12,max13,min13,max14,min14,max15,min15,max16,min16,max17,min17,vp1,vp2;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if isfirstbarday then
   WMAX=H;
   WMIN=L;
   else
   WMAX=iif(H>=WMAX[1],H,WMAX[1]);
   WMIN=iif(L<=WMIN[1],L,WMIN[1]);
endif;
////////////////////////////////////////
if t=1000 then wmax=h;endif;
if t=1100 then wmax=h;endif;
if t=1200 then wmax=h;endif;
if t=1300 then wmax=h;endif;
if t=1400 then wmax=h;endif;
if t=1500 then wmax=h;endif;
if t=1600 then wmax=h;endif;
if t=1700 then wmax=h;endif;

if t=1000 then wmin=l;endif;
if t=1100 then wmin=l;endif;
if t=1200 then wmin=l;endif;
if t=1300 then wmin=l;endif;
if t=1400 then wmin=l;endif;
if t=1500 then wmin=l;endif;
if t=1600 then wmin=l;endif;
if t=1700 then wmin=l;endif;
//////////////////////////////////////////////////////
if t>0945 and t<1100 then max10=wmax;endif;//if t<>1000 then max10=wmax;endif;
if t>0945 and t<1100 then min10=wmin;endif;//if t<>1000 then min10=wmin;endif;
if t>1045 and t<1200 then max11=wmax;endif;//if t<>1100 then max11=wmax;endif;
if t>1045 and t<1200 then min11=wmin;endif;//if t<>1100 then min11=wmin;endif;
if t>1145 and t<1300 then max12=wmax;endif;//if t<>1200 then max12=wmax;endif;
if t>1145 and t<1300 then min12=wmin;endif;//if t<>1200 then min12=wmin;endif;
if t>1245 and t<1400 then max13=wmax;endif;//if t<>1300 then max13=wmax;endif;
if t>1245 and t<1400 then min13=wmin;endif;//if t<>1300 then min13=wmin;endif;
if t>1345 and t<1500 then max14=wmax;endif;//if t<>1400 then max14=wmax;endif;
if t>1345 and t<1500 then min14=wmin;endif;//if t<>1400 then min14=wmin;endif;
if t>1445 and t<1600 then max15=wmax;endif;//if t<>1500 then max15=wmax;endif;
if t>1445 and t<1600 then min15=wmin;endif;//if t<>1500 then min15=wmin;endif;
if t>1545 and t<1700 then max16=wmax;endif;//if t<>1600 then max16=wmax;endif;
if t>1545 and t<1700 then min16=wmin;endif;//if t<>1600 then min16=wmin;endif;
if t>1645 and t<1730 then max17=wmax;endif;//if t<>1700 then max17=wmax;endif;
if t>1645 and t<1730 then min17=wmin;endif;//if t<>1700 then min17=wmin;endif;
/////////////////////////////////////////////////////////////////////////////////
if getmonth<>meseprec then contagiornoinessere=0;endif;
meseprec=getmonth;
cambiatogiorno = GetValues(days, 1, prova, prova, prova, prova);

///////////////////////////////////////////////////////////////////////////////////////////////////
if cambiatogiorno then contagiornoinessere=contagiornoinessere+1;endif;
////////////////////////////////////////////////////////////////////////////////
if c>max12 and GetNumOpEnterLongToday=0 and t>1245 then enterlong(nextbar,atopen);endif;
if positiondir=1 and t>1500 then ExitLong(NextBar, AtOpen); // Liquida posizione long
endif;

/////////////////////////////////////////////////////////// //////////////////


PlotChart(WMAX,0, green, solid, 2);
PlotChart(WMIN,0, red, solid, 2);
DrawText(3,0 ,D ,wmax , "max.orario=",wmax , green, 10, 2+3,Alright);
DrawText(2,0 ,D ,wmin , "min.orario=",wmin , red, 10, 2+3,Alright);

vp1 = Createviewport(450);
Plotchart(max10,vp1,green,solid,2);
Plotchart(max11,vp1,green,solid,2);
Plotchart(max12,vp1,green,solid,2);
Plotchart(max13,vp1,green,solid,2);
Plotchart(max14,vp1,green,solid,2);
Plotchart(max15,vp1,green,solid,2);
Plotchart(max16,vp1,green,solid,2);
Plotchart(max17,vp1,green,solid,2);


vp2 = Createviewport(450);
Plotchart(min10,vp2,red,solid,2);
Plotchart(min11,vp2,red,solid,2);
Plotchart(min12,vp2,red,solid,2);
Plotchart(min13,vp2,red,solid,2);
Plotchart(min14,vp2,red,solid,2);
Plotchart(min15,vp2,red,solid,2);
Plotchart(min16,vp2,red,solid,2);
Plotchart(min17,vp2,red,solid,2);