5 lines
213 B
Mathematica
5 lines
213 B
Mathematica
|
%<EFBFBD>ֲ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ת<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
function [R]=CoordTransform(x,y,BarLength)
|
|||
|
|
C=(x(2)-x(1))/BarLength; S=(y(2)-y(1))/BarLength;
|
|||
|
|
R=[C S 0 0 0 0;-S C 0 0 0 0;0 0 1 0 0 0;0 0 0 C S 0;0 0 0 -S C 0;0 0 0 0 0 1];
|
|||
|
|
end
|