Sum: Summation of n Piecewise Linear Fuzzy Numbers

Description Usage Arguments Value See Also Examples

Description

This function is able to calculate the summation of a sample from Piecewise Linear Fuzzy Numbers (PLFNs).

Usage

1

Arguments

S.PLFN

A sample from Piecewise Linear Fuzzy Numbers (PLFNs), with n PLFNs. This sample is an array with dim=c(knot.n+2,2,n) .

Value

This function returned a Piecewise Linear Fuzzy Number.

See Also

DISTRIB FuzzyNumbers FuzzyNumbers.Ext.2 Calculator.LR.FNs

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
if(!require(FuzzyNumbers)){install.packages("FuzzyNumbers")}
library(FuzzyNumbers)

n=3; knot.n=4
Sample <- S.PLFN( n, knot.n,
			X.dist="pois", X.dist.par=5,
			slX.dist="exp", slX.dist.par=3,
			srX.dist="beta", srX.dist.par=c(1,3)
			)
Sample
S = Sum(Sample)

# For plotting random fuzzy sample:
xlim = c(min(Sample[knot.n+2,1,]),S["a4"])
  plot( cuts.to.PLFN(Sample[,,1]), type="o", xlim=xlim ) 
  plot( cuts.to.PLFN(Sample[,,2]), type="o", add=TRUE ) 
  plot( cuts.to.PLFN(Sample[,,3]), type="o", add=TRUE ) 
  abline( h=round((knot.n+1):0/(knot.n+1),4), lty=3, col="gray70") 

plot( S, type="b", add=TRUE, col=2, lwd=3 )

Sim.PLFN documentation built on May 2, 2019, 5:51 a.m.