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