// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("DPO");
 Version(5.00);
SetChartBkGradientFill( ParamColor("Backgroud Top Color", colorWhite),ParamColor("Background Bottom Color", colorWhite));


function DetrendedPriceOsc( Periods )
{
 return C - Ref( MA( C, Periods ), -( 1 + Periods/2 ) );
}

Plot( s=DetrendedPriceOsc( Param("Periods", 20, 1, 100 ) ),
		_DEFAULT_NAME(),
		ParamColor("Color", colorCycle ), ParamStyle("Style"));
		
	_SECTION_END();	
		
	_SECTION_BEGIN("0");	
Plot(k=0,"",ParamColor( "ColorZero", colorBlueGrey ),styleLine);




    {
        SK=s;
        SD=k;
    }
 

    {
        SK=s;
        SD=k;
    }
    
   
Buy  = Cross(  SK, SD);
Sell = Cross( SD,  SK); 


PlotShapes(IIf(Buy,shapeUpArrow,shapeNone) ,colorGreen);
PlotShapes(IIf(Sell,shapeDownArrow,shapeNone),colorRed);

Color = IIf( s > k, ParamColor("s Color", colorLightYellow ) , ParamColor( "k Color", colorRed ) );


PlotOHLC ( s, s, k, k, "", Color, styleCloud | styleNoLabel, Null, Null);

_SECTION_END();