Instrument Function

Author

Eric W. Weisstein
October 7, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/SpecialFunctions/InstrumentFunction.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/InstrumentFunction.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Plots

ApodizationPlot[{f_,i_},{x_,k_},a_,myopts___]:=With[{opts=Sequence[PlotStyle->Red,DisplayFunction->Identity]},Show[GraphicsArray[{Plot[f/.a->1,{x,-1,1},myopts,opts,PlotRange->{{-1,1},{0,1}},AxesLabel->TraditionalForm/@{InlineFraction[x,a],A[InlineFraction[x,a]]}],Plot[i/.a->1,{k,-Pi,Pi},myopts,opts,PlotRange->All,AxesLabel->TraditionalForm/@{k a,InlineFraction[ii[k a],a]}],Plot[i/.a->1,{k,-5,5},myopts,opts,AxesLabel->TraditionalForm/@{k a,InlineFraction[ii[k a],a]}]}],ImageSize->400,GraphicsSpacing->-.1]]

Bartlett[x,1]
Blackman[x,a_]:=(.42+.5 Cos[Pi x/a]+.08 Cos[2 Pi x/a])
Connes[x_,a_]:=(1-x^2/a^2)^2
Cosine[x_,a_]:=Cos[Pi x/2/a]
Gaussian[x_,s_]:=Exp[-x^2/2/s^2]
Hamming[x_,a_]:=(.54+.46 Cos[Pi x/a])
Hanning[x_,a_]:=Cos[Pi x/2/a]^2
Lorentzian[x_,a_]:=1/(x^2/a^2+1)
Uniform[x_]:=1
Welch[x_,a_]:=1-x^2/a^2

Cached