分时超赢指标分时图用(大智慧)

{分时超赢A-(分时主图.叠加超赢)}

DRAWTEXTAbs(0,5,'《夏卫东-自编》'),COLOR0000FF;

{叠加大盘线}

TC:=stRCMP(STRLEFT(MARKETLABEL,2),'SZ');

DPSH:="SH000001$CLOSE"/HHV(STKINDI('SH000001','分超引用.昨收#DAY'),0);

DPSZ:="399001$CLOSE"/HHV(STKINDI('399001','分超引用.昨收#DAY'),0);

DPC:=IF(INBLOCK('A股板块'),DYNAINFO(3)*IF(TC=0,DPSZ,DPSH),C);

POLYLINE(C>0,DPC),COLORFF00FF,LINETHICK2,LAYER0;

{分时线}

最新:C,COLORWHITE,LINETHICK2,PRECIS2,LAYER0;

AA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(vol*100,BARSCOUNT(C));

BB:=BETWEEN(C/AA,C+H,C-H);

均线:IF(BB=0,MA(C,BARSCOUNT(C)),AA),COLOR00FFFF,LINETHICK2,PRECIS2;

{分时超赢}

ZLLR:=SUM((AMOUNT*(DYNAINFO(95)+DYNAINFO(94))/10000),0);

ZLLC:=SUM((AMOUNT*(DYNAINFO(98)+DYNAINFO(97))/10000),0);

主净:ZLLR-ZLLC,COLOR00FFFF,LINETHICK0,PRECIS2;

TDLR:=SUM((AMOUNT*DYNAINFO(95)/10000),0);

TDLC:=SUM((AMOUNT*DYNAINFO(98)/10000),0);

超净:TDLR-TDLC,COLORFF00FF,LINETHICK0,PRECIS2;

DDLR:=SUM((AMOUNT*DYNAINFO(94)/10000),0);

DDLC:=SUM((AMOUNT*DYNAINFO(97)/10000),0);

大净:DDLR-DDLC,COLOR00FF00,LINETHICK0,PRECIS2;

ZDLR:=SUM((AMOUNT*DYNAINFO(93)/10000),0);

ZDLC:=SUM((AMOUNT*DYNAINFO(96)/10000),0);

中净:ZDLR-ZDLC,COLORB5B5B5,LINETHICK0,PRECIS2;

XDLR:=IF(AMOUNT*(DYNAINFO(95)+DYNAINFO(94)+DYNAINFO(93))>0,SUM(((AMOUNT-AMOUNT*(DYNAINFO(95)+DYNAINFO(94)+DYNAINFO(93)))/10000),0),0);

XDLC:=IF(AMOUNT*(DYNAINFO(98)+DYNAINFO(97)+DYNAINFO(96))>0,SUM(((AMOUNT-AMOUNT*(DYNAINFO(98)+DYNAINFO(97)+DYNAINFO(96)))/10000),0),0);

散净:XDLR-XDLC,COLORFF9911,LINETHICK0;

外盘:=sum(if(DYNAINFO(23)*close,DYNAINFO(23),0),0)*0.003906;

内盘:=sum(if(DYNAINFO(22)*close,DYNAINFO(22),0),0)*0.003906;

主动率:=(外盘-内盘)/(内盘+外盘)*100;

单数比:=DYNAINFO(92)/DYNAINFO(91);

通吃率:= ((DYNAINFO(95)+DYNAINFO(94))-(DYNAINFO(98)+DYNAINFO(97)))*VOL/VOL*100;

DRAWTEXTABS(440,5,'主动率:'+ NUMTOSTRN(主动率,2)+' 单数比:'+ NUMTOSTRN(单数比,2)+' 通吃率:'+ NUMTOSTRN(通吃率,2)),COLOR00FFFF;

DRAWTEXTABS(110,5,'上涨家数:'+NUMTOSTRN(DYNAINFO(69),0)+' 家'),COLOR0000FF;

DRAWTEXTABS(210,5,'下跌家数:'+NUMTOSTRN(DYNAINFO(70),0)+' 家'),COLOR00FF00;

DRAWTEXTABS(310,5,'平盘家数:'+NUMTOSTRN(DYNAINFO(71),0)+' 家'),COLORFFFFFF;

