5 lines
155 B
Mathematica
5 lines
155 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)
|
|||
|
|
l=(x(2)-x(1))/BarLength; m=(y(2)-y(1))/BarLength;
|
|||
|
|
R=[l m 0 0;0 0 l m];
|
|||
|
|
end
|