


VIM3 - visualize a 3d mesh
This routine seems to be obsolete... move to Trash?
Usage:
vim3(index,x,y,z,fig)

0001 function vim3(index,x,y,z,fig); 0002 %VIM3 - visualize a 3d mesh 0003 % 0004 % This routine seems to be obsolete... move to Trash? 0005 % 0006 % Usage: 0007 % vim3(index,x,y,z,fig) 0008 0009 figure(fig),clf,hold on 0010 perm1=[1 2 3 1 2 3]; 0011 perm2=[2 3 1 4 4 4] 0012 for n=1:length(index), 0013 for j=1:6, 0014 m=perm1(j);p=perm2(j); 0015 plot3([x(index(n,m)) x(index(n,p))]',[y(index(n,m)) y(index(n,p))]',[z(index(n,m)) z(index(n,p))]','r-*'); 0016 end 0017 end