千钧分时龙虎榜

【千钧分时龙虎榜】引用版源码：

zq:=DATATYPE;
r:=OPENMINUTES(TIME);
zs:=ref(c,r);
zsr:=DYNAINFO(3);
j:=SUM(C*V,SUMBARS(VOL,CAPITAL))/SUM(V,SUMBARS(VOL,CAPITAL));
jj:=SUM(C*V,0)/SUM(V,0);
jj1:=SUM(C*V,r)/SUM(V,r);
jja:=if(zq=6,jj,if(zq=1,jj1,jj));
zsa:=if(zq=6,zsr,if(zq=1,zs,zsr));
cr:=if(zq=6,c>0,if(zq=1,r>1,c>0));
PARTLINE(cr,zsa),COLORGRAY,POINTDOT;
dk:=(SMA(C,2,1)-SMA(C,6,1))*2.1;
STICKLINE(dk>0and jja>0 ,zsa,ZSa+dk,0.1,0),Color5050FF;
STICKLINE(dk<=0and jja>0 ,zsa,ZSa+dk,0.1,0),ColorCyan;

if datatype>=0 then exit;
rc:=DYNAINFO(3);
q:=datacount;
hh:=DYNAINFO(5);
LL:=DYNAINFO(6);
f:=max(hh-rc,rc-LL);
ff:=f/rc*100;
q1h:=if(ff<1,0.9898*rc,rc-f*1.02);
q1l:=if(ff<1,0.9798*rc,rc-2*f*1.016);
FILLRGN(1,q1h,q1l),colorblack;
R:=INDEXC;
Rh:=hhv(r,0);
RL:=LLv(r,0);
Rb:=(q1h-q1l)/(RH[q]-RL[q]);
Ry:=(q1h+q1l-rb*(RH[q]+RL[q]))/2;
r*rb+ry,COLORFFCCbb;
q2h:=if(ff<1,0.9797*rc,rc-2*f*1.016);
q2l:=if(ff<1,0.9697*rc,rc-3*f*1.011);
FILLRGN(1,q2h,q2l),colorblack;
a1:="macd.diff";
a2:="macd.dea";
a3:="macd.macd";
mh:=hhv(max(a1,a3),0);
mL:=LLv(min(a3,a1),0);
mb:=(q2h-q2l)/(mH[q]-mL[q]);
my:=(q2h+q2l-mb*(mH[q]+mL[q]))/2;
diff:a1*mb+my,COLORWHITE;
dea:a2*mb+my,COLORYELLOW;
macd:=a3*mb+my;
STICKLINE(FILTER(CROSS(diff,dea) and dea<my,13),dea-0.005,diff+0.05,10,0),COLOR0000FF;
STICKLINE(macd>my,my,macd,1,1),COLORRED;
STICKLINE(macd<my,my,macd,1,1),COLORCYAN;
rc:=DYNAINFO( 3);
s2:=sma(c,2,1);
s6:=sma(c,6,1);
dk:=2*(s2-s6);
STICKLINE(dk>0,rc,rc+dk,0,1),COLORRED;
STICKLINE(dk<0,rc,rc+dk,0,1),COLORCYAN;

