Список проголосовавших за комментарий "{#OptVar1 1;1;10;1}<br/> var Bar, p, Mday, Nday, K1, K2: integer;<br/> var HH, HC, LL, LC, SellRange, BuyRange, BuyTrig, SellTrig: float;<br/> var bLongSAR: boolean;<br/> Mday := #OptVar1;<br/> Nday := #OptVar1;<br/> K1 := 5/10;<br/> K2 := 5/10;<br/> <br/> for Bar := 20 to BarCount — 1 do<br/> begin<br/> <br/> HH := Highest(bar-1, #High, Mday);<br/> HC := Highest(bar-1, #Close, Mday);<br/> LL := Lowest(bar-1, #Low, Mday);<br/> LC := Lowest(bar-1, #Close, Mday);<br/> if (HH — LC) >= (HC — LL) then<br/> SellRange := HH — LC<br/> else<br/> SellRange := HC — LL;<br/> <br/> HH := Highest(bar-1, #High, Nday);<br/> HC := Highest(bar-1, #Close, Nday);<br/> LL := Lowest(bar-1, #Low, Nday);<br/> LC := Lowest(bar-1, #Close, Nday);<br/> <br/> if (HH — LC) >= (HC — LL) then<br/> BuyRange := HH — LC<br/> else<br/> BuyRange := HC — LL;<br/> BuyTrig := K1 * BuyRange;<br/> SellTrig := K2 * SellRange;<br/> <br/> if LastPositionActive then<br/> begin<br/> p := LastPosition;<br/> bLongSAR := PositionLong( p );<br/> if PositionLong( p ) then<br/> begin<br/> SellAtStop( Bar, PriceOpen(bar) — FloatToStr(SellTrig), p, '');<br/> end;<br/> if PositionShort( p ) then<br/> begin<br/> CoverAtStop( Bar, PriceOpen(bar) + FloatToStr(BuyTrig), p, '');<br/> end;<br/> end;<br/> if not bLongSAR then<br/> begin<br/> BuyAtStop(bar, PriceOpen(bar) + BuyTrig, '');<br/> end;<br/> if bLongSAR then<br/> begin<br/> ShortAtStop(bar, PriceOpen(bar)