Displaying 1 result from an estimated 1 matches for "eval_g_eq".
Did you mean:
eval_g_ineq
2013 Jan 03
0
help with NLOPTR
...reekp) * (x[3]^(b1 - 1) * b1)) +
x[2] * ((N2/A) * (g2^greekp) * (x[3]^(b2 - 1) * b2)))),
-(alphah * (x[1] * (1 - exp(-2 * D * v1 * N1)) + x[2] * (1 -
exp(-2 * D * v2 * N2)))),
0))
}
############################## 2 Equality Constraint Functions
##############################
eval_g_eq = function (x) {
return( c( ( ( ((pq*(x[5]^beeta))+((1-x[1]) * (
(p1*((N1/A)*(g1^greekp)*(x[3]^b1)) ) -
(delta1*((theta+mu)*(((N1/A)*g1^greekp*x[3]^b1)+K))) ))
+((1-x[2]) * ( (p2*((N2/A)*(g2^greekp)*(x[3]^b2))) -
(delta2*((theta+mu)*(((N2/A)*g2^greekp*x[3]^b2)+K))) ))
+((1-x[1]) * ( (p1*((1...