通达信纯净成交量未加密选股指标公式源码

源码正文：

S:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,0))))){XG51};
T:=IF(S!=0,MOD(FROMOPEN,S),0){XG51};
Vvol:=IF(CURRBARSCOUNT=1 AND PERIOD<=5 AND S!=0 AND T>0 AND FROMOPEN<240,VOL*S/T,
IF(CURRBARSCOUNT=1 AND PERIOD=6 AND (WEEkdAY!=6 OR WEEKDAY!=7),VOL*(5/WEEKDAY),VOL)){XG51};
stICKLINE(CURRBARSCOUNT=1 AND PERIOD<=6 AND PERIOD>0,VVOL,0,-1,-1),COLOR00C0C0{XG51};
VOL,VOLSTICK{XG51};
A:=BArslAST(DAY!=REF(DAY,1) OR BARSCOUNT(C)=0)+1{XG51};
STICKLINE(A=1 AND PERIOD<=4,CONST(HHV(VOL,120)),0,0,-1),COLOR0000BB{XG51};
STICKLINE(A=1 AND C>O AND PERIOD<=4,CONST(HHV(VOL,120)),CONST(HHV(VOL,120))*29/30,0.5,0),COLORWHITE{XG51};
STICKLINE(A=1 AND C<=O AND PERIOD<=4,CONST(HHV(VOL,120)),CONST(HHV(VOL,120))*29/30,0.5,0),COLORGREEN{XG51};
ma5:IF(PERIOD>4,MA(VVOL,5),DRAWNULL),COLOR00FFFF{XG51};
MA10:IF(PERIOD>4,MA(VVOL,10),DRAWNULL),COLORFF00FF{XG51};
MA20:MA(VVOL,20),COLOR00FF00,DOTLINE{X~G~5^1~C~N~{};

源码正文：

dif:=POW(ema(CLOSE,12),2)-POW(Ema(CLOSE,26),2){XG51};
DEA:=EMA(DIF,9){XG51};
macd:(DIF-DEA)*3,NODRAW{XG51};
DRAWBAND(MacD,90,0,RGB(39,139,39)){XG51};
M5:MA(MACD,5){XG51};
stICKLINE(MACD>DIF AND MACD>REF(MACD,1),MACD,M5,0,0),COLORWHITE{XG51};
STICKLINE(MACD>DIF AND MACD<REF(MACD,1),MACD,M5,0,0),COLORGREEN{XG51};
STICKLINE(MACD<DIF AND MACD<REF(MACD,1),MACD,M5,0,0),COLORGREEN{XG51};
STICKLINE(MACD<DIF AND MACD>REF(MACD,1),MACD,M5,0,0),COLORWHITE{XG51};
DIF1:DIF,COLORRED{XG51};
DEA1:DEA,COLORMAGENTA{XG51};
DRAWICON(C>REF(C,1) AND MACD>REF(MACD,1) AND DIF>REF(DIF,1) AND DYnaINFO(17)>1.5,DIF,26){X-G-5_1-C-N-{};