exm1077_1.m

MATLAB 教程 含源程序

%exm1077_1.m
clf reset,shg
t=(0:20)/20;r=2.5-cos(2*pi*t);				%产生旋转圆柱体的母线
[x,y,z]=cylinder(r,40);						%获得旋转圆柱体的三维数据
%读取matlab\toolbox\images\imdemos\trees.tif图象文件
[C,CMAP]=imread('trees.tif');		
CC=double(C)+1;								%必须把unit8编址图象数据变换为双精度格式
%通过属性设置，进行彩绘。						
surface(x,y,z,'Cdata',flipud(CC),'FaceColor','texturemap','EdgeColor','none','CDataMapping','direct','Ambient',0.6,'diffuse',0.8,'speculars',0.9)
colormap(CMAP) 								%必须使用原图象的色图
view(3),axis off