k1:=hhv(h,0);
k2:=llv(l,0);
k3:=barslast(OPENMINUTES(TIME)<=240);
t1:=barslast(OPENMINUTES(TIME)<=60);
DRAWSL(OPENMINUTES(TIME)>=60,ref(k1,t1),0,k3,2),LINEDOT;
DRAWSL(OPENMINUTES(TIME)>=60,ref(k2,t1),0,k3,2),LINEDOT;
DRAWICON(OPENMINUTES(TIME)>60 and cross(c,ref(k1,t1)+0.001),ref(k1,t1),1);
流通:=FINANCE(7)/10000,LINETHICK;
qj1:=CAPITAL/2500; qj2:=CAPITAL/8000; qj3:=CAPITAL/16000; qj4:=CAPITAL/33000; qj5:=CAPITAL/80000; qj6:=CAPITAL/150000; qj7:=CAPITAL/200000; qj8:=CAPITAL/400000;
XS:=IF(流通<1.0,qj1,IF(流通>=1.0 AND 流通<5.0,qj2,IF(流通>=5.0 AND 流通<10,qj3,IF(流通>=10 AND 流通<20,qj4,IF(流通>=20 AND 流通<50,qj5,IF(流通>=50 AND 流通<100,qj6,IF(流通>=100 AND 流通<300,qj7,IF(流通>=300,qj8,0))))))));
门限:=XS;
特门限:=XS*2.67;
委买:=BIDVOL(1)+BIDVOL(2)+BIDVOL(3);
委卖:=ASKVOL(1)+ASKVOL(2)+ASKVOL(3);
委买总量:=SUM(委买,0);
委卖总量:=SUM(委卖,0);
www1:=SUM(BUYVOL,0)-SUM(SELLVOL,0);
买卖存量:=REF(www1,1)+www1;
总成交A:=DYNAINFO(8)*100;
总J:=总成交A*DYNAINFO(7);
特大买入:=stkindi('','引用.特大买入',0,0);
特大卖出:=stkindi('','引用.特大卖出',0,0);
大单买入:=stkindi('','引用.大单买入',0,0);
大单卖出:=stkindi('','引用.大单卖出',0,0);
大买金额:=stkindi('','引用.大买金',0,0);
大卖金额:=stkindi('','引用.大卖金',0,0);
小单买入:=stkindi('','引用.小单买入',0,0);
小单卖出:=stkindi('','引用.小单卖出',0,0);
特买均:=stkindi('','引用.特买金',0,0);
特卖均:=stkindi('','引用.特卖金',0,0);(来源:www.yz21.org 中国股票网)
大买均:=stkindi('','引用.大买金',0,0);
大卖均:=stkindi('','引用.大卖金',0,0);
小买均:=stkindi('','引用.小买金',0,0);
小卖均:=stkindi('','引用.小卖金',0,0);
买入:=stkindi('','盘口.买入',0,0);
卖出:=stkindi('','盘口.卖出',0,0);
委买:=DYNAINFO(20);
委卖:=DYNAINFO(21);
小撤买:=stkindi('','盘口.撤买',0,0);
小撤卖:=stkindi('','盘口.撤卖',0,0);
大撤买:=stkindi('','盘口.大撤买',0,0);
大撤卖:=stkindi('','盘口.大撤卖',0,0);
总撤买:=stkindi('','盘口.总撤买单',0,0);
总撤卖:=stkindi('','盘口.总撤卖单',0,0);
上扫:=stkindi('','盘口.上扫',0,0);
下扫:=stkindi('','盘口.下扫',0,0);
大上扫:=stkindi('','盘口.大上扫',0,0);
大下扫:=stkindi('','盘口.大下扫',0,0);
总上扫:=stkindi('','盘口.总上扫',0,0);
总下扫:=stkindi('','盘口.总下扫',0,0);
对敲买:=stkindi('','盘口.对敲买',0,0);
对敲卖:=stkindi('','盘口.对敲卖',0,0);
大对买:=stkindi('','盘口.大对敲买',0,0);
大对卖:=stkindi('','盘口.大对敲卖',0,0);
总敲买:=stkindi('','盘口.总敲买',0,0);
总敲卖:=stkindi('','盘口.总敲卖',0,0);
大单净值:=stkindi('','引用.大单净值',0,0);
隐性买单:=stkindi('','引用.隐性买单',0,0);
隐性卖单:=stkindi('','引用.隐性卖单',0,0);
隐买金:=stkindi('','引用.隐买金',0,0);
隐卖金:=stkindi('','引用.隐卖金',0,0);
隐买均:=隐买金/隐性买单;
隐卖均:=隐卖金/隐性卖单;
特买均价:=特买均/特大买入;
特卖均价:=特卖均/特大卖出;
大买均价:=大买均/大单买入;
大卖均价:=大卖均/大单卖出;
小买均价:=小买均/小单买入;
小卖均价:=小卖均/小单卖出;
大单标准:=(门限*100*C)/10000;
特单标准:=(特门限*100*C)/10000;
每笔均额:=AMOUNT/DYNAINFO(51);
大单笔数:=COUNT((大单买入+大单卖出+特大买入+特大卖出),0);
人均持股:=(FINANCE(7)/FINANCE(50))*10000;
主力买卖比:=(大买金额/大卖金额);
资金大单进量:=特大买入+大单买入;
资金大单出量:=特大卖出+大单卖出;
筹码量差:=资金大单进量-资金大单出量;
总成交:=(特大买入+特大卖出+大单买入+大单卖出+小单买入+小单卖出+总敲买+总敲卖+总上扫+总下扫);
散户跟风系数:=(小单买入/总成交)*100;
DRAWTEXTEX(c,1,20,20,'机构买:'+NUMTOSTR(特大买入,0)),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,200,20,'占:'+NUMTOSTR(FLOOR(特大买入/总成交*100),0)+'%'),Color00FFFF;
DRAWTEXTEX(c,1,20,80,'机构卖:'+NUMTOSTR(特大卖出,0)),Color00FF00;
DRAWTEXTEX(c,1,200,80,'占:'+NUMTOSTR(FLOOR(特大卖出/总成交*100),0)+'%'),Color00FF00;
DRAWTEXTEX(c,1,20,140,'大户买:'+NUMTOSTR(大单买入,0)),Color0000FF;
DRAWTEXTEX(c,1,20,200,'大户卖:'+NUMTOSTR(大单卖出,0)),Color00FF00;
DRAWTEXTEX(c,1,20,260,'散户买:'+NUMTOSTR(小单买入,0)),ColorFF00FF;
DRAWTEXTEX(c,1,20,320,'散户卖:'+NUMTOSTR(小单卖出,0)),ColorFFFFAF;
DRAWTEXTEX(c,1,20,380,'特大标准:'+NUMTOSTR(特单标准,2)+'万元/单笔'),ColorFFFF00;

