R/calcRamification.R

In FractalParameterEstimation: Simulation and Parameter Estimation of Randomized Sierpinski Carpets using the p-p-p-q-Model

Defines functions calcRamification

Documented in calcRamification

calcRamification <-
function(figure) {
  count = 1; 
  while(figure > 3) {
    figure = figure/3
    count = increment(count)
  } # end while
  return(count)
}

Try the FractalParameterEstimation package in your browser