求平面直角坐标系的转换公式

Question

比如说平面直角坐标系的旋转变换+平移变换~~~~求对应坐标变换公式。谢谢。

Answer 1

问题已解决~~谢谢大家。这是我相处的解决方法。function TForm1.changeXY(Olpoint: Tpoint;OffPointX,OffPointY:integer;arfa:single): Tpoint;
var
X,Y:integer;
begin
     Olpoint.X:=Olpoint.X-offpointX;
     Olpoint.Y:=Olpoint.Y-offpointY;
     X:=round(Olpoint.X*cos(Arfa)+Olpoint.Y*sin(Arfa));
     Y:=round(-Olpoint.X*sin(Arfa)+Olpoint.Y*cos(Arfa));
     
     if nagetiveX then X:=-X;
     if nagetiveY then Y:=-y;
     result:=point(X,Y);
end;

Answer 2

高中确实没学,但大学本科阶段学了啊~~~知道齐次矩阵吗?可以用矩阵相乘很容易来表示平移、比例与旋转等几何变换而且能非常好的用SIMD指令进行优化