Re: Mathematica for High School Students

*To*: mathgroup at smc.vnet.net*Subject*: [mg24456] Re: Mathematica for High School Students*From*: Paul Abbott <paul at physics.uwa.edu.au>*Date*: Tue, 18 Jul 2000 00:58:59 -0400 (EDT)*Organization*: University of Western Australia*References*: <8jc6f4$da5@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

In article <8jc6f4$da5 at smc.vnet.net>, "Ersek, Ted R" <ErsekTR at navair.navy.mil> wrote: > Out[4]= > y == (b*(-3*x + 6*(x - y)))/4 > > > In[5]:= > Factor[Map[Expand,%]] > > Out[5]= > y == (3*b*(x - 2*y))/4 > > > If Expand has the Listable attribute (and it normally doesn't) Map isn't > needed in the last line above. Surely, In[5]:= Factor[%] suffices? It works for me. Also, you could use ExpandAll instead of Expand. Cheers, Paul -- Paul Abbott Phone: +61-8-9380-2734 Department of Physics Fax: +61-8-9380-1014 The University of Western Australia Nedlands WA 6907 AUSTRALIA http://physics.uwa.edu.au/~paul