设为首页收藏本站

 找回密码
 注册
查看: 3506|回复: 0
打印 上一主题 下一主题

关于Extremes的第二个问题 [复制链接]

Rank: 3Rank: 3

精华
0
UID
20070
积分
232
帖子
17
主题
4
阅读权限
40
注册时间
2010-11-20
最后登录
2011-3-25
跳转到指定楼层
1#
发表于 2010-12-16 18:07:46 |只看该作者 |倒序浏览
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]吗?如果不可以,请说明为什么,谢谢啊!!
您需要登录后才可以回帖 登录 | 注册

bottom

静态版|手机版|联系我们|交易开拓者 ( 粤ICP备07044698   

GMT+8, 2024-5-6 10:41

Powered by Discuz! X2 LicensedChrome插件扩展

© 2011-2012 交易开拓者 Inc.

回顶部