case 'A'
elemDecC=generationDThetar(Theta); elemDecC=reduceFocal(elemDecC); expertDec.focal=elemDecC; expertDec.bba=zeros(1,size(elemDecC,2)); for foc=1:size(expert.focal,2)
expertDec.bba(findeqcell(elemDecC,expert.focal{foc}))...

=expert.bba(foc);
end otherwise type=0; elemDec=string2code(elemDec); elemDecC=codingFocal(elemDec,Theta); expertDec=expert; nbElemDec=size(elemDecC,2); for foc=1:nbElemDec if ~isElem(elemDecC{foc}, expertDec.focal)
expertDec.focal{end+1}=elemDecC{foc}; expertDec.bba(end+1)=0; end end end %---------------------------------------------------------
nbFocal=size(expertDec.focal,2); switch criterium case 0
% maximum of the bba nbFocal=size(expertDec.focal,2); nbElem=0; for foc=1:nbFocal ind=findeqcell(elemDecC,expertDec.focal{foc});
if ~isempty(ind)
bba(ind)=expertDec.bba(foc);
end end [bbaMax,indMax]=max(bba);
if bbaMax~=0 decFocElem.bba=bbaMax; decFocElem.focal={elemDecC{indMax}};
else decFocElem=-1; end case 1
% maximum of the pignistic probability [BetP]=pignistic(expertDec); decFocElem=MaxFoc(BetP,elemDecC,type);
case 2
% maximum of the credibility