hukuhara {SAFD}

Hukuhara Difference

Description

Given two polygonal fuzzy numbers the functions calculates the Hukuhara difference Y-X if it exists. First the input data is tested for having the correct format using the function checking. If the Hukuhara difference exists and pic=1 then the input and the Hukuhara difference is plotted, otherwise no plot is produced.

Usage

hukuhara(X, Y, pic = 0)

Arguments

X

...polygonal fuzzy number (tested by checking)

Y

...polygonal fuzzy number (tested by checking)

pic

...numeric, if pic=1 then X, Y and Y-X (if existing) is plotted

Details

See examples

Value

In case the input data is in the correct form and the Hukuhara difference exists, the Hukuhara difference is returned, in case not, NULL is returned.

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]>

See Also

See Also as checking, Msum

Examples

#Example 1:
Y<-data.frame(x=c(0,0,0,1,2,2),alpha=c(0,0.5,1,1,0.5,0))
X<-data.frame(x=c(0,0,0,0,1.5,2),alpha=c(0,0.5,1,1,0.5,0))
Z<-data.frame(x=c(0,0,0,0.75,1.5,1.5),alpha=c(0,0.5,1,1,0.5,0))
h1<-hukuhara(X,Y,1)
h1
h2<-hukuhara(Z,Y,1)
h2

#Example 2: in this case the hukuhara diff has to exist by construction
data(XX)
X<-translator(XX[[1]],50)
shift<-seq(-1,1,length=100)
Y<-X
Y$x<-X$x+shift
h<-hukuhara(X,Y,1)