//dual thrust系统原形源码

 

Inputs: K1(.5),K2(.5),Mday(1),Nday(1);

Vars: BuyRange(0), SellRange(0);

Vars: BuyTrig(0),SellTrig(0);

Vars: HH(0),LL(0),HC(0),LC(0);

If CurrentBar > 1 Then Begin

HH = Highest(High,Mday);

HC = Highest(Close,Mday);

LL = Lowest(Low,Mday);

LC = Lowest(Close,Mday);

If (HH – LC) >= (HC – LL) Then Begin

SellRange = HH – LC;

End Else Begin

SellRange = HC – LL;

End;

HH = Highest(High,Nday);

HC = Highest(Close,Nday);

LL = Lowest(Low,Nday);

LC = Lowest(Close,Nday);

If (HH – LC) >= (HC – LL) Then Begin

BuyRange = HH – LC;

End Else Begin

BuyRange = HC – LL;

End;

BuyTrig = K1*BuyRange;

SellTrig = K2*SellRange;

If MarketPosition = 0 Then Begin

Buy at Open of next bar + BuyTrig Stop;

Sell at Open of next bar – SellTrig Stop;

End;

If MarketPosition = -1 Then Begin

Buy at Open of next bar + Buytrig Stop;

End;

If MarketPosition = 1 Then Begin

Sell at Open of next bar – SellTrig Stop;

End;

End;

发表评论

后才能评论