exn544a.m

MATLAB及在电子信息课程中的应用.感觉很有用,本来也不花钱,有想用的来拿吧

%《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')