EasyLanguage

[Craft]

Да, начальный (в МТ перебор баров можно осуществлять, как слева направо, так и наоборот (в данном случае это и используется) - в ТС перебор слева направо).
Первоначально сдвиг (shift) = 0;
Определяется время начала этого бара;
По найденному времени находится первый бар младшего т/ф;
Определяется kolvo баров младшего т/ф входящих в бар старшего т/ф;
И начинается перебор - учёт всех младших баров в старшем т/ф: for (int i=a;i>=kolvo;i--),
Далее происходит сдвиг на следующий бар и всё по новой...

[ihaar]

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

принцип такой

data1 - 240 мин
data2 - 1 мин

на каждом баре минуток вычисляется некоторый параметр и суммируется (накапливается), т.е. меняется раз минуту.
на data1 мы обращаемся к data2 при каждом изменении этого параметра и имеем накопленный результат на момент закрытия 4х часового бара или накопленные 240 изменений параметра.

не вижу причин что бы это не работало..
и не нужно никаких счётчиков

[Craft]

Ок, попробуйте посчитать, для начала, количество минуток закрывшихся с понижением data2 - 1 мин, внутри data1 - 240 мин.
Может я чего-нибудь не так понимаю (по этой причине не показываю свои попытки, чтобы не сбить с толку возможной ошибкой).

[ihaar]

ну както так думаю

if Close Data2 < Open Data2 then kolvo = kolvo + 1;

и обнулять kolvo при открытии нового бара 240

[Craft]

))) ihaar, ну конкретней с Plot1(kolvo,"kolvo"), что получается?

P. S. Ещё, наверное, логичнее сравнивать изменение последнего Close[0] с предыдущим Close[1].
[] - не наводит на мысль о необходимости автоподстановки индекса для углубления в историю?

[ihaar]

вот что вышло



data1 - 240 мин
data2 - 1 мин
плот в виде гистограммы,
собраны все медвежьи минутные свечки внутри четырёхчасовика
на принтлоге справа виден момент как на предпоследнем пятничном баре в 20:00 накопилось 88 таких свечек и на новом баре в 20:01 значение обнулилось и пошло новое накопление

 

Код: [Выделить]

Vars:
kolvo(0);

If Close Data2 < Open Data2 then kolvo = kolvo + 1;
If Time[1] Data2 = Time Data1 then kolvo = 0;

plot1(kolvo,"kolvo");
plot2(0,"0");

print( Time:4:0, " / ", kolvo);

[Craft]

А если цены закрытия баров сравнивать, как будет?

[ihaar]

так как вы и писали:
If Close Data2 < Close[1] Data2

[Craft]

Пока не получилось получить достоверный результат. Для проверки попытался посчитать отрицательные и положительные бары внутри 5 мин. бара (Data1 - 5 мин., Data2 - 1 мин.).
По логике, внутри 5 мин. бара состоящего из 5 минуток не может быть больше 5 положительных либо 5 отрицательных баров, но мы видим превышение.
Необходимо усовершенствовать механизм обнуления на новом баре (если, конечно, я где-нибудь не ошибся).

Vars: barpl(0),barmin(0);

If Close Data2>Close[1] Data2 then begin
barpl = barpl + 1;
If Time[1] Data2 = Time Data1 then barpl = 0;
End;

If Close Data2<Close[1] Data2 then begin
barmin = barmin - 1;
If Time[1] Data2 = Time Data1 then barmin = 0;
End;

Plot1(barpl,"pl");
Plot2(barmin,"min");

[ihaar]

при сравнении цен закрытий у разных баров обнуление и подсчёт должны быть сложнее.
примерно так

Код: [Выделить]

vars: barpl(0), barmin(0);

condition1 = Close Data2 > Close[1] Data2;
condition2 = Close Data2 < Close[1] Data2;
condition3 = Time[1] Data2 = Time Data1;

if condition3 then begin
If Condition1 then begin
barpl = 1; barmin = 0;
end else
if Condition2 then begin
barmin = 1; barpl = 0;
end else begin
barmin = 0; barpl = 0;
end;
end else begin
if Condition1 then barpl = barpl + 1;
if Condition2 then barmin = barmin + 1;
end;

plot1(barpl,"barpl");
plot2(-barmin,"barmin");

так же необходимо в свойствах индикатроа снять галку "update value intra-bar (tick-by-tick)", иначе в рилтайме будет каша