以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  如何把数组传递到自定义函数中  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=156977)

--  作者:linxingywei
--  发布时间:2017/8/17 15:58:16
--  如何把数组传递到自定义函数中
比如我要计算数组中的最大值,我传数组n()进自定义函数中,m是数组的个数,然后把数组n()中的元素赋值给新的数组Arr1,然后计算出数组的最大值,运行这个函数报类型不匹配,请问要怎么修改?

Function MAX_ARRN(Formula,n(),m)
    \'系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍,因此设计时应该注重程序的执行效率,不要重复的执行一些没必要的代码
     Dim Arr1
    Redim Arr1(m-1)
    
    for j=0 to m-1
       Arr1(j)=n(j+1)
    next
   
    max =0
    for i=0 to m-1
       if(max<Arr1(i)) then max = Arr1(i)
    next     
    
    MAX_ARRN=max
End Function

图片点击可在新窗口打开查看
--  作者:王锋
--  发布时间:2017/8/17 22:03:31
--  

自定义函数无法传递数组的