如何把数组传递到自定义函数中 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 如何把数组传递到自定义函数中

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有2715人关注过本帖树形打印复制链接主题：如何把数组传递到自定义函数中

linxingywei

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游民帖子：127 积分：145 威望：0 精华：0 注册：2011/9/29 17:10:38

如何把数组传递到自定义函数中 发帖心情

Post By：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

图片点击可在新窗口打开查看