Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: Help x-y pairs with rules

  • To: mathgroup at smc.vnet.net
  • Subject: [mg97858] Re: Help x-y pairs with rules
  • From: Raffy <raffy at mac.com>
  • Date: Tue, 24 Mar 2009 05:29:42 -0500 (EST)
  • References: <gq7j74$qco$1@smc.vnet.net>

On Mar 23, 2:02 am, dragec <culino... at gmail.com> wrote:
> Please, help with this:
>
> I have list like this, but bigger:
> With one expression (function), always go one or more points (rules)
>
> {{x^2, {x -> 2, x -> 3}}, {x^3, {x -> 5}}}
>
> I would like results like this (pairs of x-y) but grouped in lists
> according to expression(function):
> {{2,2^2},{3,3^2}},{5^3}}
>
> Please help with expression that compute this.
>
> THX

Your example appears bugged, if I am extrapolating correctly.
The proper result should be: {{{2, 4}, {3, 9}}, {{5, 125}}} ?

If so, the simplest solution would be:

replacements = {{x^2, {x -> 2, x -> 3}}, {x^3, {x -> 5}}}

Function[$, {Last[$], #1 /. $}] /@ #2 & @@@ replacements

Additionally, you could apply Join to the result, to get a flatter
result list.


  • Prev by Date: SetDelayed::write ... [x_] is protected
  • Next by Date: Re: Got a tip ?
  • Previous by thread: Re: Help x-y pairs with rules
  • Next by thread: Re: Help x-y pairs with rules