通达信板块指数公式

！通达信板块指数公式 软件介绍 股票IIQ提示:请点击图片放大查看 本公式仅提供源码,并不提供下载,请股票入门投资者自行在通达信软件中导入下面黄框内的股票公式源码: 参数: N 1,120,10 M 1,60,3 {板块指数 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); {www.stock08.cn} 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; ！通达信做出热门板块的走势K线图 几乎每个股票软件都会把股票划分到很多板块中，“金融板块”、“地产板块”等等，每天也会对热门板块做个排行。我们面对着几乎每天都出现的领涨、领跌的板块，经常会去猜测明天是什么板块领涨（领跌）呢？对于热点板块的追逐，往往令我们眼花缭乱、无所适从。 如果能把板块的走势也做出K线图来，那么我们在判断板块的走向的时候，就会比较清晰明了，就不会被某一板块一日的涨跌所迷惑，能从趋势的角度去看待一个板块的涨跌。 按道理说，把一个板块的所有股票按权重比例累计到一起，就可以做出一个板块的走势来。 要求使用的是通达信的看盘软件，新函数HORCALC(,,,)在通达信以前的版本中，是没有的函数。具体从哪个版本开始增加的这个函数，具体还不清楚，现在用的是通达信V6.03。这个函数在通达信中是这样解释的： @HORCALC. 用法：HORCALC(板块名称，数据项，计算方式，权重)， 数据项：100-HIGH，101-OPEN，102-LOW，103-CLOSE，104-VOL，105-涨幅 计算方式：0-累加，1-排名次 权重：0-总股本，1-流通股本，2-等同权重，3-流通市值 利用这个函数，我们就可以把板块的走势K线图做出来了。当然，只能做为一个附图的指标来显示板块的K线图。 附图为08年3月10日做的金融板块、农林牧渔两个板块的K线图： 从两个板块的K线图上可以看出，金融板块仍然处在弱势之中，即使出现一两天的反弹，也不能盲目乐观；农林牧渔板块则在上周冲高之后，连续三天下滑，目前还没有止跌的迹象。 有了这样的指标，对我们提前发现板块动向，和分析板块的未来走势有了明显的参考依据。 其具体公式如下：【通达信V6.03】 A:='金融行业'; HHH:=HORCALC(A,100,0,3); OOO:=HORCALC(A,101,0,3); LLL:=HORCALC(A,102,0,3); CCC:=HORCALC(A,103,0,3); DRAWKLINE(HHH,OOO,LLL,CCC); MA5:MA(CCC,5); MA10:MA(CCC,10); MA20:MA(CCC,20),COLORBLUE; MA30:MA(CCC,30),COLOR339933; MA60:MA(CCC,60),COLORRED; 其中，A:='金融行业'，“金融行业”这个名称，应该和通达信软件中的行业板块中的名称一致。并且也可以任意替换成软件中“行业”“概念”“地区”甚至“自选”中的任何一个具体板块名称。 但是这个指标在具体使用中有一个问题，就是交易时间它并不随着价格的波动而变化，这个函数只统计软件已经下载到本地的数据，动态的交易数据不在函数的统计中。这样就必须在使用中就必须经常做【系统】－【盘后数据下载】－【日线和行情数据下载】。或者，作为一个盘后分析板块走向的指标。 ！ ！ ！