построение графика функции в R - PullRequest
Новая
       27

построение графика функции в R

0 голосов
/ 24 апреля 2020

У меня есть большая письменная функция, которая является целевой функцией. Мне нужно изобразить это 

 sum=0
  obj_fn <- function(x){
    for(i in 1:nrow(ldata)){
      for(j in 1:4){
        sum=sum+ldata[i,j]*x[j]*x[5]*d_km
      }
    }
    return(-sum)
  }
   constraint1<-function(x){
    h <- numeric(5)
    h[1] <-  x[6]*x[1]-x[2] # r2>=fact*r1
    h[2] <- x[6]*x[2]-x[3]  # r3>=fact*r2
    h[3] <-  x[6]*x[3]-x[4] # r4>=fact*r3
    #h[4] <-  x[5]-1        # z<=1
    h[4] <-(-obj_fn(x) )-A1 # A2=A1
    h[5] <- A1-(-obj_fn(x) )
    #h[6] <- 1.5-x[6]        #fact>=1.5 here x[6] is the factor
    return(h)
  }

В основном, функция похожа на Максимизировать сумму (p = 1 до m) сумму (k '= 1 до n) L (p, k') * Z * (r ( k ')) * DL (p, k') и D являются входными данными, а постоянные значения изменения p варьируются от 1 до 100, а k '- от 1 до 4

. Мне нужно создать контурные или поверхностные графики для это в R

...