r - 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))
               }}}