Re: function...
- To: mathgroup at smc.vnet.net
- Subject: [mg123170] Re: function...
- From: DrMajorBob <btreat1 at austin.rr.com>
- Date: Fri, 25 Nov 2011 04:55:57 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <201111241153.GAA28865@smc.vnet.net>
- Reply-to: drmajorbob at yahoo.com
Here's a function that fits:
Clear[f]
MapIndexed[(f[#2[[1]]] = #1) &, {{0, 2, 4, 5}, {0, 3}, {0, 2, 3}, {0, 1, 3,
4}, {0, 2, 3, 5, 8}, {1, 3, 5}, "anything at all"}];
?f
Global`f
f[1]={0,2,4,5}
f[2]={0,3}
f[3]={0,2,3}
f[4]={0,1,3,4}
f[5]={0,2,3,5,8}
f[6]={1,3,5}
f[7]=anything at all
Bobby
On Thu, 24 Nov 2011 05:53:39 -0600, Meriens <meriens at gmail.com> wrote:
> Hi to everyone,
> I want to know if there is a method in Mathematica to find a function
> with
> these caracteristics:
> y(y1,y2,y3,y4,y5,y6) with
> y1={0,2,4,5};
> y2={0,3};
> y3={0,2,3};
> y4={0,1,3,4};
> y5={0,2,3,5,8};
> y6={1,3,5}.
> Thank you for all suggestions.
>
> MERIEL F.
--
DrMajorBob at yahoo.com
- References:
- function...
- From: Meriens <meriens@gmail.com>
- function...