通达信KDJJ长短线指标公式源码

N:=81;
M1:=3;
M2:=3;
100,COLORBLUE,LINETHICK2;
50,COLORBLUE,LINETHICK2;
0,COLORBLUE,LINETHICK2;
J9:"kdj.J",COLORMAGENTA,LINETHICK2;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,M1,1) COLORGREEN,LINETHICK2;
D:SMA(K,M2,1) COLORGRAY,LINETHICK2;
J:3*K-2*D,COLORRED,LINETHICK2;
LC:=REF(CLOSE,1);
rsi5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(Abs((CLOSE - LC)),5,1)) * 100);
TR0:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10);
HD:=(HIGH - REF(HIGH,1));
LD:=(REF(LOW,1) - LOW);
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10);
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10);
PDI:=((DMP * 100) / TR0);
mdi:=((DMM * 100) / TR0);
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5);
AV:=(RSI5 + ADX);
DXR:=(((ADX + REF(ADX,5)) / 2) + RSI5);
wr10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10)));
NEWvol:=(RSI5 - WR10);
阶段底部:=(AV + NEWVOL);
趋势测底:(LLV(阶段底部,1))/3,COLORFF8800;
J9测底:J9-趋势测底,NODRAW;