R/is.decreasing.on.y.R

In FuzzyNumbers.Ext.2: Apply Two Fuzzy Numbers on a Monotone Function

Defines functions is.decreasing.on.y

Documented in is.decreasing.on.y

is.decreasing.on.y <-
function(fun, x.bound=c(-1,1), y.bound=c(-1,1), step=.01){
  x = seq(x.bound[1], x.bound[2], by=step)
  for(i in 1:length(x)){
    g = function(y) fun(x[i],y)
    if( is.decreasing(g, y.bound, step) == FALSE )
       { return(FALSE) } 
    }
  return( TRUE )
}

Try the FuzzyNumbers.Ext.2 package in your browser