【原】通达信主图潜龙在渊（附源码)

通达信主图潜龙在渊（附源码)

MA10:MA(C,10),COLORGRAY;

MA20:MA(C,20),COLORGREEN,LINETHICK3;

MA30:MA(C,30),COLORLIRED;

MA40:MA(C,40),COLORRED;

MA60:MA(C,60),COLORLIMAGENTA;

MA120:MA(C,120),COLORCYAN;

MA250:MA(C,250),COLORMAGENTA;

LC:=REF(CLOSE,1);

RSI5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(ABS((CLOSE - LC)),5,1)) * 100);

TR1:=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) / TR1);

MDI:=((DMM * 100) / TR1);

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);

AA:=MA(C,40)>REF(MA(C,40),1) AND REF(MA(C,40),1)>REF(MA(C,40),2);

BB:=MA(C,60)>REF(MA(C,60),1) AND REF(MA(C,60),1)>REF(MA(C,60),2);

CC:=MA(C,20)>REF(MA(C,20),1) AND REF(MA(C,20),1)>REF(MA(C,20),2);

EE:=(AA OR BB OR CC);

BOLL:=MA(CLOSE,19);

LOWER:=BOLL-1.6*STD(CLOSE,19);

FF:=L<=LOWER;

DRAWTEXT(CROSS(潜龙,0) AD EE AND FF ,L*0.98,'★潜龙')LINETHICK4,COLORRED;

注：平台目前更新的有关公式源码，有意可联系V,喜欢加关注，感谢点赞支持，后市若有可期，希望越来越好！