// 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", colorLightOrange ), ParamStyle("Style"));
		
	_SECTION_END();	
		
	_SECTION_BEGIN("DEMA");	
		
		P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
Plot( k=DEMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorRed ), ParamStyle("Style") ); 




    {
        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);

Plot(0,"",ParamColor( "ColorZero", colorBlueGrey ),styleLine);

    {
        SK=s;
        SD=k;
    }
 

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

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


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

_SECTION_END();


_SECTION_BEGIN("Exploracja");

ProgADX1 = Param("Próg Min ADX", 20,1,80,1);
ProgADX2 = Param("Próg Max ADX", 50,1,80,1);

ADXTrend=ADX(14)>ProgADX1 ;

ProcPonadMA50=(C/Wilders(C,50)-1)*100;


AddColumn(Close,"Close");
AddColumn(Volume,"Wolume",1.0);
AddColumn(Wilders(C,50),"MA(50)");
AddColumn(ADX(14),"ADX(14)");


Filter=  s>k AND Volume>50000;

_SECTION_END();