【代码】矩阵的线性映射（平面转换）

相同x、y坐标下，改变z坐标
如下图所示，希望将原矩阵由上面的平面转换到下面的平面
已知上面平面所有点的三维坐标和下面平面的角点（四个顶点）的三维坐标

代码：

function main()
%矩阵线性变换，相同x、y，仅z坐标不同的两个平面相互转换
clc
clear
close all
%% 0.原始数据、目标数据
x=[1,2,3,4,5];
y=[1,2,3]*10;
%原始数据
res_ori=[1,2,3,4,5;
    2,3,4,5,6;
    3,4,5,6,7];
%目标数据
% res_tar=[5,4,3,2,1;
%     6,5,4,3,2;
%     7,6,5,4,3]*-1;

%% 1.目标数据的角点
r11=-5;
r12=-1;
r21=-7;
r22=-3;
mat_tar_cor=[r11,r12;r21,r22];%目标矩阵（平面）的四个角点
%% 2.目标数据
results=trans_func(res_ori,mat_tar_cor);

%% 3.画图
[X,Y]=meshgrid(x,y); 
mesh(X,Y,res_ori)
hold on
mesh(X,Y,results)

trans_func.m

function results=trans_func(mat_ori,mat_tar)
%线性映射
rrr=mat_ori;
qwe=mat_tar;
q1=length(rrr(1,:));%列数
q2=length(rrr(:,1));%行数
for i=1:q1
    qweqwe(1,i)=(qwe(1,2)-qwe(1,1))/(rrr(1,q1)-rrr(1,1))*(rrr(1,i)-rrr(1,1))+qwe(1,1);
end
for i=1:q1
    qweqwe(q2,i)=(qwe(2,2)-qwe(2,1))/(rrr(1,q1)-rrr(1,1))*(rrr(1,i)-rrr(1,1))+qwe(2,1);
end

for j=1:q1%列
    for i=1:q2%行
        qweqwe(i,j)=(qweqwe(q2,j)-qweqwe(1,j))/(rrr(q2,j)-rrr(1,j))*(rrr(i,j)-rrr(1,j))+qweqwe(1,j);
    end
end
results=qweqwe;