frpro2pos.m

来自「FISMAT accommodates different arithmetic」· M 代码 · 共 36 行

function l = frPro2Pos(lvec)

% l = frPro2Pos(lvec)
%
% From Probability to Possibility conversion using a bijective transformation.
% Reference:
% Dubois and Prade: 'Unfair coins and neccessity measures'
% Fuzzy Sets and Systems 10 (1983) 15-20
%
% The elements in lvec represent a probability distribution with sum(lvec) = 1.
% The result in l will be a corresponding possibility distribution.
%
% lvec has to be a row vector. (the returned l is also a row vector)
%
% FSTB - Fuzzy Systems Toolbox for MATLAB
% Copyright (c) 1993-1996 by Olaf Wolkenhauer
% Control Systems Centre at UMIST
% Manchester M60 1QD, UK
%
% 13-Oct-1995
% Last change: 13 Oct 1995

n=length(lvec);
l=zeros(1,n); 

%if (sum(lvec) > 1.01) | (sum(lvec) < 0.99), 
%  error('Sum(lvec) not equal to one !') 
%end;

for i=1:n,
  for k=1:n,
    l(i) = l(i) + min(lvec(i),lvec(k));
  end;
end;