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,不知道问题出在哪里?请各位大神指教!


雷达卡


京公网安备 11010802022788号







