|
vars:EntryNo(0) ,Equity(0);
if date <> date[1] then Begin
EntryNo = 0 ;
Equity = netprofit ;
end ;
if EntryNo < 1 then begin // 當日尚未進場
if condition1 then buy ...
if condition2 then sellshort ...
if MP <> MP[1] and MP <> 0 then EntryNo = EntryNo+1 ; // 第一次
end else if EntryNo = 1 then Begin // 進場後檢查 Equity 是否獲利
Equity = NetProfit ;
if Equity > Equity[1] then EntryNo = 2 ;
end else if Equity <= Equity[1] and EntryNo < 2 then begin // 第一次交易沒獲利 , 再交易一次
if condition1 then buy ...
if condition2 then sellshort ...
if MP <> MP[1] and MP <> 0 then EntryNo = EntryNo+1 ; //第二次
end ;
參考看看囉 |
評分
-
查看全部評分
|