当日强势板块

当日强势板块
VAR1:=("399139$C"); VAR2:=("399190$C"); VAR3:=("399132$C"); VAR4:=("399150$C");
VAR5:=("399138$C"); VAR6:=("399200$C"); VAR7:=("399110$C"); VAR8:=("399136$C");
VAR9:=("399135$C"); VAR10:=("399130$C"); VAR11:=("399160$C"); VAR12:=("999999$C");
VAR13:=("399137$C");
医药1:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*100;
金融1:=(VAR2-REF(VAR2,1))/REF(VAR2,1)*100;
纺织1:=(VAR3-REF(VAR3,1))/REF(VAR3,1)*100;
建筑1:=(VAR4-REF(VAR4,1))/REF(VAR4,1)*100;
机械1:=(VAR5-REF(VAR5,1))/REF(VAR5,1)*100;
地产1:=(VAR6-REF(VAR6,1))/REF(VAR6,1)*100;
农林1:=(VAR7-REF(VAR7,1))/REF(VAR7,1)*100;
电子1:=(VAR8-REF(VAR8,1))/REF(VAR8,1)*100;
石化1:=(VAR9-REF(VAR9,1))/REF(VAR9,1)*100;
制造1:=(VAR10-REF(VAR10,1))/REF(VAR10,1)*100;
运输1:=(VAR11-REF(VAR11,1))/REF(VAR11,1)*100;
上证1:=(VAR12-REF(VAR12,1))/REF(VAR12,1)*100;
金属1:=(VAR13-REF(VAR13,1))/REF(VAR13,1)*100;
MAX1:=MAX(医药1,金融1);
MAX2:=MAX(纺织1,MAX1);
MAX3:=MAX(建筑1,MAX2);
MAX4:=MAX(机械1,MAX3);
MAX5:=MAX(地产1,MAX4);
MAX6:=MAX(农林1,MAX5);
MAX7:=MAX(电子1,MAX6);
MAX8:=MAX(石化1,MAX7);
MAX9:=MAX(制造1,MAX8);
MAX10:=MAX(运输1,MAX9);
MAX11:=MAX(金属1,MAX10);
上证:上证1,COLORRED;
医药:IF(医药1>上证 AND 医药1>0,医药1,DRAWNULL);
金融:IF(金融1>上证 AND 金融1>0,金融1,DRAWNULL);
纺织:IF(纺织1>上证 AND 纺织1>0,纺织1,DRAWNULL);
建筑:IF(建筑1>上证 AND 建筑1>0,建筑1,DRAWNULL);
机械:IF(机械1>上证 AND 机械1>0,机械1,DRAWNULL);
地产:IF(地产1>上证 AND 地产1>0,地产1,DRAWNULL);
农林:IF(农林1>上证 AND 农林1>0,农林1,DRAWNULL);
电子:IF(电子1>上证 AND 电子1>0,电子1,DRAWNULL);
石化:IF(石化1>上证 AND 石化1>0,石化1,DRAWNULL);
制造:IF(制造1>上证 AND 制造1>0,制造1,DRAWNULL);
运输:IF(运输1>上证 AND 运输1>0,运输1,DRAWNULL);
金属:IF(金属1>上证 AND 金属1>0,金属1,DRAWNULL);
STICKLINE(医药1=MAX11 AND 医药1>0,0,医药1,2,0),COLORYELLOW;
DRAWTEXT(医药1=MAX11 AND 医药1>0,0-2,'医药'),COLORYELLOW;
STICKLINE(金融1=MAX11 AND 金融1>0,0,金融1,2,0),COLORLIGREEN;
DRAWTEXT(金融1=MAX11 AND 金融1>0,0-2,'金融'),COLORLIGREEN;
STICKLINE(纺织1=MAX11 AND 纺织1>0,0,纺织1,2,0),COLORBLUE;
DRAWTEXT(纺织1=MAX11 AND 纺织1>0,0-2,'纺织'),COLORBLUE;
STICKLINE(机械1=MAX11 AND 机械1>0,0,机械1,2,0),COLORRED;
DRAWTEXT(机械1=MAX11 AND 机械1>0,0-2,'机械'),COLORRED;
STICKLINE(建筑1=MAX11 AND 建筑1>0,0,建筑1,2,0),COLORWHITE;
DRAWTEXT(建筑1=MAX11 AND 建筑1>0,0-2,'建筑'),COLORWHITE;
STICKLINE(地产1=MAX11 AND 地产1>0,0,地产1,2,0),COLORGREEN;
DRAWTEXT(地产1=MAX11 AND 地产1>0,0-2,'地产'),COLORGREEN;
STICKLINE(农林1=MAX11 AND 农林1>0,0,农林1,2,0),COLORCYAN;
DRAWTEXT(农林1=MAX11 AND 农林1>0,0-2,'农林'),COLORCYAN;
STICKLINE(电子1=MAX11 AND 电子1>0,0,电子1,2,0),COLORBROWN;
DRAWTEXT(电子1=MAX11 AND 电子1>0,0-2,'电子'),COLORBROWN;
STICKLINE(石化1=MAX11 AND 石化1>0,0,石化1,2,0),COLORMAGENTA;
DRAWTEXT(石化1=MAX11 AND 石化1>0,0-2,'石化'),COLORMAGENTA;
STICKLINE(制造1=MAX11 AND 制造1>0,0,制造1,2,0),COLORLIGRAY;
DRAWTEXT(制造1=MAX11 AND 制造1>0,0-2,'制造'),COLORLIGRAY;
STICKLINE(运输1=MAX11 AND 运输1>0,0,运输1,2,0),COLORLICYAN;
DRAWTEXT(运输1=MAX11 AND 运输1>0,0-2,'运输'),COLORLICYAN;
STICKLINE(金属1=MAX11 AND 金属1>0,0,金属1,2,0),COLORLIBLUE;
DRAWTEXT(金属1=MAX11 AND 金属1>0,0-2,'金属'),COLORLIBLUE;            {板块指数  N 1/120/10  M 1/60/3}
N:=10;
M:=3;
VAR1:=("399139$C");
VAR2:=("399190$C");
VAR3:=("399132$C");
VAR4:=("399150$C");
VAR5:=("399138$C");
VAR6:=("399200$C");
VAR7:=("399110$C");
VAR8:=("399136$C");
VAR9:=("399135$C");
VAR10:=("399130$C");
VAR11:=("399160$C");
VAR12:=("999999$C");
VAR13:=("399137$C");
医药:=SUM((VAR1/REF(VAR1,1)-1)*100,0);
金融:=SUM((VAR2/REF(VAR2,1)-1)*100,0);
纺织:=SUM((VAR3/REF(VAR3,1)-1)*100,0);
建筑:=SUM((VAR4/REF(VAR4,1)-1)*100,0);
机械:=SUM((VAR5/REF(VAR5,1)-1)*100,0);
地产:=SUM((VAR6/REF(VAR6,1)-1)*100,0);
农林:=SUM((VAR7/REF(VAR7,1)-1)*100,0);
电子:=SUM((VAR8/REF(VAR8,1)-1)*100,0);
石化:=SUM((VAR9/REF(VAR9,1)-1)*100,0);
制造:=SUM((VAR10/REF(VAR10,1)-1)*100,0);
运输:=SUM((VAR11/REF(VAR11,1)-1)*100,0);
上证:SUM((VAR12/REF(VAR12,1)-1)*100,0),COLORWHITE,LINETHICK2;
金属:=SUM((VAR13/REF(VAR13,1)-1)*100,0);
VAR17:=CONST(MA(医药,N));
VAR18:=CONST(MA(金融,N));
VAR19:=CONST(MA(纺织,N));
VAR20:=CONST(MA(建筑,N));
VAR21:=CONST(MA(机械,N));
VAR22:=CONST(MA(地产,N));
VAR23:=CONST(MA(农林,N));
VAR24:=CONST(MA(电子,N));
VAR25:=CONST(MA(石化,N));
VAR26:=CONST(MA(制造,N));
VAR27:=CONST(MA(运输,N));
VAR28:=CONST(MA(上证,N));
VAR29:=CONST(MA(金属,N));
PQ:=VAR29-20;
P1:=IF(BARSLAST(CURRBARSCOUNT=4),1,0);
P2:=IF(BARSLAST(CURRBARSCOUNT=6),1,0);
P3:=IF(BARSLAST(CURRBARSCOUNT=8),1,0);
P4:=IF(BARSLAST(CURRBARSCOUNT=10),1,0);
P5:=IF(BARSLAST(CURRBARSCOUNT=12),1,0);
P6:=IF(BARSLAST(CURRBARSCOUNT=14),1,0);
P7:=IF(BARSLAST(CURRBARSCOUNT=16),1,0);
P8:=IF(BARSLAST(CURRBARSCOUNT=18),1,0);
P9:=IF(BARSLAST(CURRBARSCOUNT=20),1,0);
P10:=IF(BARSLAST(CURRBARSCOUNT=22),1,0);
P11:=IF(BARSLAST(CURRBARSCOUNT=24),1,0);
P12:=IF(BARSLAST(CURRBARSCOUNT=26),1,0);
P13:=IF(BARSLAST(CURRBARSCOUNT=28),1,0);
P14:=IF(BARSLAST(CURRBARSCOUNT=2),1,0);
STICKLINE(医药,PQ,IF(P2-P1,CONST(MA(医药,M)),DRAWNULL),4,0),COLORYELLOW;
STICKLINE(金融,PQ,IF(P3-P2,CONST(MA(金融,M)),DRAWNULL),4,0),COLORYELLOW;
STICKLINE(纺织,PQ,IF(P4-P3,CONST(MA(纺织,M)),DRAWNULL),4,0),COLORYELLOW;
STICKLINE(建筑,PQ,IF(P5-P4,CONST(MA(建筑,M)),DRAWNULL),4,0),COLORYELLOW;
STICKLINE(机械,PQ,IF(P6-P5,CONST(MA(机械,M)),DRAWNULL),4,0),COLORYELLOW;
STICKLINE(地产,PQ,IF(P7-P6,CONST(MA(地产,M)),DRAWNULL),4,0),COLORYELLOW;
STICKLINE(农林,PQ,IF(P8-P7,CONST(MA(农林,M)),DRAWNULL),4,0),COLORYELLOW;
STICKLINE(电子,PQ,IF(P9-P8,CONST(MA(电子,M)),DRAWNULL),4,0),COLORYELLOW;
STICKLINE(石化,PQ,IF(P10-P9,CONST(MA(石化,M)),DRAWNULL),4,0),COLORYELLOW;
STICKLINE(制造,PQ,IF(P11-P10,CONST(MA(制造,M)),DRAWNULL),4,0),COLORYELLOW;
STICKLINE(运输,PQ,IF(P12-P11,CONST(MA(运输,M)),DRAWNULL),4,0),COLORYELLOW;
STICKLINE(金属,PQ,IF(P13-P12,CONST(MA(金属,M)),DRAWNULL),4,0),COLORYELLOW;
STICKLINE(上证,上证,IF(P1-P14,VAR28,DRAWNULL),5,-1),COLORYELLOW;
STICKLINE(医药,PQ,IF(P2-P1,VAR17,DRAWNULL),4,0),COLORRED;
STICKLINE(金融,PQ,IF(P3-P2,VAR18,DRAWNULL),4,0),COLORRED;
STICKLINE(纺织,PQ,IF(P4-P3,VAR19,DRAWNULL),4,0),COLORRED;
STICKLINE(建筑,PQ,IF(P5-P4,VAR20,DRAWNULL),4,0),COLORRED;
STICKLINE(机械,PQ,IF(P6-P5,VAR21,DRAWNULL),4,0),COLORRED;
STICKLINE(地产,PQ,IF(P7-P6,VAR22,DRAWNULL),4,0),COLORRED;
STICKLINE(农林,PQ,IF(P8-P7,VAR23,DRAWNULL),4,0),COLORRED;
STICKLINE(电子,PQ,IF(P9-P8,VAR24,DRAWNULL),4,0),COLORRED;
STICKLINE(石化,PQ,IF(P10-P9,VAR25,DRAWNULL),4,0),COLORRED;
STICKLINE(制造,PQ,IF(P11-P10,VAR26,DRAWNULL),4,0),COLORRED;
STICKLINE(运输,PQ,IF(P12-P11,VAR27,DRAWNULL),4,0),COLORRED;
STICKLINE(金属,PQ,IF(P13-P12,VAR29,DRAWNULL),4,0),COLORRED;
STICKLINE(医药,PQ,IF(P2-P1,CONST(医药),DRAWNULL),0.8,0),COLORDD0555;
STICKLINE(金融,PQ,IF(P3-P2,CONST(金融),DRAWNULL),0.8,0),COLORBLUE;
STICKLINE(纺织,PQ,IF(P4-P3,CONST(纺织),DRAWNULL),0.8,0),COLORBLUE;
STICKLINE(建筑,PQ,IF(P5-P4,CONST(建筑),DRAWNULL),0.8,0),COLORBLUE;
STICKLINE(机械,PQ,IF(P6-P5,CONST(机械),DRAWNULL),0.8,0),COLORBLUE;
STICKLINE(地产,PQ,IF(P7-P6,CONST(地产),DRAWNULL),0.8,0),COLORBLUE;
STICKLINE(农林,PQ,IF(P8-P7,CONST(农林),DRAWNULL),0.8,0),COLORBLUE;
STICKLINE(电子,PQ,IF(P9-P8,CONST(电子),DRAWNULL),0.8,0),COLORBLUE;
STICKLINE(石化,PQ,IF(P10-P9,CONST(石化),DRAWNULL),0.8,0),COLORBLUE;
STICKLINE(制造,PQ,IF(P11-P10,CONST(制造),DRAWNULL),0.8,0),COLORBLUE;
STICKLINE(运输,PQ,IF(P12-P11,CONST(运输),DRAWNULL),0.8,0),COLORBLUE;
STICKLINE(金属,PQ,IF(P13-P12,CONST(金属),DRAWNULL),0.8,0),COLORBLUE;
DRAWTEXT(P2-P1,PQ-2,'医药'),COLORYELLOW;
DRAWTEXT(P3-P2,PQ-2,'金融'),COLORYELLOW;
DRAWTEXT(P4-P3,PQ-2,'纺织'),COLORYELLOW;
DRAWTEXT(P5-P4,PQ-2,'建筑'),COLORYELLOW;
DRAWTEXT(P6-P5,PQ-2,'机械'),COLORYELLOW;
DRAWTEXT(P7-P6,PQ-2,'地产'),COLORYELLOW;
DRAWTEXT(P8-P7,PQ-2,'农林'),COLORYELLOW;
DRAWTEXT(P9-P8,PQ-2,'电子'),COLORYELLOW;
DRAWTEXT(P10-P9,PQ-2,'石化'),COLORYELLOW;
DRAWTEXT(P11-P10,PQ-2,'制造'),COLORYELLOW;
DRAWTEXT(P12-P11,PQ-2,'运输'),COLORYELLOW;
DRAWTEXT(P13-P12,PQ-2,'金属'),COLORYELLOW;  

        股票市场诸多个股按行业类别及炒作题材组成了很多不同板块和概念，多数情况下这些板块都会与大盘保持相同趋势，但在相同的时间内板块之间仍有强弱之区别，板块之间的个股也有强弱龙头之分，通过板块（个股）之间的比较是找出股市热点及龙头股的一个重要方法，但多数常见的股票软件未能提供这样的功能，有的也只是单一的行业指数与大盘或个股的简单叠加而无法进行多板块比较。因此为满足个人的日常需要本人试编了一个哈财板块指数，通过各板块在图形上的形态对比就能立刻看出哪些板块是一定阶段内的强势板块，用在板块内个股的比较上就能立即找出一定时间范围内涨幅最大的龙头股。以下是哈财板块指标的源码供参考。

