//---------------AFR--------------------\\

// Inputs
p = input(300, "Period",group = "AFR")
atr_factor = input.float(2.6, "Factor", step = 0.1,group = "AFR")
boolafr = input.bool(true, "Use AFR?",group = "AFR")

// Calculations
afratr = ta.atr(p)
e = afratr * atr_factor

afr = close
afr := nz(afr[1], afr)

atr_factoryHigh = close + e
atr_factoryLow = close - e

if atr_factoryLow > afr
    afr := atr_factoryLow
if atr_factoryHigh < afr
    afr := atr_factoryHigh

col = afr > afr[1] ? #00FF00 : #FF0000
col := afr == afr[1] ? col[1] : col

buy  = afr > afr[1] and not (afr[1] > afr[2])
sell = afr < afr[1] and not (afr[1] < afr[2])
ls = 0
ls := buy ? 1 : sell ? -1 : ls[1]

int afrsignal = na

if boolafr

	//----------------------------PERP SWITCH------------------------------\\
    // var bool afrlong = na // code taken from chatGPT
    // var bool afrshort = na

    // afrlong := na(afrlong) ? afr > afr[1] ? true : false : afrlong[1]
    // afrshort := na(afrshort) ? afr < afr[1] ? true : false : afrshort[1]
	//----------------------------END OF SWITCH------------------------------\\

	//TPI STUFF//
    afrlong = afr > afr[1] and ls != ls[1]
    afrshort = afr < afr[1] and ls != ls[1]
    if afrlong
        entrycount += 1
        longcomment += " AFR"
        afrsignal := 1
    if afrshort
        entrycount -= 1
        shortcomment += " AFR"
        afrsignal := -1

    sigcount += 1