通达信多指标共振未加密选股指标公式源码

源码正文：

MTR:=EXPMema(maX(MAX(HIGH-LOW,Abs(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14){XG51};
HD :=HIGH-REF(HIGH,1){XG51};
LD :=REF(LOW,1)-LOW{XG51};
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),14){XG51};
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),14){XG51};
pdi: DMP*100/MTR,LINETHICK3,NODRAW{XG51};
mdi: DMM*100/MTR,LINETHICK3,NODRAW{XG51};
ADX: EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,6),NODRAW{XG51};
ADXR:EXPMEMA(ADX,6),NODRAW{XG51};
IF(ADX>=ADXR,70,DRAWNULL),COLORLIMAGENTA,LINETHICK9{XG51};
IF(ADX<ADXR,70,DRAWNULL),COLORGREEN,LINETHICK8{XG51};
DRAWTEXT(ISLAstBAR=1,IF(ADX>=ADXR,70,70),' ADX金'),COLORRED{XG51};
IF(PDI>=MDI,65,DRAWNULL),COLOR0000EE,LINETHICK8{XG51};
IF(PDI<MDI,65,DRAWNULL),COLORCYAN ,LINETHICK6{XG51};
DRAWTEXT(ISLASTBAR=1,IF(PDI>=MDI,65,65),' PDI金'),COLORRED{XG51};
LC:=REF(CLOSE,1){XG51};
rsi1:SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100,NODRAW{XG51};
IF(RSI1>=50,60,DRAWNULL),COLOR0000EE,LINETHICK8{XG51};
IF(RSI1<50,60,DRAWNULL),COLORCYAN ,LINETHICK6{XG51};
DRAWTEXT(ISLASTBAR=1,IF(RSI1>=50,60,60),' RSI'),COLORRED{XG51};
dif:EMA(CLOSE,12)-EMA(CLOSE,26),NODRAW{XG51};
DEA:EMA(DIF,9),NODRAW{XG51};
IF(DIF>=DEA,55,DRAWNULL),COLOR0000EE,LINETHICK8{XG51};
IF(DIF<DEA,55,DRAWNULL),COLORCYAN ,LINETHICK6{XG51};
DRAWTEXT(ISLASTBAR=1,IF(DIF>=DEA,55,55),' macd'),COLORRED{XG51};
主力筹码集中度:WINNER(C)*100,NODRAW{XG51};
散户筹码集中度:(WINNER(C*1.1)-WINNER(C*0.9))*100,NODRAW{XG51};
IF(主力筹码集中度>=散户筹码集中度,45,DRAWNULL),COLOR0000EE,LINETHICK8{XG51};
IF(主力筹码集中度<散户筹码集中度,45,DRAWNULL),COLORCYAN ,LINETHICK6{XG51};
DRAWTEXT(ISLASTBAR=1,IF(主力筹码集中度>=散户筹码集中度,45,45),' 获利纵横'),COLORRED{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:SMA(RSV,3,1),NODRAW{XG51};
D:SMA(K,3,1),NODRAW{XG51};
J:3*K-2*D,NODRAW{XG51};
IF(J>=K,50,DRAWNULL),COLOR0000EE,LINETHICK8{XG51};
IF(J<K,50,DRAWNULL),COLORCYAN ,LINETHICK6{XG51};
DRAWTEXT(ISLASTBAR=1,IF(J>=K,50,50),' kdj'),COLORRED{XG51};
十天主力持仓:10*WINNER(CLOSE*0.9)*8, COLORGREEN,DOTLINE{XG51};
VAR100:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*(10){XG51};
增减力度:VAR100*6,COLOR0000FF,LINETHICK3{XG51};
IF(增减力度<0,增减力度,DRAWNULL),LINETHICK3,COLOR00FFFF{XG51};
IF(增减力度,增减力度<10,DRAWNULL),LINETHICK3,COLORFFFF00{XG51};
换手:vol*10000/FInaNCE(7),NODRAW{XG51};
五日换手:SUM(换手,5),COLORFFFF00,NODRAW{XG51};
十日换手:SUM(换手,10),NODRAW{X_G^5?1_C_N_{};

源码正文：

ZF:=100*(CLOSE/REF(CLOSE,1)-1){XG51};
A:=BArslAst(ZF>6){XG51};
E:=REF(OPEN,A-1)<REF(CLOSE,A) AND REF(CLOSE,A-1)<REF(OPEN,A-1){XG51};
XG:E AND REF(CLOSE,A)>=HHV(HIGH,A) AND A<=10{X*G!5~1*C*N*{};