MathGroup Archive 2006

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

Search the Archive

Re: List Operations


LectorZ wrote:
> Hi guys,
>
> My question:
>
> mylist={{1,a, b},{1,a, b},{1,a,
> b},{2,b,z},{2,b,z},{2,b,z},{2,b,z},....,{n,x,y},{n,x,y},{n,x,y},...{n,x,y}}
>
> The sublists are of different length.
>
> I need to calculate the product between the 2nd and 3rd element of
> every sublist (e.g. a*b) and then add them up according to the 1st
> element: sum of all products where the 1st element is 1, 2, ...n.
>
> The result should be a list like that:
> {{1,a*b+a*b+a*b},{2,b*z+b*z+b*z+b*z}, ...,{n, x*y+x*y+x*y+...+x*y}}
>
> Thank you for your help.
>
> LZ

In[1]:= mylist= {{1,a1,b1},{1,a2,b2},{1,a3,b3},
                 {2,b1,z1},{2,b2,z2},{2,b3,z3},{2,b4,z4},
                 {3,x1,y1},{3,x2,y2}};

In[2]:= {#[[1,1]],#[[All,2]].#[[All,3]]}& /@
        Split[Sort@mylist,#1[[1]]==#2[[1]]&]

Out[2]= {{1,a1*b1+a2*b2+a3*b3},
         {2,b1*z1+b2*z2+b3*z3+b4*z4},
         {3,x1*y1+x2*y2}}


  • Prev by Date: Re: bug in Partition?
  • Next by Date: Fitting a complex Function with FindMinimum
  • Previous by thread: Re: List Operations
  • Next by thread: Re: List Operations