Var:Massimi_Crescenti,Minimi_Decrescenti,Volume_Crescente,precval;
Massimi_Crescenti=BarSince(H>H[1])>=4;// 4 massimi crescenti
Minimi_Decrescenti=BarSince(L<L[1])>=4;// 4 minimi decrescenti
Volume_Crescente=BarSince(V>V[1]*2)>=1;// Volume maggiore del doppio del precedente
IF Massimi_Crescenti AND Volume_Crescente THEN
IF positionshort THEN
exitshort(nextbar,atopen);
ENDIF;
enterlong(nextbar,atopen);
ENDIF;
IF Minimi_Decrescenti AND Volume_Crescente THEN
IF positionlong THEN
exitlong(nextbar,atopen);
ENDIF;
entershort(nextbar,atopen);
ENDIF;
{******************************************************************************
Chiusura di tutte le posizioni a fine giornata
******************************************************************************* }
IF T>1730 THEN
IF positionlong THEN
exitlong(nextbar,atopen);
ENDIF;
IF positionshort THEN
exitshort(nextbar,atopen);
ENDIF;
ENDIF;
{******************************************************************************
Modulo di scrittura su file
******************************************************************************* }
If precval<1 AND positiondir=1 THEN
FileWriteDateHour("c:\prova.txt", false);
FileWriteStringVal2("c:\prova.txt", " - compro a ", O, " punti " ,true);
ENDIF;
If precval>-1 AND positiondir=-1 THEN
FileWriteDateHour("c:\prova.txt", false);
FileWriteStringVal2("c:\prova.txt", " - vendo a ", O, " punti " ,true);
ENDIF;
precval=positiondir;