индикатор RSX
study(title="RSX", shorttitle="RSX", overlay=false) src=input(close) length=input(4) //lvlob = input(70, title="OB Level") //lvlos = input(30, title="OS Level") //mid = input(50, title="Mid Level") clampmax = 1 clampmin = -1 f90_ = (nz(f90_[1]) == 0.0) ? 1.0 : (nz(f88[1]) <= nz(f90_[1])) ? nz(f88[1])+1 : nz(f90_[1])+1 f88 = (nz(f90_[1]) == 0.0) and (length-1 >= 5) ? length-1.0 : 5.0 f8 = 100.0*(src) f18 = 3.0 / (length + 2.0) f20 = 1.0 - f18 f10 = nz(f8[1]) v8 = f8 - f10 f28 = f20 * nz(f28[1]) + f18 * v8 f30 = f18 * f28 + f20 * nz(f30[1]) vC = f28 * 1.5 - f30 * 0.5 f38 = f20 * nz(f38[1]) + f18 * vC f40 = f18 * f38 + f20 * nz(f40[1]) v10 = f38 * 1.5 - f40 * 0.5 f48 = f20 * nz(f48[1]) + f18 * v10 f50 = f18 * f48 + f20 * nz(f50[1]) v14 = f48 * 1.5 - f50 * 0.5 f58 = f20 * nz(f58[1]) + f18 * abs(v8) f60 = f18 * f58 + f20 * nz(f60[1]) v18 = f58 * 1.5 - f60 * 0.5 f68 = f20 * nz(f68[1]) + f18 * v18 f70 = f18 * f68 + f20 * nz(f70[1]) v1C = f68 * 1.5 - f70 * 0.5 f78 = f20 * nz(f78[1]) + f18 * v1C f80 = f18 * f78 + f20 * nz(f80[1]) v20 = f78 * 1.5 - f80 * 0.5 f0 = ((f88 >= f90_) and (f8 != f10)) ? 1.0 : 0.0 f90 = ((f88 == f90_) and (f0 == 0.0)) ? 0.0 : f90_ v4 = ((f88 < f90) and (v20 > 0.0000000001)) ? (v14 / v20 + 1.0) * 50.0 : 50.0 rsx = (v4/50)-1 //RSXUp = rsx > rsx[1] //RSXDOWN = rsx < rsx[1] bcolor = iff(rsx > 0, iff( rsx > rsx[1], lime, green), iff( rsx < rsx[1], red, maroon)) plot(rsx, color=bcolor, linewidth=10, style = histogram, title="RSX")