| 1、寻找涨停起爆 {分时寻找涨停起爆点} 流通盘:=CAPITAL*100/100000000,NODRAW; 资金流入:=SUM(IF(C>REF(C,1),V,0),FROMOPEN),STICK,COLORRED; 资金流出:=-SUM(IF(C<REF(C,1),V,0),FROMOPEN),STICK,COLOR00FF00; 资金出入:=资金流入+资金流出,COLORSTICK; NN:=2400; HD:=HHV(资金出入,NN); LD:=LLV(资金出入,NN); DRAWBAND(资金出入,RGB(150,0,150),0,RGB(0,100,0)); 资金流量:资金出入,COLORFFFFFF,LINETHICK1; 资金比:资金出入/SUM(V,FROMOPEN)*100,COLOR00FFFF,LINETHICK1; 资金流量比:=IF(资金比>=0,(资金比+100)/2,100-ABS((资金比-100)/2)); 最高:=CONST(HD),NODRAW; 最低:=CONST(LD),NODRAW; HLMAX:=最高; HLMIN:=最低; HLMN1:=(HLMAX+HLMIN)/2; HLMN2:=HLMAX-HLMIN; HLMN3:=(100-0)/2*1.3; HLMN4:=(100-0)/1*1.3; 中间价轴:=(50-HLMN3)*HLMN2/HLMN4+HLMN1; 轴差:=最高-最低; 攻击量:=((HSL*0.50+REF(HSL,1)*0.33)+(REF(HSL,2)*0.17))*SUM(C,FROMOPEN)/FROMOPEN; 攻击量A:=SUM(IF(C>REF(C,1),攻击量*V,0),FROMOPEN),COLOR0000FF,LINETHICK0; 攻击量B:=-SUM(IF(C<REF(C,1),攻击量*V,0),FROMOPEN),COLOR00FF00,LINETHICK0; 攻击流量:攻击量A+攻击量B,COLORSTICK; NOTEXT攻击线:攻击流量,COLORYELLOW,LINETHICK1; 攻击比:=攻击流量/SUM(V,FROMOPEN)*100,COLORRED,LINETHICK1; 资金攻击度:=IF(攻击比>=0,(攻击比+50),100-ABS((攻击比-50))); {STICKLINE(资金流量A>0,资金流量A,0,1,0),COLOR0000FF; STICKLINE(资金流量B<0,资金流量B,0,1,0),COLORFF0000;} DRAWRECTREL(110,10,400,130,RGB(0,75,200)); DRAWRECTREL(110,10,250,130,RGB(0,250,50)); DRAWRECTREL(110,10,100+CONST(资金流量比*300/100),130,RGB(200,50,0)); DRAWTEXT_FIX(1,0.022,0.00,0,STRCAT(STRCAT('【资金流量比】',CON2STR(资金流量比,2)),'％买')),COLORYELLOW; DRAWRECTREL(610,10,900,130,RGB(0,75,200)); DRAWRECTREL(610,10,750,130,RGB(0,250,50)); DRAWRECTREL(610,10,600+CONST(资金攻击度*300/100),130,RGB(175,50,0)); DRAWTEXT_FIX(1,0.522,0.00,0,STRCAT(STRCAT('【资金攻击度】',CON2STR(资金攻击度,2)),' ％买')),COLORYELLOW; 量:=VOL,VOLSTICK; 五日量:=MA(量,5),COLORWHITE; TT:=BARSCOUNT(C);{取得有效收盘价} 均价黄:=SUM(C*V,TT)/SUM(V,TT);{分时均线的取值} 量两步:=MA(V,5)>REF(MA(V,5),1) AND REF(MA(V,5),1)>REF(MA(V,5),2); 价两步:= C>=REF(C,1) AND REF(C,1)>REF(C,2); 价上岗量破5:=C>均价黄 AND V>MA(V,5); 量起爆:=V>=REF(V,1)*1; 价创新高:=C>=HHV(C,0); 量创新高:=V>=HHV(V,0); 对昨日涨幅:=(C/DYNAINFO(3)-1)*100<=2.50;{涨幅控制2个点以内} 每日一点:=量两步 AND 价两步 AND 价上岗量破5 AND 量起爆 AND 价创新高 AND 量创新高 AND 对昨日涨幅; {计算收益、已爆分钟} VV:=BARSSINCE(每日一点)+1; 首次起爆价:REF(C,VV-1),NODRAW; 今天收益:(DYNAINFO(7)-首次起爆价)/首次起爆价*100,NODRAW; {DRAWNUMBER(VV>=1,V*0.8,今天收益);待续。。。。低调} 起爆时间:REF(TIME/10000,VV),NODRAW; 已爆分钟:VV-1,NODRAW; {画出底线和红球} 首次起爆量:=REF(VOL,VV-1); DRAWICON(已爆分钟>=2,首次起爆量/2,13);{出现红球，至少已经确认2分钟了}; MMA30:=EMA(CLOSE,30); 强弱界定:=IF(PERIOD=0 ,EMA(CLOSE,900),DRAWNULL); 分时均价线:=SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK2; BGTYU:=IF(DATE<=1150530,1,0); GHYJKU:=BETWEEN((DCLOSE*BGTYU)/(SUM(AMOUNT,BARSCOUNT((DCLOSE*BGTYU)))/SUM(VOL*100,BARSCOUNT((DCLOSE*BGTYU)))),1.05,0.95); VBNH:=IF(GHYJKU=0,MA((DCLOSE*BGTYU),BARSCOUNT((DCLOSE*BGTYU))),(SUM(AMOUNT,BARSCOUNT((DCLOSE*BGTYU)))/SUM(VOL*100,BARSCOUNT((DCLOSE*BGTYU))))); 二十☆:=EXPMA((DCLOSE/VBNH),20),COLORRED,LINETHICK1; 六十★:=EXPMA((DCLOSE/VBNH),60),COLORLIGREEN,LINETHICK1; FAA:=BARSLAST(TIME=100000); FCC:=REF(HHV(C,0),FAA+1); FVV:=REF(HHV(V,0),FAA+1); ZF:=FCC/DYNAINFO(3)<1.05; XG1:=CROSS(C,FCC) AND V>FVV AND ZF,COLORWHITE; FAA1:=BARSLAST(TIME=110000); FCC1:=REF(HHV(C,0),FAA1+1); FVV1:=REF(HHV(V,0),FAA1+1); ZF1:=FCC1/DYNAINFO(3)<1.05; XG2:=CROSS(C,FCC1) AND V>FVV1 AND ZF1,COLORYELLOW; 突破:=XG1 OR XG2,COLORRED; VT:=BARSSINCE(突破)+1; 首次突破价:=REF(C,VT-1),NODRAW; 突破收益:(DYNAINFO(7)-首次突破价)/首次突破价*100,NODRAW; 拉升量:=IF(C>REF(C,1),VOL,0); 昨拉升最高值:=CONST(FINDHIGH(拉升量,FROMOPEN,240,1)),LINETHICK1,COLORMAGENTA; 今拉升最高值:=CONST(REF(HHV(拉升量,FROMOPEN),0)),COLORYELLOW,NODRAW; 攻击力度:=今拉升最高值/昨拉升最高值,NODRAW; STICKLINE(FILTER(CROSS(拉升量,昨拉升最高值),30),最低+轴差*0.80,最低,1,0),COLORCYAN; STICKLINE(每日一点,最低+轴差*0.65,最低,1,0),COLORMAGENTA; STICKLINE(突破,最低+轴差*0.50,最低,1,0),COLORYELLOW; STICKLINE(FILTER(BARSLAST(C<MIN(MMA30,强弱界定))<=20 AND CROSS(C,MAX(MMA30,强弱界定)),30),最低,最低+轴差*0.2,1,0),COLORGREEN; DRAWICON(FILTER(CROSS(拉升量,昨拉升最高值),30),最低+轴差*0.80,1); DRAWICON(每日一点,最低+轴差*0.65,1); DRAWICON(突破,最低+轴差*0.50,17); DRAWICON(FILTER(BARSLAST(C<MIN(MMA30,强弱界定))<=20 AND CROSS(C,MAX(MMA30,强弱界定)),30),最低+轴差*0.2,9); DRAWTEXT(突破,最低+轴差*0.50,'←突破'),COLORWHITE; DRAWNUMBER(突破,最低+轴差*0.35,首次突破价),COLORWHITE; DRAWTEXT(FILTER(CROSS(拉升量,昨拉升最高值),30),最低+轴差*0.80,'☆攻击'),COLORCYAN; DRAWTEXT(每日一点,最低+轴差*0.63,'∠起爆'),COLORGREEN; DRAWNUMBER(每日一点,最低+轴差*0.75,(首次起爆价)),COLORRED; DRAWTEXT(FILTER(BARSLAST(C<MIN(MMA30,强弱界定))<=20 AND CROSS(C,MAX(MMA30,强弱界定)),30),最低+轴差*0.2,'←关注'),COLORRED; 2、大牛持股，判断主升浪大牛股避免被洗 大牛持股公式介绍： 公式使用了3条曲线，看似简单，然后却特别有用，尤其是对主升浪大牛股，至少它能帮助你拿稳了不至于被轻易洗出去了。 只要股价还在黄牛线上，没有跌破持股线，涨速线还是平直的，就意味着安全可以持股，不要被洗。 {大牛持股} {所属板块、概念} DRAWTEXT_FIX(1,0.005,0,0,'所属风格:'),COLORRED;DRAWTEXT_FIX(1,0.06,0,0,FGBLOCK),COLORRED; DRAWTEXT_FIX(1,0.005,0.06,0,'所属概念:'),COLORMAGENTA;DRAWTEXT_FIX(1,0.06,0.06,0,GNBLOCK),COLORMAGENTA; DRAWTEXT_FIX(1,0.005,0.12,0,'所属板块:'),COLORYELLOW;DRAWTEXT_FIX(1,0.06,0.12,0,DYBLOCK),COLORYELLOW;DRAWTEXT_FIX(1,0.11,0.12,0,HYBLOCK),COLORYELLOW; {流通盘} DRAWTEXT_FIX(1,0.52,0.0,0,STRCAT(STRCAT('流通盘：',CON2STR((FINANCE(46)*C/100000000),2)),'亿')),COLORYELLOW;YSTB:=STRCAT(CON2STR(FINANCE(44)/1,2),'%');LRTB:=STRCAT(CON2STR(FINANCE(43)/1,2),'%'); DRAWTEXT_FIX(1,0.7,0,0,'营收同比：'),COLORWHITE;DRAWTEXT_FIX(1,0.76,0,0,YSTB),COLORWHITE;DRAWTEXT_FIX(1,0.84,0,0,'利润同比：'),COLORWHITE;DRAWTEXT_FIX(1,0.9,0,0,LRTB),COLORWHITE; 净资收益率:=(FINANCE(33)/FINANCE(34)*100);主营利润率:=(FINANCE(23)/FINANCE(20)*100);主营业增长率:=FINANCE(44); 每股净资产:=CONST(FINANCE(34));每股收益:=CONST(FINANCE(38));净利润增长率:=FINANCE(43);市销率:=CONST(FINANCE(1)*DYNAINFO(7)/FINANCE(20)); 现金负债比:=(FINANCE(25)/FINANCE(15));每股未分配:=CONST(FINANCE(32));每股公积金:=CONST(FINANCE(18)); SY01:=净资收益率>3;SY02:=净资收益率>0.01 AND 净资收益率<=3;SY03:=主营利润率>2;SY04:=主营利润率>0; SY05:=主营业增长率>1;SY06:=主营业增长率>0;SY07:=净利润增长率>2;SY08:=净利润增长率>0.2;SY09:=每股收益>0.01; SY10:= 每股收益>0.001;SY11:=每股净资产>2;SY12:=每股净资产>0.01;SY13:=每股未分配>0.5;SY14:=每股未分配>0.001; SY15:=每股公积金>0.5;SY16:=每股公积金>0.002;SY17:=每股未分配>=2 AND 每股公积金>=2;SY18:=每股未分配<2 OR 每股公积金<2; 优秀:=SY01 AND SY03 AND SY05 AND SY07 AND SY09 AND SY11 AND SY13 AND SY15; 较好:=SY02 AND SY04 AND SY06 AND SY08 AND SY10 AND SY12 AND SY14 AND SY16; 一般:=NOT(优秀) AND NOT(较好);DRAWTEXT_FIX(优秀 AND 较好=0,0.7,0.05,0,'综合评估基本面：优秀！'),COLORMAGENTA; DRAWTEXT_FIX(较好,0.7,0.05,0,'综合评估基本面：较好！'),COLORRED;DRAWTEXT_FIX(一般,0.7,0.05,0,'综合评估基本面：一般！'),COLORGREEN; DRAWTEXT_FIX(SY17,0.84,0.05,0,'是否具备高送转潜力：是！'),COLORMAGENTA;DRAWTEXT_FIX(SY18,0.84,0.05,0,'是否具备高送转潜力：否！'),COLORGREEN; VAR2:=((((C - O) / O) * (100)) > 4); VAR3:=((((C - (REF(C,1))) / (REF(C,1))) * (100)) > 8); VAR4:=(((((REF(C,1)) * (1.1)) - C) < (0.01)) AND (H = C)); www58188com:=(((((REF(C,1)) * (1.1)) - C) < (0.01)) AND (H = C)); VAR05:=20 * H + 19 * (REF(H,1)) + 18 * (REF(H,2)) + 17 * (REF(H,3)) + 16 * (REF(H,4)) + 15 * (REF(H,5)) + 14 * (REF(H,6)) + 13 * (REF(H,7)) + 12 * (REF(H,8)) + 11 * (REF(H,9)) + 10 * (REF(H,10)) + 9 * (REF(H,11)); VAR5:=((VAR05 + 8 * (REF(H,12)) + 7 * (REF(H,13)) + 6 * (REF(H,14)) + 5 * (REF(H,15)) + 4 * (REF(H,16)) + 3 * (REF(H,17)) + 2 * (REF(H,18)) + REF(H,20)) / (210)); 黄牛线:(EMA(VAR5,90)),LINETHICK2,COLORRED; ZT:=REF(C,1)*1.1-C<0.01 AND H=C;{涨停}; HH:=(20*H+19*REF(H,1)+18*REF(H,2)+17*REF(H,3)+16*REF(H,4)+15*REF(H,5)+14*REF(H,6) +13*REF(H,7)+12*REF(H,8)+11*REF(H,9)+10*REF(H,10)+9*REF(H,11)+8*REF(H,12) +7*REF(H,13)+6*REF(H,14)+5*REF(H,15)+4*REF(H,16)+3*REF(H,17)+2*REF(H,18)+ REF(H,20))/210; 黄牛线1:=EMA(HH,5); 黄牛线2:=EMA(HH,10); 黄牛线3:=EMA(HH,30); 黄牛线4:=EMA(HH,60); 黄牛线5:=EMA(HH,90); 黄牛线6:=EMA(HH,120); 黄牛线7:=EMA(HH,250); E5:=EMA(C,5); 离合:=(黄牛线1-((H-黄牛线1)*H-黄牛线1)/黄牛线1); 离合1:=(黄牛线2-((H-黄牛线2)*H-黄牛线2)/黄牛线2); 离合2:=(黄牛线3-((H-黄牛线3)*H-黄牛线3)/黄牛线3); 离合3:=(黄牛线4-((H-黄牛线4)*H-黄牛线4)/黄牛线4); 离合4:=(黄牛线5-((H-黄牛线5)*H-黄牛线5)/黄牛线5); 离合5:=(黄牛线6-((H-黄牛线6)*H-黄牛线6)/黄牛线6); 离合6:=(黄牛线7-((H-黄牛线7)*H-黄牛线7)/黄牛线7); 最大临界线:=MAX(离合6,MAX(离合5,MAX(离合4,MAX(离合3,MAX(离合2,MAX(离合1,离合)))))); 最小临界线:=MIN(离合6,MIN(离合5,MIN(离合4,MIN(离合3,MIN(离合2,MIN(离合1,离合)))))); 上升离合:=(黄牛线1+((C-黄牛线1)*C-黄牛线1)/黄牛线1); 上升离合1:=(黄牛线2+((H-黄牛线2)*H-黄牛线2)/黄牛线2); 上升离合2:=(黄牛线3+((H-黄牛线3)*H-黄牛线3)/黄牛线3); 上升离合3:=(黄牛线4+((H-黄牛线4)*H-黄牛线4)/黄牛线4); 上升离合4:=(黄牛线5+((H-黄牛线5)*H-黄牛线5)/黄牛线5); 上升离合5:=(黄牛线6+((H-黄牛线6)*H-黄牛线6)/黄牛线6); 上升离合6:=(黄牛线7+((H-黄牛线7)*H-黄牛线7)/黄牛线7); TP1:=CROSS(最大临界线,黄牛线1); TP3:=CROSS(C,最大临界线); TP6:=CROSS(上升离合4,E5); 持股线:((MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4),COLORYELLOW,LINETHICK2; VAR6:=((黄牛线) - ((((C - (黄牛线)) * C) - (黄牛线)) / (黄牛线))); 涨速线:(IF((黄牛线) > (VAR6),(黄牛线) * (0.9),VAR6)),LINETHICK2,COLORMAGENTA; VAR9:=(CROSS(黄牛线,VAR6)); VAR11:=(CROSS(C,VAR6)); DRAWTEXT(VAR9,L*0.99,'加'),COLORWHITE; DRAWTEXT((VAR9) AND (VAR4),L*0.98,'金元宝'),LINETHICK4,COLORYELLOW; DRAWTEXT((VAR11) AND (VAR4),L,'导弹'),LINETHICK4,COLORMAGENTA; DRAWTEXT(TP6 AND ZT,L*0.97,'主升'),LINETHICK4,COLORYELLOW; DRAWTEXT(VAR11,L,'买'),LINETHICK4,COLORRED; VAR15:=(REF(H,BARSLAST(V = (HHV(V,120))))); VAR22:=((NOT((REF(VAR15,1)) = (VAR15))) AND (VAR4)); DRAWTEXT(VAR22,L,'量爆'),COLORRED; 主趋势线:=EMA(EMA(C,10),10),COLORRED,LINETHICK3; B:=主趋势线>REF(主趋势线,1); 买:=REF(B=0,1) AND B=1; 卖出:=REF(B=1,1) AND B=0; N1:=8; MTM:=C-REF(C,1); ZLGJ:=100*EMA(EMA(MTM,N1),N1)/EMA(EMA(ABS(MTM),N1),N1); 买1:=IF(LLV(ZLGJ,2)=LLV(ZLGJ,7) AND COUNT(ZLGJ<0,2) AND CROSS(ZLGJ,MA(ZLGJ,2)),1,0); DRAWICON(FILTER(买1=1,5),LOW*0.99,7),COLORRED; 3、板块对比 公式解释： 公式一定要在 通赢版 才可以使用，( 顶尖财经 股票学院: http://58188.com ) 普通版本是不可以的，会显示编译不通过，当然会源码编写公式，可以整理一下也是通过的，具体就是min6这个函数，过程没难度但是非常麻烦费时间。建议换新版软件。 本公式特色： 1.股票、指数、板块采用直方图的形式显示，股票、指数、板块的强弱一目了然； 2.能便捷显示股票所属指数、所属板块； 3.能自由调节直方图的间隔、宽度，图表的左缩进，底部板块代码字符的间距，以适应不同的机器。 4.完美公式、源码分享，不加密。 板块对比 参数如下图： {计算涨幅} DP01:="880301$CLOSE"/REF("880301$CLOSE",N); {煤炭} DP02:="880305$CLOSE"/REF("880305$CLOSE",N); {电力} DP03:="880310$CLOSE"/REF("880310$CLOSE",N); {石油} DP04:="880318$CLOSE"/REF("880318$CLOSE",N); {钢铁} DP05:="880324$CLOSE"/REF("880324$CLOSE",N); {有色} DP06:="880330$CLOSE"/REF("880330$CLOSE",N); {化纤} DP07:="880335$CLOSE"/REF("880335$CLOSE",N); {化工} DP08:="880344$CLOSE"/REF("880344$CLOSE",N); {建材} DP09:="880350$CLOSE"/REF("880350$CLOSE",N); {造纸} DP10:="880351$CLOSE"/REF("880351$CLOSE",N); {矿物制品} DP11:="880355$CLOSE"/REF("880355$CLOSE",N); {日用化工} DP12:="880360$CLOSE"/REF("880360$CLOSE",N); {农林牧渔} DP13:="880367$CLOSE"/REF("880367$CLOSE",N); {纺织服饰} DP14:="880372$CLOSE"/REF("880372$CLOSE",N); {食品饮料} DP15:="880380$CLOSE"/REF("880380$CLOSE",N); {酿酒} DP16:="880387$CLOSE"/REF("880387$CLOSE",N); {家用电器} DP17:="880390$CLOSE"/REF("880390$CLOSE",N); {汽车类} DP18:="880398$CLOSE"/REF("880398$CLOSE",N); {医疗保健} DP19:="880399$CLOSE"/REF("880399$CLOSE",N); {家居用品} DP20:="880400$CLOSE"/REF("880400$CLOSE",N); {医药} DP21:="880406$CLOSE"/REF("880406$CLOSE",N); {商业连锁} DP22:="880414$CLOSE"/REF("880414$CLOSE",N); {商贸代理} DP23:="880418$CLOSE"/REF("880418$CLOSE",N); {传媒娱乐} DP24:="880421$CLOSE"/REF("880421$CLOSE",N); {广告包装} DP25:="880422$CLOSE"/REF("880422$CLOSE",N); {文教休闲} DP26:="880423$CLOSE"/REF("880423$CLOSE",N); {酒店餐饮} DP27:="880424$CLOSE"/REF("880424$CLOSE",N); {旅游} DP28:="880430$CLOSE"/REF("880430$CLOSE",N); {航空} DP29:="880431$CLOSE"/REF("880431$CLOSE",N); {船舶} DP30:="880432$CLOSE"/REF("880432$CLOSE",N); {运输设备} DP31:="880437$CLOSE"/REF("880437$CLOSE",N); {通用机械} DP32:="880440$CLOSE"/REF("880440$CLOSE",N); {工业机械} DP33:="880446$CLOSE"/REF("880446$CLOSE",N); {电气设备} DP34:="880447$CLOSE"/REF("880447$CLOSE",N); {工程机械} DP35:="880448$CLOSE"/REF("880448$CLOSE",N); {电器仪表} DP36:="880452$CLOSE"/REF("880452$CLOSE",N); {电信运营} DP37:="880453$CLOSE"/REF("880453$CLOSE",N); {公共交通} DP38:="880454$CLOSE"/REF("880454$CLOSE",N); {水务} DP39:="880455$CLOSE"/REF("880455$CLOSE",N); {供气供热} DP40:="880456$CLOSE"/REF("880456$CLOSE",N); {环境保护} DP41:="880459$CLOSE"/REF("880459$CLOSE",N); {运输服务} DP42:="880464$CLOSE"/REF("880464$CLOSE",N); {仓储物流} DP43:="880465$CLOSE"/REF("880465$CLOSE",N); {交通设施} DP44:="880471$CLOSE"/REF("880471$CLOSE",N); {银行} DP45:="880472$CLOSE"/REF("880472$CLOSE",N); {证券} DP46:="880473$CLOSE"/REF("880473$CLOSE",N); {保险} DP47:="880474$CLOSE"/REF("880474$CLOSE",N); {多元金融} DP48:="880476$CLOSE"/REF("880476$CLOSE",N); {建筑} DP49:="880482$CLOSE"/REF("880482$CLOSE",N); {房地产} DP50:="880489$CLOSE"/REF("880489$CLOSE",N); {IT设备} DP51:="880490$CLOSE"/REF("880490$CLOSE",N); {通讯设备} DP52:="880491$CLOSE"/REF("880491$CLOSE",N); {半导体} DP53:="880492$CLOSE"/REF("880492$CLOSE",N); {元器件} DP54:="880493$CLOSE"/REF("880493$CLOSE",N); {软件服务} DP55:="880494$CLOSE"/REF("880494$CLOSE",N); {互联网} DP56:="880497$CLOSE"/REF("880497$CLOSE",N); {综合类} DP57:="999999$CLOSE"/REF("999999$CLOSE",N); {上证指数} DP58:="399001$CLOSE"/REF("399001$CLOSE",N); {深证成指} DP59:="399006$CLOSE"/REF("399006$CLOSE",N); {创业板指} DP60:="399005$CLOSE"/REF("399005$CLOSE",N); {中小企业} DP61:=CLOSE/REF(CLOSE,N); {个股} {求最大值} MX1:=MAX6(DP01,DP02,DP03,DP04,DP05,DP06); MX2:=MAX6(DP07,DP08,DP09,DP10,DP11,DP12); MX3:=MAX6(DP13,DP14,DP15,DP16,DP17,DP18); MX4:=MAX6(DP19,DP20,DP21,DP22,DP23,DP24); MX5:=MAX6(DP25,DP26,DP27,DP28,DP29,DP30); MX6:=MAX6(DP31,DP32,DP33,DP34,DP35,DP36); MX7:=MAX6(DP37,DP38,DP39,DP40,DP41,DP42); MX8:=MAX6(DP43,DP44,DP45,DP46,DP47,DP48); MX9:=MAX6(DP49,DP50,DP51,DP52,DP53,DP54); MXA:=MAX6(DP55,DP56,DP57,DP58,DP59,DP60); MX:=MAX6(MAX6(MX1,MX2,MX3,MX4,MX5,MX6),MX7,MX8,MX9,MXA,DP61); {求最小值} MN1:=MIN6(DP01,DP02,DP03,DP04,DP05,DP06); MN2:=MIN6(DP07,DP08,DP09,DP10,DP11,DP12); MN3:=MIN6(DP13,DP14,DP15,DP16,DP17,DP18); MN4:=MIN6(DP19,DP20,DP21,DP22,DP23,DP24); MN5:=MIN6(DP25,DP26,DP27,DP28,DP29,DP30); MN6:=MIN6(DP31,DP32,DP33,DP34,DP35,DP36); MN7:=MIN6(DP37,DP38,DP39,DP40,DP41,DP42); MN8:=MIN6(DP43,DP44,DP45,DP46,DP47,DP48); MN9:=MIN6(DP49,DP50,DP51,DP52,DP53,DP54); MNA:=MIN6(DP55,DP56,DP57,DP58,DP59,DP60); MN:=MIN6(MIN6(MN1,MN2,MN3,MN4,MN5,MN6),MN7,MN8,MN9,MNA,DP61); {计算比例} BL01:=(DP01-MN)/(MX-MN)*800+80; {煤炭} BL02:=(DP02-MN)/(MX-MN)*800+80; {电力} BL03:=(DP03-MN)/(MX-MN)*800+80; {石油} BL04:=(DP04-MN)/(MX-MN)*800+80; {钢铁} BL05:=(DP05-MN)/(MX-MN)*800+80; {有色} BL06:=(DP06-MN)/(MX-MN)*800+80; {化纤} BL07:=(DP07-MN)/(MX-MN)*800+80; {化工} BL08:=(DP08-MN)/(MX-MN)*800+80; {建材} BL09:=(DP09-MN)/(MX-MN)*800+80; {造纸} BL10:=(DP10-MN)/(MX-MN)*800+80; {矿物制品} BL11:=(DP11-MN)/(MX-MN)*800+80; {日用化工} BL12:=(DP12-MN)/(MX-MN)*800+80; {农林牧渔} BL13:=(DP13-MN)/(MX-MN)*800+80; {纺织服饰} BL14:=(DP14-MN)/(MX-MN)*800+80; {食品饮料} BL15:=(DP15-MN)/(MX-MN)*800+80; {酿酒} BL16:=(DP16-MN)/(MX-MN)*800+80; {家用电器} BL17:=(DP17-MN)/(MX-MN)*800+80; {汽车类} BL18:=(DP18-MN)/(MX-MN)*800+80; {医疗保健} BL19:=(DP19-MN)/(MX-MN)*800+80; {家居用品} BL20:=(DP20-MN)/(MX-MN)*800+80; {医药} BL21:=(DP21-MN)/(MX-MN)*800+80; {商业连锁} BL22:=(DP22-MN)/(MX-MN)*800+80; {商贸代理} BL23:=(DP23-MN)/(MX-MN)*800+80; {传媒娱乐} BL24:=(DP24-MN)/(MX-MN)*800+80; {广告包装} BL25:=(DP25-MN)/(MX-MN)*800+80; {文教休闲} BL26:=(DP26-MN)/(MX-MN)*800+80; {酒店餐饮} BL27:=(DP27-MN)/(MX-MN)*800+80; {旅游} BL28:=(DP28-MN)/(MX-MN)*800+80; {航空} BL29:=(DP29-MN)/(MX-MN)*800+80; {船舶} BL30:=(DP30-MN)/(MX-MN)*800+80; {运输设备} BL31:=(DP31-MN)/(MX-MN)*800+80; {通用机械} BL32:=(DP32-MN)/(MX-MN)*800+80; {工业机械} BL33:=(DP33-MN)/(MX-MN)*800+80; {电气设备} BL34:=(DP34-MN)/(MX-MN)*800+80; {工程机械} BL35:=(DP35-MN)/(MX-MN)*800+80; {电器仪表} BL36:=(DP36-MN)/(MX-MN)*800+80; {电信运营} BL37:=(DP37-MN)/(MX-MN)*800+80; {公共交通} BL38:=(DP38-MN)/(MX-MN)*800+80; {水务} BL39:=(DP39-MN)/(MX-MN)*800+80; {供气供热} BL40:=(DP40-MN)/(MX-MN)*800+80; {环境保护} BL41:=(DP41-MN)/(MX-MN)*800+80; {运输服务} BL42:=(DP42-MN)/(MX-MN)*800+80; {仓储物流} BL43:=(DP43-MN)/(MX-MN)*800+80; {交通设施} BL44:=(DP44-MN)/(MX-MN)*800+80; {银行} BL45:=(DP45-MN)/(MX-MN)*800+80; {证券} BL46:=(DP46-MN)/(MX-MN)*800+80; {保险} BL47:=(DP47-MN)/(MX-MN)*800+80; {多元金融} BL48:=(DP48-MN)/(MX-MN)*800+80; {建筑} BL49:=(DP49-MN)/(MX-MN)*800+80; {房地产} BL50:=(DP50-MN)/(MX-MN)*800+80; {IT设备} BL51:=(DP51-MN)/(MX-MN)*800+80; {通讯设备} BL52:=(DP52-MN)/(MX-MN)*800+80; {半导体} BL53:=(DP53-MN)/(MX-MN)*800+80; {元器件} BL54:=(DP54-MN)/(MX-MN)*800+80; {软件服务} BL55:=(DP55-MN)/(MX-MN)*800+80; {互联网} BL56:=(DP56-MN)/(MX-MN)*800+80; {综合类} BL57:=(DP57-MN)/(MX-MN)*800+80; {上证指数} BL58:=(DP58-MN)/(MX-MN)*800+80; {深证成指} BL59:=(DP59-MN)/(MX-MN)*800+80; {创业板指} BL60:=(DP60-MN)/(MX-MN)*800+80; {中小企业} BL61:=(DP61-MN)/(MX-MN)*800+80; {个股} {计算位置} X611:=M0+M2*0;X612:=X611+M1; X571:=M0+M2*1;X572:=X571+M1; X581:=M0+M2*2;X582:=X581+M1; X591:=M0+M2*3;X592:=X591+M1; X601:=M0+M2*4;X602:=X601+M1; X011:=M0+M2*5;X012:=X011+M1; X021:=M0+M2*6;X022:=X021+M1; X031:=M0+M2*7;X032:=X031+M1; X041:=M0+M2*8;X042:=X041+M1; X051:=M0+M2*9;X052:=X051+M1; X061:=M0+M2*10;X062:=X061+M1; X071:=M0+M2*11;X072:=X071+M1; X081:=M0+M2*12;X082:=X081+M1; X091:=M0+M2*13;X092:=X091+M1; X101:=M0+M2*14;X102:=X101+M1; X111:=M0+M2*15;X112:=X111+M1; X121:=M0+M2*16;X122:=X121+M1; X131:=M0+M2*17;X132:=X131+M1; X141:=M0+M2*18;X142:=X141+M1; X151:=M0+M2*19;X152:=X151+M1; X161:=M0+M2*20;X162:=X161+M1; X171:=M0+M2*21;X172:=X171+M1; X181:=M0+M2*22;X182:=X181+M1; X191:=M0+M2*23;X192:=X191+M1; X201:=M0+M2*24;X202:=X201+M1; X211:=M0+M2*25;X212:=X211+M1; X221:=M0+M2*26;X222:=X221+M1; X231:=M0+M2*27;X232:=X231+M1; X241:=M0+M2*28;X242:=X241+M1; X251:=M0+M2*29;X252:=X251+M1; X261:=M0+M2*30;X262:=X261+M1; X271:=M0+M2*31;X272:=X271+M1; X281:=M0+M2*32;X282:=X281+M1; X291:=M0+M2*33;X292:=X291+M1; X301:=M0+M2*34;X302:=X301+M1; X311:=M0+M2*35;X312:=X311+M1; X321:=M0+M2*36;X322:=X321+M1; X331:=M0+M2*37;X332:=X331+M1; X341:=M0+M2*38;X342:=X341+M1; X351:=M0+M2*39;X352:=X351+M1; X361:=M0+M2*40;X362:=X361+M1; X371:=M0+M2*41;X372:=X371+M1; X381:=M0+M2*42;X382:=X381+M1; X391:=M0+M2*43;X392:=X391+M1; X401:=M0+M2*44;X402:=X401+M1; X411:=M0+M2*45;X412:=X411+M1; X421:=M0+M2*46;X422:=X421+M1; X431:=M0+M2*47;X432:=X431+M1; X441:=M0+M2*48;X442:=X441+M1; X451:=M0+M2*49;X452:=X451+M1; X461:=M0+M2*50;X462:=X461+M1; X471:=M0+M2*51;X472:=X471+M1; X481:=M0+M2*52;X482:=X481+M1; X491:=M0+M2*53;X492:=X491+M1; X501:=M0+M2*54;X502:=X501+M1; X511:=M0+M2*55;X512:=X511+M1; X521:=M0+M2*56;X522:=X521+M1; X531:=M0+M2*57;X532:=X531+M1; X541:=M0+M2*58;X542:=X541+M1; X551:=M0+M2*59;X552:=X551+M1; X561:=M0+M2*60;X562:=X561+M1; X00:=M0-M2+M1-2;XXX:=61*M2+M0; {画坐标} DRAWRECTREL(X00,0 ,XXX ,10 ,RGB(255,255,255) ),COLORFFFFFF; DRAWRECTREL(X00,179 ,XXX ,180 ,RGB(255,255,255) ),COLORFFFFFF; DRAWRECTREL(X00,360 ,XXX ,361 ,RGB(255,255,255) ),COLORFFFFFF; DRAWRECTREL(X00,540 ,XXX ,541 ,RGB(255,255,255) ),COLORFFFFFF; DRAWRECTREL(X00,718 ,XXX ,719 ,RGB(255,255,255) ),COLORFFFFFF; DRAWRECTREL(X00,0 ,X00+1 ,900 ,RGB(255,255,255) ),COLORFFFFFF; DRAWRECTREL(X00,900 ,XXX ,910 ,RGB(255,255,255) ),COLORFFFFFF; {画直方图} DRAWRECTREL(X611,CONST(900-BL61) ,X612 ,900 ,RGB(255,0,0) ),COLOR0000FF,NOFRAME; DRAWRECTREL(X571,CONST(900-BL57) ,X572 ,900 ,RGB(150,150,0) ),COLOR009999,NOFRAME; DRAWRECTREL(X581,CONST(900-BL58) ,X582 ,900 ,RGB(150,150,0) ),COLOR009999,NOFRAME; DRAWRECTREL(X591,CONST(900-BL59) ,X592 ,900 ,RGB(150,150,0) ),COLOR009999,NOFRAME; DRAWRECTREL(X601,CONST(900-BL60) ,X602 ,900 ,RGB(150,150,0) ),COLOR009999,NOFRAME; DRAWRECTREL(X011,CONST(900-BL01) ,X012 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X021,CONST(900-BL02) ,X022 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X031,CONST(900-BL03) ,X032 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X041,CONST(900-BL04) ,X042 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X051,CONST(900-BL05) ,X052 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X061,CONST(900-BL06) ,X062 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X071,CONST(900-BL07) ,X072 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X081,CONST(900-BL08) ,X082 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X091,CONST(900-BL09) ,X092 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X101,CONST(900-BL10) ,X102 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X111,CONST(900-BL11) ,X112 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X121,CONST(900-BL12) ,X122 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X131,CONST(900-BL13) ,X132 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X141,CONST(900-BL14) ,X142 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X151,CONST(900-BL15) ,X152 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X161,CONST(900-BL16) ,X162 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X171,CONST(900-BL17) ,X172 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X181,CONST(900-BL18) ,X182 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X191,CONST(900-BL19) ,X192 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X201,CONST(900-BL20) ,X202 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X211,CONST(900-BL21) ,X212 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X221,CONST(900-BL22) ,X222 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X231,CONST(900-BL23) ,X232 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X241,CONST(900-BL24) ,X242 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X251,CONST(900-BL25) ,X252 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X261,CONST(900-BL26) ,X262 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X271,CONST(900-BL27) ,X272 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X281,CONST(900-BL28) ,X282 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X291,CONST(900-BL29) ,X292 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X301,CONST(900-BL30) ,X302 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X311,CONST(900-BL31) ,X312 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X321,CONST(900-BL32) ,X322 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X331,CONST(900-BL33) ,X332 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X341,CONST(900-BL34) ,X342 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X351,CONST(900-BL35), X352 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X361,CONST(900-BL36) ,X362 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X371,CONST(900-BL37) ,X372 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X381,CONST(900-BL38) ,X382 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X391,CONST(900-BL39) ,X392 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X401,CONST(900-BL40) ,X402 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X411,CONST(900-BL41) ,X412 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X421,CONST(900-BL42) ,X422 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X431,CONST(900-BL43) ,X432 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X441,CONST(900-BL44) ,X442 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X451,CONST(900-BL45) ,X452 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X461,CONST(900-BL46) ,X462 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X471,CONST(900-BL47) ,X472 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X481,CONST(900-BL48) ,X482 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X491,CONST(900-BL49) ,X492 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X501,CONST(900-BL50) ,X502 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X511,CONST(900-BL51) ,X512 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X521,CONST(900-BL52) ,X522 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X531,CONST(900-BL53) ,X532 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X541,CONST(900-BL54) ,X542 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X551,CONST(900-BL55) ,X552 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; DRAWRECTREL(X561,CONST(900-BL56) ,X562 ,900 ,RGB(0,150,150) ),COLOR999900,NOFRAME; {板块代码} ZJJ:=IF(M3=1,' ',IF(M3=2,' ',IF(M3=3,' ',IF(M3=4,' ',IF(M3=5,' ',''))))); BK1:=STRCAT('GP',ZJJ); BK2:=STRCAT('SH',ZJJ); BK3:=STRCAT('SZ',ZJJ); BK4:=STRCAT('CY',ZJJ); BK5:=STRCAT('ZX',ZJJ); BK6:=STRCAT('01',ZJJ); BK7:=STRCAT('02',ZJJ); BK8:=STRCAT('03',ZJJ); BK9:=STRCAT('04',ZJJ); BK10:=STRCAT('05',ZJJ); BK11:=STRCAT('06',ZJJ); BK12:=STRCAT('07',ZJJ); BK13:=STRCAT('08',ZJJ); BK14:=STRCAT('09',ZJJ); BK15:=STRCAT('10',ZJJ); BK16:=STRCAT('11',ZJJ); BK17:=STRCAT('12',ZJJ); BK18:=STRCAT('13',ZJJ); BK19:=STRCAT('14',ZJJ); BK20:=STRCAT('15',ZJJ); BK21:=STRCAT('16',ZJJ); BK22:=STRCAT('17',ZJJ); BK23:=STRCAT('18',ZJJ); BK24:=STRCAT('19',ZJJ); BK25:=STRCAT('20',ZJJ); BK26:=STRCAT('21',ZJJ); BK27:=STRCAT('22',ZJJ); BK28:=STRCAT('23',ZJJ); BK29:=STRCAT('24',ZJJ); BK30:=STRCAT('25',ZJJ); BK31:=STRCAT('26',ZJJ); BK32:=STRCAT('27',ZJJ); BK33:=STRCAT('28',ZJJ); BK34:=STRCAT('29',ZJJ); BK35:=STRCAT('30',ZJJ); BK36:=STRCAT('31',ZJJ); BK37:=STRCAT('32',ZJJ); BK38:=STRCAT('33',ZJJ); BK39:=STRCAT('34',ZJJ); BK40:=STRCAT('35',ZJJ); BK41:=STRCAT('36',ZJJ); BK42:=STRCAT('37',ZJJ); BK43:=STRCAT('38',ZJJ); BK44:=STRCAT('39',ZJJ); BK45:=STRCAT('40',ZJJ); BK46:=STRCAT('41',ZJJ); BK47:=STRCAT('42',ZJJ); BK48:=STRCAT('43',ZJJ); BK49:=STRCAT('44',ZJJ); BK50:=STRCAT('45',ZJJ); BK51:=STRCAT('46',ZJJ); BK52:=STRCAT('47',ZJJ); BK53:=STRCAT('48',ZJJ); BK54:=STRCAT('49',ZJJ); BK55:=STRCAT('50',ZJJ); BK56:=STRCAT('51',ZJJ); BK57:=STRCAT('52',ZJJ); BK58:=STRCAT('53',ZJJ); BK59:=STRCAT('54',ZJJ); BK60:=STRCAT('55',ZJJ); BK61:=STRCAT('56',ZJJ); BKM1:=STRCAT(STRCAT(STRCAT(STRCAT(BK1,BK2),STRCAT(BK3,BK4)),STRCAT(STRCAT(BK5,BK6),STRCAT(BK7,BK8))),STRCAT(STRCAT(STRCAT(BK9,BK10),STRCAT(BK11,BK12)),STRCAT(STRCAT(BK13,BK14),STRCAT(BK15,BK16)))); BKM2:=STRCAT(STRCAT(STRCAT(STRCAT(BK17,BK18),STRCAT(BK19,BK20)),STRCAT(STRCAT(BK21,BK22),STRCAT(BK23,BK24))),STRCAT(STRCAT(STRCAT(BK25,BK26),STRCAT(BK27,BK28)),STRCAT(STRCAT(BK29,BK30),STRCAT(BK31,BK32)))); BKM3:=STRCAT(STRCAT(STRCAT(STRCAT(BK33,BK34),STRCAT(BK35,BK36)),STRCAT(STRCAT(BK37,BK38),STRCAT(BK39,BK40))),STRCAT(STRCAT(STRCAT(BK41,BK42),STRCAT(BK43,BK44)),STRCAT(STRCAT(BK45,BK46),STRCAT(BK47,BK48)))); BKM4:=STRCAT(STRCAT(STRCAT(STRCAT(BK49,BK50),STRCAT(BK51,BK52)),STRCAT(STRCAT(BK53,BK54),STRCAT(BK55,BK56))),STRCAT(STRCAT(STRCAT(BK57,BK58),STRCAT(BK59,BK60)),BK61)); BKM:=STRCAT(STRCAT(BKM1,BKM2),STRCAT(BKM3,BKM4)); DRAWTEXT_FIX(ISLASTBAR,M4/1000,0.91,0,BKM),COLOR00FFFF; BKDY1:='GP-股票,SH-上证指数,SZ-深证成指,CY-创业板指,ZX-中小企业,01-煤炭,02-电力,03-石油,04-钢铁,05-有色,06-化纤,07-化工,08-建材,09-造纸,10-矿物制品,11-日用化工,12-农林牧渔,13-纺织服饰,14-食品饮料,15-酿酒,16-家用电器,17-汽车类,18-医疗保健'; BKDY2:='19-家居用品,20-医药,21-商业连锁,22-商贸代理,23-传媒娱乐,24-广告包装,25-文教休闲,26-酒店餐饮,27-旅游,28-航空,29-船舶,30-运输设备,31-通用机械,32-工业机械,33-电气设备,34-工程机械,35-电器仪表,36-电信运营,37-公共交通,38-水务'; BKDY3:='39-供气供热,40-环境保护,41-运输服务,42-仓储物流,43-交通设施,44-银行,45-证券,46-保险,47-多元金融,48-建筑,49-房地产,50-IT设备,51-通讯设备,52-半导体,53-元器件,54-软件服务,55-互联网,56-综合类'; DRAWTEXT_FIX(ISLASTBAR,0.003,0.01,0,BKDY1),COLOR00FF00; DRAWTEXT_FIX(ISLASTBAR,0.003,0.11,0,BKDY2),COLOR00FF00; DRAWTEXT_FIX(ISLASTBAR,0.003,0.21,0,BKDY3),COLOR00FF00; {所属板块} BKW1:=IF(INBLOCK('煤炭'),X011,IF(INBLOCK('电力'),X021,IF(INBLOCK('石油'),X031,IF(INBLOCK('钢铁'),X041,IF(INBLOCK('有色'),X051,IF(INBLOCK('化纤'),X061,IF(INBLOCK('化工'),X071, IF(INBLOCK('建材'),X081,IF(INBLOCK('造纸'),X091,IF(INBLOCK('矿物制品'),X101,IF(INBLOCK('日用化工'),X111,IF(INBLOCK('农林牧渔'),X121,IF(INBLOCK('纺织服饰'),X131,IF(INBLOCK('食品饮料'),X141, IF(INBLOCK('酿酒'),X151,IF(INBLOCK('家用电器'),X161,IF(INBLOCK('汽车类'),X171,IF(INBLOCK('医疗保健'),X181,IF(INBLOCK('家居用品'),X191,IF(INBLOCK('医药'),X201,IF(INBLOCK('商业连锁'),X211, IF(INBLOCK('商贸代理'),X221,IF(INBLOCK('传媒娱乐'),X231,IF(INBLOCK('广告包装'),X241,IF(INBLOCK('文教休闲'),X251,IF(INBLOCK('酒店餐饮'),X261,IF(INBLOCK('旅游'),X271,IF(INBLOCK('航空'),X281, IF(INBLOCK('船舶'),X291,IF(INBLOCK('运输设备'),X301,IF(INBLOCK('通用机械'),X311,-1))))))))))))))))))))))))))))))); BKW2:=IF(INBLOCK('工业机械'),X321,IF(INBLOCK('电气设备'),X331,IF(INBLOCK('工程机械'),X341,IF(INBLOCK('电器仪表'),X351,IF(INBLOCK('电信运营'),X361,IF(INBLOCK('公共交通'),X371,IF(INBLOCK('水务'),X381, IF(INBLOCK('供气供热'),X391,IF(INBLOCK('环境保护'),X401,IF(INBLOCK('运输服务'),X411,IF(INBLOCK('仓储物流'),X421,IF(INBLOCK('交通设施'),X431,IF(INBLOCK('银行'),X441,IF(INBLOCK('证券'),X451, IF(INBLOCK('保险'),X461,IF(INBLOCK('多元金融'),X471,IF(INBLOCK('建筑'),X481,IF(INBLOCK('房地产'),X491,IF(INBLOCK('IT设备'),X501,IF(INBLOCK('通讯设备'),X511, IF(INBLOCK('半导体'),X521,IF(INBLOCK('元器件'),X531,IF(INBLOCK('软件服务'),X541,IF(INBLOCK('互联网'),X551,X561)))))))))))))))))))))))); BKW:=IF(BKW1=-1,BKW2,BKW1); SCW:=IF(CODELIKE('600'),X571,IF(CODELIKE('300'),X591,IF(CODELIKE('002'),X601,X581))); DRAWTEXT_FIX(ISLASTBAR,(SCW+M1/M5)/1000,0.32,0, '所'),COLOR0000FF;DRAWTEXT_FIX(ISLASTBAR,(SCW+M1/M5)/1000,0.46,0, '属'),COLOR0000FF;DRAWTEXT_FIX(ISLASTBAR,(SCW+M1/M5)/1000,0.6,0, '市'),COLOR0000FF;DRAWTEXT_FIX(ISLASTBAR,(SCW+M1/M5)/1000,0.74,0, '场'),COLOR0000FF; DRAWTEXT_FIX(ISLASTBAR,(BKW+M1/M5)/1000,0.32,0, '所'),COLOR0000FF;DRAWTEXT_FIX(ISLASTBAR,(BKW+M1/M5)/1000,0.46,0, '属'),COLOR0000FF;DRAWTEXT_FIX(ISLASTBAR,(BKW+M1/M5)/1000,0.6,0, '板'),COLOR0000FF;DRAWTEXT_FIX(ISLASTBAR,(BKW+M1/M5)/1000,0.74,0, '块'),COLOR0000FF; |