exm1076_1.m

来自「书名应为《掌握和精通MATLAB》附有完整的源程序」· M 代码 · 共 15 行

%exm1076_1.m
clf reset,shg
t=(0:20)/20;r=2.5-cos(2*pi*t);[x,y,z]=cylinder(r,40);
fc = get(gca,'color');		%获得轴的背景颜色
h=surface(x,y,z,'FaceColor',fc,'EdgeColor','flat',...
   'FaceLighting', 'none','EdgeLighting','flat');
								%把FaceColor' 设置为背景色，产生网线图<4>
view(3); grid on  

disp('按任意键，继续。产生曲面图。'),pause
set(h,'FaceColor','flat','LineStyle','-','EdgeColor',[.8 .8 .8]) %<6>  

disp('按任意键，继续。产生瀑布水线图'),pause
set(h,'FaceColor','interp','MeshStyle','column') 					%<7>