//                          SHO - Simple Harmonic Oscillator
//
// A Time Cycle Oscillator - Published on IFTA Journal 2018 by Akram El Sherbini (pages 80-84)
//              (http://www.ftaa.org.hk/Files/2018130101754DGQ1JB2OUG.pdf)
//
// Bullish signals are generated when SHO crosses over 0
// Bearish signals are generated when SHO crosses under 0
//
// OverBought level is 40
// OverSold   level is -40
// ExtremeOB  level is 60
// ExtremeOS  level is -60
//
// As with most oscillators, divergences can be taken advantage of.
//
DEFPARAM CalculateOnLastBars = 1000
//EmaPeriod = 14                                             //Number of Periods of the EMA
EmaPeriods = max(2,min(999,EmaPeriods))                   //range 2-999
//
EmaPeriods = 14
Cy         = close[1]
Vt         = close - Cy
Vy         = Vt[1]
Att        = Vt - Vy
Ema        = average[EmaPeriods,1](Att)
Tt         = sqrt(abs(Vt/Ema))
Ti         = ((close > Cy) * Tt) OR (((close <= Cy) * Tt) * -1)
Vp         = average[EmaPeriods,1](Ti)
Tp         = average[EmaPeriods,1](Tt)
Sho        = Vp / Tp * 100
RETURN Sho AS "Sho",0 AS "0",60 AS "ExtremeOB",40 AS "Ob",-40 AS "Os",-60 AS "ExtremeOS"