[RS]Temporal Fractal Flow Study V1

study("[RS]Temporal Fractal Flow Study V1", overlay=true)
T12M = not input(false) ? na : security(tickerid, '12M', open)
T06M = not input(false) ? na : security(tickerid, '6M', open)
T03M = not input(false) ? na : security(tickerid, '3M', open)
T01M = not input(false) ? na : security(tickerid, 'M', open)
T02W = not input(false) ? na : security(tickerid, '2W', open)
T01W = not input(false) ? na : security(tickerid, 'W', open)
T02D = not input(false) ? na : security(tickerid, '2D', open)
T01D = not input(false) ? na : security(tickerid, 'D', open)
T720 = not input(false) ? na : security(tickerid, '720', open)
T480 = not input(false) ? na : security(tickerid, '480', open)
T240 = not input(false) ? na : security(tickerid, '240', open)
T120 = not input(false) ? na : security(tickerid, '120', open)
T060 = not input(false) ? na : security(tickerid, '60', open)
T030 = not input(false) ? na : security(tickerid, '30', open)
T015 = not input(false) ? na : security(tickerid, '15', open)
T005 = not input(false) ? na : security(tickerid, '5', open)

cf(_v1, _v2)=>_v1 > _v2 ? green : _v1 < _v2 ? maroon : na
plot(T12M, color=cf(T12M, T01M), linewidth=4)
plot(T06M, color=cf(T06M, T12M), linewidth=3)
plot(T03M, color=cf(T03M, T06M), linewidth=3)
plot(T01M, color=cf(T01M, T03M), linewidth=2)
plot(T01W, color=cf(T02W, T01M), linewidth=2)
plot(T02W, color=cf(T02W, T01M), linewidth=1)
plot(T01W, color=cf(T01W, T02W), linewidth=1)
plot(T02D, color=cf(T02D, T01W), linewidth=4)
plot(T01D, color=cf(T01D, T02D), linewidth=3)
plot(T720, color=cf(T720, T01D), linewidth=3)
plot(T480, color=cf(T480, T720), linewidth=3)
plot(T240, color=cf(T240, T480), linewidth=2)
plot(T120, color=cf(T120, T240), linewidth=2)
plot(T060, color=cf(T060, T120), linewidth=2)
plot(T030, color=cf(T030, T060), linewidth=1)
plot(T015, color=cf(T015, T030), linewidth=1)
plot(T005, color=cf(T005, T015), linewidth=1)