Вот ВелсЛаб код который я написал для этого. Результаты до 2001 года сосут - до этого более не менее нормальные. Приглашаю всех к обсуждению.
var Bar, pane: integer;
HideVolume;
{ Plotting Indicators }
pane := CreatePane( 75, false, true );
PlotSeries( WilliamsRSeries( 100 ), pane, #Red, #Thick );
PlotSeries( RSISeries( #Close, 13 ), pane, #Lime, #Thick );
DrawLabel( '% R = Red, RSI = Green', pane );
{ Stops and Targets }
SetAutoStopMode (#AsPoint);
InstallStopLoss ( 0.0050 );
InstallProfitTarget ( 0.0150 );
{ Main Loop }
for Bar := 20 to BarCount - 1 do
begin
if not LastPositionActive then
{ Entry Rules }
begin
if CrossOver ( Bar, WilliamsRSeries( 100 ), RSISeries( #Close, 13 )) then
BuyAtClose ( Bar, '')
else if CrossUnder ( Bar, WilliamsRSeries( 100 ), RSISeries( #Close, 13 )) then
ShortAtClose ( Bar, '');
end
else
{ Exit Rules }
begin
ApplyAutoStops (Bar);
end;
end;