Re: Plus sets in mathematica..?

*To*: mathgroup at smc.vnet.net*Subject*: [mg75972] Re: Plus sets in mathematica..?*From*: Bill Rowe <readnewsciv at sbcglobal.net>*Date*: Mon, 14 May 2007 03:41:26 -0400 (EDT)

On 5/13/07 at 5:54 AM, e-changbo at hanmail.net (changbo) wrote: >I want to make a function "f", its domain is every thinkable two >sets, and the result is {a+b | a=E2=88=88A,b=E2=88=88B} for A,B. >ex) A={1,2,3}, B={40,50,60,70}, then I have f[A,B] as >{41,42,43,51,52,53,61,62,63,71,72,73}. Using Outer with Plus will do the trick, i.e., In[10]:= Outer[Plus, Range[40, 70, 10], Range@3] Out[10]= {{41, 42, 43}, {51, 52, 53}, {61, 62, 63}, {71, 72, 73}} and if you need a 1D list used Join or Flatten, i.e, In[11]:= Join @@ Outer[Plus, Range[40, 70, 10], Range@3] Out[11]= {41,42,43,51,52,53,61,62,63,71,72,73} or In[12]:= Flatten@Outer[Plus, Range[40, 70, 10], Range@3] Out[12]= {41,42,43,51,52,53,61,62,63,71,72,73} -- To reply via email subtract one hundred and four