Displaying 2 results from an estimated 2 matches for "arl1".
Did you mean:
arg1
2013 Feb 15
1
minimizing a numerical integration
...brary('nloptr')
library('pracma')
f <- function(x,y) {#here i should put the commands representing my function
return( )
}
#constraint function
eval_g0 <- function(x) {
return( )
}
# objective function
eval_f0 <- function(x) {
romberg(f, 0.5, 0.5001)}
ARL1 <- nloptr( x0=c(0.653),
eval_f=eval_f0,
lb = c(0),
ub = c(6),
eval_g_ineq = eval_g0,
opts = list("algorithm"="NLOPT_LN_COBYLA", "maxeval"=1000),
)
print(...
2013 Feb 27
0
A program running for a too long time
...$double.eps^(2/3))$value
obj <- nloptr( x0=c(0.653,0.09),
eval_f=eval_f0,
lb = c(0,0),
ub = c(6,1),
eval_g_ineq = eval_g0,
opts = list("algorithm"="NLOPT_LN_COBYLA", "maxeval"=600))
obj(ARL1)
Thanks,
Emara
[[alternative HTML version deleted]]