通达信暴涨三合一选股指标公式源码

通达信暴涨三合一选股指标公式源码

源码正文：

n:=14;mm:=6{XG51};
cr月:ma("CR.CR#MONTH",5),COLOR00008C,LINETHICK2{XG51};
DRAWTEXT(ISLAstBAR,CR月,'CR月'),COLOR00008C{XG51};
TH:=SUM(IF(CLOSE>REF(CLOSE,1),AMO,0),26){XG51};
TL:=SUM(IF(CLOSE<REF(CLOSE,1),AMO,0),26){XG51};
TQ:=SUM(IF(CLOSE=REF(CLOSE,1),AMO,0),26){XG51};
VR:100*(TH*2+TQ)/(TL*2+TQ),COLORRED{XG51};
MVR:MA(VR,6),COLORBLUE{XG51};
DRAWTEXT(ISLASTBAR,VR,'VR'),COLORRED{XG51};
DRAWTEXT(ISLASTBAR,MVR,'VR均'),COLORBLUE{XG51};
MTR:=EXPMema(MAX(MAX(HIGH-LOW,Abs(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N){XG51};
HD :=HIGH-REF(HIGH,1){XG51};
LD :=REF(LOW,1)-LOW{XG51};
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N){XG51};
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N){XG51};
pdi:DMP*1000/MTR,COLORLIMAGENTA,DOTLINE{XG51};
mdi:DMM*1000/MTR,COLORYELLOW,DOTLINE{XG51};
ADX:EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*1000,MM),COLORLICYAN,DOTLINE{XG51};
ADXR:=EXPMEMA(ADX,MM){XG51};
IF(ADX>ADXR,ADX,DRAWNULL),LINETHICK2,COLORLICYAN,CIRCLEDOT{XG51};
MID:=REF(HIGH+LOW,1)/2{XG51};
CR:SUM(MAX(0,HIGH-MID),26)/SUM(MAX(0,MID-LOW),26)*100,COLORWHITE{XG51};
DRAWTEXT(ISLASTBAR,CR,'CR'),COLORWHITE{XG51};
DRAWTEXT(ISLASTBAR,ADX,'ADX'),COLORLICYAN{XG51};
CR1:=REF(MA(CR,10),10/2.5+1){XG51};
CR2:=REF(MA(CR,20),20/2.5+1){XG51};
CR3:=REF(MA(CR,40),40/2.5+1){XG51};
CR4:=REF(MA(CR,62),62/2.5+1){XG51};
CRJ:1/10*CR1+2/10*CR2+3/10*CR3+CR4*4/10,COLORCYAN{XG51};
DRAWICON((C-REF(C,1))/REF(C,1)*100>9.7,ADX,15){X.G=5*1.C.N.{};