MathGroup Archive 2002

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

Search the Archive

Re: Functions in Mathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg33704] Re: [mg33672] Functions in Mathematica
  • From: BobHanlon at aol.com
  • Date: Mon, 8 Apr 2002 03:04:36 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 4/6/02 1:59:50 AM, ravi_banyal at yahoo.com writes:

>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)   
>                = 0 otherwise
> 
> 2)   Triange
>            f(x) = x for -1<x<0
>                 = 1-|x] for 0<x<1 
> 
> 3)  A suare wave with specific period and width
>

Needs["Graphics`Colors`"];

box[x_, width_:1] :=
 
    UnitStep[x+width/2]-
      UnitStep[x-width/2];

triangle[x_, width_:1] :=
 
    (1+2x/width)*UnitStep[x+width/2]-
      4x/width*UnitStep[x]-
      (1-2x/width)*UnitStep[x-width/2];

squareWave[x_, period_:1, width_:(1/2)] :=
 
    box[Mod[x, period], 2*width] /;
 
      0< width <= period;

Plot[{box[x],2*box[x,2],box[x+.6,2]/2},
 
    {x,-2,2},
 
    PlotStyle->{Red,Blue,Green}];

Plot[{triangle[x], 2*triangle[x,2],
      .5*triangle[x+.6,2]},
 
    {x,-2,2},
 
    PlotStyle->{Red,Blue,Green},
 
    PlotRange->All];

Plot[squareWave[x+.5,1.5,1], {x,-3.01,3.01},
 
    PlotStyle->{AbsoluteThickness[2],Red},
    AspectRatio->Automatic,
 
    AxesOrigin->{-3.25,0},
    ImageSize->400];


Bob Hanlon
Chantilly, VA  USA


  • Prev by Date: Re: [Q] : huge number, ciphers after decimal point?
  • Next by Date: RE: [Q]: huge number, ciphers after decimal point?
  • Previous by thread: Re: Functions in Mathematica
  • Next by thread: Re: Functions in Mathematica