Postado por: @paulo-junior

↑

Criei um código com uma estratégia de execução, embora não esteja vendo erros nela, somente na ponta da venda esta funcionando como deveria, quando executa a compra nem o stop nem o fechamento de posição q configurei funcionam, fica grato se alguém me ajudasse.

e cade o código? kk

Esta aqui, no post passado tina mandando anexo em bloco de notas.

//SETUP
Input
MediaCurta(9);
MediaLonga(20);
Var
hMACD,MediaC,MediaL,StopC,StopV : Float;
verde,Vermelho,hMACPos,hMACDNeg : boolean;
Inicio
hMacd := MACD(26,12,9)|1|;
hMACPos := hMACD > 0;
hMACDNeg := hMACD < 0;

Se (Hasposition = false) Então

Inicio

Se (Minima < MediaExp(9,Close))e (Fechamento > MediaExp(9,Close)) e (MediaExp(9,Close) > Media(20,Close)) e (hMACD > 0) Então
BuyStop(Maxima,Maxima + 5);
StopC := (Minima - 5);
Se (Maxima > MediaExp(9,close)) e (Fechamento < MediaExp(9,Close)) e (MediaExp(9,Close) < Media(20,Close)) e (hMACD < 0) então
Inicio
SellShortStop(Minima,Minima - 5);
Stopv := (Maxima + 5);
Fim;
Inicio
Se (Minima< Media(9,Close)) e (Fechamento > MediaExp(9,Close)) e (MediaExp(9,Close) > Media(20,Close)) e (hMACD > 0) Então
Paintbar(clazul)
Senão Se (Maxima > MediaExp(9,Close)) e (Fechamento < MediaExp(9,Close)) e (MediaExp(9,Close) < Media(20,Close)) e (hMACD < 0) então
PaintBar(Clfucsia);
fim;
Se (IsBought) então
SelltoCoverStop(StopC,StopC - 5);
Se (hMACD[1] > 0) e (hMACD < 0) Então
ClosePosition;
//Stop
Fim;
Se (IsSold) então
BuytocoverStop(StopV,StopV + 5);
Se (hMACD[1] < 0) e (hMACD > 0) Então
ClosePosition;
//Stop
Fim;
fim;

na ponta da Venda esta normal, mas a compra não funciona o o Selltocoverstop nem o close position

Oi, não tive tempo de testar, verifique se está ok... também dei uma otimizada no código, pois tinha muita coisa perdida sem nenhuma função.

Input
  MediaCurta(9);
  MediaLonga(20);
Var
  hMACD,StopC,StopV : Float;
  cc,vv             : boolean;
Inicio
  hMacd := MACD(26,12,9)|1|;
  cc := (Minima < MediaExp(MediaCurta,Close)) e (Fechamento > MediaExp(MediaCurta,Close)) e (MediaExp(MediaCurta,Close) > Media(MediaLonga,Close)) e (hMACD > 0);
  vv := (Maxima > MediaExp(MediaCurta,close)) e (Fechamento < MediaExp(MediaCurta,Close)) e (MediaExp(MediaCurta,Close) < Media(MediaLonga,Close)) e (hMACD < 0);
  if cc and not isbought then
    begin
      BuyStop(Maxima,Maxima + 5);
      StopC := (Minima - 5);
      Paintbar(clazul);
    end;
  Se vv and not issold then
    begin
      SellShortStop(Minima,Minima - 5);
      Stopv := (Maxima + 5);
      PaintBar(Clfucsia);
    end;
  Se (IsBought) então
    begin
      SelltoCoverStop(StopC,StopC - 5);
      Se (hMACD[1] > 0) e (hMACD < 0) Então
        ClosePosition;
    end;
  Se (IsSold) então
    begin
      BuytocoverStop(StopV,StopV + 5);
      Se (hMACD[1] < 0) e (hMACD > 0) Então
        ClosePosition;
    end;
fim;