#Ищет базы по всем уровням, если сегодня и вчера движение в одном направлении. показывает цену базы
#Cнять галочку Include Extended Session
#www.nyser.ru ©

def iDiff = 0.05; #максимальное отклонение в центах
def iBars = 4; #число баров для просмотра базы
def iLowest = lowest(low[1],iBars);
def iHighest = highest(high[1],iBars);

def bBaseLow = fold Lbar = 1 to iBars+1 with Lsumm=1 do if 
((low[Lbar]-iLowest)<=iDiff) then Lsumm*1 else Lsumm*0;
def bBaseHigh = fold Hbar = 1 to iBars+1 with Hsumm=1 do 
if ((iHighest-high[Hbar])<=iDiff) then Hsumm*1 else 
Hsumm*0;

def bPrevDayUp = if close(period = "DAY")[1] - open(period = "DAY")[1] >0 then 1 else 0;
def bPrevDayDown = if close(period = "DAY")[1] - open(period = "DAY")[1] <0 then 1 else 0;

def bChangeUP = if (close-open(period = "DAY")>0) then 1 else 0;
def bChangeDOWN = if (close-open(period = "DAY")<0) then 1 else 0;

def bSignalUp = if (bBaseLow and bChangeUP and  bPrevDayUp) then 1 else 0; 
def bSignalDown = if (bBaseHigh and bchangeDOWN and bPrevDayDown) then 1 else 0; 

plot output = if bsignalDown then iHighest else if bsignalUp then ilowest else 10000;

AssignBackgroundColor (if bSignalUp then Color.LIGHT_GREEN else if bSignalDown then Color.LIGHT_RED else Color.black);
output.AssignValueColor (if bSignalUp or bSignalDown then Color.black else Color.cURRENT);