
等级: 专业版
- 注册:
- 2023-2-16
- 曾用名:
|
老师好,我有这样一段公式代码,在使用VBA回测时遇到诸多困难,请老师指教,(我的OFFICEVBA大概在中级偏上水平),尤其是教程中没有找到:1、如何多品种回测;2、像如下的多曲线开平仓在一个单元内(用数组循环方式)。这两个关键点,在VBA中如何写?,当然,我想使用的方式就是开发文档中 TestReport对象中的"示例4.使用PLE语言做为信号,VBA进行测评"的方式。
//1、========变量定义====================
WARNING_DISABLE:4;WARNING_DISABLE:9; WARNING_DISABLE:11;
VARIABLE: HDK[100]=0,KK[100]=0,PK[100]=0,KCLS[100]=0,CON[100]=0;
SS:=1;
M1:=MA(C,15); M2:=MA(C,10); M3:=MA(C,5);
KCLS[1]:=BARSLAST(HDK[1]=0)-2;
KCLS[2]:=BARSLAST(HDK[2]=0)-2;
KCLS[3]:=BARSLAST(HDK[3]=0)-2;
CON[1]:=CROSS(M1,M2);
CON[2]:=CROSS(M2,M3);
CON[3]:=CROSS(M1,M3);
FOR I= 1 TO 3 DO BEGIN
PK[I]:=KCLS[I]>20 AND ISDOWN;
KK[I]:=CON[I] AND ISUP;
开空: PK[I] AND HDK[I]<>0 THEN BEGIN SELLSHORT(1,HDK[I],MARKET); HDK[I]:=0;END
平空: KK[I] AND HDK[I]=0 THEN BEGIN BUYSHORT(1,SS,MARKET); HDK[I]:=SS;END
END
|
|