#Показывает, сколько раз цена коснулась хай\лоу, не пробив его. 
#Cнять галочку Include Extended Session
#www.nyser.ru ©

def iMinCount = 4; #Минимальное число касаний уровня
def iBars = 40; #число баров для подсчета касаний
def iDiff = 0.03; #погрешность измерений в долларах

def iLowest = lowest(low[0],iBars);
def iHighest = highest(high[0],iBars);

def iSummBaseLow = fold SBLbar = 0 to iBars with SBLsumm do if (low[SBLbar]<=iLowest+iDiff) then SBLsumm+1 else SBLsumm;
def iSummBaseHigh = fold SBHbar = 0 to iBars with SBHsumm do if (high[SBHbar]>=iHighest-iDiff) then SBHsumm+1 else SBHsumm;

def bLowSignal = if iSummBaseLow >= iMinCount   then 1 else 0;
def bHighSignal = if iSummBaseHigh >= iMinCount   then 1 else 0;

plot bOutput = if bLowSignal then iSummBaseLow 
else if bHighSignal then iSummBaseHigh 
else 1000;

AssignBackgroundColor (if bHighSignal then Color.LIGHT_GREEN else if bLowSignal  then Color.LIGHT_RED else Color.CURRENT);
bOutput.AssignValueColor (if bOutput<>1000 then Color.black else Color.CURRENT);