通达信动量指数指标公式源码

VAR1:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14);
VAR2:=HIGH-REF(HIGH,1);
VAR3:=REF(LOW,1)-LOW;
VAR4:=EXPMEMA(IF(VAR2>0&&VAR2>VAR3,VAR2,0),14);
VAR5:=EXPMEMA(IF(VAR3>0&&VAR3>VAR2,VAR3,0),14);
VAR6:=VAR4*100/VAR1;
VAR7:=VAR5*100/VAR1;
VAR8:=EXPMEMA(ABS(VAR7-VAR6)/(VAR7+VAR6)*100,6),COLORYELLOW,LINETHICK2,NODRAW;
VAR9:=EXPMEMA(VAR8,6);
DRAWTEXT(ISLASTBAR,40,'中'),COLORGREEN;
DRAWTEXT(ISLASTBAR,60,'强'),COLORCYAN;
DRAWTEXT(ISLASTBAR,20,'弱'),COLORCYAN;
DRAWTEXT(ISLASTBAR,80,'龙'),COLORCYAN;
VAR10:=VAR6-VAR8;
DRAWTEXT_FIX(1,0.52,0,0,'☆微信公众号：(程序化指标)WWW.CXHZB.COM ☆'),COLORRED;
DRAWTEXT_FIX(1,0.70,0.001,0,STRCAT(STRCAT('差值:',VAR2STR(VAR10,0)),'分')),COLORYELLOW;
DRAWTEXT_FIX(1,0.80,0.001,0,STRCAT(STRCAT('ADX:',VAR2STR(VAR8,0)),'分')),COLORYELLOW;
DRAWTEXT_FIX(1,0.90,0.001,0,STRCAT(STRCAT('PDI:',VAR2STR(VAR6,0)),'分')),COLORYELLOW;
VAR11:=(HIGH+LOW+CLOSE)/3;
VAR12:=(VAR11-MA(VAR11,14))*1000/(15*AVEDEV(VAR11,14));
VAR13:=WEEKDAY;
VAR14:=IF(WEEKDAY=VAR13,HHV(H,6),0);
VAR15:=IF(WEEKDAY=VAR13,LLV(L,6),0);
VAR16:=IF(WEEKDAY=VAR13,C,0);
VAR17:=(VAR14+VAR15+VAR16)/3;
VAR18:=(VAR17-MA(VAR17,45))/(0.015*AVEDEV(VAR17,45)),LINETHICK2;
VAR19:=DAY;
VAR20:=IF(DAY=VAR19,HHV(H,30),0);
VAR21:=IF(DAY=VAR19,LLV(L,30),0);
VAR22:=IF(DAY=VAR19,C,0);
VAR23:=(VAR20+VAR21+VAR22)/3;
VAR24:=(VAR23-EMA(VAR23,60))/(0.015*AVEDEV(VAR23,60)),COLORGREEN,LINETHICK2;
VAR25:=EMA(CLOSE,12)-EMA(CLOSE,26);
VAR26:=EMA(VAR25,9);
VAR27:=(VAR25-VAR26)*2;
VAR28:=REF(VAR27/2,BARSLAST(VAR27=HHV(VAR27,120))),COLORA67D3D,LINETHICK1;
VAR29:=REF(VAR27/2,BARSLAST(VAR27=HHV(VAR27,250))),COLORBLACK,LINETHICK1;
VAR30:=NOT(REF(VAR28,1)=VAR28);
VAR31:=NOT(REF(VAR28,1)=REF(VAR29,1))&&VAR28=VAR29;
STICKLINE(VAR6,0,VAR6,2,0),COLORGREEN;
STICKLINE(VAR6>0&&VAR6< 20,0,VAR6,2,0),COLORGREEN;
STICKLINE(VAR6>20,20,VAR6,2,0),COLORMAGENTA;
STICKLINE(VAR6>40,40,VAR6,2,0),COLORRED;
STICKLINE(VAR6>60,60,VAR6,2,0),COLORYELLOW;
STICKLINE(VAR24>180,10,20,2,0),COLORRED;
STICKLINE(VAR18>180,0,10,2,0),COLORMAGENTA;
STICKLINE(VAR30,VAR7,-10,2,0),COLORYELLOW;
STICKLINE(VAR7< 20,20,VAR7,2,0),COLORYELLOW;
VAR32:EXPMEMA(ABS(VAR7-VAR6)/(VAR7+VAR6)*100,6),COLORYELLOW,LINETHICK3;
VAR33:VAR5*100/VAR1,LINETHICK4,COLORBLUE;