Construa seudesenvolvedor IApara NTSL no Profit

input
  pPeriodoRSI(14);
  pPeriodoMedia(20);
var
  fRSI : Float;
  fBase : Float;
  fHibrido : Float;
begin
  fRSI := RSI(pPeriodoRSI, Close);
  fBase := MediaExp(pPeriodoMedia, Close);

  // aplique aqui a lógica de sincronização
  fHibrido := fRSI;

  Plot(fHibrido);
end;

var
  fLinha : Float;
  bAlta, bBaixa : Boolean;
begin
  fLinha := MediaExp(20, Close);
  Plot(fLinha);

  if bAlta then
    SetPlotColor(1, clLime)
  else if bBaixa then
    SetPlotColor(1, clRed)
  else
    SetPlotColor(1, clGray);

  SetPlotWidth(1, 2);
end;

input
  pInicio(0905);
  pFimEntradas(1700);
  pZerar(1715);
var
  bCompra : Boolean;
begin
  if (Time >= pInicio) and (Time < pFimEntradas) then
  begin
    if bCompra and not HasPosition then
      BuyAtMarket;
  end;

  if Time >= pZerar then
    ClosePosition;
end;