Форум по Forex Tester 5

Евгений писал(а):Вот код сыроватый правда:

Работает Покуда только в режиме тестирования, В эдит моде показывает уровни предпоследнего дня и все. И еще есть небольшая проблемка но в чем никак не пойму, на режимах от часа до 5минут переход к уровням следующего дня начинается не в 00:00 а в 23:00, 23:45 чем меньше таймфрейм тем ближе к полуночи на минутках думаю будет в 23:55 не тестил. Terrenin Не подскажешь в чем дело?!

Terranin писал(а):А почему используется iHigh(..., 1); ? По идее должен использоваться 0. Потому и переход на предпоследнем баре происходит наверное. И даже не 0 там надо использовать а index.

Евгений писал(а):

Terranin писал(а):А почему используется iHigh(..., 1); ? По идее должен использоваться 0. Потому и переход на предпоследнем баре происходит наверное. И даже не 0 там надо использовать а index.

Потому что идет расчет от предылдущего хая, лоу и клоуза, на дневках, а судя по хелпу индекс берется от текущего таймфрейма на который поставлен индюк, чтобы обратиться к старшему таймфрейу на истории надо делать пересчет... Причем руками, судя по всему, или ты незадукоментировал функцию возврата старшего индекса к младшему? Допустим на часах у меня 25 свеча, стало быть на днях должна быть 1, но ни одна функция мине этого значения не вернет. А ежели бы такое было то историю на раз пересчитать монаа было... Хотя, камарилла это в принципе динамический индикатор и его уже мона использовать, ордера ставяться на отбой или пробой уровней в системе страто используются дополнителныее индикаторы и еще индюк зависящий от гринвичского меридиана ши-канал настроенный на европейскую и американскии сессии. Но его писать смысла нет.

Terranin писал(а):Чтобы работал и на истории надо писать iHigh(Symbol, PERIOD_D1, index + 1); Когда бежит в режиме тестирования index = 0 всегда (пересчитывается последний бар, потом добавляется новый), а на истории если пересчитать то в каждой точке индекс разный.

Евгений писал(а):

Terranin писал(а):Чтобы работал и на истории надо писать iHigh(Symbol, PERIOD_D1, index + 1); Когда бежит в режиме тестирования index = 0 всегда (пересчитывается последний бар, потом добавляется новый), а на истории если пересчитать то в каждой точке индекс разный.

Обломись. Invalid floatin point operation При попытке добавить индюк... Причем менял только строчку как ты предложил.

Terranin писал(а):А, да. Чего то я не посмотрел что у тебя жестко там период забит. Тогда индекс ему не пойдет. Если бы ты использовал текущий период тогда другое дело. В таком случае надо как то искать предыдущий день от текущего индекса на текущем таймфрейме.

Евгений писал(а):

Terranin писал(а):А, да. Чего то я не посмотрел что у тебя жестко там период забит. Тогда индекс ему не пойдет. Если бы ты использовал текущий период тогда другое дело. В таком случае надо как то искать предыдущий день от текущего индекса на текущем таймфрейме.

Если использовать текущий таймфрейм то у индюка весь смысл пропадеть. Сижу вот счас и пытаюсь придумать как пересчитать. Хотяя в прынципе этот индюк на истории не очень-то нужен, в МТ4 он тоже на истории не показывает нихрена, только последний день всегда работает.
Ты еще таймфреймы добавлять будешь? А то я счас на имеющиеся его настрою, а с другими наверняка работать не захочет.

Евгений писал(а): Хотяя в прынципе этот индюк на истории не очень-то нужен, в МТ4 он тоже на истории не показывает нихрена, только последний день всегда работает.

Евгений писал(а):Там так это реализовано что мозги вскипят. Сделал все как положено, теперь показывает нормально и на истории и в режиме тестирования. Исходник и дллка в архиве, при желании туда теперь можно добавить и уровни суппорта резистенса, и мид и фиб пивоты... А можно их и отдельными сделать
Terranin заметил такую фишку, функции iTime, iHigh, iLow параметр shift имеет тип longword. А index:integer, короче любая попытка обратиться к барам через индекс текущего бара в этих функциях приводит к посылу далеко и надолго да и вообще, поскольку эти параметры связаны неплохо бы было привести их к одному типу.

Terranin писал(а): Почему к посылу? Вполне можно вместо longword подставлять integer. Просто shift по идее не бывает отрицательным. Shift в этих функциях это индекс бара от 0 в положительном направлении.

Евгений писал(а):

Terranin писал(а): Почему к посылу? Вполне можно вместо longword подставлять integer. Просто shift по идее не бывает отрицательным. Shift в этих функциях это индекс бара от 0 в положительном направлении.

Можно то можно, но хня в том что даже присвоение переменной типа longword значения индекса не решает проблему и все равно выдается обшибка "типа инвалид флоатинг пойнт" И потом простая логика требует что раз индекс и шифт положительные для пущей надежности привести их к одному типу. чтобы не возникали исключения.

Terranin писал(а): А ошибка скорее всего была из-за отрицательного значения которое привелось к положительному и выдало индекс которого нет в массиве.

