www.gusucode.com > rctobsolete 工具箱 matlab源码程序 > rctobsolete/mutools/subs/mdpimdel.m

    % function mdpimdel(pim,depthvec,rows,cols)

%   Copyright 1991-2004 MUSYN Inc. and The MathWorks, Inc.

function mdpimdel(pim,depthvec,rows,cols)

if ~isempty(pim)
	for i=1:length(depthvec)
		ii = depthvec(i);
		for j=1:rows(i)
			for k=1:cols(i)
				tmp = mdxpii(pim,ii,j,k);
				if ~isempty(tmp)
					delete(tmp)
				end
			end
		end
	end
end