软件名称：[B]昨日神碑[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：解密版
软件大小：7.00 KB
官方主页：Home Page
更新时间：2009-04-30 07:17:35
软件简介:
新增配套公式《昨日神碑》
★★★21日更新———宽柱为当日涨幅直接比较★★★
《昨日神碑》即昨天的《众仙过海》拄状图，与《众仙过海》配套使用。
两个指标用两个副图，盘中对比使用。对比中就会很快发现仔你需要的
东西，我就不说了。自巳去领会吧！下面重点淡两幅图和《众仙过海》
可此性问题。
1,两个指标因不同图，柱状高度不可比。因是同一数据源，指标拦中同
一指标数据大小可比。
2，因各指数的有效期可能不相同，《众仙过海》中指标线位置(高低)
不可比。因在同一坐标系，都是同一比例缩放的相对量(百分数)一
天增长量可比，短时期的增长幅度可比。在我发的两张图中电子指
数(第二条粗黄线)能发现什么吗？
{昨日神碑 参数 RN:1,100,10 参数 RM:1,30,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");
医药:=REF(SUM((VAR1/REF(VAR1,1)-1)*100,0)*10,1);
金融:=REF(SUM((VAR2/REF(VAR2,1)-1)*100,0)*10,1);
纺织:=REF(SUM((VAR3/REF(VAR3,1)-1)*100,0)*10,1);
建筑:=REF(SUM((VAR4/REF(VAR4,1)-1)*100,0)*10,1);
机械:=REF(SUM((VAR5/REF(VAR5,1)-1)*100,0)*10,1);
地产:=REF(SUM((VAR6/REF(VAR6,1)-1)*100,0)*10,1);
农林:=REF(SUM((VAR7/REF(VAR7,1)-1)*100,0)*10,1);
电子:=REF(SUM((VAR8/REF(VAR8,1)-1)*100,0)*10,1);
石化:=REF(SUM((VAR9/REF(VAR9,1)-1)*100,0)*10,1);
制造:=REF(SUM((VAR10/REF(VAR10,1)-1)*100,0)*10,1);
运输:=REF(SUM((VAR11/REF(VAR11,1)-1)*100,0)*10,1);
上证:=REF(SUM((VAR12/REF(VAR12,1)-1)*100,0)*10,1);
金属:=REF(SUM((VAR13/REF(VAR13,1)-1)*100,0)*10,1);
医药A:=SUM((VAR1/REF(VAR1,1)-1)*100,0)*10;
金融A:=SUM((VAR2/REF(VAR2,1)-1)*100,0)*10;
纺织A:=SUM((VAR3/REF(VAR3,1)-1)*100,0)*10;
建筑A:=SUM((VAR4/REF(VAR4,1)-1)*100,0)*10;
机械A:=SUM((VAR5/REF(VAR5,1)-1)*100,0)*10;
地产A:=SUM((VAR6/REF(VAR6,1)-1)*100,0)*10;
农林A:=SUM((VAR7/REF(VAR7,1)-1)*100,0)*10;
电子A:=SUM((VAR8/REF(VAR8,1)-1)*100,0)*10;
石化A:=SUM((VAR9/REF(VAR9,1)-1)*100,0)*10;
制造A:=SUM((VAR10/REF(VAR10,1)-1)*100,0)*10;
运输A:=SUM((VAR11/REF(VAR11,1)-1)*100,0)*10;
上证A:=SUM((VAR12/REF(VAR12,1)-1)*100,0)*10;
金属A:=SUM((VAR13/REF(VAR13,1)-1)*100,0)*10;
AVAR17:=CONST(MA(医药A,RN));
AVAR18:=CONST(MA(金融A,RN));
AVAR19:=CONST(MA(纺织A,RN));
AVAR20:=CONST(MA(建筑A,RN));
AVAR21:=CONST(MA(机械A,RN));
AVAR22:=CONST(MA(地产A,RN));
AVAR23:=CONST(MA(农林A,RN));
AVAR24:=CONST(MA(电子A,RN));
AVAR25:=CONST(MA(石化A,RN));
AVAR26:=CONST(MA(制造A,RN));
AVAR27:=CONST(MA(运输A,RN));
AVAR28:=CONST(MA(上证A,RN));
AVAR29:=CONST(MA(金属A,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));
P1:=IF(BARSLAST(CURRBARSCOUNT=4+1),1,0);
P2:=IF(BARSLAST(CURRBARSCOUNT=6+2),1,0);
P3:=IF(BARSLAST(CURRBARSCOUNT=8+3),1,0);
P4:=IF(BARSLAST(CURRBARSCOUNT=10+4),1,0);
P5:=IF(BARSLAST(CURRBARSCOUNT=12+5),1,0);
P6:=IF(BARSLAST(CURRBARSCOUNT=14+6),1,0);
P7:=IF(BARSLAST(CURRBARSCOUNT=16+7),1,0);
P8:=IF(BARSLAST(CURRBARSCOUNT=18+8),1,0);
P9:=IF(BARSLAST(CURRBARSCOUNT=20+9),1,0);
P10:=IF(BARSLAST(CURRBARSCOUNT=22+10),1,0);
P11:=IF(BARSLAST(CURRBARSCOUNT=24+11),1,0);
P12:=IF(BARSLAST(CURRBARSCOUNT=26+12),1,0);
P13:=IF(BARSLAST(CURRBARSCOUNT=28+13),1,0);
P14:=IF(BARSLAST(CURRBARSCOUNT=2),1,0);
医药B:=(CONST(医药A)-(AVAR17))-(CONST(医药)-(VAR17));
金融B:=(CONST(金融A)-(AVAR18))-(CONST(金融)-(VAR18));
纺织B:=(CONST(纺织A)-(AVAR19))-(CONST(纺织)-(VAR19));
建筑B:=(CONST(建筑A)-(AVAR20))-(CONST(建筑)-(VAR20));
机械B:=(CONST(机械A)-(AVAR21))-(CONST(机械)-(VAR21));
地产B:=(CONST(地产A)-(AVAR22))-(CONST(地产)-(VAR22));
农林B:=(CONST(农林A)-(AVAR23))-(CONST(农林)-(VAR23));
电子B:=(CONST(电子A)-(AVAR24))-(CONST(电子)-(VAR24));
石化B:=(CONST(石化A)-(AVAR25))-(CONST(石化)-(VAR25));
制造B:=(CONST(制造A)-(AVAR26))-(CONST(制造)-(VAR26));
运输B:=(CONST(运输A)-(AVAR27))-(CONST(运输)-(VAR27));
上证B:=(CONST(上证A)-(AVAR28))-(CONST(上证)-(VAR28));
金属B:=(CONST(金属A)-(AVAR29))-(CONST(金属)-(VAR29));
STICKLINE(医药,0,IF(P2-P1,CONST(医药B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(金融,0,IF(P3-P2,CONST(金融B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(纺织,0,IF(P4-P3,CONST(纺织B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(建筑,0,IF(P5-P4,CONST(建筑B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(机械,0,IF(P6-P5,CONST(机械B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(地产,0,IF(P7-P6,CONST(地产B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(农林,0,IF(P8-P7,CONST(农林B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(电子,0,IF(P9-P8,CONST(电子B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(石化,0,IF(P10-P9,CONST(石化B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(制造,0,IF(P11-P10,CONST(制造B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(运输,0,IF(P12-P11,CONST(运输B),DRAWNULL),10,0),COLORFF00FF;
{STICKLINE(上证,0,IF(P1-P14,CONST(上证B),DRAWNULL),10,0),COLORFF00FF;}
STICKLINE(金属,0,IF(P13-P12,CONST(金属B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(医药,0,IF(P2-P1,CONST(医药)-(VAR17),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(金融,0,IF(P3-P2,CONST(金融)-(VAR18),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(纺织,0,IF(P4-P3,CONST(纺织)-(VAR19),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(建筑,0,IF(P5-P4,CONST(建筑)-(VAR20),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(机械,0,IF(P6-P5,CONST(机械)-(VAR21),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(地产,0,IF(P7-P6,CONST(地产)-(VAR22),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(农林,0,IF(P8-P7,CONST(农林)-(VAR23),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(电子,0,IF(P9-P8,CONST(电子)-(VAR24),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(石化,0,IF(P10-P9,CONST(石化)-(VAR25),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(制造,0,IF(P11-P10,CONST(制造)-(VAR26),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(运输,0,IF(P12-P11,CONST(运输)-(VAR27),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(上证,0,IF(P1-P14,CONST(上证)-(VAR28),DRAWNULL),5,-1),COLORFF00FF;
STICKLINE(金属,0,IF(P13-P12,CONST(金属)-(VAR29),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(医药,0,IF(P2-P1,CONST(MA(医药,RM))-(VAR17),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(金融,0,IF(P3-P2,CONST(MA(金融,RM))-(VAR18),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(纺织,0,IF(P4-P3,CONST(MA(纺织,RM))-(VAR19),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(建筑,0,IF(P5-P4,CONST(MA(建筑,RM))-(VAR20),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(机械,0,IF(P6-P5,CONST(MA(机械,RM))-(VAR21),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(地产,0,IF(P7-P6,CONST(MA(地产,RM))-(VAR22),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(农林,0,IF(P8-P7,CONST(MA(农林,RM))-(VAR23),DRAWNULL),0.8,0),COLORAAAAFF;
《昨日神碑》即昨天的《众仙过海》拄状图，与《众仙过海》配套使用。
两个指标用两个副图，盘中对比使用。对比中就会很快发现仔你需要的
东西，我就不说了。自巳去领会吧！下面重点淡两幅图和《众仙过海》
可此性问题。
1,两个指标因不同图，柱状高度不可比。因是同一数据源，指标拦中同
一指标数据大小可比。
2，因各指数的有效期可能不相同，《众仙过海》中指标线位置(高低)
不可比。因在同一坐标系，都是同一比例缩放的相对量(百分数)一
天增长量可比，短时期的增长幅度可比。在我发的两张图中电子指
数(第二条粗黄线)能发现什么吗？
{昨日神碑 参数 RN:1,100,10 参数 RM:1,30,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");
医药:=REF(SUM((VAR1/REF(VAR1,1)-1)*100,0)*10,1);
金融:=REF(SUM((VAR2/REF(VAR2,1)-1)*100,0)*10,1);
纺织:=REF(SUM((VAR3/REF(VAR3,1)-1)*100,0)*10,1);
建筑:=REF(SUM((VAR4/REF(VAR4,1)-1)*100,0)*10,1);
机械:=REF(SUM((VAR5/REF(VAR5,1)-1)*100,0)*10,1);
地产:=REF(SUM((VAR6/REF(VAR6,1)-1)*100,0)*10,1);
农林:=REF(SUM((VAR7/REF(VAR7,1)-1)*100,0)*10,1);
电子:=REF(SUM((VAR8/REF(VAR8,1)-1)*100,0)*10,1);
石化:=REF(SUM((VAR9/REF(VAR9,1)-1)*100,0)*10,1);
制造:=REF(SUM((VAR10/REF(VAR10,1)-1)*100,0)*10,1);
运输:=REF(SUM((VAR11/REF(VAR11,1)-1)*100,0)*10,1);
上证:=REF(SUM((VAR12/REF(VAR12,1)-1)*100,0)*10,1);
金属:=REF(SUM((VAR13/REF(VAR13,1)-1)*100,0)*10,1);
医药A:=SUM((VAR1/REF(VAR1,1)-1)*100,0)*10;
金融A:=SUM((VAR2/REF(VAR2,1)-1)*100,0)*10;
纺织A:=SUM((VAR3/REF(VAR3,1)-1)*100,0)*10;
建筑A:=SUM((VAR4/REF(VAR4,1)-1)*100,0)*10;
机械A:=SUM((VAR5/REF(VAR5,1)-1)*100,0)*10;
地产A:=SUM((VAR6/REF(VAR6,1)-1)*100,0)*10;
农林A:=SUM((VAR7/REF(VAR7,1)-1)*100,0)*10;
电子A:=SUM((VAR8/REF(VAR8,1)-1)*100,0)*10;
石化A:=SUM((VAR9/REF(VAR9,1)-1)*100,0)*10;
制造A:=SUM((VAR10/REF(VAR10,1)-1)*100,0)*10;
运输A:=SUM((VAR11/REF(VAR11,1)-1)*100,0)*10;
上证A:=SUM((VAR12/REF(VAR12,1)-1)*100,0)*10;
金属A:=SUM((VAR13/REF(VAR13,1)-1)*100,0)*10;
AVAR17:=CONST(MA(医药A,RN));
AVAR18:=CONST(MA(金融A,RN));
AVAR19:=CONST(MA(纺织A,RN));
AVAR20:=CONST(MA(建筑A,RN));
AVAR21:=CONST(MA(机械A,RN));
AVAR22:=CONST(MA(地产A,RN));
AVAR23:=CONST(MA(农林A,RN));
AVAR24:=CONST(MA(电子A,RN));
AVAR25:=CONST(MA(石化A,RN));
AVAR26:=CONST(MA(制造A,RN));
AVAR27:=CONST(MA(运输A,RN));
AVAR28:=CONST(MA(上证A,RN));
AVAR29:=CONST(MA(金属A,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));
P1:=IF(BARSLAST(CURRBARSCOUNT=4+1),1,0);
P2:=IF(BARSLAST(CURRBARSCOUNT=6+2),1,0);
P3:=IF(BARSLAST(CURRBARSCOUNT=8+3),1,0);
P4:=IF(BARSLAST(CURRBARSCOUNT=10+4),1,0);
P5:=IF(BARSLAST(CURRBARSCOUNT=12+5),1,0);
P6:=IF(BARSLAST(CURRBARSCOUNT=14+6),1,0);
P7:=IF(BARSLAST(CURRBARSCOUNT=16+7),1,0);
P8:=IF(BARSLAST(CURRBARSCOUNT=18+8),1,0);
P9:=IF(BARSLAST(CURRBARSCOUNT=20+9),1,0);
P10:=IF(BARSLAST(CURRBARSCOUNT=22+10),1,0);
P11:=IF(BARSLAST(CURRBARSCOUNT=24+11),1,0);
P12:=IF(BARSLAST(CURRBARSCOUNT=26+12),1,0);
P13:=IF(BARSLAST(CURRBARSCOUNT=28+13),1,0);
P14:=IF(BARSLAST(CURRBARSCOUNT=2),1,0);
医药B:=(CONST(医药A)-(AVAR17))-(CONST(医药)-(VAR17));
金融B:=(CONST(金融A)-(AVAR18))-(CONST(金融)-(VAR18));
纺织B:=(CONST(纺织A)-(AVAR19))-(CONST(纺织)-(VAR19));
建筑B:=(CONST(建筑A)-(AVAR20))-(CONST(建筑)-(VAR20));
机械B:=(CONST(机械A)-(AVAR21))-(CONST(机械)-(VAR21));
地产B:=(CONST(地产A)-(AVAR22))-(CONST(地产)-(VAR22));
农林B:=(CONST(农林A)-(AVAR23))-(CONST(农林)-(VAR23));
电子B:=(CONST(电子A)-(AVAR24))-(CONST(电子)-(VAR24));
石化B:=(CONST(石化A)-(AVAR25))-(CONST(石化)-(VAR25));
制造B:=(CONST(制造A)-(AVAR26))-(CONST(制造)-(VAR26));
运输B:=(CONST(运输A)-(AVAR27))-(CONST(运输)-(VAR27));
上证B:=(CONST(上证A)-(AVAR28))-(CONST(上证)-(VAR28));
金属B:=(CONST(金属A)-(AVAR29))-(CONST(金属)-(VAR29));
STICKLINE(医药,0,IF(P2-P1,CONST(医药B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(金融,0,IF(P3-P2,CONST(金融B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(纺织,0,IF(P4-P3,CONST(纺织B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(建筑,0,IF(P5-P4,CONST(建筑B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(机械,0,IF(P6-P5,CONST(机械B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(地产,0,IF(P7-P6,CONST(地产B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(农林,0,IF(P8-P7,CONST(农林B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(电子,0,IF(P9-P8,CONST(电子B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(石化,0,IF(P10-P9,CONST(石化B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(制造,0,IF(P11-P10,CONST(制造B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(运输,0,IF(P12-P11,CONST(运输B),DRAWNULL),10,0),COLORFF00FF;
{STICKLINE(上证,0,IF(P1-P14,CONST(上证B),DRAWNULL),10,0),COLORFF00FF;}
STICKLINE(金属,0,IF(P13-P12,CONST(金属B),DRAWNULL),10,0),COLORFF00FF;
STICKLINE(医药,0,IF(P2-P1,CONST(医药)-(VAR17),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(金融,0,IF(P3-P2,CONST(金融)-(VAR18),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(纺织,0,IF(P4-P3,CONST(纺织)-(VAR19),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(建筑,0,IF(P5-P4,CONST(建筑)-(VAR20),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(机械,0,IF(P6-P5,CONST(机械)-(VAR21),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(地产,0,IF(P7-P6,CONST(地产)-(VAR22),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(农林,0,IF(P8-P7,CONST(农林)-(VAR23),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(电子,0,IF(P9-P8,CONST(电子)-(VAR24),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(石化,0,IF(P10-P9,CONST(石化)-(VAR25),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(制造,0,IF(P11-P10,CONST(制造)-(VAR26),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(运输,0,IF(P12-P11,CONST(运输)-(VAR27),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(上证,0,IF(P1-P14,CONST(上证)-(VAR28),DRAWNULL),5,-1),COLORFF00FF;
STICKLINE(金属,0,IF(P13-P12,CONST(金属)-(VAR29),DRAWNULL),5,-2),COLORFF00FF;
STICKLINE(医药,0,IF(P2-P1,CONST(MA(医药,RM))-(VAR17),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(金融,0,IF(P3-P2,CONST(MA(金融,RM))-(VAR18),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(纺织,0,IF(P4-P3,CONST(MA(纺织,RM))-(VAR19),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(建筑,0,IF(P5-P4,CONST(MA(建筑,RM))-(VAR20),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(机械,0,IF(P6-P5,CONST(MA(机械,RM))-(VAR21),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(地产,0,IF(P7-P6,CONST(MA(地产,RM))-(VAR22),DRAWNULL),0.8,0),COLORAAAAFF;
STICKLINE(农林,0,IF(P8-P7,CONST(MA(农林,RM))-(VAR23),DRAWNULL),0.8,0),COLORAAAAFF;