Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

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

Search the Archive

Re: ReplacePart -> eliminate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg131664] Re: ReplacePart -> eliminate
  • From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
  • Date: Tue, 17 Sep 2013 21:35:53 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-outx@smc.vnet.net
  • Delivered-to: mathgroup-newsendx@smc.vnet.net

I'd like to eliminate the Indeterminate  (or other non-numerical terms,
as Infinite, etc...) items. Es.


x = {-1.25664, 0.628319, -0.628319, 1.25664, Indeterminate, -1.25664,
   0.628319, -0.628319, 1.25664, Indeterminate};

or

x=Table[1/(3 - n), {n, 0, 5}])
{1/3, 1/2, 1, ComplexInfinity, -1,-1/2}

How can I do it with a simple command?
Many thanks, Roberto


Hi, Roberto,

Try this:

x = {-1.25664, 0.628319, -0.628319, 1.25664, Indeterminate, -1.25664,
   0.628319, -0.628319, 1.25664, Indeterminate};
y = Table[1/(3 - n), {n, 0, 5}];

Select[x, NumberQ[#] &]
Select[y, NumberQ[#] &]

{-1.25664, 0.628319, -0.628319, 1.25664, -1.25664, 0.628319, \
-0.628319, 1.25664}

{1/3, 1/2, 1, -1, -(1/2)}

Have fun, Alexei

Alexei BOULBITCH, Dr., habil.
IEE S.A.
ZAE Weiergewan,
11, rue Edmond Reuter,
L-5326 Contern, LUXEMBOURG

Office phone :  +352-2454-2566
Office fax:       +352-2454-3566
mobile phone:  +49 151 52 40 66 44

e-mail: alexei.boulbitch at iee.lu





  • Prev by Date: Re: ReplacePart -> eliminate
  • Next by Date: R: ReplacePart -> eliminate
  • Previous by thread: Re: ReplacePart -> eliminate
  • Next by thread: Re: Writing numeric data to CSV does not write final EOL