перекупленности/перепроданности
study(title="Подсветка", shorttitle= "Подсветка", overlay=true) // AUDCAD 70-80-28-10 //1 Часть. Подсвечиваем перекупленность/перепроданность, учитывая состояние RSI 14 и Stochastic. cl = close op = open _high = high _low = low rsi_ = rsi(close, 14) st = stoch(close, high, low, 25) //Перекупленность: RSI >70, Stochastic > 80 rsiUP = input(title="Высокий RSI", type=integer, defval=70, minval=10, maxval=100) stUP = input(title="Перекупленность стохастика", type=integer, defval=80, minval=30, maxval=100) rsiDown = input(title="Низкий RSI", type=integer, defval=30, minval=10, maxval=100) stDown = input(title="Перепроданность стохастика", type=integer, defval=20, minval=0, maxval=100) StochAndRSIup = rsi_>rsiUP and st >stUP //Перепроданность. RSI <30, , Stochastic <20 StochAndRSIdown = rsi_ <rsiDown and st <stDown smoothK = 3 smoothD = 3 lengthRSI = 14 lengthStoch = 8 src = close rsi1 = rsi(src, lengthRSI) k = sma(stoch(rsi1, rsi1, rsi1, lengthStoch), smoothK) d = sma(k, smoothD) down = cross(k,d) and StochAndRSIdown[1] and k<stDown up = cross(k,d) and StochAndRSIup[1] and k>stUP barcolor( down ? yellow : na) barcolor(up ? lime : na )