當日強勢板塊（通達信版本）

06-17

當日強勢板塊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下載!