codice Ts contatore minimi e massimi 1ª ora (0900--1000)
////////////////////////////////// Totalmax-Totalmin/////////////////////////////////////11-07-2009
Var: rangegiorno,meseprec,idlastop;
var: TimeIni(0900), TimeFine(1000);
var: miomax1, miomin1, mydatemin, mytimemin, mydate, mytime,dayspassati, volteMaxInterv, ivp,idmin1,idmax1,op1,ivp2,ivp3,ivp4, volteMinInterv;
var: TimeIni1(1630), TimeFine1(1730);
var: miomax11, miomin11, mydatemin1, mytimemin1, mydate1, mytime1,dayspassati1, volteMaxInterv1, ivp,idmin11,idmax11,op1,ivp2,ivp3,ivp4, volteMinInterv1,meseprec1;
var: totalmin,totalmax,vp1,vp2,vp3,vp4;
rangegiorno=(((highd(1)-lowd(1))/lowd(1))*100);
////////////////////////////////Conteggio Max&Min prima ora///////////////////////////////////////////////////////////////////
if IsFirstBarDay then // Primo Giorno
if ((mytime >= TimeIni) and (mytime <= TimeFine)) {and lowd>lowd(1)}{and openday<lowd(1)} then
volteMaxInterv = volteMaxInterv + 1;//1;
idmin1 = DrawHLinePer (idmin1, 0, mydate, miomax1, 10, red, 1, 0);
endif;
if ((mytimemin >= TimeIni) and (mytimemin <= TimeFine)){and highd<highd(1)}{and openday>highd(1)} then
volteMinInterv = volteMinInterv + 1;// 1;
idmax1 = DrawHLinePer (idmax1, 0, mydatemin, miomin1, 10, green, 1, 0);
endif;
endif;
if IsFirstBarDay then // Primo Giorno
miomax1 = 0; // azzera
miomin1 = 10000000; // azzera
dayspassati = dayspassati + 1;
idmin1 = createogg;
idmax1 = createogg;
endif;
if H > miomax1 then
miomax1 = H; // imposto il nuovo massimo
mydate = D;
mytime = T;
endif;
if L < miomin1 then
miomin1 = L; // imposto il nuovo massimo
mydatemin = D;
mytimemin = T;
endif;
if getmonth<>meseprec then volteMinInterv=0;endif; /////////////////////////////
if getmonth<>meseprec then volteMaxInterv=0;endif;
meseprec=getmonth;
///////////////////////////////////////////////////////////////////////////////
////////////////////////////////Conteggio Max&Min ultima ora///////////////////////////////////////////////////////////////////
if IsFirstBarDay then // Primo Giorno
if ((mytime1 >= TimeIni1) and (mytime <= TimeFine1)) {and highd>highd(1)} then
volteMaxInterv1 = volteMaxInterv1 + 1 ;//1;
idmin11 = DrawHLinePer (idmin11, 0, mydate1, miomax11, 10, green, 1, 0);
endif;
if ((mytimemin1 >= TimeIni1) and (mytimemin1 <= TimeFine1)){and lowd<lowd(1)} then
volteMinInterv1 = volteMinInterv1 + 1 ;//1;
idmax11 = DrawHLinePer (idmax11, 0, mydatemin1, miomin11, 10, red, 1, 0);
endif;
endif;
if IsFirstBarDay then // Primo Giorno
miomax11 = 0; // azzera
miomin11 = 10000000; // azzera
dayspassati1 = dayspassati1 + 1;
idmin11 = createogg;
idmax11 = createogg;
endif;
if H > miomax11 then
miomax11 = H; // imposto il nuovo massimo
mydate1 = D;
mytime1 = T;
endif;
if L < miomin11 then
miomin11 = L; // imposto il nuovo massimo
mydatemin1 = D;
mytimemin1 = T;
endif;
if getmonth<>meseprec1 then volteMinInterv1=0;endif; /////////////////////////////
if getmonth<>meseprec1 then volteMaxInterv1=0;endif;
meseprec1=getmonth;
totalmin=op(voltemininterv,voltemaxinterv1,add);
totalmax=op(voltemaxinterv,voltemininterv1,add);
/////////////////////////////////________________Plottaggi______________////////////////////////////////////////////////////
vp1 = Createviewport(150);
plotchart(rangegiorno, vp1, red, solid, 3);
vp2 = Createviewport(450);
plotchart(volteMinInterv, vp2, green, solid, 3);
plotchart(volteMaxInterv, vp2, red, solid, 3);
