tabs=nchoosek(ThetaSet,s); elemDecC(end+1:end+size(tabs,1))=num2cell(tabs,2)';
end elemDecC=elemDecC(2:end);
Function 13 - pignistic function function [BetP]=pignistic(expert)
% Generalized Pignistic Transformation % % [BetP]=pignistic(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: % BetP = containt the structure of the list of focal element and % the matrix of the plausibility corresponding
% BetP.focal = list of focal elements % BetP.BetP = matrix of the pignistic transformation
% Comment : 1- the code of the focal elements must inculde % the constraints % 2- The pignistic 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); BetP.focal=expert.focal; BetP.BetP=zeros(1,nbFocal);
for focA=1:nbFocal for focB=1:nbFocal focI=intersect(expert.focal{focA},expert.focal{focB}); if ~isempty(focI)
BetP.BetP(focA)=BetP.BetP(focA)+size(focI,2)/... size(expert.focal{focB},2)*expert.bba(focB);
else if isequal(expert.focal{focB},[]) % for the empty set: