Mathematica：围绕另一个点旋转一个点
Mathematica: Rotating one point around another
我想知道是否可以围绕 Mathematica 中的其他现有点旋转一个点。我试过这样做：
one = Graphics[Point[{1, 1}]];
two = Graphics[Point[{2, 2}]];
two = Rotate[{two}, 60 Degree, {one}]
但是没用。有可能做到吗？
谢谢！
one = {1, 1};
two = {2, 2};
Graphics[{Point@one, Point@two, Rotate[Point@two, 60 Degree, one]}]
我想知道是否可以围绕 Mathematica 中的其他现有点旋转一个点。我试过这样做：
one = Graphics[Point[{1, 1}]];
two = Graphics[Point[{2, 2}]];
two = Rotate[{two}, 60 Degree, {one}]
但是没用。有可能做到吗？ 谢谢！
one = {1, 1};
two = {2, 2};
Graphics[{Point@one, Point@two, Rotate[Point@two, 60 Degree, one]}]