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

MathGroup Archive 2013

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

Search the Archive

R: ReplacePart -> eliminate

  • To: mathgroup at smc.vnet.net
  • Subject: [mg131665] R: ReplacePart -> eliminate
  • From: "Brambilla Roberto Luigi (RSE)" <Roberto.Brambilla at rse-web.it>
  • Date: Tue, 17 Sep 2013 21:36:13 -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

Great!
Many thanks Alexei!
Now I have the following list of couples

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

{{0, 1/3}, {1, 1/2}, {2, 1}, {3,  ComplexInfinity}, {4, -1}, {5, -(1/2)}}

The  command

Select[y, {NumberQ[#], NumberQ[#]} &]

does not work. How can I modify your suggestion in order to eliminate the non-numerical couple {3,ComplexInfinity}
from the list (avoiding Transpose etc..)?

Rob.


-----Messaggio originale-----
Da: Alexei Boulbitch [mailto:Alexei.Boulbitch at iee.lu] 
Inviato: marted=EC 17 settembre 2013 09:09
A: mathgroup at smc.vnet.net
Cc: Brambilla Roberto Luigi (RSE)
Oggetto: Re: ReplacePart -> eliminate

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



RSE SpA ha adottato il Modello Organizzativo ai sensi del D.Lgs.231/2001, in forza del quale l'assunzione di obbligazioni da parte della Societ=E0 avvie=
ne con firma di un procuratore, munito di idonei poteri.
RSE adopts a Compliance Programme under the Italian Law (D.Lgs.231/2001). Ac=
cording to this RSE Compliance Programme, any commitment of RSE is taken by=
 the signature of one Representative granted by a proper Power of Attorney.=
 Le informazioni contenute in questo messaggio di posta elettronica sono ris=
ervate e confidenziali e ne e' vietata la diffusione in qualsiasi modo o for=
ma. Qualora Lei non fosse la persona destinataria del presente messaggio, La=
 invitiamo a non diffonderlo e ad eliminarlo, dandone gentilmente comunicazi=
one al mittente. The information included in this e-mail and any attachments=
 are confidential and may also be privileged. If you are not the correct rec=
ipient, you are kindly requested to notify the sender immediately, to cancel=
 it and not to disclose the contents to any other person.



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