Red de conocimiento informático - Conocimiento de la instalación - ¡Por favor, reescriba el indicador del subgráfico de divergencia inferior MACD en el indicador del subgráfico de divergencia superior! Este indicador proviene de TDX.

¡Por favor, reescriba el indicador del subgráfico de divergencia inferior MACD en el indicador del subgráfico de divergencia superior! Este indicador proviene de TDX.

{Uno es divergencia en la parte inferior y el otro es divergencia en la parte superior ¿Cómo pueden ser los mismos efectos? }

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIF,9);

MACD0 :=(DIF-DEA)*2;

MJ:=MACD0;

JC:=DEA-DIF;

S05:=SUM(MJ, 0);

QST:=BARSLAST(MJlt;0 AND REF(MJ,1)gt;0) 1;

QXT:=BARSLAST(MJgt;0 AND REF(MJ,1)lt ;0) 1;

S5:=SI(MJgt;0,S05-REF(S05,BARSLAST(MJlt;0)),S05-REF(S05,BARSLAST(MJgt;0)))/ 10;

ST:=SI(MJgt;0,REF(QST,QXT) QXT,REF(QXT,QST) QST);

RS5:=REF(S5,ST

BC: IF(MJgt; 0 AND S5lt; RS5, 0, IF(MJlt; 0 AND S5lt; RS5 AND DEAlt; 0, 1, 0)), COLORRED

HM:=SI(MJgt;0, SUM(MJ,BARSLAST(JCgt;0)),0);

X2:=SI(MJgt;0,BARSLAST(CROSS(DEA,DIF) ), 0);

QHM:=REF(HM,X2 1);

BZD:=LLV(L, BARSLAST (JClt;0));

BZG:=HHV(H, BARSLAST(JCgt; 0));

QZG:=REF(BZG, X2 1);

Y2:=IF((HMgt; 0 Y HMlt; QHM Y BZGgt; QZG ), 1, 0

DC: IF (CROSS (DEA, DIF), REF (Y2, 1), 0), COLORGREEN;