Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

Re: How To Change A Rule

  • To: mathgroup at smc.vnet.net
  • Subject: [mg32349] Re: How To Change A Rule
  • From: "Borut L" <borut at email.si>
  • Date: Wed, 16 Jan 2002 03:29:59 -0500 (EST)
  • References: <a20mon$4hf$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

I'd do it like this, tough I think there are more elegant ways.

In[1]:=
temp = Table[u[i] -> Random[Integer, {-10, 10}], {i, 5}]
Out[1]=
{u[1] -> 8, u[2] -> 3, u[3] -> -4, u[4] -> 7, u[5] -> -3}
In[2]:=
If[Last[#] < 0, ReplacePart[#, 0, 2], #] & /@ temp
Out[2]=
{u[1] -> 8, u[2] -> 3, u[3] -> 0, u[4] -> 7, u[5] -> 0}


Hope you get any better suggestion :)

Borut

"Ariel Fligler" <ariel.fligler at cellpay.biz> wrote in message
news:a20mon$4hf$1 at smc.vnet.net...
> Greetings,
>
> I'm quite newby to Mathematica programming and will thank you if you could
> help me solve the following:
>
> I have a list of rules of the form:
> {s1->-11, s2->12}
> And would like to change every rule in the list that it's RHS is negative
to
> 0 so that I will get:
> {s1->0, s2->12}
> I tried to find an access function to manipulate rules but could not.
>
> Any help ?
>
> TIA,
>
> Ariel.
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Thanks,
>
> Ariel Fligler
>
>
>




  • Prev by Date: RE: Entering constant placeholders
  • Next by Date: Re: How To Change A Rule
  • Previous by thread: Re: How To Change A Rule
  • Next by thread: Re: How To Change A Rule