var
PrecoC, PrecoV: Float;
sinalC, sinalV: booleano;
//VARIAVEIS DA ESTRATEGIA
mm_C, mm_L : real;
begin
//CARREGAR INDICADORES
mm_C := MediaExp(9,fechamento);
mm_L := MediaExp(21,fechamento);
//SINAL DE ENTRADA
sinalC := (mm_C[1] < mm_L[2]) e (mm_C > mm_L);
sinalV := (mm_C[1] > mm_L[2]) e (mm_C < mm_L);
//EXECUÇÃO DE ENTRADA
se (sinalC)e (not IsBought) e (not IsSold) entao BuyAtMarket;
se (sinalV)e (not IsBought) e (not IsSold) entao SellShortAtMarket;
Input
MediaCurta(5);
MediaLonga(10);
Var
MediaC, MediaL : Float;
se (HasPosition = False) entao
Inicio
//Cruzamento para Baixo
se (MediaC[1] > Media[1]) e (MediaC[0] < MediaL[0]) entao
SellShortAtMarket;
se (MediaC[1] > Media[1]) e (MediaC[0] > MediaL[0]) entao
BuyAtMarket;
Fim;
//Entrada
HorizontalLine(LowD(1),clYellow);
HorizontalLine (HighD(1),clYellow);
//PrecoC := high + minpriceincrement*TickTrigger;
//PrecoV := low - minpriceincrement*TickTrigger;
//Coloração
// if (high>= PrecoC[1]) paintBar (clGreen);
// if (high>= PrecoV[1]) paintBar (clRed);
end;