Ola Pessoal, bom dia

Dom

Quando quero plotar bollinger e macd tenho problema pois ficam somente no grafico secundario ou somente no principal, como faço para separar, ja tentei o icone superior do lado direito do grafico.

JulioPereira

Se você programar no mesmo código não vai plotar separado. Tem que criar um código para cada indicador. Se você estiver falando dos indicadores nativos, é só escolher onde vai plotar na hora de plota-los.

leonsmota

Tem que fazer um parametro verdadeiro falso e setar cada um com um plot, aí vc adiciona o mesmo indicador no grafico (bollinger) e em uma nova janela, e nesse da nova janela vc muda o parametro para plotar o macd.

parametro

bollinger(verdadeiro);
macd(falso)

BEGIN

if (bollinger) e (macd = falso) 
then
plot(bollinger)
else
if (bollinger = falso) e (macd)
then
plot(macd);

END;

Dom

Obrigado leonsmota, tentei não roloou segue abaixo

Input
  pBollinger(Verdadeiro);
  bMacd     (Falso);
  Desvio(0.5);
  MediaB(9);
  Alvo(2.0);
  MediaC(7);
  MediaL(9);
  Sinal(5);

Var
  BolChC       : Float;
  BolChV       : Float;
  MediaBol     : Float;
  StopV        : Float;
  StopC        : Float;
  pMacd,Msinal : Float;
begin
  
  MediaBol := Media(MediaB,0);
  BolChC   := BollingerBands(Desvio,MediaB,1)[1];
  BolChV   := BollingerBands(Desvio,MediaB,1)[0];
  Se (pBollinger) e (bMacd = Falso) então
  Plot(MediaBol);
  Plot(BolChC);
  SetPlotColor(1,Clwhite);
  Plot2(BolChV);
  SetPlotColor(2,Clwhite); 
  


  pMacd := MACD(MediaL,MediaC,Sinal);
  Msinal := Media(Sinal,pMacd);
  Se (bMacd) e (pBollinger = Falso) então
  Plot3(pMacd);
  Plot4(Msinal);
  SetPlotColor(3,ClWhite);
  SetPlotColor(4,ClRed); 
  
  
  Se (Isbought) entao
    //Verifica se esta comprado
    Inicio
      SellToCoverLimit(BuyPrice+500,1);
      //Alvo
      SellToCoverStop(Lowest(low,5),Lowest(low,5),1);
      //Stop
    Fim;
  Se (IsSold) entao
    //Verifica se esta vendido
    Inicio
      BuyToCoverLimit(SellPrice-500,1);
      //Alvo
      BuyToCoverStop(Highest(high,5),Highest(High,5),1);
      //Stop
    Fim;
  if (BuyPosition = 0) e (SellPosition = 0) entao
    //Verifica se existe posição
    //Condição de venda
    Se (Fechamento[1] > BolChV[1]) e (Fechamento[0] < BolChV[0]) e (pMacd[1] > Msinal[1]) e (pMacd[0] < Msinal[0]) entao
      Inicio
        SellShortAtMarket;
        //Condição de Compra
        Se (Fechamento[1] < BolChC) e (Fechamento[0] > BolChC) e (pMacd[1] < Msinal[1]) e (pMacd[0] > Msinal[0]) entao
          Inicio
            BuyAtMarket;


          Fim;
      end;
end;

leonsmota

Dom

Plot(MediaBol);
Plot2(BolChC);
SetPlotColor(1,Clwhite);
Plot3(BolChV);
SetPlotColor(2,Clwhite);


pMacd := MACD(MediaL,MediaC,Sinal);
Msinal := Media(Sinal,pMacd);
Se (bMacd) e (pBollinger = Falso) então
Plot4(pMacd);
Plot5(Msinal);
SetPlotColor(3,ClWhite);
SetPlotColor(4,ClRed);

Dom

Input
  Desvio(0.50);
  MediaB(9);
  MediaL(9);
  MediaC(7);
  Sinal(5);
Var
  MediaBol : Float;
  BolChC   : Float;
  BolChV   : Float;
  pMacd    : Float;
  Msinal   : Float;
  IndM      : Booleano;
  IndB      : Booleano;
begin
  Inicio
    BolChC := BollingerBands(Desvio,MediaB,0)|0|;
    BolChV := BollingerBands(Desvio,MediaB,0)|1|;
    MediaBol := Media(MediaB,Fechamento);
    Se (IndB) e (IndM= False) entao
    Plot(BolChc);
    PLot2(BolChv);
    Plot3(MediaBol);
    SetPlotColor(1,ClWhite);
    SetPlotColor(2,ClWhite);
    SetPlotColor(3,ClYellow);
  Fim;
  Inicio
    Se (IndM) e (IndB= False) entao
    pMacd := MACD(MediaL,MediaC,Sinal);
    Msinal := Media(Sinal,pMacd);
    Plot4(pMacd);
    Plot5(Msinal);
    SetPlotColor(4,ClWhite);
    SetPlotColor(5,ClRed);
  Fim;
Fim;

Dom

Tentei desta forma e não plotou nos lugares diferentes ficou os dois indicadores no secundario

leonsmota

Dom

MediaBol := Media(MediaB,0);
BolChC := BollingerBands(Desvio,MediaB,1)[1];
BolChV := BollingerBands(Desvio,MediaB,1)[0];
Se (pBollinger) e (bMacd = Falso) então
begin
Plot(MediaBol);
Plot2(BolChC);
SetPlotColor(1,Clwhite);
Plot3(BolChV);
SetPlotColor(2,Clwhite);
end;

pMacd := MACD(MediaL,MediaC,Sinal);
Msinal := Media(Sinal,pMacd);
Se (bMacd) e (pBollinger = Falso) então
begin
Plot4(pMacd);
Plot5(Msinal);
SetPlotColor(3,ClWhite);
SetPlotColor(4,ClRed);
end;