如何用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))
               }}}