%《MATLAB及其在理工課程中的應(yīng)用指南》(十一五規(guī)劃版)第五章例5-4-4b
% 盤(pán)形微分體的繪制程序
% 西安電子科技大學(xué)出版社出版  陳懷琛編著 2007年5月
%
clear
u=linspace(-pi,pi)'; 
v=linspace(0,1,10);
Y=sin(u)*ones(size(v));
X=ones(size(u))*v;
Z=cos(u)*ones(size(v));
subplot(1,2,1),
mesh(X,Y,Z),hold on         % 繪制盤(pán)形微分體的周面
axis([-10,10,-1,1,-1,1])
Y1=sin(u)*v;
Z1=cos(u)*v;
X1=zeros(size(u))*ones(size(v));
subplot(1,2,1),
mesh(X1,Y1,Z1),             % 繪制盤(pán)形微分體的端面
set(gcf,'color','w')