用matlab咋三维坐标系内拟合椭球公式知道三维坐标系内的一系列的点的坐标,也知道这些点的分布是一个椭球形,怎么用matlab把这个椭球形公式拟合出来?最好是有一段编号的程序,
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 22:33:26
![用matlab咋三维坐标系内拟合椭球公式知道三维坐标系内的一系列的点的坐标,也知道这些点的分布是一个椭球形,怎么用matlab把这个椭球形公式拟合出来?最好是有一段编号的程序,](/uploads/image/z/6893190-54-0.jpg?t=%E7%94%A8matlab%E5%92%8B%E4%B8%89%E7%BB%B4%E5%9D%90%E6%A0%87%E7%B3%BB%E5%86%85%E6%8B%9F%E5%90%88%E6%A4%AD%E7%90%83%E5%85%AC%E5%BC%8F%E7%9F%A5%E9%81%93%E4%B8%89%E7%BB%B4%E5%9D%90%E6%A0%87%E7%B3%BB%E5%86%85%E7%9A%84%E4%B8%80%E7%B3%BB%E5%88%97%E7%9A%84%E7%82%B9%E7%9A%84%E5%9D%90%E6%A0%87%2C%E4%B9%9F%E7%9F%A5%E9%81%93%E8%BF%99%E4%BA%9B%E7%82%B9%E7%9A%84%E5%88%86%E5%B8%83%E6%98%AF%E4%B8%80%E4%B8%AA%E6%A4%AD%E7%90%83%E5%BD%A2%2C%E6%80%8E%E4%B9%88%E7%94%A8matlab%E6%8A%8A%E8%BF%99%E4%B8%AA%E6%A4%AD%E7%90%83%E5%BD%A2%E5%85%AC%E5%BC%8F%E6%8B%9F%E5%90%88%E5%87%BA%E6%9D%A5%3F%E6%9C%80%E5%A5%BD%E6%98%AF%E6%9C%89%E4%B8%80%E6%AE%B5%E7%BC%96%E5%8F%B7%E7%9A%84%E7%A8%8B%E5%BA%8F%2C)
用matlab咋三维坐标系内拟合椭球公式知道三维坐标系内的一系列的点的坐标,也知道这些点的分布是一个椭球形,怎么用matlab把这个椭球形公式拟合出来?最好是有一段编号的程序,
用matlab咋三维坐标系内拟合椭球公式
知道三维坐标系内的一系列的点的坐标,也知道这些点的分布是一个椭球形,怎么用matlab把这个椭球形公式拟合出来?最好是有一段编号的程序,
用matlab咋三维坐标系内拟合椭球公式知道三维坐标系内的一系列的点的坐标,也知道这些点的分布是一个椭球形,怎么用matlab把这个椭球形公式拟合出来?最好是有一段编号的程序,
function my_fit()
% 二维非线性拟合
% 直接将该代码复制到 m文件运行就可以了
% 请仔细看注释,注释写的很清楚
% step0:生成用于拟合的数据
%(以椭球为例,仅为测试,如果有现成数据,请替换此步中 x,y,z 值)
a = 3; %% 方程:x^2/a^2 + y^2/b^2 + z^2/c^2 = 1
b = 4; %% 从而,z = c*sqrt(1 - x^2/a^2 - y^2/b^2)
c = 5; %% 用上半球数据作为待拟合数据
x = -a:0.1:a; %% x,y取值范围
y = -b:0.1:b;
[X, Y] = meshgrid(x,y); %% 生成一个二维的取值范围
[M, N] = size(X);
x = reshape(X, M*N, 1); %% 把矩阵转化为向量
y = reshape(Y, M*N, 1);
p = ((1 - x.^2/a^2 - y.^2/b^2) >= 0); %% 将大于等于0的数值取出(只有这部分才有意义)
x = x(p); %% 生成的值均在上椭球面,如果有现成数据,请将 step0去掉
y = y(p); %% 并直接给 x,y,z赋值
z = c*sqrt(1 - x.^2/a^2 - y.^2/b^2);
% step1:开始拟合,k表示拟合系数,行向量
% 待拟合方程:F = z^2 = c^2 - c^2*x^2/a^2 - c^2*y^2/b^2
% x,y,z 均要先转化为列向量!
% 先把 z 值平方,再进行拟合,很重要!
% 令 c^2 = k(1),c^2/a^2 = k(2), c^2*y^2/b^2 = k(3)
% 求出 k 即得到椭球方程
xdata = [x,y]; %% 将 x,y 数据按列组合到 xdata
ydata = z.^2; %% 先把 z 值平方,再进行拟合
k0 = [1 1 1]; %% k 的运行初值,不会影响最终结果
F = @(k,xdata)k(1) - k(2)*xdata(:,1).^2 -k(3)*xdata(:,2).^2; %% 这句话是拟合函数
[k,resnorm]=lsqcurvefit(F,k0,xdata,ydata); %% 这句话是拟合关键!
% step2:椭圆参数求解
% 根据c^2 = k(1),c^2/a^2 = k(2), c^2*y^2/b^2 = k(3)
c = sqrt(k(1));
a = c/sqrt(k(2));
b = c/sqrt(k(3));
disp('a轴:');
disp(a);
disp('b轴:');
disp(b);
disp('c轴:');
disp(c);
end