001

技术009

ss:=1;
if tbuyholdingex('','',2)=0 then begin tbuy(1,ss,mkt);

if  tbuyholdingex('','',1)>0  then
begin      
tsell(1,tbuyholdingex('','',1),lmt,tavgenterpriceex2('','',0)+10*mindiff),allowrepeat;
end

100019656

老师
加载一个止损语句，当亏损5个点，撤掉平仓单，止损，用于后台程序化

技术009

[PEL] 复制代码

ss:=1;

if  tavgenterpriceex2('','',0)-dynainfo(  7)>5*MINDIFF then
begin  
if tremainqty(2,'',stklabel)>0  then 
begin
tcancelex(1,2,'',stklabel);
exit;
end

//止损平仓
if  tremainqty(2,'',stklabel)=0 and  tbuyholdingex('','',1)>0 then 
begin 
tsell(1,0,mkt),allowrepeat;
end
 
end 


if tbuyholdingex('','',2)=0 then  tbuy(1,ss,mkt);

if  tbuyholdingex('','',1)>0  then
begin       
tsell(1,tbuyholdingex('','',1),lmt,tavgenterpriceex2('','',0)+10*mindiff),allowrepeat;
end

如果价格反复波动在止损的临界点 是可能会反复撤单挂单的。不过这个没办法的。因为你这个止盈是挂单等成交而不是触发式的。

100019656

开空头语句，是这样吗？

ss:=1;

if  tavgenterpriceex2('','',0)-dynainfo(  7)>ZS*MINDIFF then
begin
if tremainqty(2,'',stklabel)>0  then
begin
tcancelex(1,2,'',stklabel);
exit;
end

//止损平仓
if  tremainqty(2,'',stklabel)=0 and  tbuyholdingex('','',1)>0 then
begin
tsell(1,0,mkt),allowrepeat;
end
  
end

if tsellholdingex('','',2)=0 then begin TBUYSHORT(1,ss,lmt,c);
end
if  tsellholdingex('','',1)>0 then
begin      
tsellshort(1,tsellholdingex('','',1),lmt,tavgenterpriceex2('','',1)-N*mindiff),allowrepeat;
end

技术009

撤单，未成交，平仓 语句都要改。你这就是硬组合。

你看下函数说明呀。。

100019656

是的，后台程序化，多空方向都做，不预测行情，选个适合此处策略的品种

100019656

技术009 发表于 2023-8-25 10:58
撤单，未成交，平仓 语句都要改。你这就是硬组合。

你看下函数说明呀。。

老师，帮我空头方向的语句也写一下，

技术009

ss:=1;

if  tavgenterpriceex2('','',1)-dynainfo(  7)>zs*mindiff then
begin
if tremainqty(4,'',stklabel)>0  then
begin
tcancelex(1,4,'',stklabel);
exit;
end

//止损平仓
if  tremainqty(4,'',stklabel)=0 and  tsellholdingex('','',1)>0 then
begin
tsellshort(1,0,mkt),allowrepeat;
end
  
end

if tsellholdingex('','',2)=0 then begin tbuyshort(1,ss,lmt,c);
end
if  tsellholdingex('','',1)>0 then
begin      
tsellshort(1,tsellholdingex('','',1),lmt,tavgenterpriceex2('','',1)-n*mindiff),allowrepeat;
end

100019656

技术009 发表于 2023-8-25 11:13
ss:=1;

if  tavgenterpriceex2('','',1)-dynainfo(  7)>zs*mindiff then

老师，你怎么把改后台程序化的策略给删了

技术009

标题不规范。请以可读的文字内容作为标题。