【日线龙虎榜】最新修改版：

一。【日线龙虎榜】最新修改版：
总成交:=DYNAINFO(8)*100;
总J:=AMOUNT;
特大买入:=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);
xdm:=(中单买入+小单买入);
xdm1:=(中单卖出+小单卖出);
小买金额:=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);
对敲买A:=stkindi('','盘口.对敲买A',0,0);
对敲卖B:=stkindi('','盘口.对敲卖B',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);
隐买均:=隐买金/隐性买单;
隐卖均:=隐卖金/隐性卖单;
特买均价:=特买均/特大买入;
特卖均价:=特卖均/特大卖出;
大买均价:=大买均/大单买入;
大卖均价:=大卖均/大单卖出;
小买均价:=小买均/小单买入;
小卖均价:=小卖均/小单卖出;
总:=(特大买入+特大卖出+大单买入+大单卖出+中单买入+中单卖出+小单买入+小单卖出+隐性买单+隐性卖单);
AA01:=EXTDATA(9)+EXTDATA(10)+EXTDATA(11);
AA0:=SUM(AA01,0);
A0:=REF(AA01,1);
A01:=REF(AA01,3);
增:=((EXTDATA(9)+EXTDATA(10)+EXTDATA(11))*100)*c/10000;
DRAWTEXTEX(c,1,20,10,STKLABEL+'  '+STKNAME+''),Color0000FF;
DRAWTEXTEX(c,1,21,11,STKLABEL+'  '+STKNAME+''),Color00FFFF;
{显示时间}
variable:wday[7]='星期六';
wday[1]:='星期日';
wday[2]:='星期一';
wday[3]:='星期二';
wday[4]:='星期三';
wday[5]:='星期四';
wday[6]:='星期五';
fy:=年份;
fm:=月份;
fd:=日期;
wd:=星期;
p:=系统参数(1);
str1:=''+numtostr(fy[p],0)+'年'+numtostr(fm[p],0)+'月'+数字转化为字符串(fd[p],0)+'日 '+wday[wd[p]+1];
DRAWTEXTEX(c,1,240,10,str1),Color0000FF;
DRAWTEXTEX(c,1,241,11,str1),coloryellow;
股东总数:=FINANCE(50),LINETHICK0,Color00FF00;
每股收益:FINANCE(33),LINETHICK0,PRECISION2,Color00FFFF;
市盈率:DYNAINFO(39),LINETHICK0,PRECISION2,Color009AFF;
市净率:c/FINANCE(34)LINETHICK0,PRECISION2,ColorFFFFFF;
每股公积金:=FINANCE(18);
净利润:=FINANCE(30);
主营业务增长率:=FINANCE(53);
净利润增长率:=FINANCE(55);
人均持股:=(FINANCE( 7)/FINANCE(50))*10000;
每笔均额【万】:(DYNAINFO(10)/DYNAINFO(51))/10000,LINETHICK0,Color00FF00,PRECISION2;
散户跟风系数:=(小单买入-小单卖出)/总*100;
DRAWTEXTEX(c,1,760,10,'流通盘:'+NUMTOSTR(Finance(7)/10000,2)+'亿股'),Color00FFFF;
{显示02}
DRAWTEXTEX(c,1,10,100,'特大买入:'+NUMTOSTR(特大买入,0)+''),Color00FFFF;
DRAWTEXTEX(c,1,210,100,'占:'+NUMTOSTR(特大买入/总*100,0)+'%'),Color00FFFF;
DRAWTEXTEX(c,1,10,200,'特大卖出:'+NUMTOSTR(特大卖出,0)+''),ColorFF0090;
DRAWTEXTEX(c,1,210,200,'占:'+NUMTOSTR(特大卖出/总*100,0)+'%'),ColorFF0090;
DRAWTEXTEX(c,1,10,300,'机构散买:'+NUMTOSTR(隐性买单,0)+''),Color0095FF;
DRAWTEXTEX(c,1,210,300,'占:'+NUMTOSTR(隐性买单/总*100,0)+'%'),Color0095FF;
DRAWTEXTEX(c,1,10,400,'机构散卖:'+NUMTOSTR(隐性卖单,0)+''),ColorFFFFB4;
DRAWTEXTEX(c,1,210,400,'占:'+NUMTOSTR(隐性卖单/总*100,0)+'%'),ColorFFFFB4;
DRAWTEXTEX(c,1,10,500,'大单买入:'+NUMTOSTR(大单买入,0)+''),color5050FF;
DRAWTEXTEX(c,1,210,500,'占:'+NUMTOSTR(大单买入/总*100,0)+'%'),color5050FF;
DRAWTEXTEX(c,1,10,600,'大单卖出:'+NUMTOSTR(大单卖出,0)+''),Color00FF00;
DRAWTEXTEX(c,1,210,600,'占:'+NUMTOSTR(大单卖出/总*100,0)+'%'),color00FF00;
DRAWTEXTEX(c,1,10,700,'小单买入:'+NUMTOSTR(xdm,0)+''),LINETHICK2,COLORFF00FF;
DRAWTEXTEX(c,1,210,700,'占:'+NUMTOSTR(xdm/总*100,0)+'%'),LINETHICK2,COLORFF00FF;
DRAWTEXTEX(c,1,10,800,'小单卖出:'+NUMTOSTR(xdm1,0)+''),ColorFFFF00;
DRAWTEXTEX(c,1,210,800,'占:'+NUMTOSTR(xdm1/总*100,0)+'%'),ColorFFFF00;
DRAWTEXTEX(c,1,480,900,'总计对敲买:'+NUMTOSTR(总敲买 ,0)),Color2B78FF;
DRAWTEXTEX(c,1,480,980,'总计对敲卖:'+NUMTOSTR(总敲卖 ,0 )),ColorFFFFFF;

