RE: finding independent variable groups
- To: mathgroup at smc.vnet.net
- Subject: [mg32439] RE: [mg32406] finding independent variable groups
- From: "David Park" <djmp at earthlink.net>
- Date: Sun, 20 Jan 2002 04:28:17 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Ioan,
Seeing Allan's reply reminded me about a package at my web site which Ted
Ersek helped me write and which also contains ideas contributed to
MathGroup, some by Allan.
The package, among other things, allows you to find and use what I call
extended positions. An extended position is a set of level parts in a
containing subexpression. The package has routines for finding extended
positions and using them. I made your example a little more complicated to
illustrate the use.
Needs["Algebra`ExpressionManipulation`"]
expr = x w/y E^(x z/y);
pos = ExtendedPosition[expr, x/y];
{eP[{1, 2}, {1, 2}], eP[{}, {3, 4}]}
Extended positions are wrapped in eP and interpreted as eP[containing part,
level subparts]. We can then use these positions. For example,
ReplacePart[expr, q, pos]
E^(q*z)*q*w
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
> From: Ioan Alexandre Romoscanu [mailto:romoscanu at imes.mavt.ethz.ch]
To: mathgroup at smc.vnet.net
>
>
> I wonder if it is possible to do the following formula manipulation
> task with Mathematica.
>
> Suppose you have a function of 3 variables [x,y,z], where only the
> ratio x/y occurs. Example
>
> f[x_,y_,z_]=(x/y) Exp[z]
>
> If now you have a large formula of more than 3 variables, where
> however certain variables always occur grouped together, in the same
> pattern (like x and y above).
>
> Is there a way to make Mathematica find out such groups of variables
> in a larger expression?
>
> Thank you for any help
>
> A.I.R.
>