Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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>