2
$\begingroup$

I am trying to draw regular hyperbolic tesselations using the "RegularHyperbolicTilingGraph" function on Mathematica 13. Here is the introduction of this function on the repository: https://resources.wolframcloud.com/FunctionRepository/resources/RegularHyperbolicTilingGraph/

I'm trying to run one line of code from the repository that should output something like this:

Table[ResourceFunction["RegularHyperbolicTilingGraph"][6, 4, k, 
  GraphLayout -> "Poincare", WorkingPrecision -> 20], {k, 4}]

enter image description here

But when I run the code on my computer it gives something like this: enter image description here

which looks wrong. How can I fix this? Any suggestion is appreciated.

$\endgroup$
2
  • 1
    $\begingroup$ Welcome to Mathematica StackExchange! Indeed this seems like a bug – it works normally for me in 12.3 (Windows), but gives the same (wrong) result as yours in 13.3.0 (Cloud). You should report this to WRI: There is a link Send a message about this function in the bottom of the documentation page. Let us know if you report this problem, otherwise someone else can do it instead :) $\endgroup$
    – Domen
    Commented Sep 8, 2023 at 7:08
  • $\begingroup$ closely related Q/A: Generating custom GraphLayout for a hyperbolic graph $\endgroup$
    – kglr
    Commented Sep 8, 2023 at 7:47

0