(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 12912, 514] NotebookOptionsPosition[ 12145, 482] NotebookOutlinePosition[ 12498, 498] CellTagsIndexPosition[ 12455, 495] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Clique Graph", "Title"], Cell[CellGroupData[{ Cell["Author", "Subsection"], Cell["\<\ Eric W. Weisstein May 31, 2004\ \>", "Text"], Cell[TextData[{ "This notebook downloaded from ", ButtonBox["http://mathworld.wolfram.com/notebooks/GraphTheory/CliqueGraph.nb", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/notebooks/GraphTheory/CliqueGraph.nb"], None}], "." }], "Text"], Cell[TextData[{ "For more information, see Eric's ", StyleBox["MathWorld", FontSlant->"Italic"], " entry ", ButtonBox["http://mathworld.wolfram.com/CliqueGraph.html", BaseStyle->"Hyperlink", ButtonData:>{ URL["http://mathworld.wolfram.com/CliqueGraph.html"], None}], "." }], "Text"], Cell["\<\ \[Copyright]2005 Wolfram Research, Inc. except for portions noted otherwise\ \>", "Text"] }, Open ]], Cell[CellGroupData[{ Cell["Example", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"GraphicsArray", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".05", "]"}], ",", RowBox[{"graphic", "[", "g", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"TextStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontSize", "\[Rule]", "12"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSlant", "\[Rule]", "\"\\""}]}], "}"}]}]}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(K\), \(4\)]\)\>\"", ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", ".75"}]}], "}"}], ",", RowBox[{"TextStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSlant", "\[Rule]", "\"\\""}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PointSize", "[", ".05", "]"}], ",", RowBox[{"graphic", "[", RowBox[{ RowBox[{"Wheel", "[", "4", "]"}], "/.", RowBox[{ RowBox[{"Graph", "[", RowBox[{"a_List", ",", "v_List"}], "]"}], "\[RuleDelayed]", RowBox[{"Graph", "[", RowBox[{"a", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"-", "c"}], ",", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "}"}]}], "]"}]}], "]"}]}]}], "]"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .48113 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.0238095 0.47619 0.0114554 0.47619 [ [ 0 0 0 0 ] [ 1 .48113 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath % Start of sub-graphic p 0.0238095 0.0114554 0.477324 0.46967 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.274929 0.436449 0.274929 [ [.5 .02406 -6.34375 -7 ] [.5 .02406 6.34375 7 ] [ -0.00119 0 0 0 ] [ 1.00119 1.01131 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .05 w .02381 .16152 Mdot .2619 .57391 Mdot .5 .98631 Mdot .7381 .57391 Mdot .97619 .16152 Mdot .5 .16152 Mdot .5 Mabswid [ ] 0 setdash .02381 .16152 m .2619 .57391 L s .02381 .16152 m .5 .16152 L s .2619 .57391 m .02381 .16152 L s .2619 .57391 m .5 .98631 L s .2619 .57391 m .7381 .57391 L s .2619 .57391 m .5 .16152 L s .5 .98631 m .2619 .57391 L s .5 .98631 m .7381 .57391 L s .7381 .57391 m .2619 .57391 L s .7381 .57391 m .5 .98631 L s .7381 .57391 m .97619 .16152 L s .7381 .57391 m .5 .16152 L s .97619 .16152 m .7381 .57391 L s .97619 .16152 m .5 .16152 L s .5 .16152 m .02381 .16152 L s .5 .16152 m .2619 .57391 L s .5 .16152 m .7381 .57391 L s .5 .16152 m .97619 .16152 L s gsave .5 .02406 -67.3438 -11 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 22 translate 1 -1 scale 63.000 14.000 moveto %%IncludeResource: font Times-Italic %%IncludeFont: Times-Italic /Times-Italic findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 14.000 moveto %%IncludeResource: font Times-Italic %%IncludeFont: Times-Italic /Times-Italic findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (G) show 71.688 14.000 moveto %%IncludeResource: font Times-Italic %%IncludeFont: Times-Italic /Times-Italic findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 0 m 1 0 L 1 1.01036 L 0 1.01036 L closepath clip newpath MathSubEnd P % End of sub-graphic % Start of sub-graphic p 0.522676 0.0114554 0.97619 0.46967 MathSubStart %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.549857 0.436449 0.549857 [ [.5 .02406 -8.78125 -7 ] [.5 .02406 8.78125 7 ] [ -0.00119 0 0 0 ] [ 1.00119 1.01131 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g gsave .5 .02406 -69.7812 -11 Mabsadd m 1 1 Mabs scale currentpoint translate /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding ISOLatin1Encoding def currentdict end newfontname exch definefont pop } def 0 22 translate 1 -1 scale 63.000 14.000 moveto %%IncludeResource: font Times-Italic %%IncludeFont: Times-Italic /Times-Italic findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 14.000 moveto %%IncludeResource: font Times-Italic %%IncludeFont: Times-Italic /Times-Italic findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (K) show 71.000 16.000 moveto %%IncludeResource: font Times-Roman %%IncludeFont: Times-Roman /Times-Roman findfont 8.500 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (4) show 76.562 14.000 moveto %%IncludeResource: font Times-Italic %%IncludeFont: Times-Italic /Times-Italic findfont 12.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .05 w .97619 .16152 Mdot .5 .98631 Mdot .02381 .16152 Mdot .5 .43645 Mdot .5 Mabswid [ ] 0 setdash .97619 .16152 m .5 .98631 L s .97619 .16152 m .02381 .16152 L s .97619 .16152 m .5 .43645 L s .5 .98631 m .97619 .16152 L s .5 .98631 m .02381 .16152 L s .5 .98631 m .5 .43645 L s .02381 .16152 m .97619 .16152 L s .02381 .16152 m .5 .98631 L s .02381 .16152 m .5 .43645 L s .5 .43645 m .97619 .16152 L s .5 .43645 m .5 .98631 L s .5 .43645 m .02381 .16152 L s 0 0 m 1 0 L 1 1.01036 L 0 1.01036 L closepath clip newpath MathSubEnd P % End of sub-graphic 0 0 m 1 0 L 1 .48113 L 0 .48113 L closepath clip newpath % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{375.875, 180.812}, ImageMargins->{{35, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzNnItTVHUUxy+wAgqEGAlKtptligZKaZiY+AgQCN8PMHBEx5Sa0pBKe6e9 yyl7jGPWND2dapqysv484v7Oena5fX7Nud3dnZyRe/b7O7/f+d7zu7/XOXd3 aHzq5PEnx6cmjo1n+ibHT5+cOHYm03tqcgaqKAuCsueCIPgjE4Ty9IyY/eP+ nQ3/ZD8USr7dyRXTamTm04itfDS8uJLfVCoPpapQOiRKj7rLnPz60sjNapG2 yyP6eddsW9mWqdps7Lr7m5plekauCK/l09H2UlGKDrgeaTekMcfvEqL2p9o7 mu+S2Uo3IhyyHX8kr0a5ksf7jPpj5tNhqT0WXlyxVL+pGPyaK0jlWw3/j8ln BxfjuSuAXBdenMsGQWpW6apKdVKxNrxUhkA/SAtVuqJSrVSsCS/VIdAHUqNK l1WqKUTF71XpWiHatN5+5Gn5xP2NDoWcc6zdkRt/l1SqiHbR/Iix8JPj6JlK BkB/CWDlavKiSinQq5eGG6CoDzAalr2ApY113zHqzS8dzZT66y2VKv2UFkBR D2A0mT4M2J2+uo7IBZWqQK+hdJSqlMgrKs31U7oVirb5mo1gWwG7C7BqwF4w 6onLZDKJFG0xNkF6dwM2V/11TqWa5JTI+ZsBWwbYPCXyjEq1oCe9GNwGRd2A 0V1tAmy5se7TRr3G0tGsVX+dUukWP6WFUPQQYHWAbQSs1VfXEXlCpXrQE/cE TVDUBRjdFemtBKxeiZxQiabymJTorjYAtgowWnePGfWkF2WljxQ9aGyC9Np8 dZ2/xlWi6b0pHiVy/nojpQVKZEwlmqSylBZBUSdgtEI8ANhqY90Ro15z6Wg2 qr8OqkQzQpbSYihaBxjNc2sB6/DVdUT2qkTDT9wTtEDR/YDRXZHefYA1KZGd KlHvxKREd0XmqS4Nq0GjnvRiQOEF6hBqgvToQWhWf/WrRA9RSzxK5Pw1RkqL lUiPSmQ3S4lOMjSSqNPbAaMR3KJEtqhEdoVmcAcU0bRId0V6NM2SedoWFIAm NXEvYLRqLFF/damU9trAIlqKiTrp0dKeViKdKtFxJSYl0qONDe1KMoDRpEJ6 4gosoq2eVY+epYz6q0OlpV5XoFNpQ0xNkB5tsJcqkTaV6AQVkxKdFe8BrNtX 1xFpVYlOUNITePekTndFepuNelYsJk0rdTqPLlN/5XxIvSO9iJ1k7TjSo6DB ciWSVomGS0xK1mFA8Y4VgNHiRnpiAzuEhoZ1AqFI0Qr11yKVaD4U9+BzkwaM miA9Ct2tVCK5PSwtZDEpWRcoijquUiINKtEaLD2Gj7J1eSa97YCReQouFICm dVPU76ubi1FHwue0A5T+xLFn3RySHu3q25VIkEsUhJ9c8oB2wuIyHLTWzTTp PeKrW63LeDIi1gPJEGCrlQjdjvQTzkHWgxnp7Sg2Eevhdidg7UqEHmDpE5wC rQd60tvl84j3Yc0SoYnPGuwgvT0+IikfkdbiENnrI2LApHdwBraG0EhvX+ko WQOS+wGjSZMw6TFcAKwhWtI7UDpK1oD3QcDIBmHSY8jWGu4nveHklOgxsyZF SI9eDqHnlbC24lCiV1FooiFMegynLGvSjfRGS0fJmsIcA4wWKMKkx3ALYU3q kt7h5JRoM2FNfZPeEcBoP0HYmv8tJdrpWF+jIL2jgNE+lLCO4lCi/B4dIAiT HpNtmHszZ0Clx5I36+60Uput9DVLZzHCxHPSutuBblfpeIGaHfZxtAaS1vo5 ngB1CnMQtq6ozVJHTYC6NXYkm1h8rB5P3ixt/miwPAUYRbAI6yy5Kdo/0kR5 GjAKjBG2Pp4pejMlY8TEc7gFpUVyMrkp2lrSFuEMYGkjtsFvijZIU8lNUZKD tofPAkYRPsK6Sm6KmiWnngWMonSEbYxn6hxgFOgjTDyHqRYaa88nN0VPG01W 9KYgRQgJ2+Q3RSGBF5ObouFKye6XAKNXAgjr9pui2MvLyU3RfEeBr1cB878i QrOP2dRrgFFIlDDxHOZ96ABwPrkpWpvoRHYBMAp/ErbVb4rOo68nN0UZKQoQ vAEYBWsJ2+Y3RRGbN5Obot0RRUTeBowiv4RJJ/mTVRGM3sanV/sI6/GborP5 u8lNUb6LDrjvAUaBYsJ6/abo4Pp+clOUHqOT40XA6M1Qwvr8pujY9wFgFGsm TDyHX1uhY9aHyU1RCo/OSJcAo8i4/xs6aIoOLh8lN0W5Pzq4fAwYRbwJG/Cb ygAW/Z7UfzBFicQ0YJ8CRvF5wgb9pmjffRkwirsTJp7DrCTtuwtgivKOtG28 Ahh9w4OwIb8p2st9ltwUJTFpL3cVMIr+E7bDb4o2WJ8nN7UbimjX8wVg84yY dBImX2l/8CVglEAgbFfJTVEml1bSrwCjdAdhu/2maCX9OrkpSgbT8vYNYJQx IWyP3xStOd8mN0X5ZFoIvgOMvm1JmHQS5olpyrwGGCVTCNtXclOUaqbJ5QfA 6Iu+hO33m6LJ5cfkpihbTSP+J8AopUPYAb8pGoY/A0a/skCYeA6/a0RjowCm KLdOT9Ev2ZI8TAoC/m2F4ZI0T2l4/y89/OMXLcgvI8Vu2eXp3Z3eUGk0z2il Fjkp/7c2XNbpd5UOFanoX2g4ou5u/1IpS97dZIxfoQjK/gYAzuXS\ \>"],ImageRangeCache->{{{0, 374.875}, {179.812, 0}} -> {0, 0, 0, 0}, \ {{9.4375, 178.938}, {175.5, 4.25}} -> {-2, -1, 0, 0}, {{195.875, 365.375}, \ {175.5, 4.25}} -> {-3, 0, 0, 0}}], Cell[BoxData[ TagBox[ RowBox[{"\[SkeletonIndicator]", "GraphicsArray", "\[SkeletonIndicator]"}], False, Editable->False]], "Output"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{520, 715}, WindowMargins->{{44, Automatic}, {-4, Automatic}}, FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \ 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 29, 0, 92, "Title"], Cell[CellGroupData[{ Cell[633, 26, 28, 0, 44, "Subsection"], Cell[664, 28, 54, 3, 49, "Text"], Cell[721, 33, 280, 8, 68, "Text"], Cell[1004, 43, 297, 10, 49, "Text"], Cell[1304, 55, 99, 2, 49, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[1440, 62, 26, 0, 80, "Section"], Cell[CellGroupData[{ Cell[1491, 66, 2484, 59, 301, "Input"], Cell[3978, 127, 7985, 344, 189, 4976, 293, "GraphicsData", "PostScript", \ "Graphics"], Cell[11966, 473, 139, 4, 70, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)