您当前的位置:首页 > 学习 > 阅览室

满足xy恰有k个约数的(x,y)所组成的图形

时间:12-10来源:作者:点击数:

刚才在这里看到了如题所说的图像,立即想到用 Mathematica 验证一下。我选出了几个个人比较感兴趣的 k ,再用一句话便可输出所有对应 k 的图像:

kArray = {2, 3, 4, 6, 8, 10, 12, 14, 16, 18, 20, 36, 50};
For[i = 1, i <= Length[kArray], i++,  Export["F:\" <> ToString[kArray[[i]]] <> ".png",
  ArrayPlot[Table[Boole[Length[Divisors[x*y]] == kArray[[i]]], {x, 1, 400}, {y, 1, 400}],
   PixelConstrained -> {1, 1}, Frame -> False]]];

当 k=2 时,由于只有素数才有两个约数,因此所有点都是形如 (p, 1) 或者 (1, p) 的点,其中 p 为某个素数:

当 k=3 时,图像上的点大致成一条斜线,斜线上的点都是形如 (p, p) 的点,其中 p 为某个素数:

当k是更大一些的奇数时,情况类似,因此不再重复了。

当 k=4 时,图像上出现了很多竖直线和水平线,这些直线的位置与素数的平方相对应:

当 k=6 时,逐渐出现了一些乍看之下不好理解的元素:

当 k=8 时,出现了之前不曾见过的情况:图中有一些连续的直线段:

当 k=10 时:

当 k=12 时:

当 k=14 时:

当 k=16 时,更加怪异了:

当 k=18 时:

当 k=20 时:

当 k=36 时:

当 k=50 时:

研究这些图像各种有趣的模式产生的原因,无疑是一个有趣的课题。

方便获取更多学习、工作、生活信息请关注本站微信公众号城东书院 微信服务号城东书院 微信订阅号
推荐内容
相关内容
栏目更新
栏目热门