Fatal编程技术网
  • r/
  • 在目标函数中使用rootsolver的解

在目标函数中使用rootsolver的解

r

在目标函数中使用rootsolver的解,r,R,我正在使用rootSolve包求解一个目标函数的根。下面是代码，它给了我一个显示根的绘图，并打印出解决方案： library(rootSolve) P_func <- function (x) (0.11)*(-10^6/(10^4-(x/0.03))+20)*(10^4-(x/0.03)^2/(10^6)) curve(P_func(x), 0, 8000) abline(h = 0, lty = 3) All <- uniroot.all(P_func, c(0,8000)) p

我正在使用rootSolve包求解一个目标函数的根。下面是代码，它给了我一个显示根的绘图，并打印出解决方案：

library(rootSolve)
P_func <- function (x) (0.11)*(-10^6/(10^4-(x/0.03))+20)*(10^4-(x/0.03)^2/(10^6))
curve(P_func(x), 0, 8000)
abline(h = 0, lty = 3)
All <- uniroot.all(P_func, c(0,8000))
points(All, y = rep(0,length(All)), pch = 16, cex = 2)
All

库（rootSolve）

P_func
是的，确实有一个简单的方法


All
是一个向量，您的
W_func
接受向量作为参数。所以只需使用
W_func（All）
Yes
All
是一个向量，您的
W_func
接受向量作为参数。所以请使用
W_func（All）
。谢谢@Bhas！我没有办法接受你的评论作为答案，但我想给你一点信任。我已经把我的评论变成了答案。

W_func <- function (x) (10^4-x/0.03)