%《MATLAB及其在理工課程中的應用指南》(十一五規劃版)第五章例5-4-4a
% 盤形微分體的繪制程序
% 西安電子科技大學出版社出版  陳懷琛編著 2007年5月
%
clear, close all
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         % 繪制盤形微分體的周面
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),             % 繪制盤形微分體的端面
set(gcf,'color','w')