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

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