[PEL] 复制代码 //金字塔时区+4小时
IF TIMEZONE=0 THEN
BEGIN
IF TIMETOT0(TIME)=TIMETOT0(OPENTIME(1)) THEN EXTGBDATASET(STKLABEL&'KSCS',0);//亏损次数初始化为0
//夜盘品种
IF STRCMP(NUMTOSTR(OPENTIME(1),0),'010000')=0 THEN
BEGIN
IF TIMETOT0(DYNAINFO(207))>=TIMETOT0(OPENTIME(1)) AND TIMETOT0(DYNAINFO(207))<=TIMETOT0(CLOSETIME(1)) THEN //第一节
BEGIN
IF (TBUYHOLDINGEX('','',2)+TGLOBALSUBMITEX(1,'','',0))=0 AND EXTGBDATA(STKLABEL&'KSCS')<3 AND 开仓条件 THEN// 亏算小于3次开仓
BEGIN
TBUY(1,1,LMT,C+2*MINDIFF); //开多仓
END
END
ELSE
IF (TBUYHOLDINGEX('','',2)+TGLOBALSUBMITEX(1,'','',0))=0 AND EXTGBDATA(STKLABEL&'KSCS')<5 AND 开仓条件 THEN//第二节及其以后
BEGIN
TBUY(1,1,LMT,C+2*MINDIFF); //开多仓
END
IF TBUYHOLDINGEX('','',1)>0 AND CLOSE<ENTERPRICE AND 平仓条件 THEN //若亏损平仓
BEGIN
TSELL(1,1,MKT);//大于1手,分批止盈1平仓
EXTGBDATASET(STKLABEL&'KSCS',EXTGBDATA(STKLABEL&'KSCS')+1); //亏损平仓,亏损次数增加1
END
END
END |