Телеграмм чат группы Delphi

там длинная простыня, это уж слишком будет я думаю))

ну, т.е. ты показываешь одно, а запускаешь другое? )) оооок

17:28пожаловаться #1

ну, т.е. ты показываешь одно, а запускаешь другое? )) оооок

Почему?

for MAsource in aMAsource do
for MAlength in aMAlength do
for shift in aShift do
BackTest(MAsource, MAlength, (100 - shift) * 0.01);

вот точное место моей головной боли

17:29пожаловаться #2

это вообще параллелится
ну и неизвестно, что у тебя в BackTest делается вообще

17:31пожаловаться #3

это вообще параллелится
ну и неизвестно, что у тебя в BackTest делается вообще

Запускается один цикл для массива (он глобальный), внутри чистая математика + условия, ничего интересного

17:33пожаловаться #4

MО

Miss Очепятка... in Delphi & Lazarus

Запускается один цикл для массива (он глобальный), внутри чистая математика + условия, ничего интересного

Таки это самое интересное.

17:33пожаловаться #5

Запускается один цикл для массива (он глобальный), внутри чистая математика + условия, ничего интересного

ну, если ничего интересного, то о чём мы тут вообще? )))

17:34пожаловаться #6

Miss Очепятка

Таки это самое интересное.

Почему? Вот почему это так интересно? Это ж никак не влияет на те циклы, которые мне нужно поставить на "паузу"

17:34пожаловаться #7

MО

Miss Очепятка... in Delphi & Lazarus

Почему? Вот почему это так интересно? Это ж никак не влияет на те циклы, которые мне нужно поставить на "паузу"

Так ставьте делаете if и сохраняете состояние Backrest и его окружения. При загрузки востанавливаете состояние пропускает первые интеграции. Как ранее говорили.

17:37пожаловаться #8

ну, если ничего интересного, то о чём мы тут вообще? )))

for i := Max(fMAslow, fMAfast) to High(aOHLC) do
begin
  if aOHLC[i].T < fTestFromDate then
    Continue;
  if not position.ActiveShort then
    if (aMAvalue[i - 1][fMAslow] > aMAvalue[i][fMAslow]) then
      if (aMAvalue[i - 1][fMAfast] > aMAvalue[i - 1][fMAslow]) and
        (aMAvalue[i][fMAfast] < aMAvalue[i][fMAslow]) then
      begin
        if position.ActiveLong then
        begin
          if aOHLC[i].T > fResultFromDate then
            Inc(resultFromDateTotalClosedTrades);
          PositionCloseTakerLong(aOHLC[i].C, i);
          if aBalance[High(aBalance)].Sum < 1 then
            Break;
          if aBalance[High(aBalance)].Sum > resultBalanceMax then
            resultBalanceMax := aBalance[High(aBalance)].Sum;
        end;
        PositionOpenTakerShort(aOHLC[i].C, i);
      end;
  if not position.ActiveLong then
    if (aMAvalue[i - 1][fMAslow] < aMAvalue[i][fMAslow]) then
      if (aMAvalue[i - 1][fMAfast] < aMAvalue[i - 1][fMAslow]) and
        (aMAvalue[i][fMAfast] > aMAvalue[i][fMAslow]) then
      begin
        if position.ActiveShort then
        begin
          Inc(resultTotalClosedTrades);
          if aOHLC[i].T > fResultFromDate then
            Inc(resultFromDateTotalClosedTrades);
          PositionCloseTakerShort(aOHLC[i].C, i);
          if aBalance[High(aBalance)].Sum < 1 then
            Break;
          if aBalance[High(aBalance)].Sum > resultBalanceMax then
            resultBalanceMax := aBalance[High(aBalance)].Sum;
        end;
        PositionOpenTakerLong(aOHLC[i].C, i);
      end;
  { MA }
  if graphOut then
  begin
    if aMAvalue[i][fMAslow] > 0 then
      slowMA.AddXY(aOHLC[i].T, aMAvalue[i][fMAslow]);
    if aMAvalue[i][fMAfast] > 0 then
      fastMA.AddXY(aOHLC[i].T, aMAvalue[i][fMAfast]);
  end;
end;

17:37пожаловаться #9

Miss Очепятка

Ну да. Тут у меня базару нет, на том и порешили.

