end sTheta=size(Theta,2); for i=1:sTheta ThetaR{i}=setdiff(Theta{i},unionCons);
end The function 5 simply transforms the list of focal elements given by the user with the codification of Θ to obtain the list of constraints and with Θr for the focal elements of each expert. The function 6 prepares the coding of focal elements and return the list of the experts with the coded focal elements.

## Function 5 - Codingfocal Function

function [focalC]=codingFocal(focal,Theta) % Code the focal element for DSmT framework % % [focalC]=codingFocal(focal,Theta) % % Inputs:
% focal = the list of focal element for one expert % Theta = the description of Theta after coding %
% Output: % focalC = the list of coded focal element for one expert % % Copyright (c) 2008 Arnaud Martin nbfoc=size(focal,2); if nbfoc for foc=1:nbfoc elemC=treat(focal{foc},Theta);
focalC{foc}=elemC;
end else focalC={[]};
end end %% function [elemE]=eval(oper,a,b)
if oper==-2 elemE=intersect(a,b);
else elemE=union(a,b);
end end