DRAWTEXTEX(c,1,310,100,'特大买均价:'+NUMTOSTR(特买均价,2)+''),Color00FFFF;
DRAWTEXTEX(c,1,310,200,'特大卖均价:'+NUMTOSTR(特卖均价,2)+''),ColorFF0090;
DRAWTEXTEX(C,1,310,300,'机构散买均:'+NUMTOSTR(隐买均,2)+''),Color0095FF;
DRAWTEXTEX(C,1,310,400,'机构散卖均:'+NUMTOSTR(隐卖均,2)+''),ColorFFFFB4;
DRAWTEXTEX(c,1,310,500,'大单买均价:'+NUMTOSTR(大买均价,2)+''),Color0000FF;
DRAWTEXTEX(c,1,310,600,'大单卖均价:'+NUMTOSTR(大卖均价,2)+''),Color00FF00;
DRAWTEXTEX(c,1,310,700,'小单买均价:'+NUMTOSTR(小买均价,2)+''),ColorFF00FF;
DRAWTEXTEX(c,1,310,800,'小单卖均价:'+NUMTOSTR(小卖均价,2)+''),ColorFFFF00;

{盘口}
DRAWTEXTEX(c,1,10,900,'盘口对敲买:'+NUMTOSTR(对敲买,0  )),Color0000FF;
DRAWTEXTEX(c,1,10,980,'盘口对敲卖:'+NUMTOSTR(对敲卖,0 )),Color00FF00;

DRAWTEXTEX(c,1,530,100,'买入(手)：'+NUMTOSTR(买入 ,0 )),Color0000FF; 
DRAWTEXTEX(c,1,530,200,'卖出(手)：'+NUMTOSTR(卖出 ,0 )),Color00FF00;
DRAWTEXTEX(c,1,530,300,'撤买(手)：'+NUMTOSTR(撤买 ,0)),ColorFF00FF;
DRAWTEXTEX(c,1,530,400,'撤卖(手)：'+NUMTOSTR(撤卖 ,0 )),ColorFFFF00;
DRAWTEXTEX(c,1,530,500,'总撤买单:'+NUMTOSTR(总撤买单 ,0)),Color2B78FF;
DRAWTEXTEX(c,1,530,600,'总撤卖单:'+NUMTOSTR(总撤卖单 ,0 )),ColorFFFF00;
DRAWTEXTEX(c,1,530,700,'上扫单:'+NUMTOSTR(上扫 ,0 )),Color00FFFF;
DRAWTEXTEX(c,1,530,800,'下扫单:'+NUMTOSTR(下扫 ,0)),ColorFFFFFF;
DRAWTEXTEX(C,1,230,900,'大对敲买单:'+NUMTOSTR(大对买,0)+''),ColorFF00FF;
DRAWTEXTEX(C,1,230,980,'大对敲卖单:'+NUMTOSTR(大对卖,0)+''),ColorFFFF00;

