
等级: 新手上路
- 注册:
- 2023-11-7
- 曾用名:
|
SellCond:=ZKTJ=1 AND ZDTJ=0 OR REF(ZKTJ=1 AND ZDTJ=0,1);
BuyCond:= ZDTJ=1 AND ZKTJ=0 OR REF(ZDTJ=1 AND ZKTJ=0,1);
lots:=1;
IF not(islastbar) then begin
if holding=0 AND newpos=1 and c>o AND H>high1 and high1>lst
then begin
DThf:buy(barstatus<2,lots,thisclose),colorgreen;//kd 、lots=手数
bkpos:=barpos;enterpos:=barpos;myholding:= 1;newpos:=1;
end
if holding=0 AND newpos= -1 and c<o AND L<low1 and low1<ust
then begin
KThf:BUYSHORT(barstatus<2 ,lots,thisclose)colorgreen;//kk
skpos:=barpos;enterpos:=barpos; myholding:= -1;newpos:= -1;
end
if SellCond and holding>0 and c<low1
then begin
SELL(barstatus<2 ,lots,limitr,MAX(H,DTRH)),ORDERQUEUE;//pd
daytrade:=daytrade+1;
myholding:=0;
end
if SellCond and holding=0 and c<low1
then begin
BUYSHORT(barstatus<2 ,lots,limitr,MAX(H,DTRH)),ORDERQUEUE;//kk
skpos:=barpos;enterpos:=barpos;
myholding:= -1;
newpos:= -1;
end
//反手做多代码
if BuyCond and holding<0 and c>high1
then begin
SELLSHORT(BARSTATUS<2 ,lots,limitr,MIN(DTRL,L)),ORDERQUEUE;//pk
daytrade:=daytrade+1;
myholding:=0;
end
if BuyCond and holding=0 and c>high1 and daytrade<maxtrade
then begin
BUY(BARSTATUS<2 ,lots,limitr,MIN(DTRL,L)),ORDERQUEUE;//kd
bkpos:=barpos;
enterpos:=barpos;
myholding:=1;
newpos:=1;
end
if (islastbar) then begin
if holding=0 AND newpos=1 and h>o and o-l<3 AND H>high1 and high1>lst
then begin
DThf1:buy(barstatus=2,lots,market);//kd
bkpos:=barpos;enterpos:=barpos;myholding:= 1;newpos:=1;
end
if holding=0 AND newpos= -1 and l<o and h-o<3 AND L<low1 and low1<ust
then begin
KThf1:BUYSHORT(barstatus=2 ,lots,market);//kk
skpos:=barpos;enterpos:=barpos; myholding:= -1;newpos:= -1;
end
////////////////////////////////////////////////////////////////
if SellCond and holding>=0 and l<low1 and h-o<3
then begin
SELL(BARSTATUS=2 ,lots,market),ORDERQUEUE;//pd //反手做多代码
if BuyCond and holding<=0 and h>high1 and o-l<3
then begin
SELLSHORT(BARSTATUS=2 ,lots,market),ORDERQUEUE;//pk
daytrade:=daytrade+1;
myholding:=0;
end
if BuyCond and holding=0 and h>high1 and o-l<3 and daytrade<maxtrade
then begin
BUY(BARSTATUS=2 ,lots,market),ORDERQUEUE;//kd
bkpos:=barpos;enterpos:=barpos;myholding:=1;newpos:=1;
end
If daytrade=0 and holding>0 and l+20<=a1 and l<o //今开
then begin
sell(1,1,LIMITR,a1-20)colorgreen;//pd
skpos:=barpos;enterp:=o;enterpos:=barpos;
myholding:= -1; newpos:= -1;ent:=1;daytrade:=daytrade+1;
end
If daytrade=0 and holding<0 and h-20>=a1 and h>o
then begin
sellshort(1,1,LIMITR,a1+20)colorgreen;//pk
bkpos:=barpos;enterp:=o;enterpos:=barpos;
myhoding:=1;newpos:=1;ent:=1;daytrade:=daytrade+1;
end
END
END
daytrade:=daytrade+1;
myholding:=0;
end
if SellCond and holding=0 and l<low1 and h-o<3
and daytrade<maxtrade
|
|