Re: DeleteCases
- To: mathgroup at smc.vnet.net
- Subject: [mg123914] Re: DeleteCases
- From: Bill Rowe <readnews at sbcglobal.net>
- Date: Fri, 30 Dec 2011 07:04:36 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
On 12/29/11 at 2:54 AM, umberto.prisco at unina.it (umberto) wrote:
>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
In[11]:= Cases[data, {_, _?(IntervalMemberQ[
Interval@{-1, 1}, #] &)}, \[Infinity]]
Out[11]= {{0.912546, 0.1081}, {{0.912546, 0.1081}, -0.0206463},
{0.186044, 0.835368}, {{0.186044, 0.835368}, -0.0214121},
{0.0841709, -0.676585}}
or if you prefer
DeleteCases[data, {_, _?(!IntervalMemberQ[
Interval@{-1, 1}, #] &)}, \[Infinity]]
will do the same thing