/*[[
	Name := Точка вращения
	Author := Ким Игорь Викторович
	Link := http://www.kimiv.ru/
	Separate Window := No
	First Color := Red
	First Draw Type := Line
	First Symbol := 217
	Use Second Data := No
]]*/

Var: BarsInDay(0);      // Количество свечей в сутках
var: pDay(0), tDay(0);
Var: i(0), shift(0);
Var: H1(0), L1(0), C1(0);

if Period > 240 then {Alert("Периоды больше H4 не поддерживаются!"); Exit;};

SetLoopCount(0);
// По периоду графика определяем количество свечек в сутках.
if Period =   1 then BarsInDay = 1440; // M1
if Period =   5 then BarsInDay =  288; // M5
if Period =  15 then BarsInDay =   96; // M15
if Period =  30 then BarsInDay =   48; // M30
if Period =  60 then BarsInDay =   24; // H1
if Period = 240 then BarsInDay =    6; // H4
i = Mod(Bars, BarsInDay) - 1;
// Цикл с первой свечки (Bars - 1) по текущую (shift=0)
For shift = Bars - 1 Downto 0 Begin
	tDay = TimeDay(Time[shift]);
	if pDay <> tDay then {
		H1 = High [Highest(MODE_HIGH, shift + BarsInDay, BarsInDay)];
		L1 = Low  [Lowest(MODE_LOW  , shift + BarsInDay, BarsInDay)];
		C1 = Close[shift + 1];
		pDay = tDay;
	};
	SetIndexValue(shift, (H1 + L1 + C1) / 3);
End;