Percent Rank Based ATR

Percent Rank Based ATR.afl

// Coded by Rajandran R
// Coded Date : 14-09-2018
// Author - Maketcalls (www.marketcalls.in )
// Co-Founder - Traderscafe (www.traderscafe.in)

_SECTION_BEGIN("Percent Rank Based ATR");
periods = Param( "Periods", 20, 1, 200, 1 );
PRBATR=PercentRank(LinearReg(ATR(periods),periods),periods);

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

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

_SECTION_BEGIN("Exploration");

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

_SECTION_END();