[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