persistrader
Новичок
Offline
Сообщений: 4
|
 |
« Ответ #1 : 22.11.2005 16:48 » |
|
Вот ВелсЛаб код который я написал для этого. Результаты до 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;
|