Simplifying vector expressions
- To: mathgroup at smc.vnet.net
- Subject: [mg2140] Simplifying vector expressions
- From: shenkin at still3.chem.columbia.edu (Peter Shenkin)
- Date: Wed, 4 Oct 1995 01:57:42 -0400
- Organization: MacroModel Development Group, Chemistry, Columbia U., NY, NY
Consider the following vectors:
In[2]:= vec1 = { a, b, c }
Out[2]= {a, b, c}
In[3]:= vec2 = (1/x) * vec1
a b c
Out[3]= {-, -, -}
x x x
I am looking for a mechanism I can apply to vec2 to put it in the form:
1
(-) { a, b, c }
x
or
{ a, b, c }
-----------
x
This would be the list equivalent of Factor[], as shown by the
following example:
In[4]:= expr = a/x + b/x + c/x
a b c
Out[4]= - + - + -
x x x
In[5]:= Factor[ expr ]
a + b + c
Out[5]= ---------
x
Does this facility (for lists) exist in Mathematica, or in a package I
can obtain easily? If not, can you suggest guidelines for implementing
something like this? Naturally, I'd want access to the full panoply
of algebraic functionality: Simplify[], Expand[], etc., in addition
to Factor[].
Thanks,
-P.
--
******** When somebody says, "It's a matter of principle,"... ********
*Peter S. Shenkin, Box 768 Havemeyer Hall, Chemistry, Columbia Univ.,*
*NY, NY 10027; shenkin at columbia.edu; (212)854-5143; FAX: 678-9039*
************ ...it's a sure sign he wants the whole pie. *************