FFTAnalyse[f[1,1.1,#,2]&,10,10]

displayAnalysis[{-1.5,1.5},{-8,8},{PlotJoined->False},{PlotJoined->False,PlotRange:>{Min[0,ymin-.1],Max[1.1,ymax]}}];