/平多空单
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
图表改后台交易的，出现平空就开空？？？
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;
按阿火改的，但后面后台交易，限价应该使用前面的限价瑟
帮改改。
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;
后台下单交易
[此贴子已经被作者于2017/3/28 9:38:26编辑过]