以下是通达信分时跟庄源码图
分时跟庄的公式很准确！
DRAWGBK(C>0, RGB(0,10,10),RGB(48,0,0),0,'11',0);
A1:=(DVOL/C)/2,NODRAW;
A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A3:=SUM(IF(A1>100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A4:=SUM(IF(A1<100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A5:=SUM(IF(A1<100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A6:=A2+A3+A4+A5;
主买:(A2/A6)*100,LINETHICK1,COLORRED;
主卖:(A3/A6)*100,LINETHICK1,COLORCYAN;
散买:(A4/A6)*100,LINETHICK0;
散卖:(A5/A6)*100,LINETHICK0;
主差:主买-主卖,LINETHICK1,NODRAW;
散差:散买-散卖,LINETHICK0,NODRAW;
DRAWTEXT(主差>0 AND REF(主差,1)<=0,C*2,'抢'),COLOR5B91FF;
DRAWTEXT(主差<0 AND REF(主差,1)>=0,C*1,'主'),COLORWHITE;
DRAWTEXT(散差>0 AND REF(散差,1)<=0,C*2,'散'),COLORCYAN;
DRAWTEXT(散差<0 AND REF(散差,1)>=0,C*1,'入'),COLOR5B91FF;
VAR1:=((CLOSE - LLV(LOW,50))/(HHV(HIGH,50) - LLV(LOW,50)))*(100);
VAR2:=REVERSE(VAR1);
VAR3:=SMA(VAR1,6,1);
K:=SMA(VAR3,4,1);
D:=SMA(K,4,1);
DRAWTEXT(CROSS(K,D) AND MA(CLOSE,5)<CLOSE,D,'★'),COLOR5B91FF;
DRAWTEXT(CROSS(D,K) AND MA(CLOSE,5),D,'★'),COLORCYAN;
STICKLINE((K >= D),K,D,6,0),COLOR0000A8;
STICKLINE((K >= D),K,D,5,0),COLOR0000C0;
STICKLINE((K >= D),K,D,4,0),COLOR0000E0;
STICKLINE((K >= D),K,D,3,0),COLOR0000F0;
STICKLINE((K >= D),K,D,2,0),COLOR0000D0;
STICKLINE((K >= D),K,D,1,0),COLOR8080FF;
STICKLINE((K <= D),K,D,6,0),COLOR008800;
STICKLINE((K <= D),K,D,5,0),COLOR009900;
STICKLINE((K <= D),K,D,4,0),COLOR00AA00;
STICKLINE((K <= D),K,D,3,0),COLOR00BB00;
STICKLINE((K <= D),K,D,2,0),COLOR00CC00;
STICKLINE((K <= D),K,D,1,0),COLOR00DD00;
顶:90,DOTLINE;
底:10,DOTLINE,COLOR808080;
