AJ25

study(title="Coral Trend Indicator - AJ25", shorttitle="CTI_LB v.AJ25")
src=security(tickerid,period,close)
sm1 =input(8, title="Smoothing Period 1")
sm2 =input(13, title="Smoothing Period 2")
sm3 =input(20, title="Smoothing Period 3")
sm4 =input(50, title="Smoothing Period 4")
cd = input(0.4, title="Constant D")
ribm=input(false, title="Ribbon Mode (Only for Period 4)")

di1 = (sm1 - 1.0) / 2.0 + 1.0
c11 = 2 / (di1 + 1.0)
c21 = 1 - c11
c31 = 3.0 * (cd * cd + cd * cd * cd)
c41 = -3.0 * (2.0 * cd * cd + cd + cd * cd * cd)
c51 = 3.0 * cd + 1.0 + cd * cd * cd + 3.0 * cd * cd

i11 = c11*src + c21*nz(i11[1])
i21 = c11*i11 + c21*nz(i21[1])
i31 = c11*i21 + c21*nz(i31[1])
i41 = c11*i31 + c21*nz(i41[1])
i51 = c11*i41 + c21*nz(i51[1])
i61 = c11*i51 + c21*nz(i61[1])
bfr1 = -cd*cd*cd*i61 + c31*(i51) + c41*(i41) + c51*(i31)
bfrC1 = bfr1 > nz(bfr1[1]) ? green : bfr1 < nz(bfr1[1])  ? red : blue

di2 = (sm2 - 1.0) / 2.0 + 1.0
c12 = 2 / (di2 + 1.0)
c22 = 1 - c12
c32 = 3.0 * (cd * cd + cd * cd * cd)
c42 = -3.0 * (2.0 * cd * cd + cd + cd * cd * cd)
c52 = 3.0 * cd + 1.0 + cd * cd * cd + 3.0 * cd * cd

i12 = c12*src + c22*nz(i12[1])
i22 = c12*i12 + c22*nz(i22[1])
i32 = c12*i22 + c22*nz(i32[1])
i42 = c12*i32 + c22*nz(i42[1])
i52 = c12*i42 + c22*nz(i52[1])
i62 = c12*i52 + c22*nz(i62[1])
bfr2 = -cd*cd*cd*i62 + c32*(i52) + c42*(i42) + c52*(i32)
bfrC2 = bfr2 > nz(bfr2[1]) ? green : bfr2 < nz(bfr2[1])  ? red : blue

di3 = (sm3 - 1.0) / 2.0 + 1.0
c13 = 2 / (di3 + 1.0)
c23 = 1 - c13
c33 = 3.0 * (cd * cd + cd * cd * cd)
c43 = -3.0 * (2.0 * cd * cd + cd + cd * cd * cd)
c53 = 3.0 * cd + 1.0 + cd * cd * cd + 3.0 * cd * cd

i13 = c13*src + c23*nz(i13[1])
i23 = c13*i13 + c23*nz(i23[1])
i33 = c13*i23 + c23*nz(i33[1])
i43 = c13*i33 + c23*nz(i43[1])
i53 = c13*i43 + c23*nz(i53[1])
i63 = c13*i53 + c23*nz(i63[1])
bfr3 = -cd*cd*cd*i63 + c33*(i53) + c43*(i43) + c53*(i33)
bfrC3 = bfr3 > nz(bfr3[1]) ? green : bfr3 < nz(bfr3[1])  ? red : blue

di4 = (sm4 - 1.0) / 2.0 + 1.0
c14 = 2 / (di4 + 1.0)
c24 = 1 - c14
c34 = 3.0 * (cd * cd + cd * cd * cd)
c44 = -3.0 * (2.0 * cd * cd + cd + cd * cd * cd)
c54 = 3.0 * cd + 1.0 + cd * cd * cd + 3.0 * cd * cd

i14 = c14*src + c24*nz(i14[1])
i24 = c14*i14 + c24*nz(i24[1])
i34 = c14*i24 + c24*nz(i34[1])
i44 = c14*i34 + c24*nz(i44[1])
i54 = c14*i44 + c24*nz(i54[1])
i64 = c14*i54 + c24*nz(i64[1])
bfr4 = -cd*cd*cd*i64 + c34*(i54) + c44*(i44) + c54*(i34)
bfrC4 = bfr4 > nz(bfr4[1]) ? green : bfr4 < nz(bfr4[1])  ? red : blue

plot(bfr1, title="Trend #1", linewidth=3, style=circles, color=bfrC1)
plot(bfr2, title="Trend #2", linewidth=3, style=circles, color=bfrC2)
plot(bfr3, title="Trend #3", linewidth=3, style=circles, color=bfrC3)
plot(ribm?na:bfr4, title="Trend #4", linewidth=3, style=circles, color=bfrC4)
bgcolor(ribm?bfrC4:na, transp=50)