Re: Re: Simplify

*To*: mathgroup at smc.vnet.net*Subject*: [mg91130] Re: [mg91122] Re: Simplify*From*: Murray Eisenberg <murray at math.umass.edu>*Date*: Thu, 7 Aug 2008 04:38:20 -0400 (EDT)*Organization*: Mathematics & Statistics, Univ. of Mass./Amherst*References*: <g791is$9ng$1@smc.vnet.net> <200808060909.FAA22573@smc.vnet.net>*Reply-to*: murray at math.umass.edu

David, My naive expectation would be that the following would work: v = {2 cet1,0,-2 cet1,cet1,0,-cet1}; FactorOut[cet1][v] cet1 {2,0,-2,1,0,-1} But of course that will NOT work as things stand right now. I need to use, instead: FactorOut[cet1,HoldForm][v] Moreover, I was initially mislead into thinking FactorOut[cet1][v] would work, in view of the example in the documentation: step1=5(x-1)(x-3)(x-7)x^2//Expand step1 // FactorOut[x^2] Murray David Park wrote: > list = {{2 cet1, 0, -2 cet1, cet1, 0, -cet1}}; > > cet1 MatrixForm[list/cet1] > cet1 (2 0 -2 1 0 -1) > > Or using the Presentations package: > > Needs["Presentations`Master`"] > > list // FactorOut[cet1, MatrixForm] > cet1 (2 0 -2 1 0 -1) > -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. Lederle Graduate Research Tower phone 413 549-1020 (H) University of Massachusetts 413 545-2859 (W) 710 North Pleasant Street fax 413 545-1801 Amherst, MA 01003-9305

**References**:**Re: Simplify***From:*"David Park" <djmpark@comcast.net>