[Bel]=credibility(expertDec); decFocElem=MaxFoc(Bel,elemDecC,type);
case 3
% maximum of the credibility with reject [Bel]=credibility(expertDec); TabSing=[]; focTheta=[];
for i=1:size(Theta,2)
focTheta=union(focTheta,Theta{i});
end for foc=1:nbFocal if isElem(Bel.focal{foc}, elemDecC)
TabSing=[TabSing [foc ; Bel.Bel(foc)]];
end end [BelMax,indMax]=max(TabSing(2,:)); if BelMax~=0 focMax=Bel.focal{TabSing(1,indMax)};
focComplementary=setdiff(focTheta,focMax); if isempty(focComplementary)
focComplementary=[];
end ind=findeqcell(Bel.focal,focComplementary); if BelMax < Bel.Bel(ind) % if ind is empty this is always false decFocElem=0; % That means that we reject else if isempty(ind)
decFocElem=0; % That means that we reject else decFocElem.focal={Bel.focal{TabSing(1,indMax)}};
decFocElem.Bel=BelMax; end end else decFocElem=-1; % That means that we reject end case 4
% maximum of the plausibility [Pl]=plausibility(expertDec); decFocElem=MaxFoc(Pl,elemDecC,type);
case 5
% DSmP criterium epsilon=0.00001; % 0 can allows problem
[DSmP]=DSmPep(expertDec,epsilon);