defuzzify {SAFD}

Defuzzification

Description

Given a list XX of polygonal fuzzy numbers the function defuzzifies all elements of the list and returns the vector of Steiner points (as weighting measure the Lebesgue measure on [0,1] is used).

Usage

defuzzify(XX)

Arguments

XX

...should be a list of polygonal fuzzy numbers (the function implicitly checks the conditions)

Details

See examples

Value

Given input XX in the correct format the function returns vector of Steiner points.

Note

In case you find (almost surely existing) bugs or have recommendations for improving the functions comments are welcome to the above mentioned mail addresses.

Author(s)

Wolfgang Trutschnig <[e-mail]>, Asun Lubiano <[e-mail]>

Examples

#Example:
data(XX)
V<-translator(XX[[3]],50)
V2<-V
V2$x<-V$x/20
SS<-vector("list",length=150)
for (j in 1:150){
 SS[[j]]<-generator(V2,)
 }
a<-defuzzify(SS)
a