Andrew's Sine

Author

Eric W. Weisstein
May 15, 2003

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Statistics/AndrewsSine.nb.

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

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

Definition

ψ[x_,c_]:=Sin[x/c](UnitStep[x+c Pi]-UnitStep[x-c Pi])

Plot

<<Graphics`Colors`;

Plot[ψ[x,2],{x,-2.5Pi,2.5Pi},PlotStyle->Red,Ticks->None,AxesLabel->TraditionalForm/@{x,HoldForm[ψ[x]]}]