{五分钟资金趋势}

主5:=主净-REF(主净,5);

超5:=超净-REF(超净,5);

大5:=大净-REF(大净,5);

中5:=中净-REF(中净,5);

散5:=散净-REF(散净,5);

DRAWTEXTABS(110,20,'五分钟各单净买(万):'),COLORFFFF00;

DRAWTEXTABS(230,20,'主力:'+ NUMTOSTRN(主5,2)),COLOR00FFFF;

DRAWTEXTABS(320,20,'超大:'+ NUMTOSTRN(超5,2)),COLORFF00FF;

DRAWTEXTABS(410,20,'大户:'+ NUMTOSTRN(大5,2)),COLOR00FF00;

DRAWTEXTABS(500,20,'中户:'+ NUMTOSTRN(中5,2)),COLORB5B5B5;

DRAWTEXTABS(590,20,'散户:'+ NUMTOSTRN(散5,2)),COLORFF9911;

{画柱图};

最大值:=400/(MAX(ZLLR,ZLLC,TDLR,TDLC,DDLR,DDLC,ZDLR,ZDLC,XDLR,XDLC,散净,中净,大净,超净,主净));

主力买:=600-(ZLLR*最大值);

主力卖:=600-(ZLLC*最大值);

超大买:=600-(TDLR*最大值);

超大卖:=600-(TDLC*最大值);

大户买:=600-(DDLR*最大值);

大户卖:=600-(DDLC*最大值);

中户买:=600-(ZDLR*最大值);

中户卖:=600-(ZDLC*最大值);

散户买:=600-(XDLR*最大值);

散户卖:=600-(XDLC*最大值);

散户净买:=600-(ABS(散净)*最大值);

中户净买:=600-(ABS(中净)*最大值);

大户净买:=600-(ABS(大净)*最大值);

超大净买:=600-(ABS(超净)*最大值);

主力净买:=600-(ABS(主净)*最大值);

{各单增减比例显示}

ZLB:=SUM((ORDERVOL(1,2)/CAPITAL*100),0);

ZLS:=SUM((ORDERVOL(2,2)/CAPITAL*100),0);

主增:=ZLB-ZLS;

TDB:=SUM((ORDERVOL(1,3)/CAPITAL*100),0);

TDS:=SUM((ORDERVOL(2,3)/CAPITAL*100),0);

超增:=TDB-TDS;

DDB:=SUM(((ORDERVOL(1,2)/CAPITAL*100-ORDERVOL(1,3)/CAPITAL*100)),0);

DDS:=SUM(((ORDERVOL(2,2)/CAPITAL*100-ORDERVOL(2,3)/CAPITAL*100)),0);

大增:=DDB-DDS;

ZDB:=SUM(((ORDERVOL(1,1)/CAPITAL*100-ORDERVOL(1,2)/CAPITAL*100)),0);

ZDS:=SUM(((ORDERVOL(2,1)/CAPITAL*100-ORDERVOL(2,2)/CAPITAL*100)),0);

中增:=ZDB-ZDS;

XDB:=SUM(((VOL-ORDERVOL(1,1))/CAPITAL*100),0);

XDS:=SUM(((VOL-ORDERVOL(2,1))/CAPITAL*100),0);

散增:=XDB-XDS;

DRAwrECTREL(330,主力买,350,610,RGB(200,0,0)),COLOR000000,LAYER5;

DRAWRECTREL(350,主力卖,370,610,RGB(0,200,0)),COLOR000000,LAYER5;

