
等级: 标准版
- 注册:
- 2021-5-20
- 曾用名:
|

楼主 |
发表于 2022-9-7 08:49
|
显示全部楼层
CYC:=BARSLAST(DATE<>REF(DATE,1))+1;
H30:REF(HHV(H,N),1);
L30:REF(LLV(L,N),1);
MID:(H30+L30)/2;
T1:=(TIME>090500 AND TIME <112500) OR (TIME>133500 AND TIME <144000) OR (TIME>210500 AND TIME<225500);
M5:=STKINDI('LU00','MA.MA4',0,17,-1);
M6:=CALLSTOCK('LU00',VTHIGH,17,-1 );
M7:=CALLSTOCK('LU00',VTLOW,17,-1 );
SG:=STKINDI('LU00','箱体.H30',0,17,0);
ZGJ:=CALLSTOCK('LU00',VTHIGH,17,0 );
BUYCOND:= H>H30 AND (H30-MID)/MID<N1 AND CYC>=N2 AND T1 AND M6>M5 AND ZGJ>SG;
IF ISLASTBAR THEN
DEBUGFILE('D:\TEST.TXT',' BUYCOND:%.0f',BUYCOND);
IF BUYCOND THEN BEGIN
TBUY(TBUYHOLDINGEX('','',1)=0,20%,MKT),PERTRADER;
DEBUGFILE('D:\TEST.TXT',' 品种:'+STKLABEL,0);
tstr:=NUMTOSTR(date,0)+'_'+NUMTOSTR(time,0);
DEBUGFILE('D:\TEST.TXT',' 开仓位置:'+tstr,0);
END |
|