WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

ディオファントス方程式の解を求めて可視化する

ReduceをIntegersに使って数値解を得る：
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]