要优化求解的方程 ；其中B={bij}为已知矩阵;限制条件为0<wi<1，且满足sum（wi）==1。以B=matrix(c(1,1,2,2),nrow=2,byrow=T)，n=2为例，在R中编写的函数如下：
fitness<-function(w){
  sum(w)==1
  pp=0
    for (i in 1:length(w)) {
      for (k in 1:length(w)) {
        p<-abs(B[i,k]*w[k]-length(w)*w)
        pp=pp+p  
        ga=pp/length(w)} }
    return(ga)  
}

gatry<-genoud(fitness,nvars=2,max=F,pop.size=2000,max.generations=500,Domains=matrix(c(0,1,0,1),nrow=2,byrow=T))
但是遗传算法优化的结果根本就没有考虑function中的sum（w）==1，不知道问题出在哪里？请各位大神指教！