Сообщения

1

Обучение / Re:Паттерн "Золотой крест"

« : 04.12.2005 22:49 »

ну нагавнил на 10 страниц ну нагавнил

2

Торговые системы / Re:Расчет максимальной и минимальной цены за день

« : 22.11.2005 17:08 »

Ну и вы по ним торгуете? Как вообщше по ним торговать конкретно?

3

Торговые системы / Re:Система "Бутерброд"

« : 22.11.2005 15:51 »

Кто тут пишет эти коды для ВелсЛаба? Просто я тоже пишу может вместе будем писать?

4

Торговые системы / Re:интересная системка

« : 22.11.2005 15: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;