<strong>#Ищет базу на любых уровнях.</strong>
#Cнять галочку Include Extended Session
#Thinkorswim  https://RadchenkoVY.com/TOS


def iDiff = 0.00; #максимальное отклонение в центах
def iBars = 4; #число баров для просмотра
def iLowest = lowest(low,iBars);
def iHighest = highest(high,iBars);
def bBaseLow = fold Lbar = 0 to iBars with Ls=1 do if ((low[Lbar]-iLowest)<=iDiff) then Ls*1 else Ls*0;
def bBaseHigh = fold Hbar = 0 to iBars with Hs=1 do if ((iHighest-high[Hbar])<=iDiff) then Hs*1 else Hs*0;
plot bBase = if bBaseLow then 1 else if bBaseHigh then 2 else 100;
AssignBackgroundColor (if (bBase == 1) then Color.LIGHT_GREEN else if (bBase == 2) then Color.LIGHT_RED else Color.black);
bBase.AssignValueColor (if bBase <> 100 then Color.black else Color.CURRENT);

<strong>#Ищет базу на уровнях кратным 50 центам.</strong>
#Cнять галочку Include Extended Session
#Thinkorswim  https://RadchenkoVY.com/TOS

def iDiff = 0.00; #максимальное отклонение в центах
def iBars = 4; #число баров для просмотра
def iLowest = lowest(low,iBars);
def iHighest = highest(high,iBars);
def bBaseLow = fold Lbar = 0 to iBars with Lsumm=1 do if  ((low[Lbar]-iLowest)<=iDiff) then Lsumm*1 else Lsumm*0;
def bBaseHigh = fold Hbar = 0 to iBars with Hsumm=1 do  if ((iHighest-high[Hbar])<=iDiff) then Hsumm*1 else  Hsumm*0;
def iFigureLow = fold FLbar = 1 to iBars+1 with FLsumm  do if (low[FLbar] == (Floor(low[FLbar]*2))/2) then  FLsumm+1 else FLsumm;                  
def iFigureHigh = fold FHbar = 1 to iBars+1 with FHsumm  do if (high[FHbar] == (Ceil(high[FHbar]*2))/2) then  FHsumm+1 else FHsumm;
plot bBase = if (bBaseLow and iFigureLow) then 1 else if  (bBaseHigh and iFigureHigh) then 2 else 100;
AssignBackgroundColor (if (bBase == 1) then Color.LIGHT_GREEN else if (bBase == 2) then Color.LIGHT_RED else Color.black);
bBase.AssignValueColor (if bBase <> 100 then Color.black else Color.CURRENT);

На дневном фрейме бумага торгуется в восходящем коридоре.

Динамический уровнет сопротивления которого находится на отметке 446 рублей, динамическая же поддержка на отметке 403 рубля.

Однако, для того, чтобы цена опустилась к динамической поддержке в 403 рубля (она такая на сегодняшний день), продавцам необходимо продавить промежуточную растущую краткосрочную поддержку (чёрный цвет) с динамическим уровнем 424 рубля. 

Только после этого имеем шансы на поход к нижней границе дневного канала. 

Баллада о Граале.


Чуть не выбил от радости стену
Даже руку сломать не жаль
Я придумал сегодня Систему
Не систему -а просто Грааль!

Раньше был я кретином полнейшим
И оценивал фундаментал
А теперь приобщился к мудрейшим
Я теперь Алготрейдером стал!

На экран с наслажденьем взирая,
За бэктестом бэктест провожу
За пять лет миллион получаю,
Если седня пять тысячь вложу

Да конечно, бывают просадки
Ну процентов так двадцать пять
Да и раньше все было не гладко
И нас этим не надо пугать.

Своему дружбану Сереге
Заценить я бэктест предложил
Он решил что мильен слишком много
А вот тысячь семьсот бы вложил.

Я в квике  программу сварганил
На квипайле -все по уму..
Запустил и работать оставил
Но где прибыль опять не пойму?

Не растет моей эквити график
А Серега звонит, злодей
Ты похоже ошибся нафиг!!
Выключай все давай скорей!!

Я все выключил… сердце бьется.
Как же так? Я же все посчитал!
И с проскользами все удается
И комиссии верно задал

Через час  позвонил Серега
И я долго ему обьяснял,
Что терпеть нам осталось немного
Алгоритм мой в просадку попал


Успокоились… больше не ноем
Все нормально -смотри и терпи
Мы за месяц с таким настроем
До просадки в пол депо дошли


Не звонит мне больше Сережка
Не купил я пежо для жены
Алгоритм я подправил немножко
Жаль, для тестинга деньги нужны


От тревожных таких занятий
Постоянно мне снится сон
Будто я зверек непонятный
С перевернутым взад лицом

И бегу я вдаль с голой жопой
А башка всегда позади
Но никак не найти дороги
Сколько задом вперед не беги


Не осилить мне эти тропы
Или хищник коварный  сьест
Ведь на каждую хитрую жопу
Жизнь придумала левый бэктест)))