Re: Table with conditions
- To: mathgroup at smc.vnet.net
- Subject: [mg119883] Re: Table with conditions
- From: Peter Breitfeld <phbrf at t-online.de>
- Date: Mon, 27 Jun 2011 07:33:28 -0400 (EDT)
- References: <iu71je$1aq$1@smc.vnet.net>
"J. Jesus Rico Melgoza" wrote: > I am constructing a Table > > h=60 > hi=60 > P1 = Flatten[ > Table[{Pk[k].Fl[l], k + l}, {k, -h, > h}, {l, -hi, hi}], 1] > This yields a table with two columns. First column contains vector of order n and column 2 contains an scalar > I want to add conditions to generate the elements in the Table > -h<=k+l<=h. > I do not know how to do this with the function Table[..] of Mathematica. I am asking for your help. > I do not want rows in my table that do not satisfy the condition. > > Pk[k] is matrix and Fl[l] is a column vector > > Thanks in advance > > Jesus Rico-Melgoza > This seams to work: h = 60; hi = 60; p1 = Table[{Pk[k].Fl[l], k + l}, {k, -h, h}, {l, -hi, hi}] Flatten[Select[#, -h <= #[[2]] <= h &] & /@ p1, 1] // TableForm -- _________________________________________________________________ Peter Breitfeld, Bad Saulgau, Germany -- http://www.pBreitfeld.de