// 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();