Re: Common factors in a list
- To: mathgroup at smc.vnet.net
- Subject: [mg58358] Re: Common factors in a list
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Tue, 28 Jun 2005 21:56:53 -0400 (EDT)
- Organization: Uni Leipzig
- References: <d9r50q$568$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
ClearAttributes[Times, Listable]
{a x, a y, a z} /. {a*b_, c___} :> a*{b, Sequence
@@ (#/a & /@ {c})}
Regards
Jens
"John Reed" <nospamjreed at alum.mit.edu> schrieb im
Newsbeitrag news:d9r50q$568$1 at smc.vnet.net...
> I'm working with a list (vector) that's composed
> of functions such as
> complex exponentials and Bessel functions. Some
> of the functions are common
> to each element of the list. I'm trying to find
> a way to do the following:
>
> {a x, a y, a z}-> a *{x, y, z}
>
> In this expression, a, x, y, z are polynomials,
> exponentials and/or Bessel
> functions.
>
> So far I haven't had any luck with this. Does
> anyone have a simple
> solution?
>
> John Reed
>