Оптимизация функции 2 параметров

Question

Моя проблема, вероятно, часто, но я не знаю, как адаптировать ответ на эту проблему

У меня есть функция F с двумя параметрами (а, б) и у меня есть чтобы найти максимум этой функции.

На данный момент, я могу это сделать:

optimization_of_F<-function(a,b){ 
    solution=c(0,0,0) #initialization 
    a=seq(0, 5, by=0.1) 
    b=seq(0.1, 5, by =0.1) 

    for (d in a){ 
    for (k in b){ 
     if (F(d, k) > solution[1]) { 
     solution[1]= F(d,k) 
     solution[2]= d 
     solution[3]= k 
     } 
    }  
    } 
    return(solution) 
} 

Но этот путь слишком долго, и я хотел бы, чтобы оптимизировать его. Как я могу это сделать ?

Answer 1

Я чувствую, что это поможет вам ближе к тому, что вы ищете:

a=seq(0, 5, by=0.1) 
b=seq(0.1, 5, by =0.1) 
outer(a, b, FUN=F) 

Answer 2

Попробуйте, где F ваша функция, c(0,0) первоначальное предположение, c=2 и d=pi/3 фиксированные параметры подаются в F,

optim(c(0,0), F, c=2, d=pi/3)