[求助] matlaB三维图

8楼: Originally posted by whq_nj at 2012-01-09 11:51:43:
谢谢，3D图的中心线可以不上吗？
非常感谢，您可以把程序加上注释发给我吗？

另：您应助了，我好把金币给您

function temp()
% 清空workspace的变量
clc;
clear all;
close all;

% center做在x-y平面
centerMat = [ 117 105 96 86 79 71 66 60 56 51 48 45 43 42 44 44 45 44;
              260 248 234 217 202 187 172 158 143 127 113 98 83 69 53 37 23 9];
centerMat = [centerMat;zeros(1,size(centerMat,2))]';
centerMat(:,2) = max(centerMat(:,2))-centerMat(:,2);

% 右图left的坐标,因为是鼠标点的,所以有些误差,如果你有数据,就是精确的
leftMat = [115 93 79 61 48 39 34 29 27 25 24 23 23 26 25 29 37 43;
            262 257 245 231 219 203 185 169 151 134 117 102 85 68 52 36 22 8];
leftMat = [leftMat;zeros(1,size(leftMat,2))]';
leftMat(:,2) = max(leftMat(:,2))-leftMat(:,2);

% 有图right的坐标,同left
rightMat = [117 118 119 112 109 103 96 91 88 80 75 69 68 65 64 62 53 44;
            259 240 218 203 187 173 160 145 133 120 109 93 81 66 52 37 23 8];
rightMat = [rightMat;zeros(1,size(rightMat,2))]';
rightMat(:,2) = max(rightMat(:,2))-rightMat(:,2);

% 旋转角度,用左右对应点求解出来的
anglesMat = rightMat-leftMat;
anglesMat = atan2(anglesMat(:,2),anglesMat(:,1));

% 图
figure

% 左边的三维图
subplot(1,2,1);hold on;grid on;
radiusMat = zeros(1,18);
for i=1:18
    radiusMat(i) = pdist2(leftMat(i,:),rightMat(i,:))/2; % 计算半径,(右-左)/2
    circle(centerMat(i,:),radiusMat(i),[0,0,anglesMat(i)]); % 调用子函数画圆
end
xlabel('x');
ylabel('y');
zlabel('z');

% 右图
subplot(1,2,2);hold on;grid on;
plot3(centerMat(:,1),centerMat(:,2),centerMat(:,3),'k'); % 中心
plot3(leftMat(:,1),centerMat(:,2),centerMat(:,3),'ks-'); % 左边
plot3(rightMat(:,1),rightMat(:,2),rightMat(:,3),'ks-'); % 右边
% 左右连线
for i=1:18
    line([leftMat(i,1),rightMat(i,1)],[leftMat(i,2),rightMat(i,2)],[leftMat(i,3),rightMat(i,3)]);
end
xlim([min(leftMat(:,1))-20:max(rightMat(:,1))+20]);
ylim([min(leftMat(:,2))-20:max(leftMat(:,2))+20]);

end

%% 子函数
% 参数
% center: p*3,中心坐标
% radisu: 半径
% angle: 1*3,分别绕三个轴的旋转角度,你这个圆是画在y-z平面后旋转的,所以x都默认是0
function circle(center,radius,angle)
NOP = 100; % 精度参数,不用调整

% 生成圆的数据
THETA = linspace(0,2*pi,NOP);
RHO = ones(1,NOP)*radius;
[Y,Z] = pol2cart(THETA,RHO);
Y = Y+center(2);
Z = Z+center(3);
coords = [zeros(length(Y),1),Y',Z'];

% 旋转矩阵
rotMatX = [ 1,  0,              0;
            0,  cos(angle(1)),  sin(angle(1));
            0,  -sin(angle(1))  ,cos(angle(1))];
rotMatY = [ cos(angle(2)),  0,  -sin(angle(2));
            0,              1,  0;
            sin(angle(2)),  0,  cos(angle(2))];
rotMatZ = [ cos(angle(3)),  sin(angle(3)),  0;
            -sin(angle(3)), cos(angle(3)),  0;
            0,              0,              1];

% 旋转圆
coords = coords*(rotMatZ*rotMatY*rotMatX);

% 画圆
plot3(coords(:,1)',coords(:,2)',coords(:,3)','k');
end