以下是净吃庄血 源码（无源码的请下载附件导入）

{N:1,100,8;M:1,100,13;P:1,100,60;S:1,100,3}
X:winner(C-0.25*C)*100,COLORYELLOW;
X1:=MA(X,1)COLORYELLOW;
STICKLINE(X,0,X,4,0)COLORRED;
STICKLINE(X,0,X,3,0)COLOR9900FF;
STICKLINE(X,0,X,2,0)COLORRED;
STICKLINE(X,0,X,1,0)COLORYELLOW;
XX:=WINNER(C-0.168*C)*500;
存货:=MA(XX,13);

VAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),10,1);
VAR3:=EMA(VAR2,10);
VAR4:=LLV(LOW,33);
VAR5:=EMA(IF(LOW<=VAR4,VAR3,0),3);
庄家:=EMA(EMA(CLOSE,13),13);
现价:=(庄家-REF(庄家,1))/REF(庄家,1)*1000;
平均价 := SMA (现价,5,1)-SMA(现价,13,1);
上价:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7))/4;
下价:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8))/4;
中价:=MAX(EMA(上价,1)-EMA(下价,5),0)*200;
吃庄价:=EMA(中价,5)COLORGREEN;
净吃庄血:=吃庄价;
A1:=34;
实体比例:=(CLOSE-OPEN)/REF(CLOSE,1);
冲击系数:MA(实体比例,A1);
冲击系数1:=MA(冲击系数,3);
DRAWICON( CROSS(吃庄价,庄家),-5,8);

VAR11:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
买:=IF(CLOSE>OPEN,VAR11*(HIGH-LOW),IF(CLOSE<OPEN,VAR11*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,POINTDOT,linethick0;
卖:=IF(CLOSE>OPEN,0-VAR11*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR11*(HIGH-LOW),0-VOL/2)),COLOR00FF00,POINTDOT,linethick0;
wx:=EMA(c,0);
wx:=EMA(c,0);
一:=EMA(CLOSE,1),linethick0;
六:=EMA(CLOSE,6)*if(K<2,wx,1),linethick0;
买卖差:=(买+卖*1.1),linethick,colorred;
买卖强度:买卖差/VOL,COLORYELLOW,LINETHICK;
十日强度:SUM(买卖差,13)/SUM(VOL,13),COLORRED,LINETHICK;

连红天:=BARSLAST(买卖差<0),linethick;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K1:=SMA(RSV,3,1);
D1:=SMA(K1,3,1);
周仓:sum(买卖差,7)/10000,COLORWHITE,linethick1;
预警:买卖差>0 and cross(K1,D1) and 周仓>0  and 一>六 and C>MA(C,30),linethick;
买卖比:=买/卖;
STICKLINE(买卖差>0,0,买卖差/10000,8,0),COLOR000088;
STICKLINE(买卖差>0,0,买卖差/10000,5,0),COLOR0000aa;
STICKLINE(买卖差>0,0,买卖差/10000,3,0),COLOR0000cc;
STICKLINE(买卖差>0,0,买卖差/10000,1,0),COLOR0000ee;
STICKLINE(买卖差<0,0,买卖差/10000,8,0),COLOR008800;
STICKLINE(买卖差<0,0,买卖差/10000,5,0),COLOR00aa00;
STICKLINE(买卖差<0,0,买卖差/10000,3,0),COLOR00cc00;
STICKLINE(买卖差<0,0,买卖差/10000,1,0),COLOR00ee00;
DDX:-买卖比,linethick;
DRAWTEXT(预警,-1,'★'),LINETHICK3,COLOR00FFFF;