p1 = {1, 1};
p2 = RotationMatrix[30 Degree].p1;
o = {0, 0};
Graphics[{ {Red, Arrow[{o, p1}]},
Arrow[{o, p2}]}, Axes -> True, ImageSize -> 100]
|
|
p1 = {1, 1};
r = RotationTransform[30 Degree];
o = {0, 0};
Graphics[{ {Red, Arrow[{o, p1}]}, Arrow[{o, r[p1]}]},
Axes -> True, ImageSize -> 100]
|
|