Convert a 3x3 rotation matrix and a 3x1 position vector to a 4x4 homogeneous operator

RAndPToT[r_, p_] := <br />    Join[Transpose[Join[Transpose[r], {p}]], {{0, 0, 0, 1}}] ;

Created by Mathematica  (October 21, 2003)