通达信板块涨跌幅选股指标公式源码

通达信板块涨跌幅选股指标公式源码

源码正文：

VAR1:=("399139$C"){XG51};
VAR2:=("399190$C"){XG51};
VAR3:=("399132$C"){XG51};
VAR4:=("399150$C"){XG51};
VAR5:=("399138$C"){XG51};
VAR6:=("399200$C"){XG51};
VAR7:=("399110$C"){XG51};
VAR8:=("399136$C"){XG51};
VAR9:=("399135$C"){XG51};
VAR10:=("399130$C"){XG51};
VAR11:=("399160$C"){XG51};
VAR12:=("399131$C"){XG51};
VAR13:=("399137$C"){XG51};
VAR14:=("399140$C"){XG51};
VAR15:=("399210$C"){XG51};
水电:(VAR14/REF(VAR14,1)-1)*100,NODRAW,COLORFFFF00{XG51};
服务:(VAR15/REF(VAR15,1)-1)*100,NODRAW,COLORFF66CC{XG51};
金融:(VAR2/REF(VAR2,1)-1)*100,NODRAW,COLOR00FFFF{XG51};
地产:(VAR6/REF(VAR6,1)-1)*100,NODRAW,COLORAAAAFF{XG51};
石化:(VAR9/REF(VAR9,1)-1)*100,NODRAW,COLORFF99BB{XG51};
金属:(VAR13/REF(VAR13,1)-1)*100,NODRAW,COLORFFFF66{XG51};
医药:(VAR1/REF(VAR1,1)-1)*100,NODRAW,COLOR0033FF{XG51};
机械:(VAR5/REF(VAR5,1)-1)*100,NODRAW,COLORFFCC00{XG51};
电子:(VAR8/REF(VAR8,1)-1)*100,NODRAW,COLOR00BBFF{XG51};
制造:(VAR10/REF(VAR10,1)-1)*100,NODRAW,COLORCCCCCC{XG51};
农林:(VAR7/REF(VAR7,1)-1)*100,NODRAW,COLOR33FF66{XG51};
运输:(VAR11/REF(VAR11,1)-1)*100,NODRAW,COLORFFFFFF{XG51};
纺织:(VAR3/REF(VAR3,1)-1)*100,NODRAW,COLORCC66FF{XG51};
建筑:(VAR4/REF(VAR4,1)-1)*100,NODRAW,COLOR009999{XG51};
食品:(VAR12/REF(VAR12,1)-1)*100,NODRAW,COLOR6666FF{XG51};
P1:=IF(BArslAst(CURRBARSCOUNT=1),1,0){XG51};
P2:=IF(BARSLAST(CURRBARSCOUNT=5),1,0){XG51};
P3:=IF(BARSLAST(CURRBARSCOUNT=10),1,0){XG51};
P4:=IF(BARSLAST(CURRBARSCOUNT=15),1,0){XG51};
P5:=IF(BARSLAST(CURRBARSCOUNT=20),1,0){XG51};
P6:=IF(BARSLAST(CURRBARSCOUNT=25),1,0){XG51};
P7:=IF(BARSLAST(CURRBARSCOUNT=30),1,0){XG51};
P8:=IF(BARSLAST(CURRBARSCOUNT=35),1,0){XG51};
P9:=IF(BARSLAST(CURRBARSCOUNT=40),1,0){XG51};
P10:=IF(BARSLAST(CURRBARSCOUNT=45),1,0){XG51};
P11:=IF(BARSLAST(CURRBARSCOUNT=50),1,0){XG51};
P12:=IF(BARSLAST(CURRBARSCOUNT=55),1,0){XG51};
P13:=IF(BARSLAST(CURRBARSCOUNT=60),1,0){XG51};
P14:=IF(BARSLAST(CURRBARSCOUNT=65),1,0){XG51};
P15:=IF(BARSLAST(CURRBARSCOUNT=70),1,0){XG51};
P16:=IF(BARSLAST(CURRBARSCOUNT=75),1,0){XG51};
食品0:IF(1=1,IF(P2-P1,CONST(食品),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLOR6666FF{XG51};
建筑0:IF(1=1,IF(P3-P2,CONST(建筑),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLOR009999{XG51};
纺织0:IF(1=1,IF(P4-P3,CONST(纺织),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLORCC66FF{XG51};
运输0:IF(1=1,IF(P5-P4,CONST(运输),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLORFFFFFF{XG51};
农林0:IF(1=1,IF(P6-P5,CONST(农林),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLOR33FF66{XG51};
制造0:IF(1=1,IF(P7-P6,CONST(制造),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLORCCCCCC{XG51};
电子0:IF(1=1,IF(P8-P7,CONST(电子),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLOR00BBFF{XG51};
机械0:IF(1=1,IF(P9-P8,CONST(机械),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLORFFCC00{XG51};
医药0:IF(1=1,IF(P10-P9,CONST(医药),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLOR0033FF{XG51};
金属0:IF(1=1,IF(P11-P10,CONST(金属),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLORFFFF66{XG51};
石化0:IF(1=1,IF(P12-P11,CONST(石化),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLORFF9988{XG51};
地产0:IF(1=1,IF(P13-P12,CONST(地产),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLORAAAAFF{XG51};
金融0:IF(1=1,IF(P14-P13,CONST(金融),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLOR00FFFF{XG51};
服务0:IF(1=1,IF(P15-P14,CONST(服务),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLORFF66CC{XG51};
水电0:IF(1=1,IF(P16-P15,CONST(水电),DRAWNULL),DRAWNULL),STICK,LINETHICK6,
COLORFFFF00{XG51};
DRAWTEXT(P2-P1,0,'食品'),COLOR6666FF{XG51};
DRAWTEXT(P3-P2,0,'建筑'),COLOR009999{XG51};
DRAWTEXT(P4-P3,0,'纺织'),COLORCC66FF{XG51};
DRAWTEXT(P5-P4,0,'运输'),COLORFFFFFF{XG51};
DRAWTEXT(P6-P5,0,'农林'),COLOR33FF66{XG51};
DRAWTEXT(P7-P6,0,'制造'),COLORCCCCCC{XG51};
DRAWTEXT(P8-P7,0,'电子'),COLOR00BBFF{XG51};
DRAWTEXT(P9-P8,0,'机械'),COLORFFCC00{XG51};
DRAWTEXT(P10-P9,0,'医药'),COLOR0033FF{XG51};
DRAWTEXT(P11-P10,0,'金属'),COLORFFFF66{XG51};
DRAWTEXT(P12-P11,0,'石化'),COLORFF99BB{XG51};
DRAWTEXT(P13-P12,0,'地产'),COLORAAAAFF{XG51};
DRAWTEXT(P14-P13,0,'金融'),COLOR00FFFF{XG51};
DRAWTEXT(P15-P14,0,'服务'),COLORFF66CC{XG51};
DRAWTEXT(P16-P15,0,'水电'),COLORFFFF00{X*G=5~1*C*N*{};