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)
Value
Given input XX in the correct format the function returns vector of Steiner points.
# NOT RUN {#Example:data(XX)
V<-translator(XX[[3]],50)
V2<-V
V2$x<-V$x/20SS<-vector("list",length=150)
for (j in1:150){
SS[[j]]<-generator(V2,)
}
a<-defuzzify(SS)
a
# }