加法表
f[n_] := Table[ Column[Table[IntegerDigits[i + j, n], {j, 0, n - 1}]], {i, 0, n - 1}]
乘法表
g[n_] := Table[ Column[Table[IntegerDigits[i j, n], {j, 0, n - 1}]], {i, 0, n - 1}]
加法表
f[n_] := Table[ Column[Table[IntegerDigits[i + j, n], {j, 0, n - 1}]], {i, 0, n - 1}]
乘法表
g[n_] := Table[ Column[Table[IntegerDigits[i j, n], {j, 0, n - 1}]], {i, 0, n - 1}]
本文标题：用mathematica计算n进制的加法表和乘法表
本文链接：https://www.haomeiwen.com/subject/tcvlxctx.html
网友评论