Description Usage Arguments Details Value Note Author(s) See Also Examples
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.
1 | hukuhara(X, Y, pic = 0)
|
X |
...polygonal fuzzy number (tested by |
Y |
...polygonal fuzzy number (tested by |
pic |
...numeric, if |
See examples
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.
In case you find (almost surely existing) bugs or have recommendations for improving the functions comments are welcome to the above mentioned mail addresses.
Wolfgang Trutschnig <wolfgang@trutschnig.net>, Asun Lubiano <lubiano@uniovi.es>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | #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)
|
[1] "Hukuhara difference Y-X does not exist"
NULL
x alpha
1 0.00 0.0
2 0.00 0.5
3 0.00 1.0
4 0.25 1.0
5 0.50 0.5
6 0.50 0.0
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.