Mathematica中五角大楼的双曲矩阵

Question

我想在Mathematica中实现这一点：

我意识到我可以使用ParametricPlot获取线条，然后使用“网格”选项填充颜色。谁能告诉我这些线方程的通用公式是什么？它是否适用于常规的n-gon？

Answer 1

我碰巧有一些代码可以做你想做的事情，你可以在这里查看代码：http://facstaff.unca.edu/mcmcclur/mathematicaGraphics/PTiling/。

有几条评论是有条不紊的。代码背后的想法都在Saul Stahl的优秀书籍The Poincare Half-Plane中有所描述 - 特别是关于Poincare磁盘的章节。我编写代码来说明我在1999年教授的几何​​类的一些想法，所以它必须是版本3或4.我没有做任何尝试优化任何后续版本的代码。无论如何，如果您在该页面上定义函数PTiling然后执行PTiling[5, 2*5 - 4, 3]，您应该（几分钟后）获得如下内容：

显然，我们只有一张黑白照片，说明了你想要的五边形的边界，但希望这是一个好的开始。我认为可以使用部分磁盘而不是圆圈来接近你想要的东西。