apsumhei.m

FISMAT accommodates different arithmetic operators, fuzzification and defuzzification algorithm, imp

function bs = apsumhei(FAMbank,Aj,moments,areas)

% bs = apsumhei(FAMbank,Aj,moments,areas) 
%
% Algebraic-product operator for the inference. Summation of the outputs.
% Defuzzification with HEIGHT method.
% "crisp" output.
% FAMbank = bank of FAM rules
%
% FSTB - Fuzzy Systems Toolbox for MATLAB
% Copyright (c) 1993-1996 by Olaf Wolkenhauer
% Control Systems Centre at UMIST
% Manchester M60 1QD, UK
%
% 22-April-1994

[i,j,s]=find(FAMbank); % finding all non-zero elements - rules.
% s and A are ordered like the rules. However areas and moments are ordered
% from left to right - from NB to PB.
% Reordering moments and areas in the way that the relate to the corres-
% ponding rules:
areas=areas(s); moments=moments(s);
% local centroids:
% in case of all areas equal to zero.
areas=areas+0.00001*ones(1,length(areas)); 
cents=moments./areas;
Cs=Aj*cents';
% Height method:
bs=Cs/(sum(Aj)+0.00001);