exm060543_6.m

来自「这是学习matlab的资料」· M 代码 · 共 12 行

figure(close)						%为保证图形窗具有缺省透明表
x=3*pi*(-1:1/30:1);y=x;[X,Y]=meshgrid(x,y);
R=sqrt(X.^2+Y.^2)+eps;Z=sin(R)./R;
[dzdx,dzdy]=gradient(Z);
dzdr=sqrt(dzdx.^2+dzdy.^2);	%计算对r的全导数
surf(X,Y,Z,abs(dzdr))			%色彩属性Cdata由径向导数确定
shading interp
colormap(spring)
alphamap('rampup')				%采用“下斜线型”透明度表
alpha('color')					%使AlphaData数据与Cdata数据相同
alpha('interp')