通达信用控盘系数源码附图

ZLCM:=EMA(WINNER(CLOSE)*70,3);
 SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);
 ZSHTL:=SHCM/(ZLCM+SHCM)*100;
 ZZLKP:=ZLCM/(ZLCM+SHCM)*100;
 ZCMZL:=MA(ZLCM+SHCM,13);
 ZSHJJ:=EMA(ZSHTL,89);
 ZZLJJ:=EMA(ZZLKP,89);
 ZJLRQD:=(ZZLKP-ZZLJJ);
 SH8:=EMA(ZSHTL,8);

 DKB:=IF(ZZLKP-REF(ZZLKP,1)>ZSHTL-REF(ZSHTL,1),1,0);
主力控盘系数:(ZZLKP),LINETHICK0,COLORRED;
 50,COLORYELLOW,LINETHICK3;
 DRAWTEXT(ISLASTBAR AND 0,175,'系数50%');
主力控盘连红:STICKLINE(ZZLKP>=75,50,0,2,0),COLORBLUE;
 STICKLINE(ZZLKP<50,ZZLKP,0,1,0),COLORBLUE;
 STICKLINE(ZZLKP>=50 AND ZZLKP<75,50,0,2,0),COLORBLUE;
 STICKLINE(ZZLKP>=50 AND ZZLKP<75,50,ZZLKP,2,0),COLORYELLOW;
 STICKLINE(ZZLKP>=75,50,0,2,0),COLORBLUE;
 STICKLINE(ZZLKP>=75,50,75,2,0),COLORYELLOW;
 STICKLINE(ZZLKP>=75,75,ZZLKP,2,0),COLORRED;