公式名称：哈财板块指数bkzs 公式描述：哈财网板块指数对比
{以下选择日期为081103,可更改}
N  1051103 1091103 1081103
沪:"999999$C"/REFDATE("999999$CLOSE",N),LINETHICK3;{上证综指}
银证保险:"399914$C"/REFDATE("399914$CLOSE",N),LINETHICK2;{中证300金融指数，未细分}
能源油煤:"399908$C"/REFDATE("399908$CLOSE",N);
制药:"399913$C"/REFDATE("399913$CLOSE",N);
电力:"399917$C"/REFDATE("399917$CLOSE",N);
空铁海运:"399910$C"/REFDATE("399910$CLOSE",N);{中证300工业指数，未细分}
中小:"399101$C"/REFDATE("399101$CLOSE",N);
铁金有色:"399909$C"/REFDATE("399909$CLOSE",N);{中证300材料指数，未细分}
{更多板块公式请到http://www.hacai.net下载}
纺织:"399132$C"/REFDATE("399132$CLOSE",N);
电信:"399916$C"/REFDATE("399916$CLOSE",N);
亚运:("002105$C"+"600158$C"+"002105$C"+"000524$C"+"002181$C"+"600004$C"+"600086$C")/
REFDATE("002105$C"+"600158$C"+"002105$C"+"000524$C"+"002181$C"+"600004$C"+"600086$C",N);
上海:("600836$C"+"600676$C"+"600630$C"+"600832$C"+"600631$C"+"600834$C"+"600732$C")/
REFDATE("600836$C"+"600676$C"+"600630$C"+"600832$C"+"600631$C"+"600834$C"+"600732$C",N);
医械:("002223$C"+"600055$C"+"600587$C"+"600763$C")/
REFDATE("002223$C"+"600055$C"+"600587$C"+"600763$C",N);

    本公式简单地通过各交易日板块的收盘情况与基期（指定日期，建议选择一个处于阶段底部的日期）的对比所产生的数值在附图以线条表现出来，根据各板块在图中数值位置来判断其强弱。
    指标中选择的主要参照指数是上证指数（本指标以“沪”来表示）。另外对市场主要板块金融板块、能源板块、医药板块等采用了中证指数公司编制的300板块指数，部分板块是深交所的板块指数，如纺织板块。对于未公布的板块指数则采取采样编辑，如亚运板块、迪斯尼或世博会、医械板块等。指标所选择的基期是08年11月03日，即表示从此日开始哪些板块最强势。目前从图中看医械及亚运概念走势最强。
    运用到板块内的个股上强弱对比上，可以依本公式的编制方法将所有样本股重新编制成一个新的公式，由于工作量较大，本人仅编制了金融板块（内含银行保险证券个股）及亚运概念股，有需要者可从哈财网下载。
    本指标只是简单地描述了各板块指数的强弱，在采样自编指数的编制方法上也仅做了简单计算，另外在图形上受条件所限未能以百分比形式更好地表现板块之间的强弱对比。这个公式仅是根据个人需要设计，设计方式也不尽完美。其实迫切希望通达信（或其它软件开发商）能够满足我的需要：）
    板块指数或有完善或更新，请到http://www.hacai.net下载!