[PEL] 复制代码
VARIABLE:flag=0;
DS:=NEWHBARS(HIGH,1);
DN:=IF(DS=BARPOS(),1,DS);
DM:REF(DN,DN)+DN,LINETHICK0;
HH:=IF(BARPOS()<4,CLOSE,REF(HIGH,DM));
KD:=CLOSE>LLV(HH,DS);
KS:=NEWLBARS(LOW,1);
KN:=IF(KS=BARPOS(),1,KS);
KM:REF(KN,KN)+KN,LINETHICK0;
LL:=IF(BARPOS()<4,CLOSE,REF(LOW,KM));
KK:=CLOSE<HHV(LL,KS);
ma60:ma(close,60);
TD:=ENTERBARS+1;
TK:=EXITBARS+1;
A:=REF(IF(TD<TK,HHV(LL,TD),LLV(HH,TK)),1);
多空线:A,COLOR0000FF,LINETHICK2;
PARTLINE(CLOSE<多空线,多空线,65280,2,0),COLOR00FF00,LINETHICK2;
手数:=3;
//交易条件
开多平空条件:=KD;//开多平空条件
开空平多条件:=kk;//开多平空条件
//交易系统
if 开多平空条件 and HOLDING<0 then BEGIN
平空:SELLSHORT(1,HOLDING,MARKET);
flag:=0;
end
if 开空平多条件 and HOLDING>0 then BEGIN
平多:SELL(1,HOLDING,MARKET);
flag:=0;
end
if 开多平空条件 and holding=0 and flag=0 then BEGIN
开多:BUY(1,手数,MARKET);
flag:=1;
end
if 开空平多条件 and holding=0 and flag=0 then BEGIN
开空:BUYSHORT( 1,手数,MARKET);
flag:=-1;
end
if C>MA60 and holding>0 and flag=1 then BEGIN
加多:BUY(1,手数,MARKET);
flag:=2;
end
if C<MA60 and holding<0 and flag=-1 then BEGIN
加空:BUYSHORT( 1,手数,MARKET);
flag:=-2;
end