软件名称：[B]高山老师的GSCD改了一下一主一副方便看图[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：10.0 KB
官方主页：Home Page
更新时间：2011-04-14 05:41:11
软件简介:
{GSCD主图}
{用法:该高山--GSCD指标为趋势指标，不存在类似MACD的各项背离；
该指标与股价的运动呈镜像的一一对应关系，可以直接看趋势}
M:=10000;
N1:=2;
B:=5;
JZX:=EMA(C,M);{JZX为零轴基准线}
X00:=C;
X01:=0.7522406533*X00+0.3609454219*REF(X00,1)-0.03309329629*REF(X00,2)-
0.04241822779*REF(X00,3)-0.026737249*REF(X00,4)-0.007010041271*REF(X00,5)-
0.002652859952*REF(X00,6)-0.0008415042966*REF(X00,7)-0.0002891931964*REF
(X00,8)-0.0000956265934*REF(X00,9)-0.0000321286052*REF(X00,10)-
0.0000106773454*REF(X00,11)-0.0000035457562*REF(X00,12)-0.0000011670713*REF
(X00,13);
X02:=0.7522406533*X01+0.3609454219*REF(X01,1)-0.03309329629*REF(X01,2)-
0.04241822779*REF(X01,3)-0.026737249*REF(X01,4)-0.007010041271*REF(X01,5)-
0.002652859952*REF(X01,6)-0.0008415042966*REF(X01,7)-0.0002891931964*REF
(X01,8)-0.0000956265934*REF(X01,9)-0.0000321286052*REF(X01,10)-
0.0000106773454*REF(X01,11)-0.0000035457562*REF(X01,12)-0.0000011670713*REF
(X01,13);
X03:=0.7522406533*X02+0.3609454219*REF(X02,1)-0.03309329629*REF(X02,2)-
0.04241822779*REF(X02,3)-0.026737249*REF(X02,4)-0.007010041271*REF(X02,5)-
0.002652859952*REF(X02,6)-0.0008415042966*REF(X02,7)-0.0002891931964*REF
(X02,8)-0.0000956265934*REF(X02,9)-0.0000321286052*REF(X02,10)-
0.0000106773454*REF(X02,11)-0.0000035457562*REF(X02,12)-0.0000011670713*REF
(X02,13);
AA:=((EMA((((EMA(X01,22)+EMA(X01,23))+EMA(X01,24))/3),2))+(EMA((((EMA
(X01,24)+EMA(X01,25))+EMA(X01,26))/3),2))+(EMA((((EMA(X01,26)+EMA(X01,27))
+EMA(X01,28))/3),2))+(EMA((((EMA(X01,28)+EMA(X01,29))+EMA(X01,30))/3),2))+
(EMA((((EMA(X01,30)+EMA(X01,31))+EMA(X01,32))/3),2))+(EMA((((EMA(X01,32)+EMA
(X01,33))+EMA(X01,34))/3),2)))/6,COLORGREEN;
BB1:=(X01*5+X02*3+X03*1)/9;
CC1:=EMA(EMA(EMA(C,N1),N1),N1);
DIF1:=(BB1-JZX)/JZX;
DEA11:=(CC1-JZX)/JZX;
DEA21:=(AA-JZX)/JZX;
{以下为1分钟周期：}
A_DIF:=POW((DIF1+1),55)*1000;
A_DEA1:=POW((DEA11+1),55)*1000;
A_DEA2:=POW((DEA21+1),55)*1000;
{以下为5分钟周期：}
B_DIF:=POW((DIF1+1),29)*1000;
B_DEA1:=POW((DEA11+1),29)*1000;
B_DEA2:=POW((DEA21+1),29)*1000;
{以下为15分钟周期：}
D_DIF:=POW((DIF1+1),17)*1000;
D_DEA1:=POW((DEA11+1),17)*1000;
D_DEA2:=POW((DEA21+1),17)*1000;
{以下为30分钟周期：}
E_DIF:=POW((DIF1+1),9)*1000;
E_DEA1:=POW((DEA11+1),9)*1000;
E_DEA2:=POW((DEA21+1),9)*1000;
{以下为60分钟周期：}
F_DIF:=POW((DIF1+1),5)*1000;
F_DEA1:=POW((DEA11+1),5)*1000;
F_DEA2:=POW((DEA21+1),5)*1000;
{以下为日周期：}
G_DIF:=POW((DIF1+1),3)*1000;
G_DEA1:=POW((DEA11+1),3)*1000;
G_DEA2:=POW((DEA21+1),3)*1000;
{以下为周周期：}
H_DIF:=POW((DIF1+1),1)*600;
H_DEA1:=POW((DEA11+1),1)*600;
H_DEA2:=POW((DEA21+1),1)*600;
{以下为月周期：}
I_DIF:=POW((DIF1+1),1)*300;
I_DEA1:=POW((DEA11+1),1)*300;
I_DEA2:=POW((DEA21+1),1)*300;
DIF:=IFF(PERIOD=0,A_DIF,IFF(PERIOD=1,B_DIF,IFF(PERIOD=2,D_DIF,IFF
(PERIOD=3,E_DIF,IFF(PERIOD=4,F_DIF,IFF(PERIOD=5,G_DIF,IFF(PERIOD=6,H_DIF,IFF(PERIOD=7,I_DIF,DRAWNULL
)))))))),COLORRED, LINETHICK1;
DEA1:=IFF(PERIOD=0,A_DEA1,IFF(PERIOD=1,B_DEA1,IFF(PERIOD=2,D_DEA1,IFF
(PERIOD=3,E_DEA1,IFF(PERIOD=4,F_DEA1,IFF(PERIOD=5,G_DEA1,IFF(PERIOD=6,H_DEA1,IFF(PERIOD=7,I_DEA1,DRAWNULL
)))))))),COLORWHITE, LINETHICK1;
DEA2:=IFF(PERIOD=0,A_DEA2,IFF(PERIOD=1,B_DEA2,IFF(PERIOD=2,D_DEA2,IFF
(PERIOD=3,E_DEA2,IFF(PERIOD=4,F_DEA2,IFF(PERIOD=5,G_DEA2,IFF(PERIOD=6,H_DEA2,IFF(PERIOD=7,I_DEA2,DRAWNULL
)))))))),COLORGREEN, LINETHICK1;
{这是我瞎改的地方}
Y1:BB1,COLORRED, LINETHICK2;
Y2:CC1,COLORWHITE, LINETHICK1;
Y3:AA,COLORGREEN, LINETHICK1;
DIF0:=(EMA(EMA(EMA(C,N1),N1),N1)-EMA(C,M))/EMA(C,M);
GSCD0:=POW((DIF0-DEA21),1)*B*1000;
GSCD00:=GSCD0;
{以下为1分钟周期：}
A_GSCD:=POW((DIF0-DEA21),1)*B*21000;
A_GSCD1:=A_GSCD;
{以下为5分钟周期：}
B_GSCD:=POW((DIF0-DEA21),1)*B*13000;
B_GSCD1:=B_GSCD;
{以下为15分钟周期：}
D_GSCD:=POW((DIF0-DEA21),1)*B*8000;
D_GSCD1:=D_GSCD;
{以下为30分钟周期：}
E_GSCD:=POW((DIF0-DEA21),1)*B*5000;
E_GSCD1:=E_GSCD;
{以下为60分钟周期：}
F_GSCD:=POW((DIF0-DEA21),1)*B*3000;
F_GSCD1:=F_GSCD;
{以下为日周期：}
G_GSCD:=POW((DIF0-DEA21),1)*B*1000;
G_GSCD1:=G_GSCD;
{以下为周周期：}
H_GSCD:=POW((DIF0-DEA21),1)*B*300;
H_GSCD1:=H_GSCD;
{以下为月周期：}
I_GSCD:=POW((DIF0-DEA21),1)*B*60;
I_GSCD1:=I_GSCD;
GSCD:=IFF(PERIOD=0,A_GSCD,IFF(PERIOD=1,B_GSCD,IFF(PERIOD=2,D_GSCD,IFF
(PERIOD=3,E_GSCD,IFF(PERIOD=4,F_GSCD,IFF(PERIOD=5,G_GSCD,IFF(PERIOD=6,H_GSCD,IFF(PERIOD=7,I_GSCD,DRAWNULL
)))))))),COLORSTICK;
GSCD1:=IFF(PERIOD=0,A_GSCD1,IFF(PERIOD=1,B_GSCD1,IFF(PERIOD=2,D_GSCD1,IFF
(PERIOD=3,E_GSCD1,IFF(PERIOD=4,F_GSCD1,IFF(PERIOD=5,G_GSCD1,IFF(PERIOD=6,H_GSCD1,IFF(PERIOD=7,I_GSCD1,DRAWNULL
)))))))),COLORWHITE;
{GSCD副图}
{用法:该高山--GSCD指标为趋势指标，不存在类似MACD的各项背离；
该指标与股价的运动呈镜像的一一对应关系，可以直接看趋势}
M:=10000;
N1:=2;
B:=5;
JZX:=EMA(C,M);{JZX为零轴基准线}
X00:=C;
X01:=0.7522406533*X00+0.3609454219*REF(X00,1)-0.03309329629*REF(X00,2)-
0.04241822779*REF(X00,3)-0.026737249*REF(X00,4)-0.007010041271*REF(X00,5)-
0.002652859952*REF(X00,6)-0.0008415042966*REF(X00,7)-0.0002891931964*REF
(X00,8)-0.0000956265934*REF(X00,9)-0.0000321286052*REF(X00,10)-
0.0000106773454*REF(X00,11)-0.0000035457562*REF(X00,12)-0.0000011670713*REF
(X00,13);
X02:=0.7522406533*X01+0.3609454219*REF(X01,1)-0.03309329629*REF(X01,2)-
0.04241822779*REF(X01,3)-0.026737249*REF(X01,4)-0.007010041271*REF(X01,5)-
0.002652859952*REF(X01,6)-0.0008415042966*REF(X01,7)-0.0002891931964*REF
(X01,8)-0.0000956265934*REF(X01,9)-0.0000321286052*REF(X01,10)-
0.0000106773454*REF(X01,11)-0.0000035457562*REF(X01,12)-0.0000011670713*REF
(X01,13);
X03:=0.7522406533*X02+0.3609454219*REF(X02,1)-0.03309329629*REF(X02,2)-
0.04241822779*REF(X02,3)-0.026737249*REF(X02,4)-0.007010041271*REF(X02,5)-
0.002652859952*REF(X02,6)-0.0008415042966*REF(X02,7)-0.0002891931964*REF
(X02,8)-0.0000956265934*REF(X02,9)-0.0000321286052*REF(X02,10)-
0.0000106773454*REF(X02,11)-0.0000035457562*REF(X02,12)-0.0000011670713*REF
(X02,13);
AA:=((EMA((((EMA(X01,22)+EMA(X01,23))+EMA(X01,24))/3),2))+(EMA((((EMA
(X01,24)+EMA(X01,25))+EMA(X01,26))/3),2))+(EMA((((EMA(X01,26)+EMA(X01,27))
+EMA(X01,28))/3),2))+(EMA((((EMA(X01,28)+EMA(X01,29))+EMA(X01,30))/3),2))+
(EMA((((EMA(X01,30)+EMA(X01,31))+EMA(X01,32))/3),2))+(EMA((((EMA(X01,32)+EMA
(X01
[url=http://www.70822.com/soft/sort013/sort05/down-32670.html]高山老师的GSCD改了一下一主一副方便看图[/url]