{-# LANGUAGE Safe #-} {- Generators for classic non-parametric graphs. Built using NetworkX 1.8.1, see -} module Data.Graph.Generators.Classic ( trivialGraph, bullGraph, chvatalGraph, cubicalGraph, desarguesGraph, diamondGraph, dodecahedralGraph, fruchtGraph, heawoodGraph, houseGraph, houseXGraph, icosahedralGraph, krackhardtKiteGraph, moebiusKantorGraph, octahedralGraph, pappusGraph, petersenGraph, sedgewickMazeGraph, tetrahedralGraph, truncatedCubeGraph, truncatedTetrahedronGraph, tutteGraph ) where import Data.Graph.Generators {- Generates the trivial graph, containing only one node and no edges -} trivialGraph :: GraphInfo trivialGraph = GraphInfo 1 [] {- Generates the Bull graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected @ 0 1 \ / 2---3 \ / 4 @ -} bullGraph :: GraphInfo bullGraph = let edges = [(0,2),(1,3),(2,3),(2,4),(3,4)] in GraphInfo 5 edges {- Generate the Frucht Graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected See -} fruchtGraph :: GraphInfo fruchtGraph = let edges = [(0,1),(0,6),(0,7),(1,2),(1,7),(2,8),(2,3), (3,9),(3,4),(4,9),(4,5),(5,10),(5,6), (6,10),(7,11),(8,9),(8,11),(10,11)] in GraphInfo 12 edges {- Generate the house graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected @ 1 / \ 2---3 | | 4---5 @ -} houseGraph :: GraphInfo houseGraph = let edges = [(0,1),(0,2),(1,3),(2,3),(2,4),(3,4)] in GraphInfo 5 edges {- Generate the house X graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected @ 1 / \ 2---3 | X | 4---5 @ -} houseXGraph :: GraphInfo houseXGraph = let edges = [(0,1),(0,2),(0,3),(1,2),(1,3),(2,3),(2,4),(3,4)] in GraphInfo 5 edges {- Generate the Pappus Graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected. Nodes are labelled [0..17] -} pappusGraph :: GraphInfo pappusGraph = let edges = [(0,1),(0,5),(0,17),(1,8),(1,2),(2,3),(2,13),(3,4), (3,10),(4,5),(4,15),(5,6),(6,11),(6,7),(7,8),(7,14), (8,9),(9,16),(9,10),(10,11),(11,12),(12,17),(12,13), (13,14),(14,15),(15,16),(16,17)] in GraphInfo 18 edges {- Generate the Sedgewick Maze Graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected. -} sedgewickMazeGraph :: GraphInfo sedgewickMazeGraph = let edges = [(0,2),(0,5),(0,7),(1,7),(2,6), (3,4),(3,5),(4,5),(4,6),(4,7)] in GraphInfo 8 edges {- Generate the Petersen Graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected. -} petersenGraph :: GraphInfo petersenGraph = let edges = [(0,1),(0,4),(0,5),(1,2),(1,6),(2,3), (2,7),(3,8),(3,4),(4,9),(5,8),(5,7), (6,8),(6,9),(7,9)] in GraphInfo 10 edges {- Generate the Heawood Graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected. -} heawoodGraph :: GraphInfo heawoodGraph = let edges = [(0,1),(0,13),(0,5),(1,2),(1,10),(2,3), (2,7),(3,12),(3,4),(4,9),(4,5),(5,6), (6,11),(6,7),(7,8),(8,9),(8,13),(9,10), (10,11),(11,12),(12,13)] in GraphInfo 14 edges {- Generate the Diamond Graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected. -} diamondGraph :: GraphInfo diamondGraph = let edges = [(0,1),(0,2),(1,2),(1,3),(2,3)] in GraphInfo 4 edges {- Generate the dodecahedral Graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected. -} dodecahedralGraph :: GraphInfo dodecahedralGraph = let edges = [(0,1),(0,10),(0,19),(1,8),(1,2),(2,3), (2,6),(3,19),(3,4),(4,17),(4,5),(5,6), (5,15),(6,7),(7,8),(7,14),(8,9),(9,10), (9,13),(10,11),(11,12),(11,18),(12,16), (12,13),(13,14),(14,15),(15,16),(16,17), (17,18),(18,19)] in GraphInfo 20 edges {- Generate the icosahedral Graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected. -} icosahedralGraph :: GraphInfo icosahedralGraph = let edges = [(0,8),(0,1),(0,11),(0,5),(0,7),(1,8),(1,2), (1,5),(1,6),(2,8),(2,3),(2,6),(2,9),(3,9), (3,4),(3,10),(3,6),(4,11),(4,10),(4,5),(4,6), (5,11),(5,6),(7,8),(7,10),(7,11),(7,9),(8,9), (9,10),(10,11)] in GraphInfo 12 edges {- Generate the Krackhardt-Kite Graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected. -} krackhardtKiteGraph :: GraphInfo krackhardtKiteGraph = let edges = [(0,1),(0,2),(0,3),(0,5),(1,3),(1,4),(1,6),(2,3), (2,5),(3,4),(3,5),(3,6),(4,6),(5,6),(5,7),(6,7), (7,8),(8,9)] in GraphInfo 10 edges {- Generate the Möbius-Kantor Graph. Contains only one edge between two connected nodes, use 'Data.Graph.Inductive.Basic.undir' to make it quasi-undirected. -} moebiusKantorGraph :: GraphInfo moebiusKantorGraph = let edges = [(0,1),(0,5),(0,15),(1,2),(1,12),(2,3),(2,7),(3,4), (3,14),(4,9),(4,5),(5,6),(6,11),(6,7),(7,8),(8,9), (8,13),(9,10),(10,11),(10,15),(11,12),(12,13),(13,14),(14,15)] in GraphInfo 16 edges octahedralGraph :: GraphInfo octahedralGraph = let edges = [(0,1),(0,2),(0,3),(0,4),(1,2),(1,3),(1,5),(2,4), (2,5),(3,4),(3,5),(4,5)] in GraphInfo 6 edges chvatalGraph :: GraphInfo chvatalGraph = let edges = [(0,1),(0,4),(0,6),(0,9),(1,2),(1,5),(1,7),(2,8),(2,3), (2,6),(3,9),(3,4),(3,7),(4,8),(4,5),(5,10),(5,11),(6,11), (6,10),(7,8),(7,11),(8,10),(9,11),(9,10)] in GraphInfo 12 edges cubicalGraph :: GraphInfo cubicalGraph = let edges = [(0,1),(0,3),(0,4),(1,2),(1,7),(2,3),(2,6),(3,5),(4,5), (4,7),(5,6),(6,7)] in GraphInfo 8 edges desarguesGraph :: GraphInfo desarguesGraph = let edges = [(0,1),(0,19),(0,5),(1,16),(1,2),(2,11),(2,3),(3,4), (3,14),(4,9),(4,5),(5,6),(6,15),(6,7),(7,8),(7,18), (8,9),(8,13),(9,10),(10,19),(10,11),(11,12),(12,17), (12,13),(13,14),(14,15),(15,16),(16,17),(17,18),(18,19)] in GraphInfo 20 edges tetrahedralGraph :: GraphInfo tetrahedralGraph = let edges = [(0,1),(0,2),(0,3),(1,2),(1,3),(2,3)] in GraphInfo 4 edges truncatedCubeGraph :: GraphInfo truncatedCubeGraph = let edges = [(0,1),(0,2),(0,4),(1,11),(1,14),(2,3),(2,4),(3,8),(3,6), (4,5),(5,16),(5,18),(6,8),(6,7),(7,10),(7,12),(8,9),(9,17), (9,20),(10,11),(10,12),(11,14),(12,13),(13,21),(13,22), (14,15),(15,19),(15,23),(16,17),(16,18),(17,20),(18,19), (19,23),(20,21),(21,22),(22,23)] in GraphInfo 24 edges truncatedTetrahedronGraph :: GraphInfo truncatedTetrahedronGraph = let edges = [(0,1),(0,2),(0,9),(1,2),(1,6),(2,3),(3,11),(3,4),(4,11), (4,5),(5,6),(5,7),(6,7),(7,8),(8,9),(8,10),(9,10),(10,11)] in GraphInfo 12 edges tutteGraph :: GraphInfo tutteGraph = let edges = [(0,1),(0,2),(0,3),(1,26),(1,4),(2,10),(2,11),(3,18),(3,19), (4,5),(4,33),(5,29),(5,6),(6,27),(6,7),(7,8),(7,14),(8,9), (8,38),(9,10),(9,37),(10,39),(11,12),(11,39),(12,35),(12,13), (13,14),(13,15),(14,34),(15,16),(15,22),(16,17),(16,44), (17,18),(17,43),(18,45),(19,20),(19,45),(20,41),(20,21), (21,22),(21,23),(22,40),(23,24),(23,27),(24,32),(24,25), (25,26),(25,31),(26,33),(27,28),(28,32),(28,29),(29,30), (30,33),(30,31),(31,32),(34,35),(34,38),(35,36),(36,37), (36,39),(37,38),(40,41),(40,44),(41,42),(42,43),(42,45),(43,44)] in GraphInfo 46 edges