s

Recentemente testei uma automação de "máximas e mínimas" com canal de Keltner no ativo WDO. No backtesting é uma máquina de fazer dinheiro. No Replay de Mercado, idem. Na conta simulada outro pote de ouro. Mas na conta real, é loss garantido.

Observando o mercado na conta real, o que ocorreu foi o preço ser negociado na entrada (e saída se tiver entrado), mas não ser executado, pois me parece que a ordem da automação age "como se fosse a última", só sendo executada se houver agressão que ultrapasse o preço.

Mesmo clicando na caixa "Realizar envio de ordens quando a condição for realizada" na aba "Entrada" de "Editar Automação", não vai. Esta caixa marcada, inclusive, fornece um ganho maior no replay de mercado. 

Combinei com amigo de entrarmos no mesmo dia e horário, ele na conta simulada, eu na real. Foram 3 dias de gain pra ele e 3 dias de loss pra mim. Isso depois de realizar 30 replays de mercado, alguns com velocidade normal, outros na velocidade máxima. Neste teste, foram 29 dias de gain e 1 de loss. Imaginem a minha frustração...

Pois, bem. Pensei em entrar antes e sair antes 1 tick, pois, em muitas vezes, há menos contratos ali. Coloquei na real, e mais uma vez loss. No backtesting e replay, ok. 

Pergunto, após essa breve explanação, há salvação para esta automação? 

Daniel

(41) 99545-9948 (Whats)

Input
HorarioInicio (0930);
HorarioFinal (1700);
__Indicador ("Indicador");
Periodo (30);
Desvio (1.50);
Stop (300);
PeridoDI (34);


Var
LRCcen,LRCsup,LRCinf : Float;
Begin


if (Time >= HorarioFinal) then ClosePosition;

LRCcen := LinearRegressionChannel(Periodo,True,Desvio,True,Desvio);
LRCsup := LinearRegressionChannel(Periodo,True,Desvio,True,Desvio)|1|;
LRCinf := LinearRegressionChannel(Periodo,True,Desvio,True,Desvio)|2|;


{Plotagem Indicador}
Plot (LRCcen); SetPlotColor(1,clCinza);
Plot2 (LRCsup); SetPlotColor(2,255);
Plot3 (LRCinf); SetPlotColor(3,clLime);

Se (DIPDIM(PeridoDI)|1|) > (DIPDIM(PeridoDI)|0|) então
PaintBar(ClBlue)
senao PaintBar(ClYellow);


Se (Time >= HorarioInicio) and (Time <= HorarioFinal) então

Inicio

//----- ADMINSTRACAO DE COMPRA
Inicio
Se IsBought e Hasposition então
Inicio
SellToCoverLimit(LRCcen-(1*MinPriceIncrement));
SellToCoverStop(BuyPrice-Stop,SellPrice-Stop-400);
Fim;
Se (DIPDIM(PeridoDI)|1| > DIPDIM(PeridoDI)|0|) então ClosePosition;
Fim;

//----- ADMINSTRACAO DE VENDA
Inicio
Se isSold e Hasposition então
Inicio
BuyToCoverLimit(LRCcen+(1*MinPriceIncrement));
BuyToCoverStop(Sellprice+Stop,SellPrice+Stop+400);
Fim;
Se (DIPDIM(PeridoDI)|1| < DIPDIM(PeridoDI)|0|) então ClosePosition;
Fim;

// ---- ABRIR OPERAÇÕES
Se Not HasPosition e (Time > HorarioInicio) and (Time < HorarioFinal) entao
Inicio
Se (Fechamento > LRCCen) e (DIPDIM(PeridoDI)|1| > DIPDIM(PeridoDI)|0|) e (Maxima < LRCSup) ou (Maxima < LRCSup) então
Inicio
SellShortLimit(LRCsup+(1*MinPriceIncrement));
Fim;

Se (Fechamento < LRCCen) e (DIPDIM(PeridoDI)|0| > DIPDIM(PeridoDI)|1|) e (Minima > LRCInf) ou (Minima > LRCInf) então
Inicio
BuyLimit(LRCinf-(1*MinPriceIncrement));
Fim;
Fim;
Fim;
Fim;

Estou desenvolvendo um robo de gradiente linear, e me deparei com o seguinte problema.

O algoritmo inicialmente executa tudo como deveria, entretanto após um tempo ele mantem um contrato em aberto e não põe as saidas tanto limit como stop (alvo e loss) e fica assim até intervenção manual.

