#Ищет базы по всем уровням, если сегодня движение в том же направлении что и вчера.
#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") - open(period = "DAY")[1] >0 then 1 else 0;
def bPrevDayDown = if close(period = "DAY") - 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;

plot bBase = if (bBaseLow and bChangeUP and  bPrevDayUp) then 1 
else if (bBaseHigh and bchangeDOWN and bPrevDayDown) 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 > 0 and bBase < 100 ) then Color.black else Color.CURRENT);