r - 做直到R中的循环逻辑

Question

我有一个函数 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)
}

Answer 1

您想按照以下方式使用某些东西:

calc <- function(x,y) { 
    while (TRUE) {
        g <- fk(x)*fk(y)
        if (g < 0) {
            break
        }
        // otherwise double interval (y-x)
    }
}

正如我在评论中提到的，您不清楚要如何调整 x 和 y 的值以“加倍”间隔。弄清楚这一点后，您可以将所需的代码添加到循环中。