通达信《AT.股性活跃性》主 副图...

通达信《AT.股性活跃性》主 副图指标源码 周末礼物 REFLINE:2,COLORGRAY,POINTDOT;
{-----------趋势与股性-----------}
CS:=DMA(AMOUNT/(100*VOL),VOL/CAPITAL);
M20:=MA(C,20);
M30:=MA(C,30);
M2:=M20>REF(M20,1);
M3:=M30>REF(M30,1);
MCS:=CS>REF(CS,1);
TRD:=M2+M3+MCS>1;{趋势}
LBARS:=LLVBARS(L,21);
BARS:=IF(LBARS<13,13,LBARS);
ACT:=SMA(MAX(ABS(C-O),ABS(C-REF(C,1)))/REF(C,1)*100,10,1);{活跃度}
YD:=ACT>LLV(ACT,13)*1.2;{异动}
A1:=ACT<=2 AND NOT(YD);{弱}
A2:=ACT<=2 AND YD;{异动}
A3:=ACT>=2 AND TRD;{强}
A4:=ACT>=2 AND NOT(TRD); {跌}
弱:IF(A1,ACT,DRAWNULL),COLORBLUE,LINETHICK3;
异:IF(A2,ACT,DRAWNULL),COLORBROWN,LINETHICK3;
强:IF(A3,ACT,DRAWNULL),COLORRED,LINETHICK3;
跌:IF(A4,ACT,DRAWNULL),COLORGREEN,LINETHICK3;