17:38пожаловаться #10

MО

Miss Очепятка... in Delphi & Lazarus

for i := Max(fMAslow, fMAfast) to High(aOHLC) do
begin
  if aOHLC[i].T < fTestFromDate then
    Continue;
  if not position.ActiveShort then
    if (aMAvalue[i - 1][fMAslow] > aMAvalue[i][fMAslow]) then
      if (aMAvalue[i - 1][fMAfast] > aMAvalue[i - 1][fMAslow]) and
        (aMAvalue[i][fMAfast] < aMAvalue[i][fMAslow]) then
      begin
        if position.ActiveLong then
        begin
          if aOHLC[i].T > fResultFromDate then
            Inc(resultFromDateTotalClosedTrades);
          PositionCloseTakerLong(aOHLC[i].C, i);
          if aBalance[High(aBalance)].Sum < 1 then
            Break;
          if aBalance[High(aBalance)].Sum > resultBalanceMax then
            resultBalanceMax := aBalance[High(aBalance)].Sum;
        end;
        PositionOpenTakerShort(aOHLC[i].C, i);
      end;
  if not position.ActiveLong then
    if (aMAvalue[i - 1][fMAslow] < aMAvalue[i][fMAslow]) then
      if (aMAvalue[i - 1][fMAfast] < aMAvalue[i - 1][fMAslow]) and
        (aMAvalue[i][fMAfast] > aMAvalue[i][fMAslow]) then
      begin
        if position.ActiveShort then
        begin
          Inc(resultTotalClosedTrades);
          if aOHLC[i].T > fResultFromDate then
            Inc(resultFromDateTotalClosedTrades);
          PositionCloseTakerShort(aOHLC[i].C, i);
          if aBalance[High(aBalance)].Sum < 1 then
            Break;
          if aBalance[High(aBalance)].Sum > resultBalanceMax then
            resultBalanceMax := aBalance[High(aBalance)].Sum;
        end;
        PositionOpenTakerLong(aOHLC[i].C, i);
      end;
  { MA }
  if graphOut then
  begin
    if aMAvalue[i][fMAslow] > 0 then
      slowMA.AddXY(aOHLC[i].T, aMAvalue[i][fMAslow]);
    if aMAvalue[i][fMAfast] > 0 then
      fastMA.AddXY(aOHLC[i].T, aMAvalue[i][fMAfast]);
  end;
end;

Вам архитектуру менять надо. Делать MVC.

17:39пожаловаться #11

Miss Очепятка

Вам архитектуру менять надо. Делать MVC.

Это что такое? Я не в курсе

17:39пожаловаться #12

Кстати:
if position.ActiveLong then
работать будет медленнее чем
if positionActiveLong then
Короче запись - это тормоз😁👍

17:41пожаловаться #13

Кстати:
if position.ActiveLong then
работать будет медленнее чем
if positionActiveLong then
Короче запись - это тормоз😁👍

position - type record

17:42пожаловаться #14

Miss Очепятка

Вам архитектуру менять надо. Делать MVC.

примерно понял, нет, мне MVC явно не подойдёт

17:44пожаловаться #15

for i := Max(fMAslow, fMAfast) to High(aOHLC) do
begin
  if aOHLC[i].T < fTestFromDate then
    Continue;
  if not position.ActiveShort then
    if (aMAvalue[i - 1][fMAslow] > aMAvalue[i][fMAslow]) then
      if (aMAvalue[i - 1][fMAfast] > aMAvalue[i - 1][fMAslow]) and
        (aMAvalue[i][fMAfast] < aMAvalue[i][fMAslow]) then
      begin
        if position.ActiveLong then
        begin
          if aOHLC[i].T > fResultFromDate then
            Inc(resultFromDateTotalClosedTrades);
          PositionCloseTakerLong(aOHLC[i].C, i);
          if aBalance[High(aBalance)].Sum < 1 then
            Break;
          if aBalance[High(aBalance)].Sum > resultBalanceMax then
            resultBalanceMax := aBalance[High(aBalance)].Sum;
        end;
        PositionOpenTakerShort(aOHLC[i].C, i);
      end;
  if not position.ActiveLong then
    if (aMAvalue[i - 1][fMAslow] < aMAvalue[i][fMAslow]) then
      if (aMAvalue[i - 1][fMAfast] < aMAvalue[i - 1][fMAslow]) and
        (aMAvalue[i][fMAfast] > aMAvalue[i][fMAslow]) then
      begin
        if position.ActiveShort then
        begin
          Inc(resultTotalClosedTrades);
          if aOHLC[i].T > fResultFromDate then
            Inc(resultFromDateTotalClosedTrades);
          PositionCloseTakerShort(aOHLC[i].C, i);
          if aBalance[High(aBalance)].Sum < 1 then
            Break;
          if aBalance[High(aBalance)].Sum > resultBalanceMax then
            resultBalanceMax := aBalance[High(aBalance)].Sum;
        end;
        PositionOpenTakerLong(aOHLC[i].C, i);
      end;
  { MA }
  if graphOut then
  begin
    if aMAvalue[i][fMAslow] > 0 then
      slowMA.AddXY(aOHLC[i].T, aMAvalue[i][fMAslow]);
    if aMAvalue[i][fMAfast] > 0 then
      fastMA.AddXY(aOHLC[i].T, aMAvalue[i][fMAfast]);
  end;
