URL: https://mathworld.wolfram.com/notebooks/GraphTheory/TotalDominationNumber.nb
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Wolfram 15.1' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 154, 7]
NotebookDataLength[ 1563782, 38546]
NotebookOptionsPosition[ 1319093, 34547]
NotebookOutlinePosition[ 1379940, 35469]
CellTagsIndexPosition[ 1379139, 35446]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Total Domination Number", "Title",ExpressionUUID->"13700fac-36b1-495d-9d29-eeb85acc374f"],
Cell[CellGroupData[{
Cell["Author", "Subsection",ExpressionUUID->"15af120b-e4af-41d7-82b6-5f1511ba9218"],
Cell["\<\
Eric W. Weisstein
March 10, 2026\
\>", "Text",ExpressionUUID->"d8f8efa2-4280-4172-9bc1-bd25da62dc8f"],
Cell["\<\
This notebook downloaded from \
https://mathworld.wolfram.com/notebooks/GraphTheory/TotalDominationNumber.nb.\
\
\>", "Text",ExpressionUUID->"7f67380e-dcea-4dc5-a5f3-7cf77bbbe13d"],
Cell["\<\
For more information, see Eric's MathWorld entry \
https://mathworld.wolfram.com/TotalDominationNumber.html.\
\>", "Text",ExpressionUUID->"e20ffc6a-10b1-4def-ab19-848f5e856a9c"],
Cell["\<\
\[Copyright]2026 Wolfram Research, Inc. except for portions noted otherwise\
\>", "Text",ExpressionUUID->"f4bdb560-2d6a-41f7-8adb-93070d2ef2ac"]
}, Open ]],
Cell[CellGroupData[{
Cell["Figure", "Section",ExpressionUUID->"d65ba152-58f6-41b1-8e14-fa78fc1d4dee"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"GraphicsRow", "[",
RowBox[{
RowBox[{
RowBox[{"HighlightGraph", "[",
RowBox[{
RowBox[{"GraphData", "[",
RowBox[{"\"\
