- 精华
- 0
- 在线时间
- 93 小时
- UID
- 20070
- 积分
- 232
- 帖子
- 17
- 阅读权限
- 40
- 注册时间
- 2010-11-20
- 最后登录
- 2011-3-25
- 精华
- 0
- UID
- 20070
- 积分
- 232
- 帖子
- 17
- 主题
- 4
- 阅读权限
- 40
- 注册时间
- 2010-11-20
- 最后登录
- 2011-3-25
|
Params
NumericSeries Price(1);
Numeric Length(10);
Bool bMax(True);
NumericRef ExtremeBar;
Vars
NumericSeries MyVal;
NumericSeries MyBar;
Numeric i;
Begin
MyVal = Price;
MyBar = 0;
If ( CurrentBar < Length - 1)
{
MyVal = InvalidNumeric;
MyBar = InvalidNumeric;
}Else If(CurrentBar == Length - 1 || MyBar[1] == Length - 1)
{
for i = 1 to Length - 1
{
If (bMax )
{
If ( Price > MyVal)
{
MyVal = Price;
MyBar = i;
}
}Else
{
If ( Price < MyVal)
{
MyVal = Price;
MyBar = i;
}
}
}
}Else
{
If ( bMax )
{
If ( Price >= MyVal[1]) {
MyVal = Price;
MyBar = 0;
}Else
{
MyVal = MyVal[1];
MyBar = MyBar[1] + 1;
}
}Else
{
If ( Price <= MyVal[1])
{
MyVal = Price;
MyBar = 0;
}Else
{
MyVal = MyVal[1];
MyBar = MyBar[1] + 1;
}
}
}
ExtremeBar = MyBar;
Return MyVal;
End
上面红颜色的代码括号里的条件(Price >= MyVal[1])可以换作MyVal >= Price[1]吗?如果不可以,请说明为什么,谢谢啊!! |
|