Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

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:
  • Prev by Date: Re: Aligning 2 Sets of Axes at {0,0}; Rotated & Standard Position
  • Next by Date: Color - Appearance of Buttons
  • Previous by thread: function...
  • Next by thread: Systems of linear equations