以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  后台程序化编写  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=172295)
--  作者：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);

////////////////////////////////////////////////
--  作者：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);