Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

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





  • Prev by Date: Re: bisection method
  • Next by Date: Re: Replacement Rule
  • Previous by thread: Solutions that are not solutions
  • Next by thread: Re: Solutions that are not solutions