Вход на сайт
Вопрос программистам Wealth-Lab
154 просмотров
Перейти к просмотру всей ветки
Назад
в ответ dyagov 02.03.10 12:11
в том то и дело что покупки нет. Графики использую недельные: например Газпром (ммвб с 2000 года) программа 3.01 Build 21b кстати часто выдает ошибку и закрывается
вот код, абсолютно стандартный.
var Bar, p: integer;
PlotSeries( SMASeries( #Close, 4 ), 0, #Teal, #Thick );
PlotSeries(SMASeries( #Close, 9 ), 0, #Green, #Thin);
PlotSeries(SMASeries( #Close, 18 ), 0, #Blue, #Thin); //Изначально LastPositionActive false
for Bar := 18 to BarCount - 1 do
begin
if LastPositionActive then
begin
p := LastPosition;
if (SMA(Bar,#Close,4) < SMA(Bar,#Close,9)) and (SMA(Bar,#Close,9) < SMA(Bar,#Close,18)) then
begin
SellAtClose( Bar, p, '' );
end;
end
else
begin
if (SMA(Bar,#Close,4) > SMA(Bar,#Close,9)) and (SMA(Bar,#Close,9) > SMA(Bar,#Close,18)) then //здесь условие не выполняестся, возвращаюсь на начало цикла с LastPositionActive true
begin
BuyAtClose( Bar, '0' );
end;
end;
end;
вот код, абсолютно стандартный.
var Bar, p: integer;
PlotSeries( SMASeries( #Close, 4 ), 0, #Teal, #Thick );
PlotSeries(SMASeries( #Close, 9 ), 0, #Green, #Thin);
PlotSeries(SMASeries( #Close, 18 ), 0, #Blue, #Thin); //Изначально LastPositionActive false
for Bar := 18 to BarCount - 1 do
begin
if LastPositionActive then
begin
p := LastPosition;
if (SMA(Bar,#Close,4) < SMA(Bar,#Close,9)) and (SMA(Bar,#Close,9) < SMA(Bar,#Close,18)) then
begin
SellAtClose( Bar, p, '' );
end;
end
else
begin
if (SMA(Bar,#Close,4) > SMA(Bar,#Close,9)) and (SMA(Bar,#Close,9) > SMA(Bar,#Close,18)) then //здесь условие не выполняестся, возвращаюсь на начало цикла с LastPositionActive true
begin
BuyAtClose( Bar, '0' );
end;
end;
end;
Ufukuro Taschen Online Shop