Question

我想计算三个变量的函数。但是第三个变量取决于第二个变量。如何根据函数中第二个变量的值分配第三个变量。该代码粘贴在下面。

kot <- seq(1,10,length.out=10) # kote
H <- seq(1, 2.1,length.out=10) 


fc= function(H,kot, mu=if(H > 1) {mu =0.1} else { mu=100 }){

  mu*sqrt(2*9.81* (kot-.5))* 2.2* (ifelse((kot-.5)<=H, kot-.5, H))}

z<-outer(H,kot,fc)

Answer 1

我更改了一些值，只是为了表明您可以使用两个变量初始化一个函数，并在该函数中构建第三个变量。

kot <- 5
H <- 5

outer <- function(H, kot){

  mu <- if(H > 1) {mu = 0.1} else { mu = 100 }
  result <- mu * sqrt(2*9.81* (kot-1))* 2.2* (ifelse((kot-.5)<=H, kot-.5, H))

  return(result)
}

outer(H,kot)
# 8.770305

根据R函数中的第二个变量定义变量的输入

1 个答案: