通達信股票公式之dmia

　　{DMIA}

　　ATRA := SMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),6,1);

　　HD := HIGH-REF(HIGH,1);

　　LD := REF(LOW,1)-LOW;

　　DMP:= SMA(IF(HD>0 AND HD>LD,HD,0),6,1);

　　DMM:= SMA(IF(LD>0 AND LD>HD,LD,0),6,1);

　　PDI:= DMP*100/ATRA;

　　MDI:= DMM*100/ATRA;

　　ADX: SMA(ABS(MDI-PDI)/(MDI+PDI)*100,6,1),LINETHICK2;

　　漲趨勢:IF((MDI-PDI)/(MDI+PDI)<0,10,DRAWNULL),COLOR8899DD,NODRAW;

　　跌趨勢:IF((MDI-PDI)/(MDI+PDI)>=0,10,ADX),COLORDD9988,NODRAW;

　　DRAWBAND(ADX,RGB(100,80,110),10,0);

　　DRAWBAND(跌趨勢,RGB(200,120,230),漲趨勢,RGB(180,124,204));

　　對比線(xiàn):=(ADX+REF(ADX,6))/2;

　　STICKLINE(CROSS(ADX,30),ADX,30,3,0),COLOR00FFFF,LINETHICK5;

　　STICKLINE(C>0,80,80,1.5,0),COLORFFFFFF;

　　STICKLINE(C>0,50,50,1.5,0),COLOR00FFFF;

　　STICKLINE(C>0,20,20,1.5,0),COLORFF00FF;

　　WW1:=SMA(((CLOSE-LLV(CLOSE,10))/(HHV(HIGH,10)-LLV(LOW,10))),3,1);

　　WW2:=SMA(((WW1-LLV(WW1,3))/(HHV(WW1,3)-LLV(WW1,3))),3,1)*100;

　　ZZ:=SMA(((VOL-LLV(VOL,10))/(HHV(VOL,10)-LLV(VOL,10))),3,1);

　　ZZ1:=SMA(((ZZ-LLV(ZZ,3))/(HHV(ZZ,3)-LLV(ZZ,3))),3,1)*100;

　　快線(xiàn):=EMA(WW2,1),COLORBLUE,LINETHICK2;

　　慢線(xiàn):=EMA(快線(xiàn),2),COLORGREEN,LINETHICK2;

　　量快:=EMA(ZZ1,1)COLORWHITE,LINETHICK2;

　　量慢:=EMA(量快,2),COLORWHITE,LINETHICK2;

　　AA1:=SMA(((CLOSE-LLV(CLOSE,13))/(HHV(HIGH,13)-LLV(LOW,13))),3,1);

　　價(jià)線(xiàn):=SMA(((AA1-LLV(AA1,4))/(HHV(AA1,4)-LLV(AA1,4))),3,1)*100;

　　周線(xiàn):MA(價(jià)線(xiàn),5),COLORMAGENTA,LINETHICK1;

　　BB1:=SMA(((VOL-LLV(VOL,13))/(HHV(VOL,13)-LLV(VOL,13))),3,1);

　　量線(xiàn):SMA(((BB1-LLV(BB1,4))/(HHV(BB1,4)-LLV(BB1,4))),3,1)*100,NODRAW;

　　周量:MA(量線(xiàn),5),COLORYELLOW,LINETHICK1;

　　月線(xiàn):=MA(價(jià)線(xiàn),22),COLORRED,LINETHICK0;

　　月量:=MA(量線(xiàn),22),COLORYELLOW,LINETHICK0;

　　快線(xiàn)2:=EMA(周線(xiàn),1),COLORBLUE,LINETHICK2;

　　慢線(xiàn)2:=EMA(快線(xiàn)2,2),COLORGREEN,LINETHICK2;

　　量快2:=EMA(周量,1);

　　量慢2:=EMA(量快2,2),COLORWHITE,LINETHICK2;

　　DRAWTEXT(FILTER(快線(xiàn)>=95 AND 慢線(xiàn)>=95 AND 周線(xiàn)>=90 OR 周量>=90,5),85,'減');

　　看色塊→:30,COLORRED;

　　IF(周線(xiàn)>=REF(周線(xiàn),1),周線(xiàn),DRAWNULL),COLORMAGENTA,LINETHICK2;

　　IF(周線(xiàn)>=REF(周線(xiàn),1) AND 月線(xiàn)>=REF(月線(xiàn),1),周線(xiàn),DRAWNULL),COLORRED,LINETHICK2;

　　IF(周線(xiàn)<REF(周線(xiàn),1),周線(xiàn),DRAWNULL),COLORGREEN,LINETHICK1;

　　IF(周量>=REF(周量,1),周量,DRAWNULL),COLORYELLOW,LINETHICK2;

　　IF(周量<REF(周量,1),周量,DRAWNULL),COLORGREEN,LINETHICK1;

　　IF(CROSS(快線(xiàn)2,慢線(xiàn)2),慢線(xiàn)2,DRAWNULL),COLORRED,LINETHICK3,CIRCLEDOT;

　　IF(CROSS(慢線(xiàn)2,快線(xiàn)2),快線(xiàn)2,DRAWNULL),COLORGREEN,LINETHICK3,CIRCLEDOT;

　　IF(CROSS(量快2,量慢2),量慢2,DRAWNULL),COLORRED,LINETHICK2,CIRCLEDOT;

　　IF(CROSS(量慢2,量快2),量快2,DRAWNULL),COLORLIGREEN,LINETHICK3,CIRCLEDOT;