DRAWTEXTEX(c,1,200,140,'占:'+NUMTOSTR(FLOOR(大单买入/总成交*100),0)+'%'),Color0000FF;
DRAWTEXTEX(c,1,200,200,'占:'+NUMTOSTR(FLOOR(大单卖出/总成交*100),0)+'%'),Color00FF00;
DRAWTEXTEX(c,1,200,260,'占:'+NUMTOSTR(FLOOR(小单买入/总成交*100),0)+'%'),ColorFF00FF;
DRAWTEXTEX(c,1,200,320,'占:'+NUMTOSTR(FLOOR(小单卖出/总成交*100),0)+'%'),ColorFFFFAF;

DRAWTEXTEX(c,1,300,20,'机构买:'+NUMTOSTR(特买均价,2)),Color00FFFF;
DRAWTEXTEX(c,1,300,80,'机构卖:'+NUMTOSTR(特卖均价,2)),Color00FF00;
DRAWTEXTEX(c,1,300,140,'大户买:'+NUMTOSTR(大买均价,2)),Color0000FF;
DRAWTEXTEX(c,1,300,200,'大户卖:'+NUMTOSTR(大卖均价,2)),Color00FF00;
DRAWTEXTEX(c,1,300,260,'散户买:'+NUMTOSTR(小买均价,2)),ColorFF00FF;
DRAWTEXTEX(c,1,300,320,'散户卖:'+NUMTOSTR(小卖均价,2)),ColorFFFFAF;
DRAWTEXTEX(c,1,390,380,'大单标准:'+NUMTOSTR(大单标准,2)+'万元/单笔'),ColorFFFF00;

DRAWTEXTEX(c,1,770,1150,'机构净量:'+NUMTOSTR((特大买入-特大卖出),0)),Color00FFFF;
DRAWTEXTEX(c,1,770,1210,'大户净量:'+NUMTOSTR((大单买入-大单卖出),0)),Color00FF00;
DRAWTEXTEX(c,1,770,1270,'大单买卖比:'+NUMTOSTR(主力买卖比,1)),Color0000FF;
DRAWTEXTEX(c,1,770,1330,'大单笔数:'+NUMTOSTR(大单笔数,0)),Color00FF00;
DRAWTEXTEX(c,1,770,1390,'笔均额:'+NUMTOSTR(每笔均额,0)),ColorFF00FF;
DRAWTEXTEX(c,1,770,1450,'人均持股:'+NUMTOSTR(人均持股,0)+''),ColorFFFF00;
DRAWTEXTEX(c,1,720,380,'散户跟风系数:'+NUMTOSTR(FLOOR(散户跟风系数),2)+'%'),ColorFFFF00;
DRAWTEXTEX(c,1,20,1150,'买入:'+NUMTOSTR(买入,0)),Color0000FF;
DRAWTEXTEX(c,1,20,1210,'卖出:'+NUMTOSTR(卖出,0)),Color00FF00;
DRAWTEXTEX(c,1,20,1270,'当前委买:'+NUMTOSTR(委买,2)),Color0000FF;
DRAWTEXTEX(c,1,20,1330,'当前委卖:'+NUMTOSTR(委卖,2)),Color00FF00;
DRAWTEXTEX(c,1,20,1390,'平均委买:'+NUMTOSTR((DYNAINFO(28)+DYNAINFO(28)+DYNAINFO(28))/3,2)),Color00FF00;
DRAWTEXTEX(c,1,20,1450,'平均委卖:'+NUMTOSTR((DYNAINFO(34)+DYNAINFO(35)+DYNAINFO(36))/3,2)),Color00FF00;

