eliminatequad.m

来自「beamlet变化的工具箱」· M 代码 · 共 35 行

%  EliminateQuad - eliminate redundant quadruplets
%   Usage
%     [Cost,Time,Last1,Last2,Last3,Nquadruplets] = ...
%           EliminateQuad(elist,vnew,Cost,Time,Last1,Last2,Last3, ...
%           Nquadruplets,uppernlist);
%   Inputs
%     elist         list of quadruplets to be eliminated
%     vnew          current vertex
%     Cost          cost array
%     Time          time array
%     Last1         first index array
%     Last2         second index array
%     Last3         index of quadruplets array
%     Nquadruplets  number of quadruplets
%     uppernlist    largest possible quadruplets
%   Outputs
%     'Cost', 'Time', 'Last1', 'Last2', 'Last3' and 'Nquadruplets'
%     are those survive after elimination. 
%   Description
%     Recursively call current function to eliminate all downstream 
%
%
% Part of BeamLab Version:200
% Built:Friday,23-Aug-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%
%
% Part of BeamLab Version:200
% Built:Saturday,14-Sep-2002 00:00:00
% This is Copyrighted Material
% For Copying permissions see COPYING.m
% Comments? e-mail [e-mail]
%