7-11.m

来自「matlab图像程序.zip」· M 代码 · 共 27 行

[xsp,ysp,zsp] = sphere;                          
%定义球体
slice(x,y,z,v,[-2,2],2,-2)                          
% 绘制切片边
for i = -3:.2:3
hsp = surface(xsp+i,ysp,zsp);                 
%球体面句柄
rotate(hsp,[1 0 0],90)                       
%旋转
    xd = get(hsp,'XData');
    yd = get(hsp,'YData');
    zd = get(hsp,'ZData');    
delete(hsp)                               
%删除球体句柄（刷新）
    hold on
hslicer = slice(x,y,z,v,xd,yd,zd);               
%更新球体切片
    axis tight 
    xlim([-3,3])
view(-10,35)                              
%视图角
    drawnow
%球体切片刷新
delete(hslicer)                             
    hold off
end