huituqm1.m

来自「包括MATLAB7.0实用指南（1）书中所有的例子的源代码。」· M 代码 · 共 20 行

[x,y,z]=meshgrid(-2:.2:2,-2:.25:2,-2:.16:2);
v=x.*exp(-x.^2-y.^2-z.^2);
[xsp ysp zsp]=sphere;
slice(x,y,z,v,[-2,2],2,-2)
for i=-3:.05:3
    hsp=surface(xsp+i,ysp,zsp);
    rotate(hsp,[1 0 0],90);
    xd=get(hsp,'XData');
    yd=get(hsp,'YData');
    zd=get(hsp,'ZData');
    delete(hsp)
    hold on
    hslicer=slice(x,y,z,v,xd,yd,zd);
    axis tight
    xlim([-3 3])
    view(-10,35)
    drawnow
    delete(hslicer)
    hold off
end