huitu7.m

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

[x y z v]=flow;
[x y z v]=reducevolume(x,y,z,v,2);
fv=isosurface(x,y,z,v,-3);
p1=patch(fv);
set(p1,'facecolor','r','edgecolor',[.5 .5 .5]);
daspect([1 1 1]);
view(3);
axis tight
title('original')
figure
p2=patch(shrinkfaces(fv,3));
set(p2,'facecolor','r','edgecolor',[.5 .5 .5]);
daspect([1 1 1]);
view(3);
axis tight
title('after')