• 网站首页
  • 股票知识
  • 股票公式
  • 散户炒股
  • 问答百科
  • 缠中说禅
  • 概念股

    • [股票入门基础知识]通达信源码：寻找涨停起爆,大牛持股,板块对比

    发布时间： 2022-05-06 08:50 首页：股票一点通>股票公式>通达信公式> 阅读()
    1、寻找涨停起爆

    {分时寻找涨停起爆点}

    流通盘:=CAPITAL*100/100000000,NODRAW;
    资金流入:=SUM(IF(C>REF(C,1),V,0),FROMOPEN),STICK,COLORRED;
    资金流出:=-SUM(IF(C资金出入:=资金流入+资金流出,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攻击流量:攻击量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(CDRAWICON(FILTER(CROSS(拉升量,昨拉升最高值),30),最低+轴差*0.80,1);
    DRAWICON(每日一点,最低+轴差*0.65,1);
    DRAWICON(突破,最低+轴差*0.50,17);
    DRAWICON(FILTER(BARSLAST(CDRAWTEXT(突破,最低+轴差*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


    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、板块对比

    公式解释：

    公式一定要在 通赢版 才可以使用，( 顶尖财经 股票学院: )
    普通版本是不可以的，会显示编译不通过，当然会源码编写公式，可以整理一下也是通过的，具体就是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;
    标签：
    特别声明：文章内容仅供参考，不造成任何投资建议。投资者据此操作，风险自担。
    相关文章
    随机阅读
    • 最新资讯
    • 热门资讯

    网站首页-股票知识--股票公式-散户炒股-问答百科--缠中说禅-概念股

    未经本站书面特别授权，请勿转载或建立镜像

    Copyright @ 2020 All Rights Reserved.版权所有 XMl地图
    Baidu
    map