- 精华
- 0
- 在线时间
- 44 小时
- UID
- 4816
- 积分
- 166
- 帖子
- 26
- 阅读权限
- 40
- 注册时间
- 2009-7-7
- 最后登录
- 2019-3-24
- 精华
- 0
- UID
- 4816
- 积分
- 166
- 帖子
- 26
- 主题
- 8
- 阅读权限
- 40
- 注册时间
- 2009-7-7
- 最后登录
- 2019-3-24
|
//------------------------------------------------------------------------
// 简称: Extremes_mine
// 名称: 我的求极值函数
// 类别: 用户函数
// 类型: 用户函数
// 输出: 数值型
//------------------------------------------------------------------------
Params
NumericSeries Price(0);
Numeric Length(10);
Bool bMax(true);
NumericRef Extremebar;
Vars
Numeric Myval(0);
Numeric Mybar(0);
Numeric i(1);
Begin
If(CurrentBar < length - 1)
{ Myval = InvalidNumeric;
Mybar = InvalidNumeric;
}
Else
{ For i = 0 To Length - 1
If(bMax)
{ If(Price > Myval )
Myval = Price;
Mybar = i;
}
Else
{ If(Price < Myval )
Myval = Price[1];
Mybar = i;
}
}
Extremebar = Mybar;
Return Myval;
End
//------------------------------------------------------------------------
// 编译版本 GS2004.06.12
// 用户版本 2009/09/01 23:12
// 版权所有 larsir
// 更改声明 TradeBlazer Software保留对TradeBlazer平台
// 每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------
//------------------------------------------------------------------------
// 简称: Extremes_mine
// 名称: 我的求极值函数指标
// 类别: 技术指标
// 类型: 其它类
// 输出:
//------------------------------------------------------------------------
Params
Numeric Length(5);
Bool bMax(True);
Numeric Extremebar(0);
Begin
PlotNumeric("Extremes",Extremes_mine(Close,Length,bMax,Extremebar));
End
//------------------------------------------------------------------------
// 编译版本 GS2004.06.12
// 用户版本 2009/09/01 23:42
// 版权所有 larsir
// 更改声明 TradeBlazer Software保留对TradeBlazer平台
// 每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------
本人自编了上面的程序和技术指标,似乎输出的结果没有什么不对啊。跟系统自带的Extreme函数效果一样啊。 还请版主斧正! |
|