// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Klinger Oscillator");
x = H+L+C;
trend = IIf(x>Ref(x,-1), 1, -1);
//trend = Cum(trend0);

dm = (H-L);
trend_dif = trend - Ref(trend, -1);
cm_today = IIf(trend_dif != 0, Ref(dm, -1), 0);
sf = IIf(trend_dif !=0, 1, 0);  //Smoothing factor -- 1 or '0'
fb = IIf(trend_dif == 0, 1, 0);  // feedback factor -- 1 or '0', //Cm0 = dm + fb * AMA(cm_today, 0);

cm = dm + sf*Ref(dm, -1) + fb * AMA(cm_today, 0);
Vf0 = (dm/cm -1 ) *2;
Vf = Vf0 * V *trend*100;
KO = EMA(Vf,34) - EMA(Vf,55);

Plot(ko, _DEFAULT_NAME(), ParamColor( "Color", colorBlue ), ParamStyle("Style") 
);