// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Percent Rank Based ATR");
periods = Param( "Periods", 20, 3, 200, 1 );
PRB_ATR=PercentRank(LinearReg(ATR(periods),periods),periods);

color = IIf(PRB_ATR > Ref(PRB_ATR,-1) OR PRB_ATR == 100,colorBlue,colorRed);
prbstatus = WriteIf(PRB_ATR > Ref(PRB_ATR,-1) OR PRB_ATR == 100,"Increasing","Decreasing");

Plot( PRB_ATR, "PRB-ATR", color, styleLine | styleThick );
_SECTION_END();

_SECTION_BEGIN("Exploration");

Filter = 1; //allow all
AddColumn(Close,"LTP",1.2);
AddColumn(PRB_ATR,"PRB_ATR",1.2,colorWhite,color);
AddTextColumn(prbstatus,"Status",1,colorWhite,color);

_SECTION_END();