outer函数怎么用不了，怎么回事，急等，那个大神帮帮看看哪里错了，谢谢

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

z<-outer(x1,x2,fr2)
Error in FUN(X, Y, ...) : unused argument (Y)
>  
>  image(x1,x2,z)
Error in image.default(x1, x2, z) : object 'z' not found
>  contour(x1,x2,z,add=T)
Error in contour.default(x1, x2, z, add = T) : object 'z' not found
>  persp(x1,x2,z)
Error in persp.default(x1, x2, z) : object 'z' not found
>  persp(x1,x2,z,box=T,border = T,theta = 45,phi = 35)
Error in persp.default(x1, x2, z, box = T, border = T, theta = 45, phi = 35) :
  object 'z' not found
>  optim(c(-5,5),fr2,grr)    这是编译提示

1. x1<-x2<-seq(-10,10,length=100)
   
2. fr2<-function(x)
   
3. {
   
4.    x1=x[1]
   
5.    x2=x[2]
   
6.    (x1^2+x2-11)^2+(x1+x2^2-7)^2
   
7. }
   
8. 
   
9. 
   
10. grr<-function(x)
    
11. {
    
12.    x1=x[1]
    
13.    x2=x[2]    ###写一阶导数表达式
    
14.    c(2*(x1^2+x2-11)*2*x1+2*(x1+x2^2-7),2*(x1^2+x2-11)+2*(x1+x2^2-7)*2*x2)
    
15. }
    
16. z<-outer(x1,x2,fr2)
    
17. 
    
18. image(x1,x2,z)
    
19. contour(x1,x2,z,add=T)
    
20. persp(x1,x2,z)
    
21. persp(x1,x2,z,box=T,border = T,theta = 45,phi = 35)
    
22. optim(c(-5,5),fr2,grr)

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Out R函数 Default contour object border Error

fr2函数要传两个参数，参数不要用向量形式，直接传x1,x2

吴海龙 发表于 2015-6-7 18:22
fr2函数要传两个参数，参数不要用向量形式，直接传x1,x2

那个没影响啊   我试了也不行啊  书上就是这么写的，为什么不能得到z

这个样子了
fr2<-function(x1,x2)
{
   
   (x1^2+x2-11)^2+(x1+x2^2-7)^2
}

optim(c(-5,-5),fr2,grr)
错误于fn(par, ...) : 缺少参数"x2",也没有缺省值
>  optim(-5,-5,fr2,grr)
错误于(function (par)  : 没有"fn"这个函数
此外: 警告信息：
In optim(-5, -5, fr2, grr) : 用Nelder-Mead方法来算一维优化不很可靠：
用"Brent"或直接用optimize()

请问你这个问题解决了吗？？？期待你的回复。

问题解决了吗？
x1=x[1]
x2=x[2]
前面已经定义过x1和x2了，这两句多余，去掉就没问题了

fr2=function(x1,x2){
  fr2=((x1^2+x2-11)^2+(x1+x2^2-7)^2)
  return(fr2)
}