修改后的热点板块指标公式
-
相关简介:我发修改后的飞狐和通达信的热点板块,增加了采掘,颜色反差大,背景干净,请教各位:我不明白原作者为什么选用深市指数而不用上证指数采样 C/C++ Code 复制内容到剪贴板 DRAWGBK((DATE0),COLORRGB(0,33,0),COLORRGB(0,33,0),1); -2,COLOR000000; VAR1:=( 399139$CLOSE );VAR2:=( 399190$CLOSE );VAR3:=( 399132$CLOSE );VAR4:=( 399150$C
-
文章来源:择股网作者:股海网发布时间: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;
下载链接:( 说明:股海资源如需解压密码的请输入本站域名:www.guhai.com.cn请仔细输入!)
|
上一篇:李君壮分时系统(主图,通用源码)
下一篇:雨过天晴(选股公式)