MathGroup Archive 1999

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

Search the Archive

Re:Help with geometry problem required.

  • To: mathgroup at smc.vnet.net
  • Subject: [mg20851] [mg20851] Re:[mg20801] Help with geometry problem required.
  • From: Arnold Seiken <seikena at union.edu>
  • Date: Wed, 17 Nov 1999 03:41:14 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

Michael,

Here is an example which illustrates how to find the
matrix of an isometry in R3 given 3 non-collinear points
and their images:

M={{a11,a12,a13,b1},{a21,a22,a23,b2},{a31,a32,a33,b3},{0,0,0,1}};
Simplify[
  Solve[
     {M.{1,0,0,1} =={4,4,2,1}, M.{0,1,0,1} == { 3,3,2,1},
      M.{0,0,1,1}=={4,3,3,1},
			
{a11,a12,a13 }.{a21,a22,a23 }==0, 
{a11,a12,a13 }.{a31,a32,a33 }==0,
{a31,a32,a33 }.{a21,a22,a23 }==0,
(a11)^2 +(a12)^2 + (a13)^2 == 1,	
(a21)^2 +(a22)^2 + (a23)^2 == 1,
(a31)^2 +(a32)^2 + (a33)^2 == 1,	
Det[{{a11,a12,a13 },{a21,a22,a23 },{a31,a32,a33 }}]==1},
    
{a11,a12,a13,a21,a22,a23,a31,a32,a33,b1,b2,b3}]
  ]

You can then take the output of the above and input
(M/.%[[1]])//MatrixForm
to get the solution in a nice looking form.


Arnold Seiken




  • Prev by Date: FindMinimum for several variables
  • Next by Date: FindMinimum for several variables - typo in last posting
  • Previous by thread: Re: Help with geometry problem required.
  • Next by thread: Re: Help with geometry problem required.