Re: Piecewise functions
- To: mathgroup at smc.vnet.net
- Subject: [mg51561] Re: [mg51553] Piecewise functions
- From: DrBob <drbob at bigfoot.com>
- Date: Sat, 23 Oct 2004 00:21:41 -0400 (EDT)
- References: <200410220222.WAA07319@smc.vnet.net>
- Reply-to: drbob at bigfoot.com
- Sender: owner-wri-mathgroup at wolfram.com
Clear@y
y[x_] /; x > 3 := x
y[x_] /; -1 < x < 3 := -x
y[_] := 1
Plot[y@x, {x, -2, 4}]
y/@{-1,3}
{1,1}
or
Clear@y
y[x_] := Which[x > 3, x,
-1 < x < 3, -x,
True, 1]
Plot[y@x, {x, -2, 4}]
y/@{-1,3}
{1,1}
or
Clear@y
y[x_] := 1 + (-1 - x) UnitStep[x + 1] + 2x UnitStep[x - 3]
Plot[y@x, {x, -2, 4}]
y/@{-1,3}
{1,3}
The last form has big advantages if you want to differentiate or integrate the function.
Bobby
On Thu, 21 Oct 2004 22:22:10 -0400 (EDT), Luca <luca at nospam.it> wrote:
> Hi all. I'm studying for the exam of signals and systems and I was
> trying to plot some kind of functions I transformed for exercise. So, I
> need to plot piecewise functions like:
>
> y(x) = x if x > 3
> y(x) = -x if -1 < x < 3
> y(x) = 1 else
>
> (should have been a system).
> I found out in the guide the chapter about this, and I learned that it
> is possible with the function UnitStep, which I know. Anyway, I found
> it difficult to determine the equation of the function using this
> method. Is it possible to do it simply writing everything like I did
> before, more or less? i.e. without having to determine the equation
> with the UnitStep function.
> Hope I've been clear enought. Many thanks.
>
> Luca
>
>
>
>
--
DrBob at bigfoot.com
www.eclecticdreams.net
- References:
- Piecewise functions
- From: Luca <luca@nospam.it>
- Piecewise functions