% cardinality(empty set)/cardinality(empty set)=1, % so we add the bba BetP.BetP(focA)=BetP.BetP(focA)+expert.bba(focB);
end end end end Function 14 - credibility function function [Bel]=credibility(expert) % Credibility function % % [Bel]=credibility(expert) % % Input: % expert = containt the structures of the list of focal element and % corresponding bba for all the experts % expert.focal = list of focal elements
% expert.bba = matrix of bba % % Output:
% Bel = containt the structure of the list of focal element and % the matrix of the credibility corresponding % Bel.focal = list of focal elements % Bel.Bel = matrix of the credibility % Comment : 1- the code of the focal elements must inculde % the constraints % 2- The credibility is given only on the elements
% in the list of focal of expert (the
% bba can be 0) %
% Copyright (c) 2008 Arnaud Martin nbFocal=size(expert.focal,2);
Bel.focal=expert.focal; Bel.Bel=zeros(1,nbFocal); for focA=1:nbFocal for focB=1:nbFocal indMem=ismember(expert.focal{focB},expert.focal{focA});
if sum(indMem)==size(expert.focal{focB},2)
Bel.Bel(focA)=Bel.Bel(focA)+expert.bba(focB);
else if isequal(expert.focal{focB},[])