【通达信】★庆祝五一★【封神系列优化升级扳】57楼送《板块分析》

一，首先说明：1，因调用数据很慢只能盘后分折用。2，调用数据与

    指数(个股)上市以来总周期影响很大。所以只固定在上证副图中

    分析。盘中、千万副图中不要有比指标。

    为此：把《板块分析》设在常用指标拦中，分析时调用，分析完就

    调走。

二，用参数：BM调出对比曲线(红色加粗)。总共可调出26种主要板块曲线。

    参数分两组15到26的板块都有风向标(柱图)，大部分已有曲线(作对比用)。

    参数缺省14为家电板块(红色)。同时也是调出板块显示地方，所以用

    "M家电"表示。15到26用风向标对比出板块名称，1到13不能显示板块名称，

    抄个对比表就成。

机子不好分析可能要花点时间。反正盘后不帕没时间，只要分析会对你带来

好处，花点时间也值。

   
  
   


{板块分析  参数：RN(1,100,10)  参数：BM(1,26,14)}

DRAWBAND(60,RGB(00,50,100),-60,RGB(00,00,00));

VAR13:=IF(BM=1,HORCALC('农药化肥',103,0,1),
IF(BM=2,HORCALC('酒店旅游',103,0,1),
IF(BM=3,HORCALC('物资外贸',103,0,1),
IF(BM=4,HORCALC('农药化肥',103,0,1),
IF(BM=5,HORCALC('食品行业',103,0,1),
IF(BM=6,HORCALC('交通运输',103,0,1),
IF(BM=7,HORCALC('食品行业',103,0,1),
IF(BM=8,HORCALC('建筑建材',103,0,1),
IF(BM=9,HORCALC('酒店旅游',103,0,1),
IF(BM=10,HORCALC('数字家电',103,0,1),
IF(BM=11,HORCALC('石油行业',103,0,1),
IF(BM=12,HORCALC('电器行业',103,0,1),
IF(BM=13,HORCALC('水泥行业',103,0,1),
IF(BM=14,HORCALC('家电行业',103,0,1),

IF(BM=15,HORCALC('金融行业',103,0,1),
IF(BM=16,HORCALC('煤炭行业',103,0,1),
IF(BM=17,HORCALC('农林牧渔',103,0,1),
IF(BM=18,HORCALC('有色金属',103,0,1),
IF(BM=19,HORCALC('电子信息',103,0,1),
IF(BM=20,HORCALC('房地产业',103,0,1),
IF(BM=21,HORCALC('机械行业',103,0,1),
IF(BM=22,HORCALC('生物制药',103,0,1),
IF(BM=23,HORCALC('汽车制造',103,0,1),
IF(BM=24,HORCALC('钢铁行业',103,0,1),
IF(BM=25,HORCALC('电力行业',103,0,1),
IF(BM=26,HORCALC('化工行业',103,0,1),HORCALC('家电行业',103,0,1)
))))))))))))))))))))))))));
VAR1:=HORCALC('金融行业',103,0,1);
VAR2:=HORCALC('煤炭行业',103,0,1);
VAR3:=HORCALC('农林牧渔',103,0,1);
VAR4:=HORCALC('有色金属',103,0,1);
VAR5:=HORCALC('电子信息',103,0,1);
VAR6:=HORCALC('房地产业',103,0,1);
VAR7:=HORCALC('机械行业',103,0,1);
VAR8:=HORCALC('生物制药',103,0,1);
VAR9:=HORCALC('汽车制造',103,0,1);
VAR10:=HORCALC('钢铁行业',103,0,1);
VAR11:=HORCALC('电力行业',103,0,1);
VAR12:=HORCALC('化工行业',103,0,1);
{VAR13:=HORCALC('家电行业',103,0,1);}

金融:=SUM((VAR1/REF(VAR1,1)-1)*100,0)*10;
煤炭:=SUM((VAR2/REF(VAR2,1)-1)*100,0)*10;
农牧:=SUM((VAR3/REF(VAR3,1)-1)*100,0)*10;
有色:=SUM((VAR4/REF(VAR4,1)-1)*100,0)*10;
电子:=SUM((VAR5/REF(VAR5,1)-1)*100,0)*10;
房产:=SUM((VAR6/REF(VAR6,1)-1)*100,0)*10;
机械:=SUM((VAR7/REF(VAR7,1)-1)*100,0)*10;
制药:=SUM((VAR8/REF(VAR8,1)-1)*100,0)*10;
汽车:=SUM((VAR9/REF(VAR9,1)-1)*100,0)*10;
钢铁:=SUM((VAR10/REF(VAR10,1)-1)*100,0)*10;
电力:=SUM((VAR11/REF(VAR11,1)-1)*100,0)*10;
化工:=SUM((VAR12/REF(VAR12,1)-1)*100,0)*10;
家电:=SUM((VAR13/REF(VAR13,1)-1)*100,0)*10;

