Sweep Signal

Author

Eric W. Weisstein
July 20, 2005

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

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

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

Definition

y[a_,b_,c_,d_]:=c Sin[Pi/(b-a)(((b-a)x/d+a)^2-a^2)]

Plot

Show[GraphicsArray[
Block[{$DisplayFunction=Identity},
	Plot[#,{x,0,5},PlotStyle->Red,PlotLabel->TraditionalForm[HoldForm[#]]]&/@{y[1,3,1,3],y[1,2,1,1]}
]],ImageSize->500]