流通:=FINANCE(7)/10000;
老杨1:=1;
老杨2:=1.25;
老杨3:=1.55;
老杨4:=1.85;
老杨5:=2;
老杨6:=2.25;
老杨7:=2.55;
老杨8:=2.85;
系数:=IF(流通<1,老杨1,IF(流通>=1AND流通<5,老杨2,IF(流通>=5AND流通<10,老杨3,IF(流通>=10AND流通<20,老杨4,IF(流通>=20AND流通<50,老杨5,IF(流通>=50AND流通<100,老杨6,IF(流通>=100AND流通<300,老杨7,IF(流通>=300,老杨8,0))))))));
XS:=CAPITAL*系数/10000;
XS1:=XS*3.75;
总成交:=DYNAINFO(8)*100;
总J:=总成交*DYNAINFO(7);
大单标准:=XS*100*DYNAINFO(7)/10000;
特大买入:=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);
对敲卖:=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);
特买均价:=特买均/特大买入;
特卖均价:=特卖均/特大卖出;
大买均价:=大买均/大单买入;
大卖均价:=大卖均/大单卖出;
小买均价:=小买均/小单买入;
小卖均价:=小卖均/小单卖出;
AA01:=EXTDATA(3);
AA11:=EXTDATA(4);
AA0:=SUM(AA01,0);
AA1:=SUM(AA11,0);
A0:=REF(EXTDATA(3),1);
A1:=REF(EXTDATA(4),1);
A01:=REF(EXTDATA(3),3);
A11:=REF(EXTDATA(4),3);
DRAWTEXTEX(CLOSE,1,20,10,STKLABEL+''+STKNAME+''),colorFF;
DRAWTEXTEX(CLOSE,1,21,11,STKLABEL+''+STKNAME+''),colorFFFF;
VARIABLE:WDAY[7]='星期六';
WDAY[1]:='星期日';
WDAY[2]:='星期一';
WDAY[3]:='星期二';
WDAY[4]:='星期三';
WDAY[5]:='星期四';
WDAY[6]:='星期五';
FY:=YEAR;
FM:=MONTH;
FD:=DAY;
WD:=WEEKDAY;
P:=SYSPARAM(1);
STR1:=''+NUMTOSTR(FY[P],0)+'年'+NUMTOSTR(FM[P],0)+'月'+NUMTOSTR(FD[P],0)+'日'+WDAY[WD[P]+1];
DRAWTEXTEX(CLOSE,1,240,10,STR1),colorFF;
DRAWTEXTEX(CLOSE,1,241,11,STR1),colorFFFF;
WH0007制作:CLOSE>1000000,LINETHICK0,colorFFFFFF;
股东总数:=FINANCE(50);
每股收益:FINANCE(33),LINETHICK0,PRECISION2,colorFFFF;
市盈率:DYNAINFO(39),LINETHICK0,PRECISION2,color9AFF;
市净率:CLOSE/FINANCE(34),LINETHICK0,PRECISION2,colorFFFFFF;
每股公积金:=FINANCE(18);
净利润:=FINANCE(30);
主营业务增长率:=FINANCE(53);
净利润增长率:=FINANCE(55);
人均持股:=FINANCE(7)/FINANCE(50)*10000;
每笔均额:=DYNAINFO(10)/DYNAINFO(51);
散户跟风系数:=(小单买入-小单卖出)/总*100;
DRAWTEXTEX(CLOSE,1,510,10,'大单标准：'+NUMTOSTR(大单标准,2)+'万元'),colorFFFF;
DRAWTEXTEX(CLOSE,1,760,10,'流通盘:'+NUMTOSTR(FINANCE(7)/10000,2)+'亿股'),colorFFFF;
DRAWTEXTEX(CLOSE,1,10,100,'特大买入:'+NUMTOSTR(特大买入,0)+''),colorFFFF;
DRAWTEXTEX(CLOSE,1,210,100,'占:'+NUMTOSTR(特大买入/总*100,0)+'%'),colorFFFF;
DRAWTEXTEX(CLOSE,1,10,200,'特大卖出:'+NUMTOSTR(特大卖出,0)+''),color9895B2;
DRAWTEXTEX(CLOSE,1,210,200,'占:'+NUMTOSTR(特大卖出/总*100,0)+'%'),color9895B2;
DRAWTEXTEX(CLOSE,1,10,300,'大单买入:'+NUMTOSTR(大单买入,0)+''),color5050FF;
DRAWTEXTEX(CLOSE,1,210,300,'占:'+NUMTOSTR(大单买入/总*100,0)+'%'),color5050FF;
DRAWTEXTEX(CLOSE,1,10,400,'大单卖出:'+NUMTOSTR(大单卖出,0)+''),colorFF00;
DRAWTEXTEX(CLOSE,1,210,400,'占:'+NUMTOSTR(大单卖出/总*100,0)+'%'),colorFF00;
DRAWTEXTEX(CLOSE,1,10,500,'小单买入:'+NUMTOSTR(小单买入,0)+''),LINETHICK2,colorFF00FF;
DRAWTEXTEX(CLOSE,1,210,500,'占:'+NUMTOSTR(小单买入/总*100,0)+'%'),LINETHICK2,colorFF00FF;
DRAWTEXTEX(CLOSE,1,10,600,'小单卖出:'+NUMTOSTR(小单卖出,0)+''),colorFFFF00;
DRAWTEXTEX(CLOSE,1,210,600,'占:'+NUMTOSTR(小单卖出/总*100,0)+'%'),colorFFFF00;
DRAWTEXTEX(CLOSE,1,10,700,'昨日大单买:'+NUMTOSTR(A0,0)+''),colorFF00FF;
DRAWTEXTEX(CLOSE,1,10,800,'昨日大单卖:'+NUMTOSTR(A1,0)+''),colorFFFF00;
DRAWTEXTEX(CLOSE,1,10,900,'前日大单买:'+NUMTOSTR(A01,0)+''),LINETHICK2,colorFFFF;
DRAWTEXTEX(CLOSE,1,10,980,'前日大单卖:'+NUMTOSTR(A11,0)+''),colorFFFF00;
DRAWTEXTEX(CLOSE,1,310,100,'特大买均价:'+NUMTOSTR(特买均价,2)+''),colorFFFF;
DRAWTEXTEX(CLOSE,1,310,200,'特大卖均价:'+NUMTOSTR(特卖均价,2)+''),color9895B2;
DRAWTEXTEX(CLOSE,1,310,300,'大单买均价:'+NUMTOSTR(大买均价,2)+''),colorFF;
DRAWTEXTEX(CLOSE,1,310,400,'大单卖均价:'+NUMTOSTR(大卖均价,2)+''),colorFF00;
DRAWTEXTEX(CLOSE,1,310,500,'小单买均价:'+NUMTOSTR(小买均价,2)+''),colorFF00FF;
DRAWTEXTEX(CLOSE,1,310,600,'小单卖均价:'+NUMTOSTR(小卖均价,2)+''),colorFFFF00;
DRAWTEXTEX(CLOSE,1,310,700,'盘口对敲买:'+NUMTOSTR(对敲买,0)),colorFF;
DRAWTEXTEX(CLOSE,1,310,800,'盘口对敲卖:'+NUMTOSTR(对敲卖,0)),colorFF00;
DRAWTEXTEX(CLOSE,1,310,900,'盘口总敲买:'+NUMTOSTR(对敲买A,0)+''),colorFF;
DRAWTEXTEX(CLOSE,1,310,980,'盘口总敲卖:'+NUMTOSTR(对敲卖B,0)+''),colorFF00;
DRAWTEXTEX(CLOSE,1,510,100,'买入(手)：'+NUMTOSTR(买入,0)),colorFF;
DRAWTEXTEX(CLOSE,1,510,200,'卖出(手)：'+NUMTOSTR(卖出,0)),colorFF00;
DRAWTEXTEX(CLOSE,1,510,300,'撤买(手)：'+NUMTOSTR(撤买,0)),colorFF00FF;
DRAWTEXTEX(CLOSE,1,510,400,'撤卖(手)：'+NUMTOSTR(撤卖,0)),colorFFFF00;
DRAWTEXTEX(CLOSE,1,510,500,'总撤买单:'+NUMTOSTR(总撤买单,0)),color2B78FF;
DRAWTEXTEX(CLOSE,1,510,600,'总撤卖单:'+NUMTOSTR(总撤卖单,0)),colorFFFF00;
DRAWTEXTEX(CLOSE,1,510,700,'上扫单:'+NUMTOSTR(上扫,0)),colorFFFF;
DRAWTEXTEX(CLOSE,1,510,800,'下扫单:'+NUMTOSTR(下扫,0)),colorFFFFFF;
DRAWTEXTEX(CLOSE,1,510,900,'大对敲买单:'+NUMTOSTR(大对买,0)+''),colorFF00FF;
DRAWTEXTEX(CLOSE,1,510,980,'大对敲卖单:'+NUMTOSTR(大对卖,0)+''),colorFFFF00;
DRAWTEXTEX(CLOSE,1,700,100,'总成交手:'+NUMTOSTR(总,0)+''),color5050FF;
DRAWTEXTEX(CLOSE,1,700,200,'成交笔数:'+NUMTOSTR(QT,0)+''),colorFF00;
DRAWTEXTEX(CLOSE,1,700,300,'每笔均额:'+NUMTOSTR(每笔均额,0)+''),colorFF00FF;
DRAWTEXTEX(CLOSE,1,700,400,'大单净值:'+NUMTOSTR(大单净值,0)+''),colorFFFF00;
DRAWTEXTEX(CLOSE,1,700,500,'人均持股:'+NUMTOSTR(人均持股,0)+''),colorFFFF00;
DRAWTEXTEX(CLOSE,1,700,600,'股东总数:'+NUMTOSTR(股东总数,0)+''),colorFFFF;
DRAWTEXTEX(CLOSE,1,700,700,'成交金额:'+NUMTOSTR(总J/10000,2)+'万'),colorFF;
DRAWTEXTEX(CLOSE,1,700,800,'散户跟风系数:'+NUMTOSTR(散户跟风系数,2)+'%'),colorFFFF;
DRAWTEXTEX(CLOSE,1,700,900,'总计对敲买:'+NUMTOSTR(总敲买,0)),color2B78FF;
DRAWTEXTEX(CLOSE,1,700,980,'总计对敲卖:'+NUMTOSTR(总敲卖,0)),colorFFFFFF;
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(总ANDBARSTATUS=2,0,总,70,1),LINETHICK3,color7DFF;
STICKLINE(特大买入+特大卖出+大单买入+大单卖出+小单买入+小单卖出ANDBARSTATUS=2,0,总,60,0),colorFFFF;
STICKLINE(特大卖出+大单买入+大单卖出+小单买入+小单卖出ANDBARSTATUS=2,0,特大卖出+大单买入+大单卖出+小单买入+小单卖出,60,0),color9895B2;
STICKLINE(大单买入+大单卖出+小单买入+小单卖出ANDBARSTATUS=2,0,大单买入+大单卖出+小单买入+小单卖出,60,0),colorFF;
STICKLINE(大单卖出+小单买入+小单卖出ANDBARSTATUS=2,0,大单卖出+小单买入+小单卖出,60,0),colorFF00;
STICKLINE(小单买入+小单卖出ANDBARSTATUS=2,0,小单买入+小单卖出,60,0),colorFF00FF;
STICKLINE(大单卖出ANDBARSTATUS=2,0,小单卖出,60,0),colorFFFF00;
日增:=EXTDATA(6);
周仓:=SUM(日增,5);
月仓:=SUM(日增,20);
季仓:=SUM(日增,60);
半年:=SUM(日增,120);
年仓:=SUM(日增,240);
上周:=REF(周仓,5);
上月:=REF(月仓,20);
上季:=REF(季仓,60);
上半年:=SUM(日增,120);
上年:=SUM(日增,240);
周增:=周仓-上周;
月增:=月仓-上月;
季增:=季仓-上季;
半年增:=半年-上半年;
年增:=年仓-上年;
EXPLAIN(1=1,'2007.08.01【日线龙虎榜】'),colorD300D6;
EXPLAIN(1,'==================================='),colorFFFFFF;
EXPLAIN(1=1,'每股公积金='+NUMTOSTR(每股公积金,2)+'元'),colorFF;
EXPLAIN(1=1,'净利润'+NUMTOSTR(净利润,2)+'万元'),colorFF00;
EXPLAIN(1=1,'主营业务增长率'),colorFF;
EXPLAIN(1=1,NUMTOSTR(主营业务增长率,2)+'%'),colorFF;
EXPLAIN(1=1,'净利润增长率'),colorFF00;
EXPLAIN(1=1,NUMTOSTR(净利润增长率,2)+'%'),colorFF00;
EXPLAIN(1,'==================================='),colorFFFFFF;
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,'==================================='),colorFFFFFF;
EXPLAINEX(1,'日增减:',日增,2,0),colorFF;
EXPLAINEX(1,'周仓:',周仓,2,0),colorFF;
EXPLAINEX(1,'上周:'+NUMTOSTR(上周,2)+'
周增减:',周增,2,0),colorFF;
EXPLAIN(1,'==================================='),colorFFFFFF;
EXPLAINEX(1,'月仓:',月仓,2,0),colorFFFF;
EXPLAINEX(1,'上月:'+NUMTOSTR(上月,2)+'
月增减:',月增,2,0),colorFFFF;
EXPLAIN(1,'==================================='),colorFFFFFF;
EXPLAINEX(1,'季仓:',季仓,2,0),colorFF00;
EXPLAINEX(1,'上季:'+NUMTOSTR(上季,2)+'
季增减:',季增,2,0),colorFF00;
EXPLAIN(1,'==================================='),colorFFFFFF;
EXPLAINEX(1,'半年仓:',半年,2,0),colorFFFF00;
EXPLAINEX(1,'上半年:'+NUMTOSTR(上半年,2)+'
增减仓:',半年增,2,1),colorFFFF00;
EXPLAIN(1,'==================================='),colorFFFFFF;
EXPLAINEX(1,'年仓:',年仓,2,0),colorFFFF;
EXPLAINEX(1,'上年:'+NUMTOSTR(上年,2)+'
增减仓:',年增,2,1),colorFFFF;
EXPLAINEX(1,'年增:'+NUMTOSTR(上年,2)+'
增减仓:',年增,2,1),colorFF00;
EXPLAIN(1,'==================================='),colorFFFFFF;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
