Re: R: ReplacePart -> eliminate
- To: mathgroup at smc.vnet.net
- Subject: [mg131672] Re: R: ReplacePart -> eliminate
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Thu, 19 Sep 2013 01:21:04 -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
- References: <20130918013613.55E3E6A4C@smc.vnet.net>
Highlight .. and hit F1 (Help). Click on link to documentation for
Repeated.
"p.. or Repeated[p] is a pattern object that represents a sequence of one
or more expressions, each matching p."
Bob Hanlon
On Wed, Sep 18, 2013 at 3:57 AM, Brambilla Roberto Luigi (RSE) <
Roberto.Brambilla at rse-web.it> wrote:
> Many thanks Bob!****
>
> I find great****
>
> ** **
>
> Cases[y, {_?NumericQ ..}]****
>
> ** **
>
> Since it works both with simple list and couple list.****
>
> What the meaning of .. operator?****
>
> Roberto****
>
> ** **
>
> ** **
>
> ** **
>
> *Da:* Bob Hanlon [mailto:hanlonr357 at gmail.com]
> *Inviato:* mercoled=EC 18 settembre 2013 04:41
> *A:* Brambilla Roberto Luigi (RSE)
> *Cc:* MathGroup
> *Oggetto:* Re: R: ReplacePart -> eliminate****
>
> ** **
>
> y = Table[{n, 1/(3 - n)}, {n, 0, 5}] // Quiet****
>
>
> {{0, 1/3}, {1, 1/2}, {2, 1},
> {3, ComplexInfinity},
> {4, -1}, {5, -(1/2)}}****
>
>
> Note that your crtiteria in the Select does not produce a straight True or
> False****
>
>
> {NumberQ[#], NumberQ[#]} &[{2, 1}]****
>
>
> {False, False}****
>
>
> num = Select[y, And @@ NumericQ /@ # &]****
>
>
> {{0, 1/3}, {1, 1/2}, {2, 1},
> {4, -1}, {5, -(1/2)}}****
>
>
> However, Cases is a better choice here****
>
>
> num ==
> Cases[y, _?(And @@ NumericQ /@ # &)] ==
> Cases[y, {_?NumericQ, _?NumericQ}] ==
> Cases[y, {_?NumericQ ..}]****
>
>
> True****
>
> ** **
>
> ** **
>
> Bob Hanlon****
>
> ** **
>
> On Tue, Sep 17, 2013 at 9:36 PM, Brambilla Roberto Luigi (RSE) <
> Roberto.Brambilla at rse-web.it> wrote:****
>
> 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).
> According 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.****
>
> ** **
>
> 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
> avviene con firma di un procuratore, munito di idonei poteri. RSE adopts =
a
> Compliance Programme under the Italian Law (D.Lgs.231/2001). According 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
> riservate e confidenziali e ne e' vietata la diffusione in qualsiasi modo=
o
> forma. Qualora Lei non fosse la persona destinataria del presente
> messaggio, La invitiamo a non diffonderlo e ad eliminarlo, dandone
> gentilmente comunicazione al mittente. The information included in this
> e-mail and any attachments are confidential and may also be privileged. I=
f
> you are not the correct recipient, you are kindly requested to notify the
> sender immediately, to cancel it and not to disclose the contents to any
> other person.
>
- References:
- R: ReplacePart -> eliminate
- From: "Brambilla Roberto Luigi (RSE)" <Roberto.Brambilla@rse-web.it>
- R: ReplacePart -> eliminate