|
板块决策 每天前十 板块监控的精品公式
看图写的板块前十，送上一个L2板块（排序的太卡了所以不发上来），想交流股买点，有愿意的发上来
DRAWRECTabs(1,168,860,298,RGB(0,0,1)),Color888866;
DRAWRECTabs(1,1,860,448,RGB(0,0,0)),Coloreeeeaa; DRAWRECTabs(1,1,860,37,RGB(185,50,75)),Coloreeeeaa; 上s:=STKINDI('1a0001','DY.ss');
DRAWTEXTabs(50,6,' 壹 庆 '+'上证资金'+NUMTOSTRN(上s,2)+'亿 上涨家数'+INDEXADV+'/下跌家数'+INDEXDEC+'/平盘家数'+DYNAINFO(68)),ColorFFFFe9; DRAWTEXTabs(4,22,' '+'板块名称'+' '+'涨幅%'+' '+'0-涨幅→1-------2-------3-------4-------5-------6-------7-------8-------9←流量-0'+' '+' DDX '+' '+' 飘红 '+' '+'资金(亿)'+' '+'板块家数'),ColorFFFFc9; TT:=' '; {工程建筑}
V01c:=STKINDI('991002','DY.CC'); V01d:=STKINDI('991002','DY.DD'); V01p:=count(V01d>0,飘); V01s:=STKINDI('991002','DY.SS'); V01y:=STKINDI('991002','DY.yy'); DRAWTEXTabs(4,39,' '+'工程建筑'+' '+STRRIGHT(' '+NUMTOSTRN(V01c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V01d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V01p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V01s,3),8)+' '+'工程建筑(47)'),ColorADFFFF; DRAWRECTabs(132,40,132+ABS(V01c)*48.5,50,IF(V01c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,45,616-ABS(V01y)*N,51,IF(V01d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {电力 }
V02c:=STKINDI('991003','DY.CC'); V02d:=STKINDI('991003','DY.DD'); V02p:=count(V02d>0,飘); V02s:=STKINDI('991003','DY.SS'); V02y:=STKINDI('991003','DY.yy'); DRAWTEXTabs(4,52,' '+'电力 '+' '+STRRIGHT(' '+NUMTOSTRN(V02c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V02d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V02p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V02s,3),8)+' '+'电力(57)'),ColorADFFFF; DRAWRECTabs(132,53,132+ABS(V02c)*48.5,63,IF(V02c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,58,616-ABS(V02y)*N,64,IF(V02d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {计算机 }
V03c:=STKINDI('991004','DY.CC'); V03d:=STKINDI('991004','DY.DD'); V03p:=count(V03d>0,飘); V03s:=STKINDI('991004','DY.SS'); V03y:=STKINDI('991004','DY.yy'); DRAWTEXTabs(4,65,' '+'计算机 '+' '+STRRIGHT(' '+NUMTOSTRN(V03c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V03d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V03p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V03s,3),8)+' '+'计算机(61)'),ColorADFFFF; DRAWRECTabs(132,66,132+ABS(V03c)*48.5,76,IF(V03c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,71,616-ABS(V03y)*N,77,IF(V03d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {电子信息}
V04c:=STKINDI('991006','DY.CC'); V04d:=STKINDI('991006','DY.DD'); V04p:=count(V04d>0,飘); V04s:=STKINDI('991006','DY.SS'); V04y:=STKINDI('991006','DY.yy'); DRAWTEXTabs(4,78,' '+'电子信息'+' '+STRRIGHT(' '+NUMTOSTRN(V04c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V04d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V04p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V04s,3),8)+' '+'电子信息(82)'),ColorADFFFF; DRAWRECTabs(132,79,132+ABS(V04c)*48.5,89,IF(V04c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,84,616-ABS(V04y)*N,90,IF(V04d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {房地产 }
V05c:=STKINDI('991007','DY.CC'); V05d:=STKINDI('991007','DY.DD'); V05p:=count(V05d>0,飘); V05s:=STKINDI('991007','DY.SS'); V05y:=STKINDI('991007','DY.yy'); DRAWTEXTabs(4,91,' '+'房地产 '+' '+STRRIGHT(' '+NUMTOSTRN(V05c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V05d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V05p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V05s,3),8)+' '+'房地产(142)'),ColorADFFFF; DRAWRECTabs(132,92,132+ABS(V05c)*48.5,102,IF(V05c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,97,616-ABS(V05y)*N,103,IF(V05d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {纺织服装}
V06c:=STKINDI('991008','DY.CC'); V06d:=STKINDI('991008','DY.DD'); V06p:=count(V06d>0,飘); V06s:=STKINDI('991008','DY.SS'); V06y:=STKINDI('991008','DY.yy'); DRAWTEXTabs(4,104,' '+'纺织服装'+' '+STRRIGHT(' '+NUMTOSTRN(V06c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V06d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V06p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V06s,3),8)+' '+'纺织服装(67)'),ColorADFFFF; DRAWRECTabs(132,105,132+ABS(V06c)*48.5,115,IF(V06c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,110,616-ABS(V06y)*N,116,IF(V06d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {钢铁 }
V07c:=STKINDI('991009','DY.CC'); V07d:=STKINDI('991009','DY.DD'); V07p:=count(V07d>0,飘); V07s:=STKINDI('991009','DY.SS'); V07y:=STKINDI('991009','DY.yy'); DRAWTEXTabs(4,117,' '+'钢铁 '+' '+STRRIGHT(' '+NUMTOSTRN(V07c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V07d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V07p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V07s,3),8)+' '+'钢铁(38)'),ColorADFFFF; DRAWRECTabs(132,118,132+ABS(V07c)*48.5,128,IF(V07c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,123,616-ABS(V07y)*N,129,IF(V07d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {供水供气}
V08c:=STKINDI('991010','DY.CC'); V08d:=STKINDI('991010','DY.DD'); V08p:=count(V08d>0,飘); V08s:=STKINDI('991010','DY.SS'); V08y:=STKINDI('991010','DY.yy'); DRAWTEXTabs(4,130,' '+'供水供气'+' '+STRRIGHT(' '+NUMTOSTRN(V08c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V08d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V08p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V08s,3),8)+' '+'供水供气(25)'),ColorADFFFF; DRAWRECTabs(132,131,132+ABS(V08c)*48.5,141,IF(V08c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,136,616-ABS(V08y)*N,142,IF(V08d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {化工化纤}
V09c:=STKINDI('991011','DY.CC'); V09d:=STKINDI('991011','DY.DD'); V09p:=count(V09d>0,飘); V09s:=STKINDI('991011','DY.SS'); V09y:=STKINDI('991011','DY.yy'); DRAWTEXTabs(4,143,' '+'化工化纤'+' '+STRRIGHT(' '+NUMTOSTRN(V09c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V09d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V09p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V09s,3),8)+' '+'化工化纤(124)'),ColorADFFFF; DRAWRECTabs(132,144,132+ABS(V09c)*48.5,154,IF(V09c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,149,616-ABS(V09y)*N,155,IF(V09d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {电器 }
V10c:=STKINDI('991014','DY.CC'); V10d:=STKINDI('991014','DY.DD'); V10p:=count(V10d>0,飘); V10s:=STKINDI('991014','DY.SS'); V10y:=STKINDI('991014','DY.yy'); DRAWTEXTabs(4,156,' '+'电器 '+' '+STRRIGHT(' '+NUMTOSTRN(V10c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V10d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V10p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V10s,3),8)+' '+'电器(40)'),ColorADFFFF; DRAWRECTabs(132,157,132+ABS(V10c)*48.5,167,IF(V10c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,162,616-ABS(V10y)*N,168,IF(V10d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {交通设施}
V11c:=STKINDI('991016','DY.CC'); V11d:=STKINDI('991016','DY.DD'); V11p:=count(V11d>0,飘); V11s:=STKINDI('991016','DY.SS'); V11y:=STKINDI('991016','DY.yy'); DRAWTEXTabs(4,169,' '+'交通设施'+' '+STRRIGHT(' '+NUMTOSTRN(V11c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V11d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V11p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V11s,3),8)+' '+'交通设施(40)'),ColorADFFFF; DRAWRECTabs(132,170,132+ABS(V11c)*48.5,180,IF(V11c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,175,616-ABS(V11y)*N,181,IF(V11d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {银行类 }
V12c:=STKINDI('991017','DY.CC'); V12d:=STKINDI('991017','DY.DD'); V12p:=count(V12d>0,飘); V12s:=STKINDI('991017','DY.SS'); V12y:=STKINDI('991017','DY.yy'); DRAWTEXTabs(4,182,' '+'银行类 '+' '+STRRIGHT(' '+NUMTOSTRN(V12c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V12d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V12p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V12s,3),8)+' '+'银行类(17)'),ColorADFFFF; DRAWRECTabs(132,183,132+ABS(V12c)*48.5,193,IF(V12c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,188,616-ABS(V12y)*N,194,IF(V12d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {旅游酒店}
V13c:=STKINDI('991018','DY.CC'); V13d:=STKINDI('991018','DY.DD'); V13p:=count(V13d>0,飘); V13s:=STKINDI('991018','DY.SS'); V13y:=STKINDI('991018','DY.yy'); DRAWTEXTabs(4,195,' '+'旅游酒店'+' '+STRRIGHT(' '+NUMTOSTRN(V13c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V13d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V13p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V13s,3),8)+' '+'旅游酒店(28)'),ColorADFFFF; DRAWRECTabs(132,196,132+ABS(V13c)*48.5,206,IF(V13c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,201,616-ABS(V13y)*N,207,IF(V13d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {煤炭石油}
V14c:=STKINDI('991019','DY.CC'); V14d:=STKINDI('991019','DY.DD'); V14p:=count(V14d>0,飘); V14s:=STKINDI('991019','DY.SS'); V14y:=STKINDI('991019','DY.yy'); DRAWTEXTabs(4,208,' '+'煤炭石油'+' '+STRRIGHT(' '+NUMTOSTRN(V14c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V14d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V14p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V14s,3),8)+' '+'煤炭石油(42)'),ColorADFFFF; DRAWRECTabs(132,209,132+ABS(V14c)*48.5,219,IF(V14c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,214,616-ABS(V14y)*N,220,IF(V14d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {酿酒食品}
V15c:=STKINDI('991020','DY.CC'); V15d:=STKINDI('991020','DY.DD'); V15p:=count(V15d>0,飘); V15s:=STKINDI('991020','DY.SS'); V15y:=STKINDI('991020','DY.yy'); DRAWTEXTabs(4,221,' '+'酿酒食品'+' '+STRRIGHT(' '+NUMTOSTRN(V15c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V15d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V15p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V15s,3),8)+' '+'酿酒食品(55)'),ColorADFFFF; DRAWRECTabs(132,222,132+ABS(V15c)*48.5,232,IF(V15c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,227,616-ABS(V15y)*N,233,IF(V15d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {农林牧渔}
V16c:=STKINDI('991021','DY.CC'); V16d:=STKINDI('991021','DY.DD'); V16p:=count(V16d>0,飘); V16s:=STKINDI('991021','DY.SS'); V16y:=STKINDI('991021','DY.yy'); DRAWTEXTabs(4,234,' '+'农林牧渔'+' '+STRRIGHT(' '+NUMTOSTRN(V16c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V16d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V16p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V16s,3),8)+' '+'农林牧渔(66)'),ColorADFFFF; DRAWRECTabs(132,235,132+ABS(V16c)*48.5,245,IF(V16c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,240,616-ABS(V16y)*N,246,IF(V16d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {商业连锁}
V17c:=STKINDI('991023','DY.CC'); V17d:=STKINDI('991023','DY.DD'); V17p:=count(V17d>0,飘); V17s:=STKINDI('991023','DY.SS'); V17y:=STKINDI('991023','DY.yy'); DRAWTEXTabs(4,247,' '+'商业连锁'+' '+STRRIGHT(' '+NUMTOSTRN(V17c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V17d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V17p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V17s,3),8)+' '+'商业连锁(59)'),ColorADFFFF; DRAWRECTabs(132,248,132+ABS(V17c)*48.5,258,IF(V17c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,253,616-ABS(V17y)*N,259,IF(V17d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {建材 }
V18c:=STKINDI('991024','DY.CC'); V18d:=STKINDI('991024','DY.DD'); V18p:=count(V18d>0,飘); V18s:=STKINDI('991024','DY.SS'); V18y:=STKINDI('991024','DY.yy'); DRAWTEXTabs(4,260,' '+'建材 '+' '+STRRIGHT(' '+NUMTOSTRN(V18c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V18d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V18p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V18s,3),8)+' '+'建材(71)'),ColorADFFFF; DRAWRECTabs(132,261,132+ABS(V18c)*48.5,271,IF(V18c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,266,616-ABS(V18y)*N,272,IF(V18d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {汽车类 }
V19c:=STKINDI('991026','DY.CC'); V19d:=STKINDI('991026','DY.DD'); V19p:=count(V19d>0,飘); V19s:=STKINDI('991026','DY.SS'); V19y:=STKINDI('991026','DY.yy'); DRAWTEXTabs(4,273,' '+'汽车类 '+' '+STRRIGHT(' '+NUMTOSTRN(V19c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V19d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V19p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V19s,3),8)+' '+'汽车类(100)'),ColorADFFFF; DRAWRECTabs(132,274,132+ABS(V19c)*48.5,284,IF(V19c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,279,616-ABS(V19y)*N,285,IF(V19d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {机械 }
V20c:=STKINDI('991027','DY.CC'); V20d:=STKINDI('991027','DY.DD'); V20p:=count(V20d>0,飘); V20s:=STKINDI('991027','DY.SS'); V20y:=STKINDI('991027','DY.yy'); DRAWTEXTabs(4,286,' '+'机械 '+' '+STRRIGHT(' '+NUMTOSTRN(V20c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V20d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V20p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V20s,3),8)+' '+'机械(87)'),ColorADFFFF; DRAWRECTabs(132,287,132+ABS(V20c)*48.5,297,IF(V20c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,292,616-ABS(V20y)*N,298,IF(V20d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {医药 }
V21c:=STKINDI('991028','DY.CC'); V21d:=STKINDI('991028','DY.DD'); V21p:=count(V21d>0,飘); V21s:=STKINDI('991028','DY.SS'); V21y:=STKINDI('991028','DY.yy'); DRAWTEXTabs(4,299,' '+'医药 '+' '+STRRIGHT(' '+NUMTOSTRN(V21c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V21d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V21p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V21s,3),8)+' '+'医药(137)'),ColorADFFFF; DRAWRECTabs(132,300,132+ABS(V21c)*48.5,310,IF(V21c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,305,616-ABS(V21y)*N,311,IF(V21d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {外贸 }
V22c:=STKINDI('991031','DY.CC'); V22d:=STKINDI('991031','DY.DD'); V22p:=count(V22d>0,飘); V22s:=STKINDI('991031','DY.SS'); V22y:=STKINDI('991031','DY.yy'); DRAWTEXTabs(4,312,' '+'外贸 '+' '+STRRIGHT(' '+NUMTOSTRN(V22c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V22d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V22p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V22s,3),8)+' '+'外贸(20)'),ColorADFFFF; DRAWRECTabs(132,313,132+ABS(V22c)*48.5,323,IF(V22c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,318,616-ABS(V22y)*N,324,IF(V22d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {教育传媒}
V23c:=STKINDI('991032','DY.CC'); V23d:=STKINDI('991032','DY.DD'); V23p:=count(V23d>0,飘); V23s:=STKINDI('991032','DY.SS'); V23y:=STKINDI('991032','DY.yy'); DRAWTEXTabs(4,325,' '+'教育传媒'+' '+STRRIGHT(' '+NUMTOSTRN(V23c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V23d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V23p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V23s,3),8)+' '+'教育传媒(20)'),ColorADFFFF; DRAWRECTabs(132,326,132+ABS(V23c)*48.5,336,IF(V23c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,331,616-ABS(V23y)*N,337,IF(V23d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {仪电仪表}
V24c:=STKINDI('991033','DY.CC'); V24d:=STKINDI('991033','DY.DD'); V24p:=count(V24d>0,飘); V24s:=STKINDI('991033','DY.SS'); V24y:=STKINDI('991033','DY.yy'); DRAWTEXTabs(4,338,' '+'仪电仪表'+' '+STRRIGHT(' '+NUMTOSTRN(V24c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V24d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V24p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V24s,3),8)+' '+'仪电仪表(60)'),ColorADFFFF; DRAWRECTabs(132,339,132+ABS(V24c)*48.5,349,IF(V24c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,344,616-ABS(V24y)*N,350,IF(V24d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {有色金属}
V25c:=STKINDI('991034','DY.CC'); V25d:=STKINDI('991034','DY.DD'); V25p:=count(V25d>0,飘); V25s:=STKINDI('991034','DY.SS'); V25y:=STKINDI('991034','DY.yy'); DRAWTEXTabs(4,351,' '+'有色金属'+' '+STRRIGHT(' '+NUMTOSTRN(V25c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V25d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V25p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V25s,3),8)+' '+'有色金属(56)'),ColorADFFFF; DRAWRECTabs(132,352,132+ABS(V25c)*48.5,362,IF(V25c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,357,616-ABS(V25y)*N,363,IF(V25d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {造纸印刷}
V26c:=STKINDI('991035','DY.CC'); V26d:=STKINDI('991035','DY.DD'); V26p:=count(V26d>0,飘); V26s:=STKINDI('991035','DY.SS'); V26y:=STKINDI('991035','DY.yy'); DRAWTEXTabs(4,364,' '+'造纸印刷'+' '+STRRIGHT(' '+NUMTOSTRN(V26c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V26d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V26p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V26s,3),8)+' '+'造纸印刷(34)'),ColorADFFFF; DRAWRECTabs(132,365,132+ABS(V26c)*48.5,375,IF(V26c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,370,616-ABS(V26y)*N,376,IF(V26d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {券商 }
V27c:=STKINDI('991036','DY.CC'); V27d:=STKINDI('991036','DY.DD'); V27p:=count(V27d>0,飘); V27s:=STKINDI('991036','DY.SS'); V27y:=STKINDI('991036','DY.yy'); DRAWTEXTabs(4,377,' '+'券商 '+' '+STRRIGHT(' '+NUMTOSTRN(V27c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V27d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V27p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V27s,3),8)+' '+'券商(13)'),ColorADFFFF; DRAWRECTabs(132,378,132+ABS(V27c)*48.5,388,IF(V27c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,383,616-ABS(V27y)*N,389,IF(V27d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {电力设备}
V28c:=STKINDI('991037','DY.CC'); V28d:=STKINDI('991037','DY.DD'); V28p:=count(V28d>0,飘); V28s:=STKINDI('991037','DY.SS'); V28y:=STKINDI('991037','DY.yy'); DRAWTEXTabs(4,390,' '+'电力设备'+' '+STRRIGHT(' '+NUMTOSTRN(V28c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V28d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V28p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V28s,3),8)+' '+'电力设备(55)'),ColorADFFFF; DRAWRECTabs(132,391,132+ABS(V28c)*48.5,401,IF(V28c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,396,616-ABS(V28y)*N,402,IF(V28d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {通信 }
V29c:=STKINDI('991135','DY.CC'); V29d:=STKINDI('991135','DY.DD'); V29p:=count(V29d>0,飘); V29s:=STKINDI('991135','DY.SS'); V29y:=STKINDI('991135','DY.yy'); DRAWTEXTabs(4,403,' '+'通信 '+' '+STRRIGHT(' '+NUMTOSTRN(V29c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V29d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V29p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V29s,3),8)+' '+'通信(52)'),ColorADFFFF; DRAWRECTabs(132,404,132+ABS(V29c)*48.5,414,IF(V29c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,409,616-ABS(V29y)*N,415,IF(V29d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {运输物流}
V30c:=STKINDI('991136','DY.CC'); V30d:=STKINDI('991136','DY.DD'); V30p:=count(V30d>0,飘); V30s:=STKINDI('991136','DY.SS'); V30y:=STKINDI('991136','DY.yy'); DRAWTEXTabs(4,416,' '+'运输物流'+' '+STRRIGHT(' '+NUMTOSTRN(V30c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V30d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V30p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V30s,3),8)+' '+'运输物流(41)'),ColorADFFFF; DRAWRECTabs(132,417,132+ABS(V30c)*48.5,427,IF(V30c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,422,616-ABS(V30y)*N,428,IF(V30d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; {保险 }
V31c:=STKINDI('991255','DY.CC'); V31d:=STKINDI('991255','DY.DD'); V31p:=count(V31d>0,飘); V31s:=STKINDI('991255','DY.SS'); V31y:=STKINDI('991255','DY.yy'); DRAWTEXTabs(4,429,' '+'保险 '+' '+STRRIGHT(' '+NUMTOSTRN(V31c,2),7)+' '+TT+STRRIGHT(' '+NUMTOSTRN(V31d,2),5)+' '+STRRIGHT(' '+NUMTOSTRN(V31p,0),3)+' '+STRRIGHT(' '+NUMTOSTRN(V31s,3),8)+' '+'保险(3)'),ColorADFFFF; DRAWRECTabs(132,430,132+ABS(V31c)*48.5,440,IF(V31c>=0,RGB(255,50,30),RGB(100,255,70))),COLOR000000; DRAWRECTabs(616,435,616-ABS(V31y)*N,441,IF(V31d>=0,RGB(255,200,60),RGB(0,200,255))),COLOR000000; |
|
|
