/*[[
	Name   := Скальпинг
	Author := Ким Игорь Викторович
	Link   := http://www.kimiv.ru/
	Notes  := Показывает дневные экстремумы на заданное время.
	Separate Window := No
	First Color := Blue
	First Draw Type := Line
	First Symbol := 217
	Use Second Data := Yes
	Second Color := Red
	Second Draw Type := Line
	Second Symbol := 218
]]*/

Input: Set_Hour(9), Set_Minute(30);    // Заданное время

Var: i(0), KBarDay(0), sh(0), sm(0);
Var: HAsk(0), LBid(0);

if Period > 60 then {Comment("Периоды больше H1 не поддерживаются!"); Exit;}
SetLoopCount(0);
For i = Bars - 1 Downto 0 Begin
	sh = TimeHour(Time[i]);
	sm = TimeMinute(Time[i]);
	if sh = Set_Hour and sm = Set_Minute then {
		if Period >= 1 or Period <= 60 then {
			KBarDay = Ceil((60 * sh + sm) / Period);
		}
		HAsk = High[Highest(MODE_HIGH, i + KBarDay, KBarDay)];
		LBid = Low[Lowest(MODE_LOW, i + KBarDay, KBarDay)];
	}
	SetIndexValue(i, HAsk);
	SetIndexValue2(i, LBid);
End;
Comment("Канал ", (HAsk - LBid) / Point);