I created a function that computes an adaptive ATR with the period coming from estimations using fft on a certain window. the highpass and supersmoother functions come from Jhon Ehlers work; they select data with cycles periods between 10 and 48 observations.