板塊指數(shù):=IF(INBLOCK(‘工程建筑’),”991002$CLOSE”,
IF(INBLOCK(‘電力’),”991003$CLOSE”,
IF(INBLOCK(‘計算機’),”991004$CLOSE”,
IF(INBLOCK(‘電子信息’),”991006$CLOSE”,
IF(INBLOCK(‘房地產(chǎn)’),”991007$CLOSE”,
IF(INBLOCK(‘紡織服裝’),”991008$CLOSE”,
IF(INBLOCK(‘鋼鐵’),”991009$CLOSE”,
IF(INBLOCK(‘供水供氣’),”991010$CLOSE”,
IF(INBLOCK(‘化工化纖’),”991011$CLOSE”,
IF(INBLOCK(‘電器’),”991014$CLOSE”,
IF(INBLOCK(‘交通設(shè)施’),”991016$CLOSE”,
IF(INBLOCK(‘銀行類’),”991017$CLOSE”,
IF(INBLOCK(‘旅游酒店’),”991018$CLOSE”,
IF(INBLOCK(‘煤炭石油’),”991019$CLOSE”,
IF(INBLOCK(‘釀酒食品’),”991020$CLOSE”,
IF(INBLOCK(‘農(nóng)林牧漁’),”991021$CLOSE”,
IF(INBLOCK(‘商業(yè)連鎖’),”991023$CLOSE”,
IF(INBLOCK(‘建材’),”991024$CLOSE”,
IF(INBLOCK(‘其他行業(yè)’),”991025$CLOSE”,
IF(INBLOCK(‘汽車類’),”991026$CLOSE”,
IF(INBLOCK(‘機械’),”991027$CLOSE”,
IF(INBLOCK(‘醫(yī)藥’),”991028$CLOSE”,
IF(INBLOCK(‘外貿(mào)’),”991031$CLOSE”,
IF(INBLOCK(‘教育傳媒’),”991032$CLOSE”,
IF(INBLOCK(‘儀電儀表’),”991033$CLOSE”,
IF(INBLOCK(‘有色金屬’),”991034$CLOSE”,
IF(INBLOCK(‘造紙印刷’),”991035$CLOSE”,
IF(INBLOCK(‘券商’),”991036$CLOSE”,
IF(INBLOCK(‘電力設(shè)備’),”991037$CLOSE”,
IF(INBLOCK(‘通信’),”991135$CLOSE”,
IF(INBLOCK(‘運輸物流’),”991136$CLOSE”,
IF(INBLOCK(‘保險’),”991255$CLOSE”,0)
)))))))))))))))))))))))))))))));
板塊漲幅:=SUM(板塊指數(shù)/REF(板塊指數(shù),1)*100-100,1);
板塊:=IFS(INBLOCK(‘工程建筑’),’工程建筑’,
IFS(INBLOCK(‘電力’),’電力’,
IFS(INBLOCK(‘計算機’),’計算機’,
IFS(INBLOCK(‘電子信息’),’電子信息’,
IFS(INBLOCK(‘房地產(chǎn)’),’房地產(chǎn)’,
IFS(INBLOCK(‘紡織服裝’),’紡織服裝’,
IFS(INBLOCK(‘鋼鐵’),’鋼鐵’,
IFS(INBLOCK(‘供水供氣’),’供水供氣’,
IFS(INBLOCK(‘化工化纖’),’化工化纖’,
IFS(INBLOCK(‘電器’),’電器’,
IFS(INBLOCK(‘交通設(shè)施’),’交通設(shè)施’,
IFS(INBLOCK(‘銀行類’),’銀行類’,
IFS(INBLOCK(‘旅游酒店’),’旅游酒店’,
IFS(INBLOCK(‘煤炭石油’),’煤炭石油’,
IFS(INBLOCK(‘釀酒食品’),’釀酒食品’,
IFS(INBLOCK(‘農(nóng)林牧漁’),’農(nóng)林牧漁’,
IFS(INBLOCK(‘商業(yè)連鎖’),’商業(yè)連鎖’,
IFS(INBLOCK(‘建材’),’建材’,
IFS(INBLOCK(‘其他行業(yè)’),’其他行業(yè)’,
IFS(INBLOCK(‘汽車類’),’汽車類’,
IFS(INBLOCK(‘機械’),’機械’,
IFS(INBLOCK(‘醫(yī)藥’),’醫(yī)藥’,
IFS(INBLOCK(‘外貿(mào)’),’外貿(mào)’,
IFS(INBLOCK(‘教育傳媒’),’教育傳媒’,
IFS(INBLOCK(‘儀電儀表’),’儀電儀表’,
IFS(INBLOCK(‘有色金屬’),’有色金屬’,
IFS(INBLOCK(‘造紙印刷’),’造紙印刷’,
IFS(INBLOCK(‘券商’),’券商’,
IFS(INBLOCK(‘電力設(shè)備’),’電力設(shè)備’,
IFS(INBLOCK(‘通信’),’通信’,
IFS(INBLOCK(‘運輸物流’),’運輸物流’,
IFS(INBLOCK(‘保險’),’保險’,”)
)))))))))))))))))))))))))))))));
DRAWTEXTABS(0,38,’大盤指數(shù)：’+INDEXC+”),LINETHICK0,COLORFF00FF;
DRAWTEXTABS(0,52,’大盤漲跌：’+INDEXC- REF(INDEXC,1)),LINETHICK0,PRECIS2,COLORFFFF00;
DRAWTEXTABS(225,38,’大盤漲幅：’+((INDEXC- REF(INDEXC,1))/REF(INDEXC,1)*100)+’%’),LINETHICK0,PRECIS2,COLORred;
DRAWTEXTABS(0,66,’上漲家數(shù)：’+NUMTOSTRN(DYNAINFO(69),0)),COLOR0000FF;
DRAWTEXTABS(0,80,’下跌家數(shù)：’+NUMTOSTRN(DYNAINFO(70),0)),COLOR00FF00;
DRAWTEXTABS(0,94,’平盤家數(shù)：’+NUMTOSTRN(DYNAINFO(71),0)),COLORFFFFFF;
DRAWTEXTABS(0,112,’股票代碼： ‘+STKLABEL+”),LINETHICK1,COLORFFFF00;
DRAWTEXTABS(0,126,’股票名稱：’+STKNAME+”),LINETHICK1,COLORFFFF00;
DRAWTEXTABS(0,140,’所屬板塊：’+ 板塊),COLOR00FFFF;
DRAWTEXTABS(0,154,’板塊指數(shù)：’+ 板塊指數(shù)),PRECIS2,COLOR00FFFF;
DRAWTEXTABS(0,168,’板塊漲跌：’+ 板塊指數(shù)-REF(板塊指數(shù),1)),PRECIS2,COLOR00FFFF;
DRAWTEXTABS(342,38,’板塊漲幅：’+ 板塊漲幅+’%’),PRECIS2,COLOR00FFFF;
DRAWTEXTABS(0,185,’最新股價：’+DYNAINFO(7)+’元’),COLORFF00FF;
DRAWTEXTABS(460,38,’個股漲幅：’+DYNAINFO(14)*100+’%’),COLORFF00FF,PRECIS2;
DRAWTEXTABS(0,199,’今日漲跌：’+C-REF(C,1)+’元’),COLORFFFF00,PRECIS2;
DRAWTEXTABS(0,213,’換 手 率：’+VOL/CAPITAL* 100),COLORFF00FF,PRECIS2;
DRAWTEXTABS(0,257,’歷史最高價：’+HHV(HIGH,0)),Colorred,LINETHICK0;
DRAWTEXTABS(0,272,’歷史最低價：’+LLV(LOW,0)),COLOR00FF00,LINETHICK0;
TODAY:=(“DDY.DDY”)=0; {判斷是否有正版數(shù)據(jù)}
{疊加大盤線}
{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;}
{DRAWTEXTABS(90,5,TC);}
{分時超贏}
HS:=vol/capital;
ZLB:=IF(TODAY,”[email=DDEDATA@BIGORDER]DDEDATA@BIGORDER”(1,2),BIGORDER(1,2[/email]));
ZLS:=IF(TODAY,”[email=DDEDATA@BIGORDER]DDEDATA@BIGORDER”(2,2),BIGORDER(2,2[/email]));
TDB:=IF(TODAY,”[email=DDEDATA@BIGORDER]DDEDATA@BIGORDER”(1,3),bigorder(1,3[/email]));
TDS:=IF(TODAY,”[email=DDEDATA@BIGORDER]DDEDATA@BIGORDER”(2,3),bigorder(2,3[/email]));
DDB:=IF(TODAY,”[email=DDEDATA@BIGORDER]DDEDATA@BIGORDER”(1,2)-“DDEDATA@BIGORDER”(1,3),bigorder(1,2)-bigorder(1,3[/email]));
DDS:=IF(TODAY,”[email=DDEDATA@BIGORDER]DDEDATA@BIGORDER”(2,2)-“DDEDATA@BIGORDER”(2,3),bigorder(2,2)-bigorder(2,3[/email]));
ZDB:=IF(TODAY,”[email=DDEDATA@BIGORDER]DDEDATA@BIGORDER”(1,1)-“DDEDATA@BIGORDER”(1,2),bigorder(1,1)-bigorder(1,2[/email]));
ZDS:=IF(TODAY,”[email=DDEDATA@BIGORDER]DDEDATA@BIGORDER”(2,1)-“DDEDATA@BIGORDER”(2,2),bigorder(2,1)-bigorder(2,2[/email]));
XDB:=IF(TODAY,1-“[email=DDEDATA@BIGORDER]DDEDATA@BIGORDER”(1,1),1-bigorder(1,1[/email]));
XDS:=IF(TODAY,1-“[email=DDEDATA@BIGORDER]DDEDATA@BIGORDER”(2,1),1-bigorder(2,1[/email]));
WPB:=sum(if(DYNAINFO(23)*close,DYNAINFO(23),0),0)*0.003906;
NPS:=sum(if(DYNAINFO(22)*close,DYNAINFO(22),0),0)*0.003906;
主動率:=(WPB-NPS)/(NPS+WPB)*100;
單數(shù)比:=IF(DYNAINFO(92)/DYNAINFO(91) ,DYNAINFO(92)/DYNAINFO(91) ,0 );
TCL1:=IF(TODAY ,(DDB+TDB ) ,(DYNAINFO(95)+DYNAINFO(94)));
TCL2:=IF(TODAY,(TDS+DDS) ,(DYNAINFO(98)+DYNAINFO(97)) );
{通吃率:=(TCL1-TCL2)*VOL/VOL*100;}
DRAWTEXTABS(0,227,’主 動 率：’+ NUMTOSTRN(主動率,2)),COLOR00FFFF;
DRAWTEXTABS(0,242,’單 數(shù) 比：’+ NUMTOSTRN(單數(shù)比,2)),COLOR00FFFF;
{DRAWTEXTABS(0,136,’通 吃 率：’+ NUMTOSTRN(通吃率,2)),COLOR00FFFF;}
TDLR:=TDB*AMOUNT/10000;
TDLC:=TDS*AMOUNT/10000;
CJ:=TDLR-TDLC{,COLORFF00FF,LINETHICK0,PRECIS2};
超增:=SUM(TDB,1)-SUM(TDS,1){,COLORFF00FF,LINETHICK0,PRECIS2};
CD:=TDB-TDS;
超大:=HS*CD*100;
CDCC:= 25+Sum(超大,0);
DDLR:=DDB*AMOUNT/10000;
DDLC:=DDS*AMOUNT/10000;
DJ:=DDLR-DDLC{,COLOR00FF00,LINETHICK0,PRECIS2};
大增:=SUM(DDB,1)-SUM(DDS,1){,COLOR00FF00,LINETHICK0,PRECIS2};
DD:=DDB-DDS;
大戶:=HS*DD*100;
DHCC:=25+Sum(大戶,0);
ZDLR:=ZDB*AMOUNT/10000;
ZDLC:=ZDS*AMOUNT/10000;
ZJ:=ZDLR-ZDLC{,COLORB5B5B5,LINETHICK0,PRECIS2};
中增:=SUM(ZDB,1)-SUM(ZDS,1){,COLORB5B5B5,LINETHICK0,PRECIS2};
ZD:=ZDB-ZDS;
中戶:=HS*ZD*100;
ZHCC:= 25+Sum(中戶,0);
XDLR:=XDB*AMOUNT/10000;
XDLC:=XDS*AMOUNT/10000;
SJ:=XDLR-XDLC{,COLORFF9911,LINETHICK0,PRECIS2};
散增:=SUM(XDB,1)-SUM(XDS,1){,COLORFF9911,LINETHICK0,PRECIS2};
XD:=XDB-XDS;
散戶:=HS*XD*100;
SHCC:= 25+Sum(散戶,0);
ZLLR:=ZLB*AMOUNT/10000;
ZLLC:=ZLS*AMOUNT/10000;
主凈:ZLLR-ZLLC,COLORred,LINETHICK0,PRECIS2;
主增:=SUM(ZLB,1)-SUM(ZLS,1){,LINETHICK0,PRECIS2,COLOR00FF00};
主力:=超大+大戶;
ZLCC:=CDCC+DHCC;
{連紅:LAST(主凈 > 0),COLORRED,linethick0,PRECIS2;
十日飄紅:COUNT(主凈 > 0,10),COLORFF00FF,linethick0,PRECIS2;}
占流通盤比:(ZLB-ZLS)*vol/CAPITAL * 100,PRECIS2,linethick0;
{成交量:VOL/100,PRECIS2;}
占成交額比:主凈/(AMOUNT/10000) * 100,PRECIS2,linethick0;
占成交量比:主凈/AMOUNT * VOL * 100,PRECIS2,linethick0;
DRAWTEXTREL(230,10,’今日主力 ‘+主凈+’萬元’),LINETHICK4,Colorred;
DRAWTEXTREL(500,10,’主力連紅 ‘+LAST(主凈 > 0)+’天’),LINETHICK4,Color00b5ff;
DRAWTEXTREL(650,10,’十日飚紅 ‘+COUNT(主凈 > 0,10)+’天’),LINETHICK4,COLORFF00FF;
二日總資:SUM(主凈,2),LINETHICK0,PRECIS2,COLORFF00FF;
三日總資:SUM(主凈,3),LINETHICK0,PRECIS2,COLORFFFF00;
四日總資:SUM(主凈,4),LINETHICK0,PRECIS2,COLOR00FFFF;
五日總資:SUM(主凈,5),LINETHICK0,PRECIS2,COLORFFFF00;
{前六日資金趨勢}
DRAWTEXTABS(105,25,’前六日主力資金(萬):’),COLORFFFF00;
DRAWTEXTABS(225,25,’前1日:’+ NUMTOSTRN(ref(主凈,1),2)),COLOR00FFFF;
DRAWTEXTABS(325,25,’前2日:’+ NUMTOSTRN(ref(主凈,2),2)),COLORFF00FF;
DRAWTEXTABS(425,25,’前3日:’+ NUMTOSTRN(ref(主凈,3),2)),COLOR00FF00;
DRAWTEXTABS(525,25,’前4日:’+ NUMTOSTRN(ref(主凈,4),2)),COLORB5B5B5;
DRAWTEXTABS(625,25,’前5日:’+ NUMTOSTRN(ref(主凈,5),2)),COLORFF9911;
DRAWTEXTABS(725,25,’前6日:’+ NUMTOSTRN(ref(主凈,6),2)),Color00b5ff;
{畫柱圖};
ZDZ:=400/(MAX(ZLLR,ZLLC,TDLR,TDLC,DDLR,DDLC,ZDLR,ZDLC,XDLR,XDLC,SJ,ZJ,DJ,CJ, 主凈));
主買:=600-(ZLLR*ZDZ);
主賣:=600-(ZLLC*ZDZ);
ZLJM:=500-(ABS(主凈)*ZDZ);
超買:=600-(TDLR*ZDZ);
超賣:=600-(TDLC*ZDZ);
CDJB:=500-(ABS(CJ)*ZDZ);
大買:=600-(DDLR*ZDZ);
大賣:=600-(DDLC*ZDZ);
DHJB:=500-(ABS(DJ)*ZDZ);
中買:=600-(ZDLR*ZDZ);
中賣:=600-(ZDLC*ZDZ);
ZHJB:=500-(ABS(ZJ)*ZDZ);
散買:=600-(XDLR*ZDZ);
散賣:=600-(XDLC*ZDZ);
SHJB:=500-(ABS(SJ)*ZDZ);
DRAWRECTREL(280,主買,300,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(300,主賣,320,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(320,ZLJM,340,610,(IF((主凈 >= 0),RGB(255,20,147),RGB(0,250,154)))),COLOR000000,LAYER5;
DRAWRECTREL(410,超買,430,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(430,超賣,450,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(450,CDJB,470,610,(IF((CJ >= 0),RGB(255,20,147),RGB(0,250,154)))),COLOR000000,LAYER5;
DRAWRECTREL(540,大買,560,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(560,大賣,580,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(580,DHJB,600,610,(IF((DJ >= 0),RGB(255,20,147),RGB(0,250,154)))),COLOR000000,LAYER5;
DRAWRECTREL(670,中買,690,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(690,中賣,710,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(710,ZHJB,730,610,(IF((ZJ >= 0),RGB(255,20,147),RGB(0,250,154)))),COLOR000000,LAYER5;
DRAWRECTREL(800,散買,820,610,RGB(200,0,0)),COLOR000000,LAYER5;
DRAWRECTREL(820,散賣,840,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWRECTREL(840,SHJB,860,610,(IF((SJ >= 0),RGB(255,20,147),RGB(0,250,154)))),COLOR000000,LAYER5;
{橫彩條}
{DRAWRECTREL( 280,620,340,650,RGB(255,255,0));
DRAWRECTREL( 410,620,470,650,RGB(255,0,255));
DRAWRECTREL( 540,620,600,650,RGB(0,200,0));
DRAWRECTREL( 670,620,730,650,RGB(200,200,200));
DRAWRECTREL( 800,620,860,650,RGB(0,0,200));}
{顯示文字}
DRAWTEXTREL(260,450,’主’),LINETHICK2,ColorDDFFFF;
DRAWTEXTREL(260,580,’力’),LINETHICK2,ColorDDFFFF;
DRAWTEXTREL(390,450,’機’),LINETHICK2,ColorDDFFFF;
DRAWTEXTREL(390,580,’構(gòu)’),LINETHICK2,ColorDDFFFF;
DRAWTEXTREL(520,450,’大’),LINETHICK2,ColorDDFFFF;
DRAWTEXTREL(520,580,’戶’),LINETHICK2,ColorDDFFFF;
DRAWTEXTREL(650,450,’中’),LINETHICK2,ColorDDFFFF;
DRAWTEXTREL(650,580,’戶’),LINETHICK2,ColorDDFFFF;
DRAWTEXTREL(780,450,’散’),LINETHICK2,ColorDDFFFF;
DRAWTEXTREL(780,580,’戶’),LINETHICK2,ColorDDFFFF;
DRAWTEXTREL(200,680,’買入(萬) ‘),colorred;
DRAWTEXTREL(200,750,’賣出(萬) ‘),Color00FF00;
DRAWTEXTREL(200,820,’凈買(萬) ‘),COLORFF00FF;
DRAWTEXTREL(200,890,’持倉比例 ‘),COLOR00FFFF;
DRAWTEXTREL(200,960,’增倉比例 ‘),COLORFFFF00;

{顯示數(shù)據(jù)}
DRAWTEXTREL(280,680,NUMTOSTRN(ZLLR,2)),colorred;
DRAWTEXTREL(280,750,NUMTOSTRN(ZLLC,2)),COLOR00FF00;
DRAWTEXTREL(280,820,NUMTOSTRN(主凈,2)),COLORFF00FF;
DRAWTEXTREL(280,890,NUMTOSTRN(ZLCC,2)+’%’),COLOR00FFFF;
DRAWTEXTREL(280,960,NUMTOSTRN(主增,2)+’%’),COLORFFFF00;
DRAWTEXTREL(410,680,NUMTOSTRN(TDLR,2)),colorred;
DRAWTEXTREL(410,750,NUMTOSTRN(TDLC,2)),COLOR00FF00;
DRAWTEXTREL(410,820,NUMTOSTRN(CJ,2)),COLORFF00FF;
DRAWTEXTREL(410,890,NUMTOSTRN(CDCC,2)+’%’),COLOR00FFFF;
DRAWTEXTREL(410,960,NUMTOSTRN(超增,2)+’%’),COLORFFFF00;
DRAWTEXTREL(540,680,NUMTOSTRN(DDLR,2)),colorred;
DRAWTEXTREL(540,750,NUMTOSTRN(DDLC,2)),COLOR00FF00;
DRAWTEXTREL(540,820,NUMTOSTRN(DJ,2)),COLORFF00FF;
DRAWTEXTREL(540,890,NUMTOSTRN(DHCC,2)+’%’),COLOR00FFFF;
DRAWTEXTREL(540,960,NUMTOSTRN(大增,2)+’%’),COLORFFFF00;
DRAWTEXTREL(670,680,NUMTOSTRN(ZDLR,2)),colorred;
DRAWTEXTREL(670,750,NUMTOSTRN(ZDLC,2)),COLOR00FF00;
DRAWTEXTREL(670,820,NUMTOSTRN(ZJ,2)),COLORFF00FF;
DRAWTEXTREL(670,890,NUMTOSTRN(ZHCC,2)+’%’),COLOR00FFFF;
DRAWTEXTREL(670,960,NUMTOSTRN(中增,2)+’%’),COLORFFFF00;
DRAWTEXTREL(800,680,NUMTOSTRN(XDLR,2)),colorred;
DRAWTEXTREL(800,750,NUMTOSTRN(XDLC,2)),COLOR00FF00;
DRAWTEXTREL(800,820,NUMTOSTRN(SJ,2)),COLORFF00FF;
DRAWTEXTREL(800,890,NUMTOSTRN(SHCC,2)+’%’),COLOR00FFFF;
DRAWTEXTREL(800,960,NUMTOSTRN(散增,2)+’%’),COLORFFFF00;