// Downloaded From https://www.WiseStockTrader.com _SECTION_BEGIN("Klinger Oscillator"); x = H+L+C; trend = IIf(x>Ref(x,-1), 1, -1); 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); fb = IIf(trend_dif == 0, 1, 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(), styleThick , ParamColor( "Color", colorGold ), ParamStyle("Style") ); a=H+L+C; b=Ref(a,-1); Trend=IIf(a > b, 1,-1); dm = H - L; Cm = Cum(dm); Cm = IIf(trend=-1,Ref(Cm,-1)+dm, Ref(dm,-1) + dm); Vf= V * (2 *( dm/Cm -1)) * trend * 100; KO = EMA(Vf,34) - EMA(Vf,55); Plot(ko,"KO",colorRed,styleLine); TL = EMA(KO,13); Plot(TL,"TL",colorWhite,styleLine); a=H+L+C; b=Ref(a,-1); Trend=IIf(a > b, 1,-1); dm = H - L; Cm = Cum(dm); Cm = IIf(trend=-1,Ref(Cm,-1)+dm, Ref(dm,-1) + dm); Vf= V * (2 *( dm/Cm -1)) * trend * 100; KO = EMA(Vf,34) - EMA(Vf,55); Plot(ko,"KO",colorYellow,styleLine); TL = EMA(KO,13); Plot(TL,"TL",colorGreen,styleLine); _SECTION_END();