matalignimgplanes.asv

这是我用Delphi和Matlab写的一个程序

function RPlanes = MatAlignImgPlanes(t, dx, dy)
%  MATALIGNIMGPLANES  Return the Matrix used for aligning the image planes
%%  图像平面旋转变换矩阵
Rlanes = [dx^2 + dy * cos(t) dx * dy * (1-cos(t)) dy * sin(t)
    dx * dy * (1-cos(t)) dy^2 + dx^2 * cos(t) -dx * sin(t)
    -dy * sin(t) dx * sin(t) cos(t)];