Indicador Matrix

Adler

Adler Publicado 18/06/2019 


Este é o código para o Indicador completo matrix. Então, não precisa adicionar medias e cores. Ele ja está pronto para o uso.


procedure Matrix8;
begin
  plot(media(8, close));
  Se (Media(8,Close) > Media(8,Close)[1]) então
    setplotcolor(1, clVerde)
  Senão Se (Media(8,Close) < Media(8,Close)[1]) então
    setplotcolor(1, clVermelho);
end;

procedure Matrix50;
begin
  plot2(media(50, close));
  SetPlotWidth(2, 2);
  Se (Media(50,Close) > Media(50,Close)[1]) e (Media(50,Close) < Media(20,Close)) então
    setplotcolor(2, clVerde)
  Senão Se (Media(50,Close) < Media(50,Close)[1]) e (Media(50,Close) > Media(20,Close)) então
    setplotcolor(2, clVermelho);
end;

Procedure Matrix200;
inicio
  plot3(media(200, close));
  SetPlotWidth(3, 3);
  Se (Media(200,Close) > Media(200,Close)[1]) e (Media(200,Close) < Media(50,Close)) e (Fechamento > Fechamento[1]) então
    setplotcolor(3, clVerde)
  Senão Se (Media(200,Close) < Media(200,Close)[1]) e (Media(200,Close) > Media(50,Close)) e (Fechamento < Fechamento[1]) então
    setplotcolor(3, clVermelho);
end;

procedure MatrixVWAP;
begin
  plot4(VWAP(1));
  Se (VWAP(1) > VWAP(1)[1]) então
    setplotcolor(4 ,clVerde)
  Senão Se (VWAP(1) < VWAP(1)[1]) então
    setplotcolor(4, clVermelho);
fim;

begin
   matrix8;
   matrix50;
   Matrix200;
   MatrixVWAP;
end;


Voltar ao topo