DRAWTEXTEX(c,1,720,100,'总成股数:'+NUMTOSTR(总成交/10000,0)+'万股'),color5050FF;
DRAWTEXTEX(c,1,720,200,'成交金额:'+NUMTOSTR(总j,0)+'万'),Color0000FF;
DRAWTEXTEX(c,1,720,300,'股东总数:'+NUMTOSTR(股东总数,0)+''),Color00FFFF;
DRAWTEXTEX(c,1,720,400,'人均持股:'+NUMTOSTR(人均持股,0)+''),ColorFFFF00;
DRAWTEXTEX(c,1,720,500,'大单净值:'+NUMTOSTR(增,0)+'万元'),ColorFFFF00;
DRAWTEXTEX(c,1,720,600,'昨日大单买:'+NUMTOSTR((A0),0)+''),ColorFF00FF;
DRAWTEXTEX(c,1,720,700,'前日大单买:'+NUMTOSTR(A01,0)+''),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,720,800,'散户跟风系数:'+NUMTOSTR(散户跟风系数,2)+'%'),Color00FFFF;

{成本}
PT:=(REF(HIGH,1) - REF(LOW,1));
CDP:=(((HIGH + LOW) + CLOSE) / 3);
AH:=(CDP + PT);
AL:=(CDP - PT);
NH:=((2 * CDP) - LOW);
NL:=((2 * CDP) - HIGH);
A:=((((OPEN + HIGH) + LOW) + (CLOSE * 2)) / 5);
S:=(((HIGH - A) * 0.618) + A);
X:=(((A - LOW) * 0.382) + LOW);
卖出价:=(((CLOSE * 2.5) / 100) + CLOSE);
买入价:=(CLOSE - ((CLOSE * 2.5) / 100));
{柱线}
STICKLINE((总 AND BARSTATUS=2),0,总,65,1),Color007DFF,LINETHICK3;
STICKLINE((特大买入+特大卖出+隐性买单+隐性卖单+大单买入+大单卖出+小单买入+小单卖出 AND BARSTATUS=2),0,总,60,0),Color00FFFF;
STICKLINE((特大卖出+隐性买单+隐性卖单+大单买入+大单卖出+小单买入+小单卖出 AND BARSTATUS=2),0,特大卖出+隐性买单+隐性卖单+大单买入+大单卖出+小单买入+小单卖出,60,0),ColorFF0090;
STICKLINE((隐性买单+隐性卖单+大单买入+大单卖出+小单买入+小单卖出 AND BARSTATUS=2),0,隐性买单+隐性卖单+大单买入+大单卖出+小单买入+小单卖出,60,0),Color0095FF;
STICKLINE((隐性卖单+大单买入+大单卖出+小单买入+小单卖出 AND BARSTATUS=2),0,隐性卖单+大单买入+大单卖出+小单买入+小单卖出,60,0),ColorFFFFB4;
STICKLINE((大单买入+大单卖出+小单买入+小单卖出 AND BARSTATUS=2),0,大单买入+大单卖出+小单买入+小单卖出,60,0),Color0000FF;
STICKLINE((大单卖出+小单买入+小单卖出 AND BARSTATUS=2),0,大单卖出+小单买入+小单卖出,60,0),Color00FF00;
STICKLINE((小单买入+小单卖出 AND BARSTATUS=2),0,小单买入+小单卖出,60,0),ColorFF00FF;
STICKLINE((小单卖出 AND BARSTATUS=2),0,小单卖出,60,0),ColorFFFF00;
{增减仓}
日增:=增;
周仓:=SUM(日增,5);
月仓:=SUM(日增,20);
季仓:=SUM(日增,60);
半年:=SUM(日增,120);
年仓:=SUM(日增,240);
上周:=REF(周仓,5);
上月:=REF(月仓,20);
上季:=REF(季仓,60);
上半年:=SUM(日增,120);
上年:=SUM(日增,240);
周增:=(周仓-上周);
月增:=(月仓-上月);
季增:=(季仓-上季);
半年增:=(半年-上半年);
年增:=(年仓-上年);

