Re: DeleteCases
- To: mathgroup at smc.vnet.net
- Subject: [mg123923] Re: DeleteCases
- From: Peter Breitfeld <phbrf at t-online.de>
- Date: Fri, 30 Dec 2011 07:07:44 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <jdh6g8$km5$1@smc.vnet.net>
"umberto" wrote: > Dear All, > > I have tables of this type: > > {{{{0.912546, 0.1081}, -0.0206463}, {{0.186044, 0.835368}, -0.0214121}, > {{0.0841709, -0.676585}, 1.59241}}, {{{-0.976965, -0.339164, -0.210989}, > 2.52712}, {{0.13978, -0.995106, 0.756386}, 1.09894}, {{-0.313147, -0.432759, > 0.207548}, 1.53836}}} > > I'd like to delete from the table elements of the type: {{x, x, ...., x}, y} > when y is not in the interval [-1, 1]. > I was trying with DeleteCases, but with no success. > Could you, please, help me. > best regards > Umberto I'll give your table the name tab. Then you might do the following: Select[DeleteCases[#, {{__}, y_} /; Not[-1 <= y <= 1]] & /@ tab, (# != {}) &] Out[]={{{{0.912546, 0.1081}, -0.0206463}, {{0.186044, 0.835368}, -0.0214121}}} -- _________________________________________________________________ Peter Breitfeld, Bad Saulgau, Germany -- http://www.pBreitfeld.de