金融B:=REF(SUM((VAR1/REF(VAR1,1)-1)*100,0)*10,1);
煤炭B:=REF(SUM((VAR2/REF(VAR2,1)-1)*100,0)*10,1);
农牧B:=REF(SUM((VAR3/REF(VAR3,1)-1)*100,0)*10,1);
有色B:=REF(SUM((VAR4/REF(VAR4,1)-1)*100,0)*10,1);
电子B:=REF(SUM((VAR5/REF(VAR5,1)-1)*100,0)*10,1);
房产B:=REF(SUM((VAR6/REF(VAR6,1)-1)*100,0)*10,1);
机械B:=REF(SUM((VAR7/REF(VAR7,1)-1)*100,0)*10,1);
制药B:=REF(SUM((VAR8/REF(VAR8,1)-1)*100,0)*10,1);
汽车B:=REF(SUM((VAR9/REF(VAR9,1)-1)*100,0)*10,1);
钢铁B:=REF(SUM((VAR10/REF(VAR10,1)-1)*100,0)*10,1);
电力B:=REF(SUM((VAR11/REF(VAR11,1)-1)*100,0)*10,1);
化工B:=REF(SUM((VAR12/REF(VAR12,1)-1)*100,0)*10,1);
家电B:=REF(SUM((VAR13/REF(VAR13,1)-1)*100,0)*10,1);

BVAR17:=CONST(MA(金融B,RN));
BVAR18:=CONST(MA(煤炭B,RN));
BVAR19:=CONST(MA(农牧B,RN));
BVAR20:=CONST(MA(有色B,RN));
BVAR21:=CONST(MA(电子B,RN));
BVAR22:=CONST(MA(房产B,RN));
BVAR23:=CONST(MA(机械B,RN));
BVAR24:=CONST(MA(制药B,RN));
BVAR25:=CONST(MA(汽车B,RN));
BVAR26:=CONST(MA(钢铁B,RN));
BVAR27:=CONST(MA(电力B,RN));
BVAR28:=CONST(MA(化工B,RN));
BVAR29:=CONST(MA(家电B,RN));

VAR17:=CONST(MA(金融,RN));
VAR18:=CONST(MA(煤炭,RN));
VAR19:=CONST(MA(农牧,RN));
VAR20:=CONST(MA(有色,RN));
VAR21:=CONST(MA(电子,RN));
VAR22:=CONST(MA(房产,RN));
VAR23:=CONST(MA(机械,RN));
VAR24:=CONST(MA(制药,RN));
VAR25:=CONST(MA(汽车,RN));
VAR26:=CONST(MA(钢铁,RN));
VAR27:=CONST(MA(电力,RN));
VAR28:=CONST(MA(化工,RN));
VAR29:=CONST(MA(家电,RN));
金融C:=(CONST(金融)-(VAR17))-(CONST(金融B)-(BVAR17));
煤炭C:=(CONST(煤炭)-(VAR17))-(CONST(煤炭B)-(BVAR17));
农牧C:=(CONST(农牧)-(VAR17))-(CONST(农牧B)-(BVAR17));
有色C:=(CONST(有色)-(VAR17))-(CONST(有色B)-(BVAR17));
电子C:=(CONST(电子)-(VAR17))-(CONST(电子B)-(BVAR17));
房产C:=(CONST(房产)-(VAR17))-(CONST(房产B)-(BVAR17));
机械C:=(CONST(机械)-(VAR17))-(CONST(机械B)-(BVAR17));
制药C:=(CONST(制药)-(VAR17))-(CONST(制药B)-(BVAR17));
汽车C:=(CONST(汽车)-(VAR17))-(CONST(汽车B)-(BVAR17));
钢铁C:=(CONST(钢铁)-(VAR17))-(CONST(钢铁B)-(BVAR17));
电力C:=(CONST(电力)-(VAR17))-(CONST(电力B)-(BVAR17));
化工C:=(CONST(化工)-(VAR17))-(CONST(化工B)-(BVAR17));
家电C:=(CONST(家电)-(VAR17))-(CONST(家电B)-(BVAR17));

金融A:SUM((VAR1/REF(VAR1,1)-1)*100,0)*2+100;
煤炭A:SUM((VAR2/REF(VAR2,1)-1)*100,0)*2+100;
农牧A:SUM((VAR3/REF(VAR3,1)-1)*100,0)*2+100;
有色A:SUM((VAR4/REF(VAR4,1)-1)*100,0)*2+100;
电子A:=SUM((VAR5/REF(VAR5,1)-1)*100,0)*2+100;
房产A:SUM((VAR6/REF(VAR6,1)-1)*100,0)*2+100;
机械A:SUM((VAR7/REF(VAR7,1)-1)*100,0)*2+100;
制药A:SUM((VAR8/REF(VAR8,1)-1)*100,0)*2+100,COLOR00FF00;
汽车A:SUM((VAR9/REF(VAR9,1)-1)*100,0)*2+100,COLOR00FFFF;
钢铁A:SUM((VAR10/REF(VAR10,1)-1)*100,0)*2+100;
电力A:=SUM((VAR11/REF(VAR11,1)-1)*100,0)*2+100,COLOR00FF00;
化工A:=SUM((VAR12/REF(VAR12,1)-1)*100,0)*2+100;
家电A:SUM((VAR13/REF(VAR13,1)-1)*100,0)*2+100,LINETHICK2,COLOR0000FF;



