MathGroup Archive 2003

[Date Index] [Thread Index] [Author Index]

Search the Archive

how to generate pulse function ?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg41908] how to generate pulse function ?
  • From: "sabrina" <mystery at newbie.com>
  • Date: Mon, 9 Jun 2003 05:20:53 -0400 (EDT)
  • Organization: Case Western Reserve University, Cleveland, OH, USA
  • Reply-to: "sabrina" <hxs61 at po.cwru.edu>
  • Sender: owner-wri-mathgroup at wolfram.com

Hello all:
I use the following code to generate the pulse function, but it is not
right:

u[x_,step_,nPulse_]:= Module[
      {tlist={},func},
      tlist=Table[t,{t,0,nPulse*step,step}];
      func=1-UnitStep[Apply[Times,(x-#)&/@tlist]];
          Return[func];
      ];
s=u[t, 500,4];
Plot[s,{t,0,2200}];


The problem is when the nPulse is odd number, it shows the right answer, but
when the nPulse is even, the plot is not right. Would you please help me to
make the function right? Thanks a lot!

Sabrina



  • Prev by Date: Yield To Maturity
  • Next by Date: Re: InverseFunction[]
  • Previous by thread: Re: help on color function!
  • Next by thread: Re: how to generate pulse function ?