此函数应如何修改才能取得正确梁效果?

yxb0001

// 简称: hhv
// 名称: 求N周期的最高值
// 类别: 用户函数
// 类型: 用户函数
// 输出: 数值型
//------------------------------------------------------------------------
Params
   NumericSeries Price(0);
   Numeric Length(5);
Vars
   Numeric highestValue(0);
   Numeric minDay;
   Numeric i;
Begin
   minDay = Min(CurrentBar,Length-1);
   for i=0 to minDay
   {
           highestValue=Max(highestValue,Price);
   }
   Return highestValue;
End
//------------------------------------------------------------------------




验证技术指标如下：
//------------------------------------------------------------------------
// 简称: yyxb
// 名称: 试试试
// 类别: 技术指标
// 类型: 振荡类
// 输出:数值型
//------------------------------------------------------------------------
Vars
Numeric aaa;
Begin
   aaa = hhv(high,5);
   FileAppend("c:\\a.log",Text(Year)+"年"+Text(Month)+"月"+Text(Day)+"日的5日最高价等于");
   FileAppend("c:\\a.log",Text(aaa));
End
//------------------------------------------------------------------------

下面是强麦(WS809)最近10日的公式使用结果，但完全不是正确的结果。
2008年5月19日的5日最高价等于
2038
2008年5月20日的5日最高价等于
2032
2008年5月21日的5日最高价等于
2033
2008年5月22日的5日最高价等于
1973
2008年5月23日的5日最高价等于
1948
2008年5月26日的5日最高价等于
1962
2008年5月27日的5日最高价等于
1971
2008年5月28日的5日最高价等于
1975
2008年5月29日的5日最高价等于
1969
2008年5月30日的5日最高价等于
1957

正确结果应是：
2008年5月19日的5日最高价等于
2038
2008年5月20日的5日最高价等于
2038
2008年5月21日的5日最高价等于
2038
2008年5月22日的5日最高价等于
2038
2008年5月23日的5日最高价等于
2038
2008年5月26日的5日最高价等于
2033
2008年5月27日的5日最高价等于
2033
2008年5月28日的5日最高价等于
1975
2008年5月29日的5日最高价等于
1975
2008年5月30日的5日最高价等于
1975

请问应如何修改?

nopain

请直接使用Highest，不需要用HHV

学习入门

我也试了下Highest可得到准确的，但怎样只记录今天向后数5日内的，而前面的那些不需要

我看了下A.LOG,记录从三月四日开始，一直到今日

yxb0001

原帖由 nopain 于 2008-5-30 16:10 发表
请直接使用Highest，不需要用HHV

谢谢！使用Highest可以达到我所需要的结果。

但是为提高BT编程水平，我想请教上面的函数公式错在那里?应如何修改?

yxb0001

已解决，修改如下：
// 简称: hhv
// 名称: 求N周期的最高值
// 类别: 用户函数
// 类型: 用户函数
// 输出: 数值型
//------------------------------------------------------------------------
Params
   NumericSeries Price(0);
   Numeric Length(5);
Vars
   Numeric highestValue(0);
   Numeric minDay;
   Numeric i;
Begin
   minDay = Min(CurrentBar,Length-1);
   for i=0 to minDay
   {
           highestValue=Max(highestValue,Price[ i ]);
   }
   Return highestValue;
End
//------------------------------------------------------------------------

nopain

因为里面的代码被论坛给强行转化了，就是斜体的部分。
  Price[ i ] 被转化成Price