{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; |
|