标题：后台程序化编写

1楼

jzt666 发表于：2019/10/7 23:27:24

老师你好帮我改成后台程序化

////////////////////////////////////////////////

TKK:=TIME>0231 AND TIME<1600;

SJPP:=TIME>=2329 AND TIME<=2330;

////////////////////////////////////////////////

IF SJPP=1 AND HOLDING<>0 THEN

BEGIN

时间平多:SELL(HOLDING>0,HOLDING,MARKET),COLORGREEN;

时间平空:SELLSHORT(HOLDING<0,HOLDING,MARKET),COLORGREEN;

END

////////////////////////////////////////////////

IF DTZSCOND1=1 AND HOLDING>0 THEN

BEGIN

多止损:SELL(HOLDING>0,HOLDING,MARKET),COLORGREEN;

END

IF KTZSCOND1=1 AND HOLDING<0 THEN

BEGIN

空止损:SELLSHORT(HOLDING<0,HOLDING,MARKET),COLORGREEN;

END

////////////////////////////////////////////////

IF DTZYCOND1=1 AND HOLDING>0 THEN

BEGIN

多止盈:SELL(HOLDING>0,HOLDING,MARKET),COLORGREEN;

END

IF KTZYCOND1=1 AND HOLDING<0 THEN

BEGIN

空止盈:SELLSHORT(HOLDING<0,HOLDING,MARKET),COLORGREEN;

END

////////////////////////////////////////////////

IF BUYCOND1=1 AND TKK=1 AND HOLDING=0 AND KCSJ=0 THEN

BEGIN

KCSJ:=IF(TKK=1,1,0);

BUY(HOLDING=0,SSSS,MARKET),COLORGREEN;

END

KCSJ:=IF(KCSJ=1 AND TKK=1,1,0);

IF BUYSHORTCOND1=1 AND TKK=1 AND HOLDING=0 AND KCSJ=0 THEN

BEGIN

KCSJ:=IF(TKK=1,1,0);

BUYSHORT(HOLDING=0,SSSS,MARKET),COLORGREEN;

END

KCSJ:=IF(KCSJ=1 AND TKK=1,1,0);

////////////////////////////////////////////////

2楼

FireScript 发表于：2019/10/8 9:23:09

下单语句和持仓判断相应的修改下即可：

TKK:=TIME>0231 AND TIME<1600;
SJPP:=TIME>=2329 AND TIME<=2330;
IF SJPP=1 THEN
BEGIN
时间平多:TSELL(TBUYHOLDINGEX('','',1)>0,TBUYHOLDINGEX('','',1),MKT);
时间平空:TSELLSHORT(TSELLHOLDINGEX('','',1)>0,TSELLHOLDINGEX('','',1),MKT);
END

////////////////////////////////////////////////

IF DTZSCOND1=1 AND TBUYHOLDINGEX('','',1)>0 THEN
BEGIN
多止损:TSELL(TBUYHOLDINGEX('','',1)>0,TBUYHOLDINGEX('','',1),MKT);
END

IF KTZSCOND1=1 AND TSELLHOLDINGEX('','',1)<0 THEN
BEGIN
空止损:TSELLSHORT(TSELLHOLDINGEX('','',1)>0,TSELLHOLDINGEX('','',1),MKT);
END

////////////////////////////////////////////////

IF DTZYCOND1=1 AND TBUYHOLDINGEX('','',1)>0 THEN
BEGIN
多止盈:TSELL(TBUYHOLDINGEX('','',1)>0,TBUYHOLDINGEX('','',1),MKT);
END

IF KTZYCOND1=1 AND TSELLHOLDINGEX('','',1)<0 THEN
BEGIN
空止盈:TSELLSHORT(TSELLHOLDINGEX('','',1)>0,TSELLHOLDINGEX('','',1),MKT);
END

////////////////////////////////////////////////

IF BUYCOND1=1 AND TKK=1 AND TBUYHOLDINGEX('','',1)=0 AND KCSJ=0 THEN
BEGIN
KCSJ:=IF(TKK=1,1,0);
tBUY(TBUYHOLDINGEX('','',1)=0,SSSS,MKT);
END

KCSJ:=IF(KCSJ=1 AND TKK=1,1,0);
IF BUYSHORTCOND1=1 AND TKK=1 AND TSELLHOLDINGEX('','',1)=0 AND KCSJ=0 THEN
BEGIN
KCSJ:=IF(TKK=1,1,0);
tBUYSHORT(TSELLHOLDINGEX('','',1)=0,SSSS,MKT),COLORGREEN;
END
KCSJ:=IF(KCSJ=1 AND TKK=1,1,0);

共2 条记录, 每页显示 10 条, 页签: [1]