如何使用 R 求解多整数未知数方程

Question

如何在方程 43.5a + 21.5b +26.5c + 43.5d = 826 中使用 R 求解，因为 a,b,c,d 是正整数。我知道会有很多解决方案，但没关系。谢谢。

Answer 1

这应该可以工作（不运行）：

1. 您需要先求解任何变量。

   Solve.a <- function(b,c,d) {(826-21.5*b-26.5*c-43.5*d)/43.5}
   

2. 您需要确定循环的限制。如果都是正整数，a和d不能大于17左右，而b和c不能大于37左右。

3. 编写一个循环并使用蛮力：

   for(b in 1:37) {
       for(c in 1:37) {
           for(d in 1:17) {
               a <- Solve.a(b,c,d)
               if (a %% 1 == 0 & a > 0) print(c(a,b,c,d))
               }}}