封神榜两个版本一次发送这个通达信有封神榜

分析家公式网,提供指标公式,股票软件用户登录 |

首页 ┆ 软件中心 ┆ 备用域名gspt.com ┆ 公式教程 ┆ 软件分类

当前位置：分析家公式网 → 股票公式 → 通达信公式 → 一键转帖：封神榜两个版本一次发送这个通达信有封神榜

软件名称：[B]封神榜两个版本一次发送这个通达信有封神榜[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：22.0 KB
官方主页：Home Page
更新时间：2010-12-15 22:08:26
软件简介:

封神榜指标源码

看到有友友问哪个通达信有封神榜功能，我就冒充一回姜子牙吧
声明：版权归原作者所有，鄙人只是转载分享，感谢原作者的付出

封神榜指标源码

n 1 120 10
m 1 60 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");
医药:=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);
地产:=SUM((VAR6/REF(VAR6,1)-1)*100,0);
农林:=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),COLORRED;
金属:=SUM((VAR13/REF(VAR13,1)-1)*100,0);
VAR17:=CONST(MA(医药,N));
VAR18:=CONST(MA(金融,N));
VAR19:=CONST(MA(纺织,N));
VAR20:=CONST(MA(建筑,N));
VAR21:=CONST(MA(机械,N));
VAR22:=CONST(MA(地产,N));
VAR23:=CONST(MA(农林,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;
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(医药,VAR17,IF(P2-P1,CONST(医药),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(金融,VAR18,IF(P3-P2,CONST(金融),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(纺织,VAR19,IF(P4-P3,CONST(纺织),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(建筑,VAR20,IF(P5-P4,CONST(建筑),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(机械,VAR21,IF(P6-P5,CONST(机械),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(地产,VAR22,IF(P7-P6,CONST(地产),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(农林,VAR23,IF(P8-P7,CONST(农林),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(电子,VAR24,IF(P9-P8,CONST(电子),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(石化,VAR25,IF(P10-P9,CONST(石化),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(制造,VAR26,IF(P11-P10,CONST(制造),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(运输,VAR27,IF(P12-P11,CONST(运输),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(上证,VAR28,IF(P1-P14,CONST(上证),DRAWNULL),5,-1),COLORFF00FF;
STICKLINE(金属,VAR29,IF(P13-P12,CONST(金属),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(医药,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(地产,PQ,IF(P7-P6,VAR22,DRAWNULL),4,0),COLORRED;
STICKLINE(农林,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(P2-P1,CONST(MA(医药,M)),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(金融,PQ,IF(P3-P2,CONST(MA(金融,M)),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(纺织,PQ,IF(P4-P3,CONST(MA(纺织,M)),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(建筑,PQ,IF(P5-P4,CONST(MA(建筑,M)),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(机械,PQ,IF(P6-P5,CONST(MA(机械,M)),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(地产,PQ,IF(P7-P6,CONST(MA(地产,M)),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(农林,PQ,IF(P8-P7,CONST(MA(农林,M)),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(电子,PQ,IF(P9-P8,CONST(MA(电子,M)),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(石化,PQ,IF(P10-P9,CONST(MA(石化,M)),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(制造,PQ,IF(P11-P10,CONST(MA(制造,M)),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(运输,PQ,IF(P12-P11,CONST(MA(运输,M)),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(金属,PQ,IF(P13-P12,CONST(MA(金属,M)),DRAWNULL),0.8,0),COLORAAAAFF;
DRAWTEXT(P2-P1,PQ-2,'医药'),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,'地产'),COLORYELLOW;
DRAWTEXT(P8-P7,PQ-2,'农林'),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;

另一个老师的指标，本人觉得功能相似

{N 1 99 9; M1 1 99 3; M2 1 99 3;}
CURR:=CURRBARSCOUNT;
STICKLINE(1=1,15,-5,18,0),COLOR878787;
DRAWTEXT(CURR=73,13,'理想论坛壹瓣杺埖 '),COLOR8E0000;
上证量比:=CONST("999999$VOL"/REF(MA("999999$VOL",5),1)*10);
深证量比:=CONST("399001$VOL"/REF(MA("399001$VOL",5),1)*10);
量比:STICKLINE(1=1,IF(CURR=55,上证量比*1.05,IF(CURR=20,深证量比*1.05,DRAWNULL)),0,39,-1),COLOR00FFFF;
STICKLINE(1=1,IF(CURR=55,上证量比,IF(CURR=20,深证量比,DRAWNULL)),0,38,0),COLOR00BBBB;

大盘股量比:=CONST("399372$VOL"/REF(MA("399372$VOL",5),1)*10);
大盘C:=("399372$C"); 大盘H:=("399372$H"); 大盘L:=("399372$L"); 大盘O:=("399372$O");
大盘股涨跌:=CONST(((大盘C-REF(大盘C,1))/REF(大盘C,1))*200);
大盘偏差:=(2*大盘C+大盘H+大盘L+大盘O)/5-(MA(大盘C,3)+MA(大盘C,6)+MA(大盘C,12)+MA(大盘C,24))/4;
大盘R:=(大盘偏差-LLV(大盘偏差,N))/(HHV(大盘偏差,N)-LLV(大盘偏差,N))*10;
大盘K:=SMA(大盘R,M1,1); 大盘D:=SMA(大盘K,M2,1); 大盘股0:=3*大盘K-2*大盘D;
大盘股J:=CONST(大盘股0);
中盘股量比:=CONST("399374$VOL"/REF(MA("399374$VOL",5),1)*10);
中盘C:=("399374$C"); 中盘H:=("399374$H"); 中盘L:=("399374$L"); 中盘O:=("399374$O");
中盘股涨跌:=CONST(((中盘C-REF(中盘C,1))/REF(中盘C,1))*200);
中盘偏差:=(2*中盘C+中盘H+中盘L+中盘O)/5-(MA(中盘C,3)+MA(中盘C,6)+MA(中盘C,12)+MA(中盘C,24))/4;
中盘R:=(中盘偏差-LLV(中盘偏差,N))/(HHV(中盘偏差,N)-LLV(中盘偏差,N))*10;
中盘K:=SMA(中盘R,M1,1); 中盘D:=SMA(中盘K,M2,1); 中盘股0:=3*中盘K-2*中盘D;
中盘股J:=CONST(中盘股0);
小盘股量比:=CONST("399376$VOL"/REF(MA("399376$VOL",5),1)*10);
小盘C:=("399376$C"); 小盘H:=("399376$H"); 小盘L:=("399376$L"); 小盘O:=("399376$O");
小盘股涨跌:=CONST(((小盘C-REF(小盘C,1))/REF(小盘C,1))*200);
小盘偏差:=(2*小盘C+小盘H+小盘L+小盘O)/5-(MA(小盘C,3)+MA(小盘C,6)+MA(小盘C,12)+MA(
[url=http://www.70822.com/soft/sort013/sort05/down-28123.html]封神榜两个版本一次发送这个通达信有封神榜[/url]