修改后的热点板块指标公式

阅读作者：股海网时间 2009-08-29 飞狐公式

我发修改后的飞狐和通达信的热点板块,增加了采掘,颜色反差大,背景干净,请教各位:我不明白原作者为什么选用深市指数而不用上证指数采样

C/C++ Code复制内容到剪贴板

DRAWGBK((DATE > 0),COLORRGB(0,33,0),COLORRGB(0,33,0),1);
-2,COLOR000000;
VAR1:=("399139$CLOSE"); VAR2:=("399190$CLOSE"); VAR3:=("399132$CLOSE"); VAR4:=("399150$CLOSE");
VAR5:=("399138$CLOSE"); VAR6:=("399200$CLOSE"); VAR7:=("399110$CLOSE"); VAR8:=("399136$CLOSE");
VAR9:=("399135$CLOSE"); VAR10:=("399130$CLOSE"); VAR11:=("399160$CLOSE"); VAR12:=("1a0001$CLOSE");
VAR13:=("399137$CLOSE");VAR14:=("399120$CLOSE");
医药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;
采掘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);
MAX12:=MAX(采掘1,MAX10);
上证:上证1,COLORRED;
医药:IF(医药1>上证 AND 医药1>0,医药1,0),COLORYELLOW,LINETHICK;
金融:IF(金融1>上证 AND 金融1>0,金融1,0),Color0000FF,LINETHICK;
纺织:IF(纺织1>上证 AND 纺织1>0,纺织1,0),ColorFF9A35,LINETHICK;
建筑:IF(建筑1>上证 AND 建筑1>0,建筑1,0),COLORWHITE,LINETHICK;
机械:IF(机械1>上证 AND 机械1>0,机械1,0),Color4080FF,LINETHICK;
地产:IF(地产1>上证 AND 地产1>0,地产1,0),COLORGREEN,LINETHICK;
农林:IF(农林1>上证 AND 农林1>0,农林1,0),COLORCYAN,LINETHICK;
电子:IF(电子1>上证 AND 电子1>0,电子1,0),Color8080FF,LINETHICK;
石化:IF(石化1>上证 AND 石化1>0,石化1,0),COLORMAGENTA,LINETHICK;
制造:IF(制造1>上证 AND 制造1>0,制造1,0),ColorC0C0C0,LINETHICK;
运输:IF(运输1>上证 AND 运输1>0,运输1,0),Color869148,LINETHICK;
金属:IF(金属1>上证 AND 金属1>0,金属1,0),COLOR66ccff,LINETHICK;
采掘:IF(采掘1>上证 AND 采掘1>0,采掘1,0),ColorFF68B4,LINETHICK;
STICKLINE(医药1=MAX11 AND 医药1>0,0,医药1,5,0),COLORYELLOW;
DRAWTEXT(医药1=MAX11 AND 医药1>0,-0.3,'医\n药'),COLORYELLOW,ALIGN0;
STICKLINE(金融1=MAX11 AND 金融1>0,0,金融1,5,0),Color0000FF;
DRAWTEXT(金融1=MAX11 AND 金融1>0,-0.3,'金\n融'),Color0000FF,ALIGN0;
STICKLINE(纺织1=MAX11 AND 纺织1>0,0,纺织1,5,0),ColorFF9A35;
DRAWTEXT(纺织1=MAX11 AND 纺织1>0,-0.3,'纺\n织'),ColorFF9A35,ALIGN0;
STICKLINE(机械1=MAX11 AND 机械1>0,0,机械1,5,0),Color4080FF;
DRAWTEXT(机械1=MAX11 AND 机械1>0,-0.3,'机\n械'),Color4080FF,ALIGN0;
STICKLINE(建筑1=MAX11 AND 建筑1>0,0,建筑1,5,0),COLORWHITE;
DRAWTEXT(建筑1=MAX11 AND 建筑1>0,-0.3,'建\n筑'),COLORWHITE,ALIGN0;
STICKLINE(地产1=MAX11 AND 地产1>0,0,地产1,5,0),COLORGREEN;
DRAWTEXT(地产1=MAX11 AND 地产1>0,-0.3,'地\n产'),COLORGREEN,ALIGN0;
STICKLINE(农林1=MAX11 AND 农林1>0,0,农林1,5,0),COLORCYAN;
DRAWTEXT(农林1=MAX11 AND 农林1>0,-0.3,'农\n林'),COLORCYAN,ALIGN0;
STICKLINE(电子1=MAX11 AND 电子1>0,0,电子1,5,0),Color8080FF;
DRAWTEXT(电子1=MAX11 AND 电子1>0,-0.3,'电\n子'),Color8080FF,ALIGN0;
STICKLINE(石化1=MAX11 AND 石化1>0,0,石化1,5,0),COLORMAGENTA;
DRAWTEXT(石化1=MAX11 AND 石化1>0,-0.3,'石\n化'),COLORMAGENTA,ALIGN0;
STICKLINE(制造1=MAX11 AND 制造1>0,0,制造1,5,0),ColorC0C0C0;
DRAWTEXT(制造1=MAX11 AND 制造1>0,-0.3,'制\n造'),ColorC0C0C0,ALIGN0;
STICKLINE(运输1=MAX11 AND 运输1>0,0,运输1,5,0),Color869148;
DRAWTEXT(运输1=MAX11 AND 运输1>0,-0.3,'运\n输'),Color869148,ALIGN0;
STICKLINE(金属1=MAX11 AND 金属1>0,0,金属1,5,0),COLOR48D2C0;
DRAWTEXT(金属1=MAX11 AND 金属1>0,-0.3,'金\n属'),COLOR48D2C0,ALIGN0;
STICKLINE(采掘1=MAX11 AND 采掘1>0,0,采掘1,5,0),ColorFF68B4;
DRAWTEXT(采掘1=MAX11 AND 采掘1>0,-0.3,'采\n掘'),ColorFF68B4,ALIGN0;