用户函数改编（请版主或高手帮忙）

davincheng

    Params
        NumericSeries Price(0);
        Numeric Length(5);
Vars
        Numeric HighestValue;
        Numeric i;
        Numeric reBar(0);
Begin       
        HighestValue = Price;
        for i=1 to Length-1
    {
                If(Price > HighestValue)
                {
                        HighestValue = Price;
                        reBar = i;
                }
        }
        Return reBar;
End

以上是系统自带用户函数HighestBar的代码，这个函数有两个参数，现在如何改成只要一个参数Length，第一个参数Price直接用high代替。如果改编后的命名为hhbar。
需要的结果是
HighestBar(high,Length)==hhbar(Length);
谢谢您的帮助！

davincheng

这个问题，对于版主来说很难？我现在只是想看看用户函数的运行机制，还有就是减少运算量，就是改成一个参数。
谢谢您的帮助！

小米

davincheng 发表于 2018-10-8 12:31
这个问题，对于版主来说很难？我现在只是想看看用户函数的运行机制，还有就是减少运算量，就是改成一个参数 ...

1. Params
   
2.          
   
3.         Numeric Length(5);
   
4. Vars
   
5.         Numeric HighestValue;
   
6.         Numeric i;
   
7.         Numeric reBar(0);
   
8. Begin       
   
9.         HighestValue = high;
   
10.         for i=1 to Length-1
    
11.     {
    
12.                 If(high[i] > HighestValue)
    
13.                 {
    
14.                         HighestValue = high[i];
    
15.                         reBar = i;
    
16.                 }
    
17.         }
    
18.         Return reBar;
    
19. End

复制代码

davincheng

小米 发表于 2018-10-8 14:59

谢谢斑竹的帮助！