R/reflection.R

reflect=function(f,...)
{
    function(x,...) ifelse(x>0, f(x,...), f(-x,...))/2
}
fold=function(f,...)
{
    function(x,...) ifelse(x>=0, f(x,...)+f(-x,...), 0)
}
gitlongor/pi0 documentation built on May 17, 2019, 5:29 a.m.