WOLFRAM

Wolfram 语言与系统参考资料中心

求出并可视化丢番图方程的解

通过对 Integers 进行 Reduce 得出数值解：
Wolfram Language code: Reduce[a ^ 2 + b ^ 2 == c ^ 2 && 0 < a < 100 && 0 < b < 100 && 0 < c < 100, {a, b, c}, Integers]
可视化结果：
Wolfram Language code: ListPlot3D[{a, b, c} /. Solve[a ^ 2 + b ^ 2 == c ^ 2 && 0 < a < 100 && 0 < b < 100 && 0 < c < 100, {a, b, c}, Integers], InterpolationOrder -> 0, Mesh -> None, ColorFunction -> "Rainbow", Filling -> Bottom, BoxRatios -> 1]