- 精华
- 0
- 在线时间
- 40 小时
- UID
- 140858
- 积分
- 43
- 帖子
- 29
- 阅读权限
- 10
- 注册时间
- 2013-7-1
- 最后登录
- 2017-1-31
- 精华
- 0
- UID
- 140858
- 积分
- 43
- 帖子
- 29
- 主题
- 12
- 阅读权限
- 10
- 注册时间
- 2013-7-1
- 最后登录
- 2017-1-31
|
本帖最后由 jrqh116098 于 2015-9-20 22:02 编辑
//------------------------------------------------------------------------
// 简称: ATest
// 名称: ATest
// 类别: 公式应用
// 类型: 用户应用
// 输出:
//------------------------------------------------------------------------
Params
Numeric Length(10);
Vars
NumericSeries F88(5);
NumericSeries F90(10);
Numeric F0;
Numeric V4;
Numeric V8;
Numeric VC;
Numeric V10;
Numeric V14;
Numeric V18;
Numeric V20;
NumericSeries F8;
Numeric F10;
Numeric F18;
Numeric F20;
Numeric F28;
Numeric F30;
Numeric F38;
Numeric F48;
Numeric V1C;
Numeric F50;
Numeric F58;
Numeric F60;
Numeric F68;
Numeric F70;
Numeric F78;
Numeric F80;
Numeric F40;
Begin
If(F90==0)
{
F90=1;
F0=0;
If(Length-1>=5)
{
F88=Length-1;
}
Else
{
F88=5;
}
F8=100*(High+Low+Close)/3;
F18=3/(Length+2);
F20=1-F18;
}
Else
{
If(F88<=F90)
{
F90=F88+1;
}
Else
{
F90=F90+1;
}
F10=F8;
F8=100*(High+Low+Close)/3;
V8=F8-F10;
F28=F20*F28+F18*V8;
F30=F18*F28+F20*F30;
VC=F28*1.5-F30*0.5;
F38=F20*F38+F18*VC;
F40=F18*F38+F20*F40;
V10=F38*1.5-F40*0.5;
F48=F20*F48+F18*V10;
F50=F18*F48+F20*F50;
V14=F48*1.5-F50*0.5;
F58=F20*F58+F18*Abs(V8);
F60=F18*F58+F20*F60;
V18=F58*1.5-F60*0.5;
F68=F20*F68+F18*V18;
F70=F18*F68+F20*F70;
V1C=F68*1.5-F70*0.5;
F78=F20*F78+F18*V1C;
F80=F18*F78+F20*F80;
V20=F78*1.5-F80*0.5;
If(F88>=F90 && F8<>F10)
{
F0=1;
}
If(F88==F90 && F0==0)
{
F90=0;
}
}
If(F88<F90 && V20>0)
{
V4=(V14/V20+1)*50;
If(V4>100)
{
V4=100;
}
If(V4<0)
{
V4=0;
}
}
Else
{
v4=50;
}
PlotNumeric("V4",V4);
End
//------------------------------------------------------------------------
// 编译版本 GS2010.12.08
// 用户版本 2015-09-19 19:31:28
// 版权所有 jrqh116098
// 更改声明 TradeBlazer Software保留对TradeBlazer平台
// 每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------ |
|