求教一程序

zxzlight

<>x=-100.0:0.1:100.0;y=-100.0:0.1:100.0;<BR>[x,y] = meshgrid(x,y); <BR>lamd=1.5;k=2*pi /lamd;<BR>z = k*(sqrt(x.^2 + y.^2) + eps);<BR>ph=mod(z,2*pi);<BR>ph=255*ph/max(max(ph));<BR>figure(1)<BR>load map<BR>colormap(map)<BR>image(ph)<BR>phname=['D:\miclens\','conelens.bmp'];<BR>imwrite(ph,map,phname,'bmp')<BR><BR>%mesh(x,y,z)</P>
<>map是灰度阵，能不能榜我给出一个 灰度矩阵<BR></P>