{解盘}
EXPLAIN(1=1,'2007.10.10【一发千钧】'),ColorD300D6;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(1=1,'每股公积金='+NUMTOSTR(每股公积金,2)+'元'),Color0000FF;
EXPLAIN(1=1,'净利润'+NUMTOSTR(净利润,2)+'万元'),Color00FF00;
EXPLAIN(1=1,'主营业务增长率'),Color0000FF;
EXPLAIN(1=1,NUMTOSTR(主营业务增长率,2)+'%'),Color0000FF;
EXPLAIN(1=1,'净利润增长率'),Color00FF00;
EXPLAIN(1=1,NUMTOSTR(净利润增长率,2)+'%'),Color00FF00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'【波动系数】=',PT,2,0),colorFFFF;
EXPLAINEX(1,'【最高】=',AH,2,0),colorFF;
EXPLAINEX(1,'【中价】=',CDP,2,0),colorFFFF;
EXPLAINEX(1,'【最低】=',AL,2,0),colorFFFFFF;
EXPLAINEX(1,'【近高】=',NH,2,0),colorFFFF00;
EXPLAINEX(1,'【近低】=',NL,2,0),colorFF00FF;
EXPLAINEX((1 = 1),'【买入价】=',买入价,2,0),colorFFFF;
EXPLAINEX((1 = 1),'【卖出价】=',卖出价,2,0),colorFF00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'日增减【万元】: ',日增,2,0),ColorFF8B00;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'周仓【万元】:',周仓,2,0),COLORred;
EXPLAINEX(1,'上周【万元】:'+NUMTOSTR(上周,2)+'    
周增减【万元】:',周增,2,0),COLORred;//环比增量
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'月仓【万元】:',月仓,2,0),COLORyellow;//green;
EXPLAINEX(1,'上月【万元】:'+NUMTOSTR(上月,2)+'    
月增减【万元】:',月增,2,0),COLORyellow;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'季仓【万元】:',季仓,2,0),COLORgreen;
EXPLAINEX(1,'上季【万元】:'+NUMTOSTR(上季,2)+'    
季增减【万元】:',季增,2,0),COLORgreen;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'半年仓【万元】:',半年,2,0),COLORcyan;
EXPLAINEX(1,'上半年【万元】:'+NUMTOSTR(上半年,2)+'  
增减仓【万元】:',半年增,2,1),COLORcyan;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAINEX(1,'年仓【万元】:',年仓,2,0),COLORyellow;
EXPLAINEX(1,'上年【万元】:'+NUMTOSTR(上年,2)+'  
增减仓【万元】:',年增,2,1),COLORyellow;
EXPLAINEX(1,'年增【万元】:'+NUMTOSTR(上年,2)+'    
增减仓【万元】:',年增,2,1),COLORgreen;
EXPLAIN(1,'==================================='),colorwhite;

二、一发【标准量】：
总成交:V,VOLSTICK;
主买:(EXTDATA(9)+EXTDATA(10)+EXTDATA(11)+EXTDATA(12)+EXTDATA(13))*2;
主卖:(DYNAINFO( 8)-主买)*2;
当前股数:stkindi('','引用.股数',0,0),Color006CFF;
当前金额:stkindi('','引用.资金',0,0)/10000,PRECISION2,Color00FFFF;
大单净值:stkindi('','引用.大单净值',0,0)/10000,PRECISION2,Color0000FF;
STICKLINE(VOL>0,VOL,0,3,1),Color00FFFF;
STICKLINE(主买>0,0,主买,6,0),Color0000FF;
STICKLINE(主卖<0,0,主卖,6,0),ColorFF0000;
预测量:STICKLINE(DYNAINFO(7)=C AND DYNAINFO(10)=AMOUNT,DYNAINFO(17)*REF(MA(VOL,5),1),0,2,1),ColorFFFF00,PRECISION2;
DRAWTEXT(DYNAINFO(7)=C AND DYNAINFO(10)=AMOUNT,V,'←\n实\n际\nV'),ColorFFFF00;

三、【主力大单】
DRAWGBK(C>0,COLORRGB(100,120,180),0,1);
a04:=EXTDATA(9)+EXTDATA(10)+EXTDATA(11);
A02:=SUM(a04,5);
A12:=REF(EXTDATA(9),3);
A13:=REF(EXTDATA(10),3);
A14:=REF(EXTDATA(11),3);
日仓:a04,ColorFFFFFF,LINETHICK0,PRECISION0;
五日大单差:a02,Color0000FF,COLORSTICK,LINETHICK4;
{显示}
DRAWTEXTEX(c,1,20,0,'昨日机构买:'+NUMTOSTR((EXTDATA(9)),0)+' 手'),Color00FFFF;
DRAWTEXTEX(c,1,20,300,'昨日券商买:'+NUMTOSTR((EXTDATA(10)),0)+' 手'),Color00FFFF;
DRAWTEXTEX(c,1,20,600,'昨日大户买:'+NUMTOSTR(EXTDATA(11),0)+' 手'),Color00FFFF;
DRAWTEXTEX(c,1,20,150,'前日机构买:'+NUMTOSTR(A12,0)+' 手'),Color00B548;
DRAWTEXTEX(c,1,20,450,'前日券商买:'+NUMTOSTR(A13,0)+' 手'),Color00B548;
DRAWTEXTEX(c,1,20,750,'前日大户买:'+NUMTOSTR(A14,0)+' 手'),Color00B548;
DRAWTEXTEX(c,1,20,900,'五日大单差:'+NUMTOSTR(a02,0)+' 手'),Color00FFFF;