ProfitChart Pro - Indicador com mais de 4 linhas

Fibo_Bands

input
  plen(17);
  fast(0.666);
  slow(0645);

var 
  mTrueRange : float;

  Oval : Float;
  Hval : Float;
  Lval : Float;
  Cval : Float;
  aC   : Float;
  aH   : Float;
  aL   : Float;

  a382h   : Float;
  a50h    : Float;
  a618h   : Float;
  a764h   : Float;

begin

mTrueRange := AvgTrueRange(377);

Oval   := Media(plen, Open);
Hval   := Media(plen, High);
Lval   := Media(plen, Low);
Cval   := Media(plen, Close);
aC     := (Oval + Hval + Lval + Cval) / 4;

a382h  := aC + 5 * mTrueRange * 0.382;
a50h   := aC + 5 * mTrueRange * 0.5;
a618h  := aC + 5 * mTrueRange * 0.618;
a764h  := aC + 5 * mTrueRange * 0.764;


Plot(a382h);
Plot2(a50h);
Plot3(a618h);
Plot4(a764h);
 
end;

Fibo_Bands0

input
  plen(34);
  fast(0.666);
  slow(0645);

var 
  mTrueRange : float;

  Oval : Float;
  Hval : Float;
  Lval : Float;
  Cval : Float;
  aC   : Float;
  aH   : Float;
  aL   : Float;

  a382h   : Float;
  a50h    : Float;
  a618h   : Float;
  a764h   : Float;

begin

mTrueRange := AvgTrueRange(377);

Oval   := Media(plen, Open);
Hval   := Media(plen, High);
Lval   := Media(plen, Low);
Cval   := Media(plen, Close);
aC     := (Oval + Hval + Lval + Cval) / 4;

a382h  := aC + 5 * mTrueRange * 0.382;
a50h   := aC + 5 * mTrueRange * 0.5;
a618h  := aC + 5 * mTrueRange * 0.618;
a764h  := aC + 5 * mTrueRange * 0.764;


Plot(a382h);
Plot2(a50h);
Plot3(a618h);
Plot4(a764h);
 
end;

Fibo_Bands1

input
  plen(34);
  fast(0.666);
  slow(0645);

var 
  mTrueRange : float;

  Oval : Float;
  Hval : Float;
  Lval : Float;
  Cval : Float;
  aC   : Float;
  aH   : Float;
  aL   : Float;

  a1h   : Float;
  a1272h   : Float;
  a1414h   : Float;
  a1618h   : Float;

begin

mTrueRange := AvgTrueRange(377);

Oval   := Media(plen, Open);
Hval   := Media(plen, High);
Lval   := Media(plen, Low);
Cval   := Media(plen, Close);
aC     := (Oval + Hval + Lval + Cval) / 4;

a1h    := aC + 5 * mTrueRange;
a1272h := aC + 5 * mTrueRange * 1.272;
a1414h := aC + 5 * mTrueRange * 1.414;
a1618h := aC + 5 * mTrueRange * 1.618;


Plot(a1h);
Plot2(a1272h);
Plot3(a1414h);
Plot4(a1618h);
 
end;

Fibo_Bands2

input
  plen(34);
  fast(0.666);
  slow(0645);

var 
  mTrueRange : float;

  Oval : Float;
  Hval : Float;
  Lval : Float;
  Cval : Float;
  aC   : Float;
  aH   : Float;
  aL   : Float;

  a382h   : Float;
  a50h    : Float;
  a618h   : Float;
  a764h   : Float;

begin

mTrueRange := AvgTrueRange(377);

Oval   := Media(plen, Open);
Hval   := Media(plen, High);
Lval   := Media(plen, Low);
Cval   := Media(plen, Close);
aC     := (Oval + Hval + Lval + Cval) / 4;

a382h  := aC - 5 * mTrueRange * 0.382;
a50h   := aC - 5 * mTrueRange * 0.5;
a618h  := aC - 5 * mTrueRange * 0.618;
a764h  := aC - 5 * mTrueRange * 0.764;


Plot(a382h);
Plot2(a50h);
Plot3(a618h);
Plot4(a764h);
 
end;

Fibo_Bands3

input
  plen(34);
  fast(0.666);
  slow(0645);

var 
  mTrueRange : float;

  Oval : Float;
  Hval : Float;
  Lval : Float;
  Cval : Float;
  aC   : Float;
  aH   : Float;
  aL   : Float;

  a1h   : Float;
  a1272h   : Float;
  a1414h   : Float;
  a1618h   : Float;

begin

mTrueRange := AvgTrueRange(377);

Oval   := Media(plen, Open);
Hval   := Media(plen, High);
Lval   := Media(plen, Low);
Cval   := Media(plen, Close);
aC     := (Oval + Hval + Lval + Cval) / 4;

a1h    := aC - 5 * mTrueRange;
a1272h := aC - 5 * mTrueRange * 1.272;
a1414h := aC - 5 * mTrueRange * 1.414;
a1618h := aC - 5 * mTrueRange * 1.618;


Plot(a1h);
Plot2(a1272h);
Plot3(a1414h);
Plot4(a1618h);
 
end;