列出在r中求解多项式的所有解

我有一个方程50x+50y=200，我在R中编程为：

a = array(c(50,50),c(1,2))
b = c(200)
qr.solve(a,b)

但结果只显示了4和0。那么，我的问题是，有没有办法列出所有的解决方案

---

提前感谢

如果您需要非负整数解决方案，您可以通过蛮力轻松实现，因为0如果您需要非负整数解决方案，您可以通过蛮力轻松实现，因为0@ZheyuanLi你是说我没有办法列出所有的整数解吗？@zheiyunli正整数怎么样？它们肯定不是无限大的一般设置。我想应该有办法列出所有的正整数解，对吗？谢谢你的回答，但是你对此有什么想法吗？你可能需要一个整数线性规划解决方案（顺便说一句，根本不是

qr.solve

），我对这些方法不太了解，但这应该对你有帮助search@ZheyuanLi你是说我没有办法列出所有的整数解吗？@zheiyunli正整数怎么样？它们肯定不是无限大的一般设置。我想应该有办法列出所有的正整数解，对吗？谢谢你的回答，但是你对此有什么想法吗？你可能需要一个整数线性规划解决方案（顺便说一句，根本不是

qr.solve

），我对这些方法不太了解，但这应该可以帮助你搜索

dd <- expand.grid(x=0:4,y=0:4)
with(dd,dd[50*x+50*y==200,])
##    x y
## 5  4 0
## 9  3 1
## 13 2 2
## 17 1 3
## 21 0 4