Продолжая предыдущую тему, можно сказать что для западных рынков его системы не работают, но для Газпрома и фьючерса на РТС на H1 вполне годится. Правда у меня неполные данные по этим инструментам -- отсутствуют за 2009 год, но это еще и лучше -- проверьте на 2009 как аут оф сэмпл :) Да, совсем забыл -- эта система называется "Time Any". Вот ее код для WealthLab4: ---------------------------------------- ---- var Bar, p: integer; PlotSeries( HighestSeries( #High , 5 ), 0, #Red , #Thin ); PlotSeries( LowestSeries( #Low , 5 ), 0, #Blue , #Thin ); for Bar := 20 to BarCount - 1 do begin if LastPositionActive then begin p := LastPosition; if PositionLong( p ) then begin if LastBar( Bar ) then SellAtClose( Bar, p, 'EOD' ) else SellAtStop( Bar + 1, Lowest( Bar, #Low , 5 ), p, 'Stop' ); end; if PositionShort( p ) then begin if LastBar( Bar ) then CoverAtClose( Bar, p, 'EOD' ) else CoverAtStop( Bar + 1, Highest( Bar, #High , 5 ), p, 'Stop' ); end; end else begin if not LastPositionActive then begin if (PriceHigh(bar) - PriceLow(bar)) < ATR(bar, 10) then BuyAtStop( Bar + 1, Highest( Bar, #High , 5 ), '' ); end; if not LastPositionActive then begin if (PriceHigh(bar) - PriceLow(bar)) < ATR(bar, 10) then ShortAtStop( Bar + 1, Lowest( Bar, #Low , 5 ), '' ); end; end; end; ---------------------------------------- -----------