Make SweepFormula a bit faster

[t-b]

Here the SF code

selBasic = select(selchannels(AD), selsweeps(), selvis(all), selcm(ic))
selTP    = select(selrange(TP), $selBasic)
selE0    = select(selrange(E0), $selBasic)
dataTP   = data($selTP)
dataE0   = data($selE0)

#Zeroed TP traces

integrate(
derivative(
$dataTP
)
)

and

tp(tpfit(exp, amp), $selBasic)

and

# Average power spectrum of EO epoch from all IC traces

powerspectrum($dataE0, dB, avg, 0, 100)

and

# 60 hz ratio frequency from average power spectrum

store(power60HzRatio, powerspectrum($dataE0, dB, avg, 60, 100))

with 66 sweeps got here 40%.

Close #2351
Close #2398