Евгений писал(а):

Terranin писал(а): А ошибка скорее всего была из-за отрицательного значения которое привелось к положительному и выдало индекс которого нет в массиве.

Не знаю, может и так... Но я вообще-то когда отлаживал выводил принтом значение индекса в журнал, все было в порядке (про отрицательное значение я тоже подумал вначале), потом сделал переменную типа лонгворд и ей индекс присвоил, оказалась та же фигня, точно не знаю в чем беда но любая прямая передача значения индекса в iTime вызывало ошибку и крах, потому и пришлось мудрить с процедурой поиска дневного бара таким диким выходом. Кст в МТ4 есть функция поиска бара по переданному времени, если понадобится можешь мою использовать, тока глянь может перебор циклов уменьшишь, а то у меня там перебор всего массива происходит чаще всего. Да чуть не забыл выложи описания модуля TechnicalFunctions, а то в нем рыться...

function iMA(currency: string; period: integer): double;
  var
    sum, weight, price: double;
    i: integer;
  begin
    sum := 0;
    weight := 0;
    for i:=0 to period - 1 do
      begin
        price := (iHigh(currency, tm, index + i) + iLow(currency, tm, index + i) +
          iClose(currency, tm, index + i)*2)/4;
        sum := sum + price*(period - i);
        weight := weight + (period - i);
      end;
    result := sum/weight;
  end;

type
  TPriceType = (pt_Close, pt_Open, pt_High, pt_Low, pt_HL2, pt_HLC3, pt_HLCC4);
  TMAType = (ma_SMA, ma_EMA, ma_WMA, ma_SSMA);
  TValueType = (vt_Open, vt_High, vt_Low, vt_Close, vt_Volume);


// Get price by index and type
// index - index in bar array
// PriceType - type of price or combination
function  GetPrice(index: integer; PriceType: TPriceType): double;

// Register option "Apply to price" and fill array of its
// text values
procedure RegApplyToPriceOption(var option: integer; name: string = '');

// Register option "MA type" and fill array of its text values
procedure RegMATypeOption(var option: integer; name: string = '');

// Get linear regression channel parameters
// shift - shift value
// period - channel period
// PriceType - type of price
// StartValue - start price of center line
// EndValue - end price of center line
// Height - channel height
// top - channel top
// bottom - channel bottom
procedure LRCChannelParams(shift, period: integer; PriceType: TPriceType;
            var StartValue, EndValue, Height, Top, Bottom: double);

// Get moving average value
// index - index in bars array
// shift - shift value
// maType - moving average type (SMA, EMA, WMA)
// ApplyTo - price type
// prev - previous value for EMA
function  GetMA(index, shift, period: integer; maType: TMAType;
            ApplyTo: TPriceType; prev: double = 0): double;

// Get highest value in array
// ValueType - type of the value (vt_Open..vt_Volume)
// StartIndex - index from which we start search
// count - number of bars to search
function  GetHighestValue(ValueType: TValueType; StartIndex, count: integer): double;

// Get lovest value in array
// ValueType - type of the value (vt_Open..vt_Volume)
// StartIndex - index from which we start search
// count - number of bars to search
function  GetLowestValue(ValueType: TValueType; StartIndex, count: integer): double;

Евгений писал(а):Счас посмотрел у меня там вообще тоже инт используется. Значит какая-то проблема с индексом все-же.
Первый вариант определения даты расчитываемого бара был таким.

Код: Выделить всё

CurDate:=iTime(Symbol, TimeFrame, index);

обломился.
сделал так

Код: Выделить всё

ind:longword;

ind:=index;
Print(IntToStr(ind));
CurDate:=iTime(Symbol, TimeFrame, ind);

в журнал выдает нормальный положительный номер текущего бара т.е. Принт отрабатывает, на тайме ошибка...
вот и пришлось мудрить.

Код: Выделить всё

procedure FindDayBar(ind:longword; var FindDayBar:integer); // Поиск дневного бара соответствующего расчитываемому.
var
  CurDate,FindDate:TDateTime;
  i, count,bar:integer;
begin
  for i:=0 to bars-1 do
  begin
    if i=ind then count:=i;
  end;
  CurDate:=iTime(Symbol, TimeFrame, count);
  bar:=iBars(Symbol, PERIOD_D1);
  for i:=0 to bar-1 do
  begin
    FindDate:=iTime(Symbol, PERIOD_D1, i);
    if CurDate= FindDate then
    begin
      FindDayBar:=i;
      exit;
    end;
  end;
end;

Terranin писал(а): Скорее всего индекс неверный. В индикатор приходит index по текущему таймфрейму а в iTime жестко забит таймфрейм PERIOD_D1. Индекс например на 15шках намного больше может быть чем на дневках и выходить за пределы массива.

CurDate:=iTime(Symbol, [b]TimeFrame[/b], index);

Inn писал(а):Помогите пожалуйста?
На индикаторе Camarilla, можно сделать так,
что бы, квадратиков (линии) на всей истории не было, а только на текущем дне,
или выставить флажок и с количеством дней в параметрах,
кому надо тот выставит историю.

Спасибо.