アフィン変換行列の再構成に問題があります。並進行列の再構成は問題なく機能しますが、回転は機能しません。
君たちありがとう!
(*Works just fine*)
Clear["Global`*"]
data = RandomReal[10, {100, 3}];
data0 = TranslationTransform[{1, -1, 1}]@data;
{dX0, dY0, dZ0} /.
Solve[data0 == TranslationTransform[{dX0, dY0, dZ0}]@data, {dX0, dY0,
dZ0}]
(*Yields {} ????*)
Clear["Global`*"]
data = RandomReal[10, {10, 3}];
data0 = RotationTransform[10 , {1, 0, 0}]@data;
Solve[data0 == RotationTransform[aZ0 Degree, {0, 0, 1}]@data, {aZ0}]