[PEL] 复制代码
VARIABLE:SPCC1:=0,SPCC2:=0;
SSS1:=1;
SSS2:=2;
M3D:MA(CLOSE,20);
M3K:M3D-20*MINDIFF;
///系统一
IF SPCC1<0 AND CLOSE>M3D and holding<0 THEN BEGIN
平空1:SELLSHORT(1,SPCC1,MARKET);
SPCC1:=0;
END
IF SPCC1>0 AND CLOSE<M3K and holding>0 THEN BEGIN
平多1:SELL(1,SPCC1,MARKET);
SPCC1:=0;
END
IF SPCC1=0 THEN BEGIN
IF CLOSE>M3D and holding=0 THEN BEGIN
开多1:BUY(1,SSS1,MARKET);
SPCC1:=SSS1;
END
IF CLOSE<M3K and holding=0 THEN BEGIN
开空1:BUYSHORT(1,SSS1,MARKET);
SPCC1:=-SSS1;
END
END
///系统二
JCM1:=MA(CLOSE,10);
JCM2:=MA(CLOSE,40);
JCKD2:=CROSS(JCM1,JCM2);
JCKK2:=CROSS(JCM2,JCM1);
JCPK2:=CROSS(JCM1,JCM2);
JCPD2:=CROSS(JCM2,JCM1);
IF SPCC2<0 AND JCPK2 and holding<0 THEN BEGIN
平空2:SELLSHORT(1,SPCC2,MARKET);
SPCC2:=0;
END
IF SPCC2>0 AND JCPD2 and holding>0 THEN BEGIN
平多2:SELL(1,SPCC2,MARKET);
SPCC2:=0;
END
IF SPCC2=0 THEN BEGIN
IF JCKD2 and holding=0 THEN BEGIN
开多2:BUY(1,SSS2,MARKET);
SPCC2:=SSS2;
END
IF JCKK2 and holding=0 THEN BEGIN
开空2:BUYSHORT(1,SSS2,MARKET);
SPCC2:=-SSS2;
END
END
CC:SPCC1+SPCC2;//两个系统合并后的持仓
持仓:HOLDING,COLORGRAY,LINETHICK0;
所有全局变量操作位置 和下单语句条件必须完全一致才行。
|