这个日内交易程序怎么样?请大家多多抛砖引玉!

mao18931226

Vars
Numeric maxLots(2);//最大开仓手数
Begin

//开仓条件
if (CurrentTime==0.0001*905 && Q_BidPrice>Q_AvgPrice && Abs(CurrentContracts)<=Maxlots) Buy(1,Q_AskPrice);
if (CurrentTime==0.0001*905 && Q_BidPrice<Q_AvgPrice&& Abs(CurrentContracts)<=Maxlots) SellShort(1,Q_BidPrice);

if (CurrentTime>0.0001*910 && CurrentTime>=0.0001*1445 && Q_BidPrice>=Q_High && Abs(CurrentContracts)<=Maxlots) Buy(1,q_askprice);
if (CurrentTime>0.0001*910 && CurrentTime>=0.0001*1445 && Q_BidPrice<=Q_Low && Abs(CurrentContracts)<=Maxlots) SellShort(1,Q_BidPrice);

//止损条件

if (MarketPosition==1 and Q_BidPrice<Q_AvgPrice) sell(0,Q_BidPrice);//多头下破均线止损
if (MarketPosition==-1 and Q_BidPrice>Q_AvgPrice) BuyToCover(0,Q_AskPrice);//空头上破均线止损

//止赢条件
if (MarketPosition==1  && MaxPositionProfit>100 And 0.7*MaxPositionProfit<A_PositionProfitLoss) sell(0,Q_BidPrice);
if (MarketPosition==-1  && MaxPositionProfit>100 And 0.7*MaxPositionProfit<A_PositionProfitLoss) BuyToCover(0,Q_AskPrice);

//尾盘平仓
if (CurrentTime>=0.0001*1459 && MarketPosition==1) sell(0,Q_BidPrice);Else if (MarketPosition==-1) BuyToCover(0,Q_AskPrice);

End