Re: Functions in Mathematica
- To: mathgroup at smc.vnet.net
- Subject: [mg33694] Re: Functions in Mathematica
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Tue, 9 Apr 2002 01:01:55 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <a8m2eo$o9d$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
> Can anyone please tell me how we define and Plot functions
> of the following types in mathematica.
> e.g.
>
> 1) Box function with amplitude c
> f(x)= C for -2<x<2 (c is constant)
Plot[UnitStep[x + 2] - UnitStep[x - 2], {x, -4, 4}]
> = 0 otherwise
>
> 2) Triange
> f(x) = x for -1<x<0
> = 1-|x] for 0<x<1
Plot[Which[
x < -1 || x > 1, 0,
x < 0, 1 + x,
x > 0, 1 - x], {x, -4, 4}]
>
> 3) A suare wave with specific period and width
SquareWave[x_?NumericQ, w_?NumericQ, period_?NumericQ] :=
Block[{xi},
xi = Mod[x, period];
UnitStep[xi + w] - UnitStep[xi - w]
]
Plot[SquareWave[x, 1/2, 2], {x, -4, 4}]
Regards
Jens