I've the following command:
In[7]:= RotationTransform[Pi,{1,0,0},{x,1/2,1/4}]
Out[7]= TransformationFunction[( \!\(\*
TagBox[GridBox[{
{"1", "0", "0", "0"},
{"0",
RowBox[{"-", "1"}], "0", "1"},
{"0", "0",
RowBox[{"-", "1"}],
FractionBox["1", "2"]},
{"0", "0", "0", "1"}
},
AutoDelete->False,
GridBoxDividers->{"Columns" -> {{False}},
"ColumnsIndexed" -> {-2 -> True}, "Rows" -> {{False}},
"RowsIndexed" -> {-2 -> True}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
#& ]\) )]
And I want to add the vector {1/2,0,0} onto the first three rows of the last column, i.e., obtain the following form:
TransformationFunction[( \!\(\*
TagBox[GridBox[{
{"1", "0", "0",
FractionBox["1", "2"]},
{"0",
RowBox[{"-", "1"}], "0", "1"},
{"0", "0",
RowBox[{"-", "1"}],
FractionBox["1", "2"]},
{"0", "0", "0", "1"}
},
AutoDelete->False,
GridBoxDividers->{"Columns" -> {{False}},
"ColumnsIndexed" -> {-2 -> True}, "Rows" -> {{False}},
"RowsIndexed" -> {-2 -> True}},
GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
#& ]\) )]
How can I achieve this aim?
Regards, Zhao