% YoY

study("% YoY")

Period = input(title="Period Cycle", type=integer , defval=12)
//Seasonlength = input(title="Season length", type=integer, defval=66)
//Smoothing = input(title="SMA (smoothing)", type=integer, defval=5)

//LBP = Period / Seasonlength

lastyear = (close - close[1*Period]) / close[1*Period]
//twoyearsago = (close[1*Period] - close[1*Period + Period/LBP]) / close[1*Period + Period/LBP]
//threeyearsago = (close[2*Period] - close[2*Period + Period/LBP]) / close[2*Period + Period/LBP]
//fouryearsago = (close[3*Period] - close[3*Period + Period/LBP]) / close[3*Period + Period/LBP]

//cum = (lastyear+twoyearsago+threeyearsago+fouryearsago)/4

//smacum = sma(cum, Smoothing)

scolor = lastyear >= 0 ? green : red

hline(0)
plot(lastyear*10, color=scolor, offset = 0, style=columns)