我有一个函数 fk,我有另一个函数 calc,我在其中传递 2 个值 x 和 y。我想执行以下操作,直到 fk(x)*fk(y) <0,我想将间隔 (y-x) 加倍。我将如何在 R
中完成此操作。我在逻辑上苦苦挣扎,我们将不胜感激,
fk <- function(x) {
return((x*x)-(3*x)+4)
}
calc <- function(x,y) {
g <- fk(x)*fk(y)
until g < 0 do
double the interval (y-x)
}
最佳答案
您想按照以下方式使用某些东西:
calc <- function(x,y) {
while (TRUE) {
g <- fk(x)*fk(y)
if (g < 0) {
break
}
// otherwise double interval (y-x)
}
}
正如我在评论中提到的,您不清楚要如何调整 x
和 y
的值以“加倍”间隔。弄清楚这一点后,您可以将所需的代码添加到循环中。
关于r - 做直到R中的循环逻辑,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32001474/