O estranho é que, ele funciona corretamente durante um bom tempo, depois ocorre isso, independente de timeframe. 

Gostaria de saber se há alguma coisa q posso fazer no inicio do código pra ele ficar em um loop sempre repetindo o bloco de execução das ordens de saída (stop e loss) afim que isso não ocorra. Mesmo que acabe forçando o processamento do algoritmo. Poderiam me ajudar?

Acredito que esse código daria uma boa automação, contudo como sou um autodidata em TI, preciso de ajuda para corrigir o código.

Acredito que o erro esta na linha:  43 -->

trigger = 0.96 * (nz(scg) + 0.02)

--> trg := 0.96 * (scg) + 0.02;

Segue abaixo

https://in.tradingview.com/script/3SH23THX-Ehlers-Stochastic-Center-Of-Gravity-CC/ 

Input
  len(8);
Var
  fSrc,num,denom,src,cg,maxcg,mincg : float;
  v1,v2,scg,trg,slo                 : float;
  i,sig                             : Integer;
begin
  num := 0.0;
  denom := 0.0;
  fSrc := (high + low) / 2;
  //----------------------------------------
  for i := 0 to len - 1 do
    num := (1 + i) * src;
  denom := (src);
  if (denom <> 0) then
    begin
      cg := - num / denom + (len + 1) / 2;
    end
  else 
    begin
      cg := 0;
    end;
  //----------------------------------------
  maxcg := highest(len,cg);
  mincg := lowest(len,cg);
  if (maxcg <> mincg) then
    begin
      v1 := (cg - mincg) / (maxcg - mincg);
    end
  else 
    begin
      v1 := 0;
    end;
  if (v1 > 0) then
    begin
      v2 := (4 * v1 + 3 * v1 + 2 * v1 + v1) / 10;
    end;
  //----------------------------------------
  scg := 2 * v2 - 0.5;
  //----------------------------------------
  //Precisa de correção dessa linha
  trg := 0.96 * (scg) + 0.02;
  //----------------------------------------
  slo := scg - trg;
  //----------------------------------------
  if (slo > 0) and (slo > slo) then
    begin
      sig := 2;
    end
  else 
    begin
      sig := 1;
    end;
  if (slo < 0) and (slo < slo) then
    begin
      sig := - 2;
    end
  else 
    begin
      sig := - 1;
    end;
  //----------------------------------------
  //Plots
  plot(scg);
  plot2(trg);
  plot3(0);
  plot4(0.90);
  plot5( - 0.90);
  //Color
  if (sig > 1) then
    paintBar(RGB(0,255,0));
  if (sig < - 1) then
    PaintBar(RGB(255,0,0));
end;

Criei um simples indicador que plota no gráfico( RENKO, CANDLE, ETC .. ) o saldo delta daquele candle.

Funcionou durante 1 semana e depois começou a não funcionar mais.

Hoje não lê mais, quando Lê, só lê o que já aconteceu, não consegue ler o candle atual!

Fiz 2 códigos, um pegando o agressionvolbuy e o  agressionvolsell e outro pegando AgressionVolBalance.

Segue abaixo os códigos!

Estou com um chamado aberto na nelógica faz mais de 15 dias e eles disseram que estão tentando resolver que várias pessoas reportaram o mesmo problema.

Com esse problema eu consegui desenvolver uma regra de coloração para ver se conseguia, e a regra carrega normalmente, só está com problema na plotagem.

Se alguém tiver uma solução! 

Obg desde Já! 

Var
Agre : float;
vcor : integer;

begin
Se (agressionvolbuy > agressionvolsell) entao
begin
Agre := (agressionvolbuy - agressionvolsell);
vcor:=clgreen;
end
Senão se (agressionvolbuy < agressionvolsell) entao
begin
Agre := (agressionvolsell - agressionvolbuy);
vcor:=clRed;
end;
begin

Plottext(floor(agre),vcor,position);
paintbar(vcor);
end;
end;

____________________________________________________________________

Var
Agre : float;
vcor : integer;

begin
Se AgressionVolBalance>0 entao
begin
Agre := AgressionVolBalance;
vcor:=clgreen;
end
Senão se AgressionVolBalance < 0 entao
begin
Agre := AgressionVolBalance;
vcor:=clRed;
end;
begin

Plottext(floor(agre),vcor,position);
paintbar(vcor);
end;
end;

Alguem sabe por que esta diferença?