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. *************