hilbert_function_constraint.m

来自「一个用EM算法的源程序」· M 代码 · 共 36 行

function result = Hilbert_function_constraint(ambientDimension, subspaceDimensions);

load rankTable.mat
subspaceNumber = length(subspaceDimensions);
subspaceCodimensions=ambientDimension*ones(1,subspaceNumber)-subspaceDimensions;
subspaceCodimensions=sort(subspaceCodimensions);

% Remove Hyperplances
while (subspaceNumber>2) && (subspaceCodimensions(1)==1)
    subspaceCodimensions=subspaceCodimensions(2:end);
    subspaceNumber = subspaceNumber - 1;
    if subspaceNumber==0
        % All hyperplanes
        result = 1;
        return;
    end
end

codimensionCombinations=rankTable{ambientDimension,subspaceNumber,1};
charDimensions = rankTable{ambientDimension,subspaceNumber,2};

% Find the right entry
entryFound = false;
entryIndex = 0;
while (entryFound==false) && (entryIndex<size(codimensionCombinations,1))
    entryIndex = entryIndex + 1;
    if issame(codimensionCombinations(entryIndex,:),subspaceCodimensions)
        entryFound = true;
    end
end

if entryFound == false
    error('The dimension combination is not in the Hilbert function constraint table.');
end

result = charDimensions(entryIndex);