exm07332_1.m

这是本人收集的一些程序源代码

%exm7332_1.m
clf,shg
t=linspace(0,2*pi,100);
r=1-exp(-t/2).*cos(4*t);
[X,Y,Z]=cylinder(r,60);
ii=find(X<0&Y<0);
Z(ii)=NaN;
surf(X,Y,Z);
colormap(spring),shading interp
light('position',[-3,-1,3],'style','local')
material([0.5,0.4,0.3,10,0.3])