牛仔系列公式:牛仔能量潮

{牛仔能量潮,请勿修改公式名，谢谢！}
{修改DMI而来，更直观，能量极限为50，能量条和线向下为空释，向上为做多}
{更多公式请联系QQ80176978}

50,COLORRED;
-50,COLORGREEN;
N:=7;
TTR:=SMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),N,1);
HD:=HIGH-REF(HIGH,1);
LD:=REF(LOW,1)-LOW;
DMP:=SMA(IF(HD>0 AND HD>LD,HD,0),N,1);
DMM:=SMA(IF(LD>0 AND LD>HD,LD,0),N,1);
PDI:=DMP*100/TTR,COLORRED;
MDI:=DMM*100/TTR,COLORBLUE;
ADX:=(SMA(ABS(MDI-PDI)/(MDI+PDI)*100,N,1)-20)*2;
{ADXR:(ADX+REF(ADX,6))/2,COLOR66FF66;};
DS:=MA(PDI-MDI,3),COLORGREEN;
IF(DS>=0,ADX/2,DRAWNULL),STICK,COLORGRAY;
IF(DS<0,-ADX/2,DRAWNULL),STICK,COLORGRAY;
IF(ADX>REF(ADX,1) AND DS>=0,ADX/2,DRAWNULL),STICK,COLORLIRED;
IF(ADX>REF(ADX,1) AND DS<0,-ADX/2,DRAWNULL),STICK,COLORCYAN;
DS,COLORGREEN;
IF(DS>=0,DS,DRAWNULL),COLORRED,LINETHICK2;
牛仔系列公式:0;