|
當(dāng)日強勢板塊
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"); 醫(yī)藥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; 地產(chǎn)1:=(VAR6-REF(VAR6,1))/REF(VAR6,1)*100; 農(nóng)林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(醫(yī)藥1,金融1); MAX2:=MAX(紡織1,MAX1); MAX3:=MAX(建筑1,MAX2); MAX4:=MAX(機械1,MAX3); MAX5:=MAX(地產(chǎn)1,MAX4); MAX6:=MAX(農(nóng)林1,MAX5); MAX7:=MAX(電子1,MAX6); MAX8:=MAX(石化1,MAX7); MAX9:=MAX(制造1,MAX8); MAX10:=MAX(運輸1,MAX9); MAX11:=MAX(金屬1,MAX10); 上證:上證1,COLORRED; 醫(yī)藥:IF(醫(yī)藥1>上證 AND 醫(yī)藥1>0,醫(yī)藥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); 地產(chǎn):IF(地產(chǎn)1>上證 AND 地產(chǎn)1>0,地產(chǎn)1,DRAWNULL); 農(nóng)林:IF(農(nóng)林1>上證 AND 農(nóng)林1>0,農(nóng)林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(醫(yī)藥1=MAX11 AND 醫(yī)藥1>0,0,醫(yī)藥1,2,0),COLORYELLOW; DRAWTEXT(醫(yī)藥1=MAX11 AND 醫(yī)藥1>0,0-2,'醫(yī)藥'),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(地產(chǎn)1=MAX11 AND 地產(chǎn)1>0,0,地產(chǎn)1,2,0),COLORGREEN; DRAWTEXT(地產(chǎn)1=MAX11 AND 地產(chǎn)1>0,0-2,'地產(chǎn)'),COLORGREEN; STICKLINE(農(nóng)林1=MAX11 AND 農(nóng)林1>0,0,農(nóng)林1,2,0),COLORCYAN; DRAWTEXT(農(nóng)林1=MAX11 AND 農(nóng)林1>0,0-2,'農(nóng)林'),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; {板塊指數(shù) 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"); 醫(yī)藥:=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); 地產(chǎn):=SUM((VAR6/REF(VAR6,1)-1)*100,0); 農(nóng)林:=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(醫(yī)藥,N)); VAR18:=CONST(MA(金融,N)); VAR19:=CONST(MA(紡織,N)); VAR20:=CONST(MA(建筑,N)); VAR21:=CONST(MA(機械,N)); VAR22:=CONST(MA(地產(chǎn),N)); VAR23:=CONST(MA(農(nóng)林,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(醫(yī)藥,PQ,IF(P2-P1,CONST(MA(醫(yī)藥,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(地產(chǎn),PQ,IF(P7-P6,CONST(MA(地產(chǎn),M)),DRAWNULL),4,0),COLORYELLOW; STICKLINE(農(nóng)林,PQ,IF(P8-P7,CONST(MA(農(nóng)林,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(醫(yī)藥,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(地產(chǎn),PQ,IF(P7-P6,VAR22,DRAWNULL),4,0),COLORRED; STICKLINE(農(nóng)林,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(醫(yī)藥,PQ,IF(P2-P1,CONST(醫(yī)藥),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(地產(chǎn),PQ,IF(P7-P6,CONST(地產(chǎn)),DRAWNULL),0.8,0),COLORBLUE; STICKLINE(農(nóng)林,PQ,IF(P8-P7,CONST(農(nóng)林),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,'醫(yī)藥'),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,'地產(chǎn)'),COLORYELLOW; DRAWTEXT(P8-P7,PQ-2,'農(nóng)林'),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; 股票市場諸多個股按行業(yè)類別及炒作題材組成了很多不同板塊和概念，多數(shù)情況下這些板塊都會與大盤保持相同趨勢，但在相同的時間內(nèi)板塊之間仍有強弱之區(qū)別，板塊之間的個股也有強弱龍頭之分，通過板塊（個股）之間的比較是找出股市熱點及龍頭股的一個重要方法，但多數(shù)常見的股票軟件未能提供這樣的功能，有的也只是單一的行業(yè)指數(shù)與大盤或個股的簡單疊加而無法進行多板塊比較。因此為滿足個人的日常需要本人試編了一個哈財板塊指數(shù)，通過各板塊在圖形上的形態(tài)對比就能立刻看出哪些板塊是一定階段內(nèi)的強勢板塊，用在板塊內(nèi)個股的比較上就能立即找出一定時間范圍內(nèi)漲幅最大的龍頭股。以下是哈財板塊指標的源碼供參考。 公式名稱：哈財板塊指數(shù)bkzs 公式描述：哈財網(wǎng)板塊指數(shù)對比
{以下選擇日期為081103,可更改} N 1051103 1091103 1081103 滬:"999999$C"/REFDATE("999999$CLOSE",N),LINETHICK3;{上證綜指} 銀證保險:"399914$C"/REFDATE("399914$CLOSE",N),LINETHICK2;{中證300金融指數(shù)，未細分} 能源油煤:"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工業(yè)指數(shù)，未細分} 中小:"399101$C"/REFDATE("399101$CLOSE",N); 鐵金有色:"399909$C"/REFDATE("399909$CLOSE",N);{中證300材料指數(shù)，未細分} {更多板塊公式請到http://www.下載} 紡織:"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); 醫(yī)械:("002223$C"+"600055$C"+"600587$C"+"600763$C")/ REFDATE("002223$C"+"600055$C"+"600587$C"+"600763$C",N); 本公式簡單地通過各交易日板塊的收盤情況與基期（指定日期，建議選擇一個處于階段底部的日期）的對比所產(chǎn)生的數(shù)值在附圖以線條表現(xiàn)出來，根據(jù)各板塊在圖中數(shù)值位置來判斷其強弱。 |
|
|
