MathGroup Archive 2003

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

Search the Archive

Re: Defining function in loop

  • To: mathgroup at smc.vnet.net
  • Subject: [mg40436] Re: Defining function in loop
  • From: atelesforos at hotmail.com (Orestis Vantzos)
  • Date: Sat, 5 Apr 2003 04:00:18 -0500 (EST)
  • References: <b6j9oo$645$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Use:
Table[With[{i=i},g[x_] := i/;i-1<=x<=i],{i,3}]
Orestis

Your definitions
vnagornyi at netscape.net (Vadim Nagornyi) wrote in message news:<b6j9oo$645$1 at smc.vnet.net>...
> Hello,
> I am definihg step-like function
> 
> Clear[h]
> h[x_] := 0/;x<0
> h[x_] := 1/;0<=x<=1
> h[x_] := 2/;1<=x<=2
> h[x_] := 3/;2<=x<=3
> h[x_] := 4/;x>3
> 
> It works fine:
> 
> Table[h[x],{x,-1,4,.5}]
> {0, 0, 1, 1, 1, 2, 2, 3, 3, 4, 4}
> 
> As I may need more steps, I am trying to do the same in loop:
> 
> Clear[g]
> g[x_] := 0/;x<0
> Do[g[x_] := i/;i-1<=x<=i, {i,3}]
> g[x_] := 4/;x>3
> 
> This time no luck:
> 
> Table[g[x],{x,-1,4,.5}]
> {0, 0, 1, 1, 1, 2, 2, 3, 3, 4, 4}
> {0, 0, g[0.], g[0.5], g[1.], g[1.5], g[2.], g[2.5], g[3.], 4, 4}
> 
> How to do this?
> 
> Thanks.
> Vadim.


  • Prev by Date: Re: Defining function in loop
  • Next by Date: Re: Defining function in loop
  • Previous by thread: Re: Defining function in loop
  • Next by thread: Re: Defining function in loop