Input

pr(21);
pl(50);
gain(500);
loss(500);

Var

mr, ml: Float;
compra, venda: boolean;

Inicio

mr:= Media(pr,fechamento);
ml:= Media(pl,fechamento);

compra:= (mr > ml) e (mr[1] < ml[1]);
venda:= (mr < ml) e (mr[1] > ml[1]);

Se (BuyPosition = 0) e (SellPosition = 0) e (time > 900) e (time < 1700) então
  Inicio
    Se compra então BuyAtMarket;
    Se venda então SellShortAtMarket;
  Fim;                    

Se BuyPosition = 1 então
  Inicio
    SellToCoverStop (BuyPrice+gain,BuyPrice+gain);
    SellToCoverStop (Buyprice-loss,BuyPrice-loss);
  Fim;

Se Sellposition = 1 então
  Inicio
    BuyToCoverStop(SellPrice-gain,SellPrice-gain);
    BuyToCoverStop(SellPrice+loss,SellPrice+loss);
  Fim;

Se time > 1710 então closeposition;

Fim;