在R上，我现在自定义了两个函数，分别为ATS0和ATS1，这两个函数内部都是通过循环得出的结果，并没有显性的函数表达式，里面的参数均为同样的变量，为三个变量，现在我想求解在满足ATS0等于370的条件下求ATS1最小值，并返回这个最小值所对应的变量值，应该怎么写代码

# 定义函数ATS0和ATS1
ATS0 <- function(x, y, z) {
  sum <- 0
  for (i in 1:x) {
    for (j in 1:y) {
      for (k in 1:z) {
        sum <- sum + i + j + k
      }
    }
  }
  return(sum)
}

ATS1 <- function(x, y, z) {
  sum <- 0
  for (i in 1:x) {
    for (j in 1:y) {
      for (k in 1:z) {
        sum <- sum + i * j * k
      }
    }
  }
  return(sum)
}

# 求解在满足ATS0等于370的条件下求ATS1最小值，并返回这个最小值所对应的变量值
min_val <- Inf
min_var <- c(0, 0, 0)
for (i in 1:370) {
  for (j in 1:370) {
    for (k in 1:370) {
      if (ATS0(i, j, k) == 370) {
        temp <- ATS1(i, j, k)
        if (temp < min_val) {
          min_val <- temp
          min_var <- c(i, j, k)
        }
      }
    }
  }
}

# 输出结果
cat("在满足ATS0等于370的条件下，ATS1的最小值为：", min_val, "\n")
cat("对应的变量值为：", min_var, "\n")

--相关问题--:
1. 如何在R中定义函数？
2. R中如何进行循环操作？