通达信严重异动指标公式副图源码

VAR1:=(C+H+O+L)/4;
M:=32;
P2:=100;
VAR11:=MA(VAR1,M)*(1-P2/1000);
HAN:=DATE< 1301230;
DSA1:=IF(COUNT(VAR11>=C,6)>=4,20,0);
DSA:=IF(DSA1,20,0);
STICKLINE(FILTER(DSA,15)=1,0,55,3.2,0)*HAN,COLOR000077;
STICKLINE(FILTER(DSA,15)=1,0,55,2.5,0)*HAN,COLOR000099;
STICKLINE(FILTER(DSA,15)=1,0,55,1.9,0)*HAN,COLOR0000BB;
STICKLINE(FILTER(DSA,15)=1,0,55,1.2,0)*HAN,COLOR0000DD;
STICKLINE(FILTER(DSA,15)=1,0,55,0.4,0)*HAN,COLOR0000FF;
DRAWTEXT(FILTER(DSA,15)=1,40,'. ..严重异动')*HAN,COLORYELLOW;
V3:=100-(100-3*SMA((C-LLV(L,75))/(HHV(H,75)-LLV(L,75)) *100,20,1)+2*SMA(SMA((C-LLV(L,75))/(HHV(H,75)-LLV(L,75)) *100,20,1),15,1));
V4:=100-(100-3*SMA((O-LLV(L,75))/(HHV(H,75)-LLV(L,75)) *100,20,1)+2*SMA(SMA((O-LLV(L,75))/(HHV(H,75)-LLV(L,75)) *100,20,1),15,1));
VAR1JJ:=V3>REF(V4,1);
DSA2:=COUNT(DSA1=20,16)>=1;
VAR1SJ:=DSA2 AND VAR1JJ;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,8,0)*HAN,COLOR0000FF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,7.8,0)*HAN,COLOR0018FF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,7.5,0)*HAN,COLOR001BFF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,7.3,0)*HAN,COLOR0022FF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,7,0)*HAN,COLOR0035FF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,6.8,0)*HAN,COLOR0041FF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,6.5,0)*HAN,COLOR0050FF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,6.3,0)*HAN,COLOR0059FF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,6,0)*HAN,COLOR0062FF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,5.7,0)*HAN,COLOR006CFF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,5.5,0)*HAN,COLOR007AFF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,5.3,0)*HAN,COLOR0080FF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,5,0)*HAN,COLOR0089FF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,4.5,0)*HAN,COLOR0095FF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,3.5,0)*HAN,COLOR009CFF;
STICKLINE(FILTER(VAR1SJ,30)=1,35,0,3,0)*HAN,COLOR00ABFF;
STICKLINE(FILTER(VAR