DD:=SUM(1,0);
FF:=BACKSET(ISLASTBAR,DD);
BIAS1:=((((((3 * HIGH) + LOW) + OPEN) + (2 * CLOSE)) / 7) * FF);
JJ:=(((((BIAS1 + REF(BIAS1,1)) + REF(BIAS1,3)) + REF(BIAS1,5)) / 4) * FF);
大单进出值:EMA(JJ,10),POINTDOT,LINETHICK1;
B:=(RE

JJ:=(OPEN+HIGH+LOW+CLOSE)/4;
AA:=IF(BETWEEN(C,JJ,H) OR C=O,vol,0);
BB:=IF(BETWEEN(C,JJ,L),vol,0);
CC:=IF(AA and BB,0,vol/3);
DDX:10*(AA-(BB+CC))/IF(CAPITAL<1,SUM(vol,13),CAPITAL),LINETHICK0;
STICKLINE(DDX>0,0,DDX

IF(PERIODNAME<>"日线")
{
统计:"该指标只在日线周期下有效。";
RETURN;
}
r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/SHGZG*100;
大单净量:r;
STICKLINE(r>0,0,r,8),color0000ff;
STICKLINE(r<0,0,r,8),col

把年费3280元的同花顺一个指标——大单净量分享给股友们。
源码如下：
IF(PERIODNAME<>"日线")
{
统计:"该指标只在日线周期下有效。";
RETURN;
}
r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/SHGZG*100;
大单净量:r;
STICKLINE

N:=20;JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));

IF(PERIODNAME<>"日线")
{
统计:"该指标只在日线周期下有效。";
RETURN;
}
r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/SHGZG*100;
大单净量:r;
STICKLINE(r>0,0,r,8),color0000ff;
STICKLINE(r<0,0,r,8),col

IF(PERIODNAME<>"日线")
{
统计:"该指标只在日线周期下有效。";
RETURN;
}
r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/SHGZG*100;
STICKLINE(r>0,0,r,8),color0000ff;
STICKLINE(r<0,0,r,8),color00ff00;

b:=(ZDMRJE[-1]+BDMRJE[-1]);
s:=(ZDMCJE[-1]+BDMCJE[-1]);
r:=(b-s);
大单金额:=r,colorwhite;
a=VOL/SHGZG*100;
ddjebl:大单金额/MONEY;
ZDDL:HUANSHOU*Ddjebl;
零轴：0；

PASTDAYS:=3;
N:=27;N2:=9;N3:=3;N4:=16;
Var1:=IF(DATE>=1030131,1,1);
Var2:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
获利盘:WINNER(CLOSE)*100*Var1;
Var3:=SMA(Var2,3,1)*Var1;
Var4:=SMA(Var3,N2,1)*Var1;
Var5:=

IF(PERIODNAME<>"日线")
{
统计:"该指标 只在日线周期下有效。";
RETURN;
}
r:=((ZDMR[-1]+BDMR[-1])-(ZDMC[-1]+BDMC[-1]))/SHGZG*100;
DDX正:=IF(MA(C,18)<REF(MA(C,18),1) AND MA(C,60)<REF(MA(C,60),1)
AND C

IF(STRFIND(PERIODNAME,"分钟",1)>0)
{
统计:"该指标只在日线、周线、月线、季线和年线周期下有效。";
RETURN;
}
r:=1000000*(ZDMCCS[-1]+BDMCCS[-1]-(ZDMRCS[-1]+BDMRCS[-1]))/(SHGZG/(VOL/VOLAMOUNT));
散户数量:r;
STICKLINE(r>0,0,r,

基于收费行情的,免费的朋友就不要试了.
特大买单:ORDERVOL(1,3),crossdot,color0000ff,PRECIS0;
特大卖单:ORDERVOL(2,3),crossdot,color00ff00,PRECIS0;
大买单:ORDERVOL(1,2),crossdot,color4444ff,PRECIS0;
大卖单:ORDERVOL(2,2),crossdot,color44ff44,PRECIS0;
中买单:ORDERVO

variable:ddx=0;
a1:=(ordervol(1,2)-ordervol(2,2))/capital*100;
a2:SUM(a1,0),LINETHICK0;
FILLRGN(0,a2,a2>0,RGB(255,0,0),a2<0,RGB(0,255,255));
drawtextabs(0,0,'天狼50分时指标,大单流向');
说明：需L-2数据支持。

仿千钧版主的送点钱花，试编大单翻红，供有L2数据的股友参考。
{大单翻红}{DZHL2}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
停牌:=(DYNAINFO(4)=0);S:=STRFIND(stkname,'S',1)>0;
not(停牌) and not(s)

N:=5;
QJ0:=(HIGH+LOW+CLOSE)/3;
QJ1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));
QJ2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-QJ0);
QJ3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);
QJ4:=IF(HIGH=LOW,1,QJ0-MIN(CLOSE,OPEN));
QJ5:=VOL/(IF(HIGH=LOW,4

a1:=(VOL/CLOSE)/3;
a2:=SUM((IF(((a1>40) AND (CLOSE>(REF(CLOSE,1)))),a1,0)),0);
a3:=SUM((IF(((a1>40) AND (CLOSE<(REF(CLOSE,1)))),a1,0)),0);
a4:=SUM((IF(((a1<40) AND (CLOSE>(REF(CLOSE,1)))),a1,0)),0);
a5:=SUM((IF(((

a1:=((((V / CAPITAL) * 100) >= 0.045));
a2:=(((V * C) / 100));
a3:=((IF((((a2 / 8) > 20) AND (C > (REF(C,1)))),a2,0)));
主力攻击:((a3 / 40)),PRECIS0,linethick3,colorWhite;
a4:=((SUM(a3,0)));
a5:=((SUM((IF((((a2 / 8)

VAR1:=C-REF(C,1);
VAR2:=O-REF(O,1);
VAR3:=H-REF(H,1);
VAR4:=L-REF(L,1);
VAR5:=(VAR1+VAR2+VAR3+VAR4)/4;
机构●大户:VAR5*VOL/10000,LINETHICK0;
STICKLINE(机构●大户>0,机构●大户,0,2.3,0), COLORRED;
STICKLINE(机构●大户<0,机构

{参数：P1: 2 300 170 P2: 2 300 200};
{INPUT:P1(170),P2(200);}
CC:=IF(CAPITAL<1,INDEXV*0.618,VOL/3);
H1:=VOL/CAPITAL*100;
H2:=INDEXV/SUM(INDEXV,71)*100;
HS:=IF(CAPITAL<1,H2,H1);
JJ:=IF(CAPITAL<1,INDEXA/INDEXV/100,

JJ:=(OPEN+HIGH+LOW+CLOSE)/4;
AA:=IF(BETWEEN(C,JJ,H) OR C=O,VOL,0);
BB:=IF(BETWEEN(C,JJ,L),VOL,0);
CC:=IF(AA AND BB,0,VOL/3);
DDX:10*(AA-(BB+CC))/IF(CAPITAL<1,SUM(VOL,13),CAPITAL),LINETHICK0;
STICKLINE(DDX>0,0,DDX,2.5,0