P1:=IF(BARSLAST(CURRBARSCOUNT=10),1,0);
P2:=IF(BARSLAST(CURRBARSCOUNT=13),1,0);
P3:=IF(BARSLAST(CURRBARSCOUNT=16),1,0);
P4:=IF(BARSLAST(CURRBARSCOUNT=19),1,0);
P5:=IF(BARSLAST(CURRBARSCOUNT=22),1,0);
P6:=IF(BARSLAST(CURRBARSCOUNT=25),1,0);
P7:=IF(BARSLAST(CURRBARSCOUNT=28),1,0);
P8:=IF(BARSLAST(CURRBARSCOUNT=31),1,0);
P9:=IF(BARSLAST(CURRBARSCOUNT=34),1,0);
P10:=IF(BARSLAST(CURRBARSCOUNT=37),1,0);
P11:=IF(BARSLAST(CURRBARSCOUNT=40),1,0);
P12:=IF(BARSLAST(CURRBARSCOUNT=43),1,0);
P13:=IF(BARSLAST(CURRBARSCOUNT=46),1,0);
P14:=IF(BARSLAST(CURRBARSCOUNT=7),1,0);

STICKLINE(金融,0,IF(P2-P1,CONST(金融C),DRAWNULL),8,0),COLOR999999;
STICKLINE(煤炭,0,IF(P3-P2,CONST(煤炭C),DRAWNULL),8,0),COLOR999999;
STICKLINE(农牧,0,IF(P4-P3,CONST(农牧C),DRAWNULL),8,0),COLOR999999;
STICKLINE(有色,0,IF(P5-P4,CONST(有色C),DRAWNULL),8,0),COLOR999999;
STICKLINE(电子,0,IF(P6-P5,CONST(电子C),DRAWNULL),8,0),COLOR999999;
STICKLINE(房产,0,IF(P7-P6,CONST(房产C),DRAWNULL),8,0),COLOR999999;
STICKLINE(机械,0,IF(P8-P7,CONST(机械C),DRAWNULL),8,0),COLOR999999;
STICKLINE(制药,0,IF(P9-P8,CONST(制药C),DRAWNULL),8,0),COLOR999999;
STICKLINE(汽车,0,IF(P10-P9,CONST(汽车C),DRAWNULL),8,0),COLOR999999;
STICKLINE(钢铁,0,IF(P11-P10,CONST(钢铁C),DRAWNULL),8,0),COLOR999999;
STICKLINE(电力,0,IF(P12-P11,CONST(电力C),DRAWNULL),8,0),COLOR999999;
STICKLINE(化工,0,IF(P13-P12,CONST(化工C),DRAWNULL),8,0),COLOR999999;
STICKLINE(家电,0,IF(P1-P14,CONST(家电C),DRAWNULL),8,0),COLOR999999;

STICKLINE(金融,0,IF(P2-P1,CONST(金融)-VAR17,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(煤炭,0,IF(P3-P2,CONST(煤炭)-VAR18,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(农牧,0,IF(P4-P3,CONST(农牧)-VAR19,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(有色,0,IF(P5-P4,CONST(有色)-VAR20,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(电子,0,IF(P6-P5,CONST(电子)-VAR21,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(房产,0,IF(P7-P6,CONST(房产)-VAR22,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(机械,0,IF(P8-P7,CONST(机械)-VAR23,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(制药,0,IF(P9-P8,CONST(制药)-VAR24,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(汽车,0,IF(P10-P9,CONST(汽车)-VAR25,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(钢铁,0,IF(P11-P10,CONST(钢铁)-VAR26,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(电力,0,IF(P12-P11,CONST(电力)-VAR27,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(化工,0,IF(P13-P12,CONST(化工)-VAR28,DRAWNULL),4,-2),COLORFF00FF;
STICKLINE(家电,0,IF(P1-P14,CONST(家电)-VAR29,DRAWNULL),4,-2),COLORFF00FF;

DRAWTEXT(P1-P14,-50,'M家电'),COLOR0000FF;
DRAWTEXT(P2-P1,-50,'金融'),COLORYELLOW;
DRAWTEXT(P3-P2,-50,'煤炭'),COLORYELLOW;
DRAWTEXT(P4-P3,-50,'农牧'),COLORYELLOW;
DRAWTEXT(P5-P4,-50,'有色'),COLORYELLOW;
DRAWTEXT(P6-P5,-50,'电子'),COLORYELLOW;
DRAWTEXT(P7-P6,-50,'房地'),COLORYELLOW;
DRAWTEXT(P8-P7,-50,'机械'),COLORYELLOW;
DRAWTEXT(P9-P8,-50,'制药'),COLORYELLOW;
DRAWTEXT(P10-P9,-50,'汽车'),COLORYELLOW;
DRAWTEXT(P11-P10,-50,'钢铁'),COLORYELLOW;
DRAWTEXT(P12-P11,-50,'电力'),COLORYELLOW;
DRAWTEXT(P13-P12,-50,'化工'),COLORYELLOW;

[ 本帖最后由 唐仁政 于 2009-4-29 16:50 编辑 ]