function函数应用问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

问一个比较低级的问题，我现在有一个函数，fx=(x1-5)^2 + (x2-55)^2 +(x3-555)^2 +(x4-5555)^2 +(x5-55555)^2，计算fx的最小值，其中x1,x2,x3,x4,x5为5个不同的变量。
请问这个问题的function函数怎么写啊，底下的式中我光写了f的表达式，但是怎么定义当x1~x5取不同的值时，f最小呢？
f<-function(x1,x2,x3,x4,x5){(x1-5)^2+(x2-55)^2+(x3-555)^2+(x4-5555)^2+(x5-55555)^2}

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：function 应用问题 CTI Fun TIO function

重新写一下，就是我想用遗传算法计算这个函数的最小值，我也是在网上搜的，他第一行的代码省略掉了，我不会写，原题如下：
题目1：设fx=(x1-5)^2 + (x2-55)^2 +(x3-555)^2 +(x4-5555)^2 +(x5-55555)^2，计算fx的最小值，其中x1,x2,x3,x4,x5为5个不同的变量。

从直观上看，如果想得到fx的最小值，其实当x1=5,x2=55,x3=555,x4=5555,x5=55555时，fx=0为最小值。如果使用穷举法，通过循环的方法找到这5个变量，估计会很费时的，我就不做测试了。下面我们看一下遗传算法的运行情况。

# 定义适应度函数
> f<-function(x){} # 代码省略

# 运行遗传算法
> m <- mcga(  popsize=200,
+             chsize=5,
+             minval=0.0,
+             maxval=999999,
+             maxiter=2500,
+             crossprob=1.0,
+             mutateprob=0.01,
+             evalFunc=f)

f<-function(x){
return ((x[1]-5)^2 + (x[2]-55)^2 +(x[3]-555)^2 +(x[4]-5555)^2 +(x[5]-55555)^2)
}

最好把x用一个向量表示

f <-  function(x) sum((x - c(5, 55, 555, 5555, 55555))^2)

optim(rep(0, 5), f)

受教了