Retornar o maior volume de uma série de dados

EduardoAfonso

Olá.

Estou tentando retornar em uma variável, o maior volume do dia, mas não estou conseguindo. Alguém poderia me ajudar? Segue código abaixo:

var
  bPrimeiraBarraDoDia : boolean;
  iDataAtual          : integer;
  iCurrentBarIntraday, iFirstBarOfDay : integer;
  v1, v2, v3, v4 :  float;

begin
  if (Date() <> iDataAtual) then
   
    begin
      iDataAtual := Date();
      bPrimeiraBarraDoDia := true;
      iFirstBarOfDay := CurrentBar;
    end;

  if bPrimeiraBarraDoDia then
   
    begin
      bPrimeiraBarraDoDia := false;
      //Faz alguma coisa na primeira barra do dia
      paintBar(clGreen);
    end;

    iCurrentBarIntraday := CurrentBar - iFirstBarOfDay + 1;
    plotText(iCurrentBarIntraday, clWhite,0, 8);
    v1:= volume;
    v2:= highest(v1,iCurrentBarIntraday);

    plot(iCurrentBarIntraday);
    plot(v1);
    plot2(v2);
end;

ScApp

Eu achei bem estranho a sua implementação não funcionar, me parece correta, eu tinha uma ideia de simplificá-la, mas que traria o mesmo resultado e também não funcionou, por algum motivo a função Highest parece não aceitar valores das funções CurrentBar e ContadorDeCandle, mesmo quando adicionadas a outra variável, me parece um bug porque com outras variáveis e funções parece funcionar.

[ERRO]

A implementação a seguir pareceu funcionar, mas muito estranho porque a ideia é mesma, eu só usei uma função diferente BarCount.

[ALTERNATIVA]

var
  p,c : inteiro;
  v1  : real;

Inicio
  
  Se ContadorDeCandle = 1 entao
    c := CurrentBar;

  p := BarCount - c;
  v1 := Highest(Volume, p);

  Plot(Volume);
  Plot2(v1);

Fim;

WalterRodriguesFilho

ScApp E não funciona em tempo real nem replay.

ScApp

WalterRodriguesFilho É verdade, com a BarCount não funciona em tempo real, algumas dessas funções de contagem estão se comportando de forma bem estranha recentemente.

WalterRodriguesFilho

Segue código que plota o maior volume do dia num histograma juntamente com o volume (linha) sem usar a função Highest. Funciona no Replay (deve funcionar em tempo real tb).

{DA SÉRIE PÁS, PICARETAS E CARRINHOS DE MÃO - PPCM

MAXMINVOLUME v. 100
MAIOR E MENOR VALOR DO VOLUME NO DIA
POR WALTER RODRIGUES FILHO EM 18/04/2023}

input
topoFundo(1); // (1) - para maior volume do dia, topo e (2) - para menor volume do dia, fundo

var
topo,fundo : Serie;
distanciaUltimoTopo,distanciaUltimoFundo,barraTopo,barraFundo : Integer;

begin

if (ContadorDeCandle = 1) then begin topo:= Volume; distanciaUltimoTopo:= 0; barraTopo:= CurrentBar; end else
if (Volume > Volume[1]) and (Volume > topo[1]) then
begin topo:= Volume; distanciaUltimoTopo:= 0; barraTopo:= CurrentBar; end else
begin topo:= topo[1]; distanciaUltimoTopo:= CurrentBar - barraTopo; end;

if (ContadorDeCandle = 1) then begin fundo:= Volume; distanciaUltimoFundo:= 0; barraFundo:= CurrentBar; end else
if (Volume < Volume[1]) and (Volume < fundo[1]) then
begin fundo:= Volume; distanciaUltimoFundo:= 0; barraFundo:= CurrentBar; end else
begin fundo:= fundo[1]; distanciaUltimoFundo:= CurrentBar - barraFundo; end;

SetPlotType(1,igHistogram);
NoPlot(3);

if (topoFundo = 1) then
begin Plot(Volume); Plot2(topo); Plot3(distanciaUltimoTopo); end else
begin Plot(Volume); Plot2(fundo); Plot3(distanciaUltimoFundo); end;

end;