高级功能研发区-调用vba自定义函数时，内存消耗极快金字塔客服中心 - 专业程序化交易软件提供商

-- 调用vba自定义函数时，内存消耗极快
使用的是后台预警，监控期货主力合约和股票主要指数，一共57个品种，1、3、5、10、15、30、60分钟和1日周期，

使用指定数量500刷新计算，固定时间间隔1秒，

开始预警不到五分钟金之塔占用内存8G

vba代码是

Function getBoDuan4(Formula,openArr,highArr,lowArr,closeArr,dateArr,timeArr,macdArr,macdDisArr)

\'系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码

getBoDuan4=0

arrLen = ubound(openArr)

dim rtnVal

\'redim rtnVal(arrLen*6)

getBoDuan4 = rtnVal

End Function

pel代码是

WARNING_DISABLE:6;

arrayLen:=ubound(close);

diff1:= EMA(CLOSE,S) - EMA(CLOSE,P);

dea1:= EMA(diff1,M);

macd1:=2*(diff1-dea1);

macd_not_dis:barslast(macd1*ref(macd1,1) <=0),nodraw;

boduan:=boduanTmp+1;

tmp0:=boduan*3+1;

tmp1:= boduan * (boduan-1)/2;

VARIABLE:flag[boduan]=0;

VARIABLE:dateArr[boduan]=0;

variable:timeArr[boduan]=0;

variable:boHighDArr[boduan]=0;

variable:boHighTArr[boduan]=0;

variable:boLowDArr[boduan]=0;

variable:boLowTArr[boduan]=0;

variable:boduanArr[boduan*11]=0;

boduanArr:=getBoDuan4(open,high,low,close,date,time,macd1,macd_not_dis),nodraw,colorwhite;

signal:0,nodraw,colorwhite;

参数boduanTmp为8，P、S、M随意。序列模式。