DRAWTEXTEX(c,1,220,1150,'小单撤买:'+NUMTOSTR(小撤买,0)),ColorFFFFAF;
DRAWTEXTEX(c,1,400,1150,''+NUMTOSTR(FLOOR(小撤买/(总撤买+总撤卖)*100),0)+' %'),ColorFFFFAF;
DRAWTEXTEX(c,1,220,1210,'小单撤卖:'+NUMTOSTR(小撤卖,0)),ColorFFFFAF;
DRAWTEXTEX(c,1,400,1210,''+NUMTOSTR(FLOOR(小撤卖/(总撤买+总撤卖)*100),0)+' %'),ColorFFFFAF;
DRAWTEXTEX(c,1,220,1270,'大单撤买:'+NUMTOSTR(大撤买,0)),ColorFFFFAF;
DRAWTEXTEX(c,1,400,1270,''+NUMTOSTR(FLOOR(大撤买/(总撤买+总撤卖)*100),0)+' %'),ColorFFFFAF;
DRAWTEXTEX(c,1,220,1330,'大单撤卖:'+NUMTOSTR(大撤卖,0)),ColorFFFFAF;
DRAWTEXTEX(c,1,400,1330,''+NUMTOSTR(FLOOR(大撤卖/(总撤买+总撤卖)*100),0)+' %'),ColorFFFFAF;
DRAWTEXTEX(c,1,220,1390,'总撤买单:'+NUMTOSTR(总撤买,0)),Color0000FF;
DRAWTEXTEX(c,1,220,1450,'总撤卖单:'+NUMTOSTR(总撤卖,0)),Color00FF00;

DRAWTEXTEX(c,1,480,20,'总对敲买:'+NUMTOSTR(总敲买,0)),Color00FFFF;
DRAWTEXTEX(c,1,480,80,'总对敲卖:'+NUMTOSTR(总敲卖,0)),Color00FF00;
DRAWTEXTEX(c,1,480,140,'小对敲买:'+NUMTOSTR(对敲买,0)),Color0000FF;
DRAWTEXTEX(c,1,670,140,''+NUMTOSTR(FLOOR(对敲买/总成交*100),0)+' %'),Color0000FF;
DRAWTEXTEX(c,1,480,200,'小对敲卖:'+NUMTOSTR(对敲卖,0)),Color00FF00;
DRAWTEXTEX(c,1,670,200,''+NUMTOSTR(FLOOR(对敲卖/总成交*100),0)+' %'),Color00FF00;
DRAWTEXTEX(C,1,480,260,'大对敲买:'+NUMTOSTR(大对买,0)+''),ColorFF00FF;
DRAWTEXTEX(c,1,670,260,''+NUMTOSTR(FLOOR(大对买/总成交*100),0)+' %'),ColorFF00FF;
DRAWTEXTEX(C,1,480,320,'大对敲卖:'+NUMTOSTR(大对卖,0)+''),ColorFFFFAF;
DRAWTEXTEX(c,1,670,320,''+NUMTOSTR(FLOOR(大对卖/总成交*100),0)+' %'),ColorFFFFAF;

DRAWTEXTEX(c,1,490,1150,'进场筹码  :'+NUMTOSTR(资金大单进量,0)),Color00FFFF;
DRAWTEXTEX(c,1,490,1210,'出场筹码  :'+NUMTOSTR(资金大单出量,0)),Color00FF00;
DRAWTEXTEX(c,1,490,1270,'筹码量差  :'+NUMTOSTR(筹码量差,0)),Color0000FF;
DRAWTEXTEX(c,1,490,1330,'当前上五档:'+NUMTOSTR(委买总量,0)),Color00FF00;
DRAWTEXTEX(c,1,490,1390,'当前下五档:'+NUMTOSTR(委卖总量,0)),ColorFF00FF;
DRAWTEXTEX(c,1,490,1450,'五档买卖差:'+NUMTOSTR(买卖存量,0)),ColorFFFF00;

DRAWTEXTEX(c,1,740,20,'上扫总计:'+NUMTOSTR(总上扫,0)),Color00FFFF;
DRAWTEXTEX(c,1,740,80,'下扫总计:'+NUMTOSTR(总下扫,0)),Color00FF00;
DRAWTEXTEX(c,1,740,140,'上扫单  :'+NUMTOSTR(上扫,0)),Color0000FF;
DRAWTEXTEX(c,1,940,140,''+NUMTOSTR(FLOOR(上扫/总成交*100),0)+' %'),Color0000FF;
DRAWTEXTEX(c,1,740,200,'下扫单  :'+NUMTOSTR(下扫,0)),Color00FF00;
DRAWTEXTEX(c,1,940,200,''+NUMTOSTR(FLOOR(下扫/总成交*100),0)+' %'),Color00FF00;
DRAWTEXTEX(c,1,740,260,'上扫大单:'+NUMTOSTR(大上扫,0)),ColorFF00FF;
DRAWTEXTEX(c,1,940,260,''+NUMTOSTR(FLOOR(大上扫/总成交*100),0)+' %'),ColorFF00FF;
DRAWTEXTEX(c,1,740,320,'下扫大单:'+NUMTOSTR(大下扫,0)),ColorFFFFAF;
DRAWTEXTEX(c,1,940,320,''+NUMTOSTR(FLOOR(大下扫/总成交*100),0)+' %'),ColorFFFFAF;