相同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;