clear
clc
[X0,Y0,Z0]=sphere(30);       %產生單位球面的三維坐標
X=2*X0;Y=2*Y0;Z=2*Z0;        %產生半徑為2的球面的三維坐標
clf
subplot(1,2,1);
surf(X0,Y0,Z0);          %畫單位球面
shading interp               %采用插補明暗處理
hold on,mesh(X,Y,Z),colormap(hot),hold off       %采用hot色圖
hidden off                    %產生透視效果
axis equal,axis off          %不顯示坐標軸
title('透視圖')
subplot(1,2,2);
surf(X0,Y0,Z0);          %畫單位球面
shading interp               %采用插補明暗處理
hold on,mesh(X,Y,Z),colormap(hot),hold off       %采用hot色圖
hidden on                    %產生消隱效果
axis equal,axis off          %不顯示坐標軸
title('消隱圖')