Steiner Triple System

Author

Eric W. Weisstein
March 23, 2006

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Combinatorics/SteinerTripleSystem.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/SteinerTripleSystem.html.

©2006 Wolfram Research, Inc. except for portions noted otherwise

Code

Design931 = Graph[Join[
Map[{#,EdgeColor->Red}&,{{0,1},{0,2},{1,2},{3,4},{4,5},{3,5},{6,7},{6,8},{7,8}}+1],
Map[{#,EdgeColor->Green}&,{{0,3},{0,6},{3,6},{1,4},{4,7},{1,7},{2,5},{5,8},{2,8}}+1],
Map[{#,EdgeColor->Blue}&,{{0,4},{0,8},{4,8},{1,6},{1,5},{6,5},{2,7},{2,3},{7,3}}+1],Map[{#,EdgeColor->Yellow}&,{{0,5},{0,7},{5,7},{3,1},{1,8},{3,8},{6,2},{6,4},{2,4}}+1]],
Table[{{Sin[x],Cos[x]}},{x,Pi/4.5,2 Pi,Pi/4.5}]];

Representation

ShowGraph[Design931];