通达信JR成交量精确介入机构追踪副图源码

 

看到一个副图指标，看盘还可以，转过来大家分享，有未来，望高手再优化一下。
{公式在线提供：www.gszx.com.cn}
{成交量精确介入}
VAR2:=LLV(LOW,10);
VAR3:=HHV(HIGH,25);
阶段卖出: 3.3,COLORC6C600;
3.5,COLOR0088FF;
清仓卖出: 3.5,COLORFF75FF;
动力线:= EMA((CLOSE-VAR2)/(VAR3-VAR2)*4,4);
STICKLINE(动力线>REF(动力线,1) ,动力线 ,REF(动力线,1),3 ,1),COLORFF00FF;
STICKLINE(动力线<=REF(动力线,1) ,动力线 ,REF(动力线,1),3 ,1),COLOR00FF00;
底部:0.2,COLOR70DB93;
关注:0.55,COLORYELLOW;
强弱分界线:1.75,POINTDOT,LINETHICK2,COLOR70DB93;

{机构追踪}
VARVK:=(2*C+H+L)/4;
VARUK:=LLV(LOW,30);
VARA1K:=HHV(HIGH,30);
BK:=EMA((VARVK-VARUK)/(VARA1K-VARUK)*3.3,8);
B1K:=EMA(BK,5);
STICKLINE(BK-B1K>0,BK,B1K,3,0),COLOR0000AA;
STICKLINE(BK-B1K>0,BK,B1K,2.5,0),COLOR0000BB;
STICKLINE(BK-B1K>0,BK,B1K,1.5,0),COLOR0000CC;
STICKLINE(BK-B1K>0,BK,B1K,1,0),COLOR0000EE;
STICKLINE(BK-B1K>0,BK,B1K,0,0),COLOR0000FF;
STICKLINE(BK-B1K<0,BK,B1K,3,0),COLOR7B7B00;
STICKLINE(BK-B1K<0,BK,B1K,2.5,0),COLOR909000;
STICKLINE(BK-B1K<0,BK,B1K,1.5,0),COLORA8A800;
STICKLINE(BK-B1K<0,BK,B1K,1,0),COLORCECE00;
STICKLINE(BK-B1K<0,BK,B1K,0,0),COLORFFFF00;

{加速黄线}
VARA:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
VARB:=SMA(VARA,3,1);
VARC:=SMA(VARB,3,1);
加速: EMA(3*VARB-2*VARC,3)/30.5,COLORYELLOW;

{组合买}
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR2AAA:=ZIG(3,10)>REF(ZIG(3,10),1) AND REF(ZIG(3,10),1) 果断买入:IF(VAR2AAA AND COUNT(VAR2AAA,3)=1,0.5,0),STICK,LINETHICK2,COLORFF00FF;
组合买: (VAR11+VAR13+VAR15+VAR17), , COLORRED,NODRAW;
DRAWTEXT(VAR11+VAR13+VAR15+VAR17,0.3,'组买'),COLORYELLOW;
DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),0.4,'绝佳') ,LINETHICK2,COLORYELLOW;
{黑牛趋势}
A1:3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),NODRAW;
黑马线:EMA(A1,5)/24,LINETHICK2,{COLOR6600FF},COLORWHITE;
VAR1S:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*80;
VAR