陈小春版鹿鼎记图片:分时BBD数据

{M=1}
DP:=strcmp('上证指数',stkname)<>0 and strcmp('深证指数',stkname)<>0;{当前是否为大盘指数}
{叠加大盘线}
TC:=STRCMP(STRLEFT(MARKETLABEL,2),'SZ');
DPSH:="SH000001$CLOSE"/HHV(STKINDI('SH000001','卫东.昨收#DAY'),0);
DPSZ:="SZ399001$CLOSE"/HHV(STKINDI('SZ399001','卫东.昨收#DAY'),0);
DPC:=IF(INBLOCK('A股板块'),DYNAINFO(3)*IF(TC=0,DPSZ,DPSH),C);
POLYLINE(C>0,DPC),COLOR9999ff,LINETHICK1,LAYER0;
大盘:=NUMTOSTRN(INDEXC,1);
DRAWTEXT( BARSTATUS=2,DPC ,'大盘:'+大盘),Color9999ff;
板块指数:IF(INBLOCK('工程建筑'),"991002$CLOSE",
IF(INBLOCK('电力'),"991003$CLOSE",
IF(INBLOCK('计算机'),"991004$CLOSE",
IF(INBLOCK('电子信息'),"991006$CLOSE",
IF(INBLOCK('房地产'),"991007$CLOSE",
IF(INBLOCK('纺织服装'),"991008$CLOSE",
IF(INBLOCK('钢铁'),"991009$CLOSE",
IF(INBLOCK('供水供气'),"991010$CLOSE",
IF(INBLOCK('化工化纤'),"991011$CLOSE",
IF(INBLOCK('电器'),"991014$CLOSE",
IF(INBLOCK('交通设施'),"991016$CLOSE",
IF(INBLOCK('银行类'),"991017$CLOSE",
IF(INBLOCK('旅游酒店'),"991018$CLOSE",
IF(INBLOCK('煤炭石油'),"991019$CLOSE",
IF(INBLOCK('酿酒食品'),"991020$CLOSE",
IF(INBLOCK('农林牧渔'),"991021$CLOSE",
IF(INBLOCK('商业连锁'),"991023$CLOSE",
IF(INBLOCK('建材'),"991024$CLOSE",
IF(INBLOCK('其他行业'),"991025$CLOSE",
IF(INBLOCK('交通工具'),"991026$CLOSE",
IF(INBLOCK('机械'),"991027$CLOSE",
IF(INBLOCK('医药'),"991028$CLOSE",
IF(INBLOCK('外贸'),"991031$CLOSE",
IF(INBLOCK('教育传媒'),"991032$CLOSE",
IF(INBLOCK('仪电仪表'),"991033$CLOSE",
IF(INBLOCK('有色金属'),"991034$CLOSE",
IF(INBLOCK('造纸印刷'),"991035$CLOSE",
IF(INBLOCK('券商'),"991036$CLOSE",
IF(INBLOCK('电力设备'),"991037$CLOSE",
IF(INBLOCK('通信'),"991135$CLOSE",
IF(INBLOCK('运输物流'),"991136$CLOSE",
IF(INBLOCK('海峡西岸'),"993596$CLOSE",
IF(INBLOCK('保险'),"991255$CLOSE",0))))))))))))))))))))))))))))))))),PRECIS0,COLOR00FF00,LINETHICK0;
对应大盘:INDEXC,PRECIS0,Color00FF00,LINETHICK0;
BBC:=EMA(板块指数,1000)/EMA(C,2500);
BKC:=板块指数/BBC;
DRAWTEXT( BARSTATUS=2,BKC ,'板块' ),Color0000FF,LINETHICK1;
POLYLINE(M=0 OR M=1,BKC),Color0000FF,LINETHICK2,LAYER0;
DDC:=EMA(INDEXC,1000)/EMA(C,2500);
DPC:=INDEXC/DDC;
POLYLINE(M=0 OR M=2,DPC),COLORMAGENTA,LAYER0;
POLYLINE(C,C),LINETHICK0,COLORBLACK;
最新:C,PRECIS2,COLORWHITE,LAYER0;
rcc:=DYNAINFO(3);
s2:=sma(c,3,1);
s6:=sma(c,5,1);
dk:=10*(s2-s6);
kk:=IF(DATATYPE=8,0.95,1);
STICKLINE(dk>0,rcc*kk,rcc*kk+dk,0,1),COLORred;
STICKLINE(dk<0,rcc*kk,rcc*kk+dk,0,1),COLORCYAN;a1:='sh000001';
a2:='sz399001';
a3:=STRTONUM(STRLEFT(STKLABEL,1));
昨收:=if(a3=6,hhv(STKINDI(a1,'叠加引用.昨收#day'),0),hhv(STKINDI(a2,'叠加引用.昨收#day'),0));
开盘:=if(a3=6,HHv(STKINDI(a1,'叠加引用.开盘#day'),0),HHv(STKINDI(a2,'叠加引用.开盘#day'),0));
收盘:=if(a3=6,if(time>093000,STKINDI(a1,'叠加引用.收盘#min1'),开盘),if(time>093000,STKINDI(a2,'叠加引用.收盘#min1'),开盘));
大盘线:收盘/昨收*DYNAINFO(3),LINETHICK2,COLOR1E90FF,PRECIS0;
if a3=6 then
DRAWTEXT(BARSTATUS=2,大盘线,'上证指数'),LINETHICK4,COLOR1E90FF,PRECIS0;
if a3<6 then
DRAWTEXT(BARSTATUS=2,大盘线,'深证成指'),LINETHICK4, COLOR1E90FF ,PRECIS0;
gqc:=DYNAINFO(3);
gh:=DYNAINFO(5);
gL:=DYNAINFO(6);
当前波幅:=max(gh-gqc,gqc-gL);
gf:=当前波幅/gqc;
最低位置:=gqc-当前波幅;
zl:=(("DATA@dde分时"(6)+"DATA@dde分时"(4))-("DATA@dde分时"(7)+"DATA@dde分时"(5)));
主力净额:zl*SUM(AMOUNT,0)/10000,linethick0,PRECIS2,colorred;
zjcbf:=max(hhvall(主力净额),0-llvall(主力净额));
p1:=主力净额*gf/zjcbf;
zjcx:=(p1+1)*gqc;
ma(zjcx,3),linethick2,PRECIS2,ColorFF0DFF;
DRAWTEXT( BARSTATUS=2,zjcx ,'BBD:'+主力净额),LINETHICK3,COLORFFFFFF;
★主力净:=(("DATA@dde分时"(6)+"DATA@dde分时"(4))-("DATA@dde分时"(7)+"DATA@dde分时"(5)))*SUM(AMOUNT,0)/10000;
特净额:=("DATA@dde分时"(4)-"DATA@dde分时"(5))*SUM(AMOUNT,0)/10000;
大净额:=("DATA@dde分时"(6)-"DATA@dde分时"(7))*SUM(AMOUNT,0)/10000;
中净:=((1-("DATA@dde分时"(8)+"DATA@dde分时"(6)+"DATA@dde分时"(4)))-(1-("DATA@dde分时"(9)+"DATA@dde分时"(7)+"DATA@dde分时"(5))))*SUM(AMOUNT,0)/10000;
小净:=("DATA@dde分时"(8)-"DATA@dde分时"(9))*SUM(AMOUNT,0)/10000;
DRAWTEXTABS(0 ,65 ,'★主力净 '+★主力净),LINETHICK3,ColorFFFFFF;
DRAWTEXTABS(15 ,25 ,'小净 '+小净),LINETHICK3, ColorFFFF00 ;
DRAWTEXTABS(135 ,25 ,'中净 '+中净),LINETHICK3,ColorYellow;
DRAWTEXTABS(0  ,45 ,'大净额 '+大净额),LINETHICK3,COLOR1E90FF;
DRAWTEXTABS(135 ,45 ,'特净额 '+特净额),LINETHICK3,COLORcc00FF;
BBD1:="DATA@dde分时"(4)-"DATA@dde分时"(5)+"DATA@dde分时"(6)-"DATA@dde分时"(7);
★★★DDX:=BBD1*SUM(VOL,0)/capital*100;
DRAWTEXTABS(0 ,85 , '★★★DDX'+★★★DDX),LINETHICK3,ColorFFFFFF;DRAWTEXTREL(0,710,'分类'),COLORFFFFFF,LINETHICK2;
DRAWTEXTREL(0,750,'超大'),COLORFFFFFF,LINETHICK2;
DRAWTEXTREL(0,790,'大户'),COLORFFFFFF,LINETHICK2;DRAWTEXTREL(70,710,'9:3-10:00'),COLORFFFFFF,LINETHICK1;
DRAWTEXTREL(180,710,'10:00-10:3'),COLORFFFFFF,LINETHICK1;
DRAWTEXTREL(300,710,'10:3-11:00'),COLORFFFFFF,LINETHICK1;
DRAWTEXTREL(420,710,'11:00-11:3'),COLORFFFFFF,LINETHICK1;
DRAWTEXTREL(540,710,'13:00-13:3'),COLORFFFFFF,LINETHICK1;
DRAWTEXTREL(660,710,'13:3-14:00'),COLORFFFFFF,LINETHICK1;
DRAWTEXTREL(780,710,'14:00-14:3'),COLORFFFFFF,LINETHICK1;
DRAWTEXTREL(900,710,'14:3-15:00'),COLORFFFFFF,LINETHICK1;
DRAWTEXTREL(1020,710,'总净额'),COLORFFFFFF,LINETHICK2;
{10点}
TD10D:=REF(特净额,BARSLAST(TIME<=100000));
DD10D:=REF(大净额,BARSLAST(TIME<=100000));
DRAWTEXTREL(70,750,STRRIGHT(NUMTOSTRN(TD10D,2),9)),COLORFFFFFF,LINETHICK2;
DRAWTEXTREL(70,790,STRRIGHT(NUMTOSTRN(DD10D,2),9)),COLORFFFFFF,LINETHICK2;
{10点半}
TD10DB:=REF(特净额,BARSLAST(TIME>100000 AND TIME<=103000));
DD10DB:=REF(大净额,BARSLAST(TIME>100000 AND TIME<=103000));
DRAWTEXTREL(180,750,STRRIGHT(NUMTOSTRN(TD10DB-TD10D,2),9)),COLORFFFFFF,LINETHICK2;
DRAWTEXTREL(180,790,STRRIGHT(NUMTOSTRN(DD10DB-DD10D,2),9)),COLORFFFFFF,LINETHICK2;
{11点}
TD11D:=REF(特净额,BARSLAST(TIME>103000 AND TIME<=110000));
DD11D:=REF(大净额,BARSLAST(TIME>103000 AND TIME<=110000));
DRAWTEXTREL(300,750,STRRIGHT(NUMTOSTRN(TD11D-TD10DB,2),9)),COLORFFFFFF,LINETHICK2;
DRAWTEXTREL(300,790,STRRIGHT(NUMTOSTRN(DD11D-DD10DB,2),9)),COLORFFFFFF,LINETHICK2;
{11点半}
TD11DB:=REF(特净额,BARSLAST(TIME>110000 AND TIME<=113000));
DD11DB:=REF(大净额,BARSLAST(TIME>110000 AND TIME<=113000));
DRAWTEXTREL(420,750,STRRIGHT(NUMTOSTRN(TD11DB-TD11D,2),9)),COLORFFFFFF,LINETHICK2;
DRAWTEXTREL(420,790,STRRIGHT(NUMTOSTRN(DD11DB-DD11D,2),9)),COLORFFFFFF,LINETHICK2;
{13点半}
TD13DB:=REF(特净额,BARSLAST(TIME>130000 AND TIME<=133000));
DD13DB:=REF(大净额,BARSLAST(TIME>130000 AND TIME<=133000));
DRAWTEXTREL(540,750,STRRIGHT(NUMTOSTRN(TD13DB-TD11DB,2),10)),COLORFFFFFF,LINETHICK2;
DRAWTEXTREL(540,790,STRRIGHT(NUMTOSTRN(DD13DB-DD11DB,2),10)),COLORFFFFFF,LINETHICK2;
{14点}
TD14D:=REF(特净额,BARSLAST(TIME>133000 AND TIME<=140000));
DD14D:=REF(大净额,BARSLAST(TIME>133000 AND TIME<=140000));
DRAWTEXTREL(660,750,STRRIGHT(NUMTOSTRN(TD14D-TD13DB,2),10)),COLORFFFFFF,LINETHICK2;
DRAWTEXTREL(660,790,STRRIGHT(NUMTOSTRN(DD14D-DD13DB,2),10)),COLORFFFFFF,LINETHICK2;
{14点半}
TD14DB:=REF(特净额,BARSLAST(TIME>140000 AND TIME<=143000));
DD14DB:=REF(大净额,BARSLAST(TIME>140000 AND TIME<=143000));
DRAWTEXTREL(780,750,STRRIGHT(NUMTOSTRN(TD14DB-TD14D,2),10)),COLORFFFFFF,LINETHICK2;
DRAWTEXTREL(780,790,STRRIGHT(NUMTOSTRN(DD14DB-DD14D,2),10)),COLORFFFFFF,LINETHICK2;
{15点}
TD15D:=REF(特净额,BARSLAST(TIME>143000 AND TIME<=150000));
DD15D:=REF(大净额,BARSLAST(TIME>143000 AND TIME<=150000));
DRAWTEXTREL(900,750,STRRIGHT(NUMTOSTRN(TD15D-TD14DB,2),10)),COLORFFFFFF,LINETHICK2;
DRAWTEXTREL(900,790,STRRIGHT(NUMTOSTRN(DD15D-DD14DB,2),10)),COLORFFFFFF,LINETHICK2;
{总净额}
DRAWTEXTREL(1020,750,STRRIGHT(NUMTOSTRN(特净额,2),10)),COLORFFFFFF,LINETHICK2;
DRAWTEXTREL(1020,790,STRRIGHT(NUMTOSTRN(大净额,2),10)),COLORFFFFFF,LINETHICK2;