knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
devtools::load_all()

Create a problem and check if the standard cyclone satisfies the constraints:

prob <- create_cmop(probs$standard.100, distribution = "esqua")
values <- fun_cyclone(
  prob$default, 
  fluid = prob$fluid, 
  delta = prob$delta, 
  intervals = prob$intervals, 
  cons.bound = prob$cons.bound)
values

Computing feasibility ratios:

feas_ratios(prob, sample.size = 1e4)

Optimization:

res <- opt_mo(prob)

Means and deviations of geometrical parameters:

param_stat(res)

Plot:

make_plot(res)


vodopijaaljosa/cyclone documentation built on Jan. 4, 2021, 7:09 a.m.