Re: Defining function in loop
- To: mathgroup at smc.vnet.net
- Subject: [mg40426] Re: [mg40412] Defining function in loop
- From: Vadim Nagornyi <vnagornyi at netscape.net>
- Date: Sat, 5 Apr 2003 03:57:36 -0500 (EST)
- References: <Pine.A41.4.31.0304041038520.43376-100000@pandora.inf.elte.hu>
- Sender: owner-wri-mathgroup at wolfram.com
Thanks again, Phaul!
It works!
Regards.
Vadim
SONKOLY Pal wrote:
>One solution:
>
>g[x_] := 0 /; x <=0
>g[x_] := 3 /; x >=3
>g[x_]:=First[Select[Range[3],(#-1<x<=#)&] ]
>
>
>g[#]& /@ Table[i,{i, -1,3,0.5}]
>{0,0,0,1,1,2,2,3,3}
>
>Phaul
>
>On Fri, 4 Apr 2003, Vadim Nagornyi wrote:
>
>
>
>>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.
>>
>>
>>