// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("KPSnapBack");



LenDPO = 8;

Len1=8;
Len2=16;
Len3=3;

sw = E_TSKPUPSELL(Open,High,Low,Close,Volume);
KPTriggerLine = tskp_triggerline;
Detrend = KPTriggerLine - MA(KPTriggerLine, LenDPO);	//Detrend KPTriggerLine
Detrend1 = EMA(Detrend, Len1);
Detrend2 = EMA(Detrend, Len2);
KPSnapBack = EMA(Detrend, Len3);

Color = IIf(KPSnapBack > Detrend2, colorBlue, 
        IIf(KPSnapBack < Detrend2, colorRed, colorGrey40));
 
Plot(WMA( KPSnapBack , 6), "Smoothed", colorWhite);

Plot (KPSnapBack, "KPSnapBack", Color, styleHistogram|styleThick);
Plot(0, "", colorDarkGrey);
//--Created by Kelvinhand
_SECTION_END();