Re: Solutions that are not solutions

*To*: mathgroup at smc.vnet.net*Subject*: [mg32090] Re: [mg32049] Solutions that are not solutions*From*: "PSi" <no at tee.gr>*Date*: Sat, 22 Dec 2001 04:23:16 -0500 (EST)*References*: <fe.110f1125.29548331@aol.com>*Sender*: owner-wri-mathgroup at wolfram.com

I'm using Mathematica 4.1 for Microsoft Windows (November 3, 2000). ----- Original Message ----- From: <BobHanlon at aol.com> To: mathgroup at smc.vnet.net Subject: [mg32090] Re: [mg32049] Solutions that are not solutions > > I only get one solution. > > $Version > > "4.1 for Power Macintosh (November 2, 2000)" > > X={{0,y,z},{y,x,t},{u,v,w}}; > A={{1,1,a},{0,1,0},{0,0,1}}; > > eqns = {X.A==Transpose[A].X,Det[X]==1}; > > soln = Flatten[Solve[eqns,{x,y,z,t,u,v,w}]] > > {x -> (a*t*y^2 + a*v*y^2 - w*y^2 - 1)/ > (a^2*y^2), z -> a*y, u -> a*y} > > X /. soln > > {{0, y, a*y}, {y, (a*t*y^2 + a*v*y^2 - > w*y^2 - 1)/(a^2*y^2), t}, > {a*y, v, w}} > > eqns /. soln > > {True, True} > > > Bob Hanlon > Chantilly, VA USA