最小二乘法拟合球面源代码（matlab）

1、源代码

[x,y,z]=sphere(5);
x = [0,0,1,0,0,0.7].';   %自己的数据
y = [0,1,0,0,-1,0.7].';  %自己的数据
z = [1,0,0,-1,0,0].';    %自己的数据
% 拟合
x = x(:); y = y(:); z = z(:);
data=unique([x(:)-0.1,y(:)+0.2,z(:)],'rows');
f=@(p,data)(data(:,1)-p(1)).^2+(data(:,2)-p(2)).^2+(data(:,3)-p(3)).^2-p(4)^2;
p=nlinfit(data,zeros(size(data,1),1),f,[0 0 0 1]')%拟合的参数
hold on
plot3(data(:,1),data(:,2),data(:,3),'o')
[X,Y,Z]=meshgrid(linspace(-14,14));
V=(X-p(1)).^2+(Y-p(2)).^2+(Z-p(3)).^2-p(4)^2;
isosurface(X,Y,Z,V,0);
alpha .5;camlight;axis equal;grid on;view(3);
title(sprintf('(x-%f)^2+(y-%f)^2+(z-%f)^2=%f',p(1),p(2),p(3),p(4)^2))

在matlab的输入窗口输入源代码后按Enter键如下图所示

2、实验结果