Re: DeleteCases
- To: mathgroup at smc.vnet.net
- Subject: [mg123909] Re: DeleteCases
- From: David Skulsky <edskulsky at gmail.com>
- Date: Fri, 30 Dec 2011 07:02:52 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <jdh6g8$km5$1@smc.vnet.net>
- Reply-to: comp.soft-sys.math.mathematica at googlegroups.com
In[20]:= ll={{{{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}}}
Out[20]= {{{{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}}}
In[21]:= ll=Flatten[ll,1]
Out[21]= {{{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}}
In[22]:= DeleteCases[ll,x_/;Abs[x[[2]]]>1]
Out[22]= {{{0.912546,0.1081},-0.0206463},{{0.186044,0.835368},-0.0214121}}