A simple script I wrote that allows you to look at the posture of a moving average. Rates of change can be useful to understanding momentum. Additionally, I have included a signal line so you can see if the posture is more or less than average.
study(title="MA Posture", shorttitle="MAP", overlay= false) //Get input parameters------------------------------------ len = input(50, minval=1, title="Length") src = input(close, title="Source") posture = input(1, minval=1, title = "Look-Back Period") signal = input(13, minval = 1, title = "Signal length") //Calculate Posture------------------------------------- difference = (sma(src,len) - sma(src, len)[iff(posture < len, posture, len)]) / sma(src, len)[iff(posture < len, posture, len)] //Get a signal sig = sma(difference, signal) plot(difference, style = columns, color=blue, transp = 40, title="MAP") plot(sig, style = line, color = purple, linewidth = 3, transp = 0, title = "signal line")