通达信波动级别未加密选股指标公式源码

源码正文：

T1:=10{XG51};
T2:=20{XG51};
T3:=40{XG51};
M1:=(HHV(C,T1)-LLV(C,T1))/(HHV(C,T1)+LLV(C,T1))*200{XG51};
M2:=(HHV(C,T2)-LLV(C,T2))/(HHV(C,T2)+LLV(C,T2))*200{XG51};
M3:=(HHV(C,T3)-LLV(C,T3))/(HHV(C,T3)+LLV(C,T3))*200{XG51};
短期波动:M1,COLORWHITE{XG51};
中期波动:M2,COLORBLUE{XG51};
长期波动:M3,COLORmaGENTA{XG51};
Z11:=VARCAT('短:',VAR2stR(MA(M1,50)/1,1)){XG51};
Z12:=VARCAT('中:',VAR2STR(MA(M2,100)/2,1)){XG51};
Z13:=VARCAT('长:',VAR2STR(MA(M3,200)/4,1)){XG51};
Z10:=VARCAT(STRCAT('可排序波动比较',Z11),VARCAT(Z12,Z13)){XG51};
DRAWTEXT_FIX(1,0,0,0,Z10),COLORBLUE{XG51};
DRAWTEXT_FIX(1,0,1,0,'通过挖掘短中长波动定势，可以做出很多选股公式，本指标仅供本群参考研究使用'),COLORBLACK{XG51};
M11:=MA(M1,3);M12:=MA(M1,5){XG51};
C11:=IF(M11>=M12,'短期波动增大;','短期波动减小;'){XG51};
C12:=IF(M1<=5,'处于盘整阶段;',IF(M1<=15,'处于趋势状态;','处于异动状态;')){XG51};
DRAWTEXT_FIX(1,0,0.1,0,STRCAT(C11,C12)){XG51};
M21:=MA(M2,5);M22:=MA(M2,13){XG51};
C21:=IF(M21>=M22,'中期波动增大;','中期波动减小;'){XG51};
C22:=IF(M2<=10,'处于盘整阶段;',IF(M2<=20,'处于趋势状态;','处于异动状态;')){XG51};
DRAWTEXT_FIX(1,0,0.2,0,STRCAT(C21,C22)){XG51};
M31:=MA(M3,13);M32:=MA(M3,26){XG51};
C31:=IF(M31>=M32,'长期波动增大;','长期波动减小;'){XG51};
C32:=IF(M3<=15,'处于盘整阶段;',IF(M3<=30,'处于趋势状态;','处于异动状态;')){XG51};
DRAWTEXT_FIX(1,0,0.3,0,STRCAT(C31,C32)){XG51};
MMAX:=MAX(MAX(M12,M22),M32){XG51};
MMIN:=MIN(MIN(M12,M22),M32){XG51};
集中度:100-(MMAX-MMIN)/(MMAX+MMIN)*100,NODRAW{XG51};
DRAWICON(crOSS(M32,10),10,25){XG51};
DRAWICON(集中度>90 AND M3<=REF(M3,1) AND M1>REF(M1,1) AND MA(C,5)>MA(C,13),M3,5){XG51};
NOTEXT25:25,CROSSDOT,COLORCYAN{XG51};
NOTEXT10:10,CIRCLEDOT,COLORBLACK{XG51};
DRAWTEXT(CURRBARSCOUNT=7,10,'爆发线'){XG51};
DRAWTEXT(CURRBARSCOUNT=7,25,'异动线'){XG51};
J11:=CROSS(M32,10){XG51};
T11:=BArslAST(J11){XG51};
TJ1:=CROSS(M1,5) AND T11<10{XG51};
DRAWICON(TJ1,M3,1){X.G_5?1.C.N.{};

源码正文：

TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,240,1))))){XG51};
MTIME:=MOD(FROMOPEN,TOTAL){XG51};
CTIME:=IF(MTIME<0.5,TOTAL,MTIME){XG51};
预估换手率:IF((CURRBARSCOUNT=1 AND DYnaINFO(8)>1),100*vol/(FINANCE(7)/100)*TOTAL/CTIME,DRAWNULL),NODRAW{XG51};
stICKLINE((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),预估换手率,0,-1,-1),COLOR00C0C0{XG51};
换手率:100*VOL/(FINANCE(7)/100),VOLSTICK{X.G~5_1.C.N.{};