DRAWRECTREL(370,主力净买,390,610,(IF((主净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;

DRAWRECTREL(445,超大买,465,610,RGB(200,0,0)),COLOR000000,LAYER5;

DRAWRECTREL(465,超大卖,485,610,RGB(0,200,0)),COLOR000000,LAYER5;

DRAWRECTREL(485,超大净买,505,610,(IF((超净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;

DRAWRECTREL(560,大户买,580,610,RGB(200,0,0)),COLOR000000,LAYER5;

DRAWRECTREL(580,大户卖,600,610,RGB(0,200,0)),COLOR000000,LAYER5;

DRAWRECTREL(600,大户净买,620,610,(IF((大净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;

DRAWRECTREL(675,中户买,695,610,RGB(200,0,0)),COLOR000000,LAYER5;

DRAWRECTREL(695,中户卖,715,610,RGB(0,200,0)),COLOR000000,LAYER5;

DRAWRECTREL(715,中户净买,735,610,(IF((中净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;

DRAWRECTREL(790,散户买,810,610,RGB(200,0,0)),COLOR000000,LAYER5;

DRAWRECTREL(810,散户卖,830,610,RGB(0,200,0)),COLOR000000,LAYER5;

DRAWRECTREL(830,散户净买,850,610,(IF((散净 >= 0),RGB(200,0,255),RGB(255,255,0)))),COLOR000000,LAYER5;

DRAWRECTREL( 330,620,390,635,RGB(255,255,0));

DRAWRECTREL( 445,620,505,635,RGB(255,0,255));

DRAWRECTREL( 560,620,620,635,RGB(0,200,0));

DRAWRECTREL( 675,620,735,635,RGB(200,200,200));

DRAWRECTREL( 790,620,850,635,RGB(0,0,200));

DRAWTEXTREL(310,530,'主'),ColorddfFFF;

DRAWTEXTREL(310,600,'力'),ColorDDFFFF;

DRAWTEXTREL(425,530,'超'),ColorDDFFFF;

DRAWTEXTREL(425,600,'大'),ColorDDFFFF;

DRAWTEXTREL(540,530,'大'),ColorDDFFFF;

DRAWTEXTREL(540,600,'户'),ColorDDFFFF;

DRAWTEXTREL(655,530,'中'),ColorDDFFFF;

DRAWTEXTREL(655,600,'户'),ColorDDFFFF;

DRAWTEXTREL(770,530,'散'),ColorDDFFFF;

DRAWTEXTREL(770,600,'户'),ColorDDFFFF;

DRAWTEXTREL(290,660,'买入'),colorred;

DRAWTEXTREL(290,720,'卖出'),Color00FF00;

DRAWTEXTREL(290,780,'净买'),COLOR1199FF;

DRAWTEXTREL(290,830,'增减'),COLORFFFF00;

DRAWTEXTREL(330,660,NUMTOSTRN(ZLLR,2)),colorred;

DRAWTEXTREL(330,720,NUMTOSTRN(ZLLC,2)),COLOR00FF00;

DRAWTEXTREL(330,780,NUMTOSTRN(主净,2)),COLOR1199FF;

DRAWTEXTREL(330,830,NUMTOSTRN(主增,2)+'%'),COLORFFFF00;

DRAWTEXTREL(445,660,NUMTOSTRN(TDLR,2)),colorred;

DRAWTEXTREL(445,720,NUMTOSTRN(TDLC,2)),COLOR00FF00;

DRAWTEXTREL(445,780,NUMTOSTRN(超净,2)),COLOR1199FF;

DRAWTEXTREL(445,830,NUMTOSTRN(超增,2)+'%'),COLORFFFF00;

DRAWTEXTREL(560,660,NUMTOSTRN(DDLR,2)),colorred;

DRAWTEXTREL(560,720,NUMTOSTRN(DDLC,2)),COLOR00FF00;DRAWTEXTREL(560,780,NUMTOSTRN(大净,2)),COLOR1199FF;

DRAWTEXTREL(560,830,NUMTOSTRN(大增,2)+'%'),COLORFFFF00;

DRAWTEXTREL(675,660,NUMTOSTRN(ZDLR,2)),colorred;

DRAWTEXTREL(675,720,NUMTOSTRN(ZDLC,2)),COLOR00FF00; DRAWTEXTREL(675,780,NUMTOSTRN(中净,2)),COLOR1199FF;

DRAWTEXTREL(675,830,NUMTOSTRN(中增,2)+'%'),COLORFFFF00;

DRAWTEXTREL(790,660,NUMTOSTRN(XDLR,2)),colorred;

DRAWTEXTREL(790,720,NUMTOSTRN(XDLC,2)),COLOR00FF00;

DRAWTEXTREL(790,780,NUMTOSTRN(散净,2)),COLOR1199FF;

DRAWTEXTREL(790,830,NUMTOSTRN(散增,2)+'%'),COLORFFFF00;