RSX simplified code. Strictly equivalent to the original one.

// Parameters
// Len : 14

once alpha = 3 / (Len + 2) // alpha
once ialpha = 1 - alpha // 1 - alpha

if barindex > Len then
f8 =  100 * close
f10 = f8[1]
v8 = f8 - f10

f28 = ialpha * f28[1] + alpha * v8
f30 = alpha * f28 + ialpha * f30[1]
vC = f28 * 1.5 - f30 * 0.5

f38 = ialpha * f38[1] + alpha * vC
f40 = alpha * f38 + ialpha * f40[1]
v10 = f38 * 1.5 - f40 * 0.5

f48 = ialpha * f48[1] + alpha * v10
f50 = alpha * f48 + ialpha * f50[1]
v14 = f48 * 1.5 - f50 * 0.5

f58 = ialpha * f58[1] + alpha * abs(v8)
f60 = alpha * f58 + ialpha * f60[1]
v18 = f58 * 1.5 - f60 * 0.5

f68 = ialpha * f68[1] + alpha * v18
f70 = alpha * f68 + ialpha * f70[1]
v1C = f68 * 1.5 - f70 * 0.5

f78 = ialpha * f78[1] + alpha * v1C
f80 = alpha * f78 + ialpha * f80[1]
v20 = f78 * 1.5 - f80 * 0.5

if v20 > 0 then
v4 = (v14 / v20 + 1) * 50
else
v4 = 50
endif

if v4 > 100 then
rsx = 100
else
rsx = v4
endif
endif

return rsx as "JR", 30 coloured(0,255,0) style(dottedline), 50 coloured(0,0,255) style(dottedline), 70 coloured(255,0,0) style(dottedline), 52.5 coloured(255, 127, 0) style(dottedline), 47.5 coloured(255, 127, 0) style(dottedline), alpha