R语言循环求解方程组

以下是使用R语言循环求解线性方程组的示例代码：

# 定义线性方程组的系数矩阵A和常数向量B
A <- matrix(c(1, 2, 3, 4, 5, 6, 7, 8, 10), nrow = 3, ncol = 3, byrow = TRUE)
B <- c(9, 12, 23)

# 求解线性方程组Ax=B
n <- nrow(A)
x <- numeric(n)
for (i in 1:n) {
  x[i] <- (B[i] - sum(A[i, 1:(i-1)] * x[1:(i-1)]) - sum(A[i, (i+1):n] * x[(i+1):n])) / A[i, i]
}

# 输出方程组的解
cat("方程组的解为：", x, "\n")

上述代码中，首先定义了线性方程组的系数矩阵A和常数向量B，然后使用循环求解方程组Ax=B，最后输出方程组的解。