end if funcMax~=0 decFocElem.focal=FocMax; switch fieldN{2}
case 'BetP'
decFocElem.BetP=funcMax; case 'Bel' decFocElem.Bel=funcMax; case 'Pl' decFocElem.Pl=funcMax; case 'DSmP'
decFocElem.DSmP=funcMax; end else decFocElem=-1; end end Function 12 - findFocal function function [elemDecC]=findFocal(Theta,minSpe,maxSpe)
% Find the element of DTheta with the minium of specifity minSpe % and the maximum maxSpe % % [elemDecC]=findFocal(Theta,minSpe,maxSpe) % % Input: % Theta = list of coded (and eventually reduced with constraint) of
% the elements of the discernment space
% minSpe = minimum of the wanted specificity % minSpe = maximum of the wanted specificity
% % Output: % elemDec = list of elements on which we want to decide with the
% minimum of specifity minSpe and the maximum maxSpe % % Copyright (c) 2008 Arnaud Martin elemDecC{1}=[]; n=size(Theta,2); ThetaSet=[]; for i=1:n ThetaSet=union(ThetaSet,Theta{i});
end for s=minSpe:maxSpe