Wolfram Function Repository

Instant-use add-on functions for the Wolfram Language

Function Repository Resource:

 GracefulGraphFromPermutation

Source Notebook

Show the graceful graph corresponding to a given permutation

Contributed by: Ed Pegg Jr

ResourceFunction["GracefulGraphFromPermutation"][perm]

shows the graceful graph for the permutation perm.

Details and Options

A graceful graph has n edges labeled 1 to n, with each edge label equal to the absolute difference between the labels of its vertices.

Examples

Basic Examples (1) 

Every permutation can be converted to a graceful graph:

In[1]:=
ResourceFunction[ "GracefulGraphFromPermutation"][{1, 2, 9, 5, 4, 12, 7, 6, 3, 11, 10, 8}]
Out[1]=

Scope (3) 

Some graceful graphs are planar:

In[2]:=
ResourceFunction[ "GracefulGraphFromPermutation"][{2, 3, 6, 5, 8, 1, 7, 4}]
Out[2]=

Any random permutation can give a graceful graph:

In[3]:=
ResourceFunction["GracefulGraphFromPermutation"][ RandomSample[Range[18]]]
Out[3]=

Some graceful graphs are trees:

In[4]:=
ResourceFunction[ "GracefulGraphFromPermutation"][{2, 7, 10, 4, 6, 9, 8, 3, 1, 5}]
Out[4]=

Version History

  • 2.0.0 – 15 July 2019
  • 1.0.0 – 06 February 2019

License Information