公式模型编写问题提交-后台交易问题金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  后台交易问题  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=149740)

--  作者：系统使用者
--  发布时间：2017/3/27 22:03:58
--  后台交易问题

/平多空单
if Tholding>0 and tenterbars>1 and L<=zs then
BEGIN
MyTPrice :=IF(OPEN<zs,OPEN,zs)-MINDIFF;
TSELL(1,ss,LMT,MyTPrice,0);
END
if Tholding<0 and tenterbars>1 and H>=zs THEN
BEGIN
MyTPrice :=IF(OPEN>zs,OPEN,zs)+MINDIFF;
TSELLSHORT(1,ss,LMT,MyTPrice,0);
END
//开多单
IF H>=UpperBand and BLIQCON and THOLDING=0 THEN
BEGIN
MyPrice :=IF(OPEN>UpperBand,OPEN,UpperBand)+MINDIFF;
TBUY(1,ss,LMT,MyPrice,0);
zs:=Mdg;
maxhl:=h;
END
//开空单
IF L<=LowerBand and SOPCON and THOLDING=0 THEN
BEGIN
MyPrice :=IF(OPEN<LowerBand,OPEN,LowerBand)-MINDIFF;
TBUYSHORT(1,ss,LMT,MyPrice,0);
zs:=Mdd;
maxhl:=l;
END
图表改后台交易的，出现平空就开空？？？

--  作者：系统使用者
--  发布时间：2017/3/27 22:52:51
--

Globalvariable:hold=drawnull;
//平多空单
if holding>0 and enterbars>1 and L<=zs then
BEGIN
MyTPrice :=IF(OPEN<zs,OPEN,zs);
sell(1,ss,LIMIT,MyTPrice-MINDIFF);
END
if holding<0 and enterbars>1 and H>=zs THEN
BEGIN
MyTPrice :=IF(OPEN>zs,OPEN,zs);
sellshort(1,ss,LIMIT,MyTPrice+MINDIFF);
END
//开多单
IF H>=UpperBand and BLIQCON and THOLDING=0 THEN
BEGIN
MyPrice :=IF(OPEN>UpperBand,OPEN,UpperBand);
buy(1,ss,LIMIT,MyPrice+MINDIFF);
zs:=Mdg;
maxhl:=h;
END
//开空单
IF L<=LowerBand and SOPCON and THOLDING=0 THEN
BEGIN
MyPrice :=IF(OPEN<LowerBand,OPEN,LowerBand);
buyshort(1,ss,LIMIT,MyPrice-MINDIFF);
zs:=Mdd;
maxhl:=l;
END

if Tholding<0 and l<maxhl then begin //重新定位离场实现浮动止损止盈
zs:=Mdd;
end
if Tholding>0 and h>maxhl then begin
zs:=Mdg;
end

cc809008322:=holding;
if not(islastbar) or workmode<>1 then exit;
xiadan809008322:=cc809008322-hold;
if xiadan809008322>0.5 then begin
cang:=min(xiadan809008322,abs(hold));
if hold<0 then begin
tsellshort(1,cang,LMT,0,0,\'809008322\');
end
cang:=xiadan809008322+min(hold,0);
if cang>0 then begin
tbuy(1,cang,LMT,0,0,\'809008322\');
end
end
if xiadan809008322<-0.5 then begin
cang:=min(abs(xiadan809008322),abs(hold));
if hold>0 then begin
tsell(1,cang,LMT,0,0,\'809008322\');
end
cang:=abs(xiadan809008322)-max(hold,0);
if cang>0 then begin
tbuyshort(1,cang,LMT,0,0,\'809008322\');
end
end
hold:=cc809008322;
WARNING_DISABLE:9;

--  作者：系统使用者
--  发布时间：2017/3/27 22:54:36
--
按阿火改的，但后面后台交易，限价应该使用前面的限价瑟
帮改改。

--  作者：系统使用者
--  发布时间：2017/3/27 22:58:15
--

cc809008322:=holding;
if not(islastbar) or workmode<>1 then exit;
xiadan809008322:=cc809008322-hold;
if xiadan809008322>0.5 then begin
cang:=min(xiadan809008322,abs(hold));
if hold<0 then begin
tsellshort(1,cang,LMT,MyTPrice+MINDIFF,0,\'809008322\');
end
cang:=xiadan809008322+min(hold,0);
if cang>0 then begin
tbuy(1,cang,LMT,MyPrice+MINDIFF,0,\'809008322\');
end
end
if xiadan809008322<-0.5 then begin
cang:=min(abs(xiadan809008322),abs(hold));
if hold>0 then begin
tsell(1,cang,LMT,MyTPrice-MINDIFF,0,\'809008322\');
end
cang:=abs(xiadan809008322)-max(hold,0);
if cang>0 then begin
tbuyshort(1,cang,LMT,MyPrice-MINDIFF,0,\'809008322\');
end
end
hold:=cc809008322;

WARNING_DISABLE:9;

--  作者：jinzhe
--  发布时间：2017/3/28 9:10:38
--
首先，这段代码你要干什么？

--  作者：系统使用者
--  发布时间：2017/3/28 9:38:15
--
后台下单交易
[此贴子已经被作者于2017/3/28 9:38:26编辑过]

--  作者：jinzhe
--  发布时间：2017/3/28 9:44:38
--
然后，问题出在哪里？

--  作者：系统使用者
--  发布时间：2017/3/28 10:17:07
--
没有开空信号，也不段的开空。

--  作者：系统使用者
--  发布时间：2017/3/28 10:18:50
--
如何编写才正确？

--  作者：jinzhe
--  发布时间：2017/3/28 10:19:07
--
用当前的实际的交易情况说明下“没有信号也开空”