end;

и чо, например, как часто выполняется (истинное условие)

  if aOHLC[i].T < fTestFromDate then
    Continue;

17:46пожаловаться #16

for i := Max(fMAslow, fMAfast) to High(aOHLC) do
begin
  if aOHLC[i].T < fTestFromDate then
    Continue;
  if not position.ActiveShort then
    if (aMAvalue[i - 1][fMAslow] > aMAvalue[i][fMAslow]) then
      if (aMAvalue[i - 1][fMAfast] > aMAvalue[i - 1][fMAslow]) and
        (aMAvalue[i][fMAfast] < aMAvalue[i][fMAslow]) then
      begin
        if position.ActiveLong then
        begin
          if aOHLC[i].T > fResultFromDate then
            Inc(resultFromDateTotalClosedTrades);
          PositionCloseTakerLong(aOHLC[i].C, i);
          if aBalance[High(aBalance)].Sum < 1 then
            Break;
          if aBalance[High(aBalance)].Sum > resultBalanceMax then
            resultBalanceMax := aBalance[High(aBalance)].Sum;
        end;
        PositionOpenTakerShort(aOHLC[i].C, i);
      end;
  if not position.ActiveLong then
    if (aMAvalue[i - 1][fMAslow] < aMAvalue[i][fMAslow]) then
      if (aMAvalue[i - 1][fMAfast] < aMAvalue[i - 1][fMAslow]) and
        (aMAvalue[i][fMAfast] > aMAvalue[i][fMAslow]) then
      begin
        if position.ActiveShort then
        begin
          Inc(resultTotalClosedTrades);
          if aOHLC[i].T > fResultFromDate then
            Inc(resultFromDateTotalClosedTrades);
          PositionCloseTakerShort(aOHLC[i].C, i);
          if aBalance[High(aBalance)].Sum < 1 then
            Break;
          if aBalance[High(aBalance)].Sum > resultBalanceMax then
            resultBalanceMax := aBalance[High(aBalance)].Sum;
        end;
        PositionOpenTakerLong(aOHLC[i].C, i);
      end;
  { MA }
  if graphOut then
  begin
    if aMAvalue[i][fMAslow] > 0 then
      slowMA.AddXY(aOHLC[i].T, aMAvalue[i][fMAslow]);
    if aMAvalue[i][fMAfast] > 0 then
      fastMA.AddXY(aOHLC[i].T, aMAvalue[i][fMAfast]);
  end;
end;

и записи в массиве у тебя по дате упорядочены? )

17:47пожаловаться #17

Кстати:
if position.ActiveLong then
работать будет медленнее чем
if positionActiveLong then
Короче запись - это тормоз😁👍

ну, если уж экономить на тактах..
у тебя
aBalance[High(aBalance)].Sum сколько раз используется? ;)

17:48пожаловаться #18

и чо, например, как часто выполняется (истинное условие)

  if aOHLC[i].T < fTestFromDate then
    Continue;

в зависимости от конкретной истории торгов, наверное может и сотенку тысяч раз, а в др. массиве вообще ни разу

17:48пожаловаться #19

и записи в массиве у тебя по дате упорядочены? )

конечно