Re: Please Help, New to Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg37658] Re: Please Help, New to Mathematica
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Fri, 8 Nov 2002 02:13:48 -0500 (EST)
- Organization: Universitaet Leipzig
- References: <aqdjts$t5$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
RectanglePulse[x_, center_?NumericQ, width_?NumericQ] :=
UnitStep[x - center + width] - UnitStep[x - center - width]
PulseTrain[x_, freq_, width_] :=
RectanglePulse[Mod[x, 1/freq], 0, width]
and:
Plot[PulseTrain[x, 2, 0.1], {x, 0, 4}, PlotPoints -> 100]
Regards
Jens
"Adrian M. Peter" wrote:
>
> Hi,
>
> I am a newbie to mathematica. Can any tell me how I can create a train
> of rectangular pulses? I then need to modulate each pulse at a
> different frequency. Thank you in advance for the help.
>
> Adrian
>
> -------------------------------------------------------------------
> / / / ____/
> / / / /
> / / / ____/
> /__/ / /
> _______/ __/
> -------------------------------------------------------------------
>