URL: https://mathworld.wolfram.com/notebooks/RecreationalMath/Peg.nb
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.1' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 35381, 1267]
NotebookOptionsPosition[ 30845, 1152]
NotebookOutlinePosition[ 31199, 1168]
CellTagsIndexPosition[ 31156, 1165]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Peg", "Title",ExpressionUUID->"e7f828a9-a5ed-4f76-b647-3ad838d4fd59"],
Cell[CellGroupData[{
Cell["Author", "Subsection",ExpressionUUID->"911db98d-4521-4d9e-b39b-1e792b6fe288"],
Cell["\<\
Eric W. Weisstein
January 15, 2007\
\>", "Text",ExpressionUUID->"c65b89bd-d1f6-4631-bb50-b9d789a46ead"],
Cell[TextData[{
"This notebook downloaded from ",
ButtonBox["http://mathworld.wolfram.com/notebooks/RecreationalMath/Peg.nb",
BaseStyle->"Hyperlink",
ButtonData:>{
URL["http://mathworld.wolfram.com/notebooks/RecreationalMath/Peg.nb"],
None}],
"."
}], "Text",ExpressionUUID->"53503f17-70e4-4204-bebe-69453fbacd1b"],
Cell[TextData[{
"For more information, see Eric's ",
StyleBox["MathWorld",
FontSlant->"Italic"],
" entry ",
ButtonBox["http://mathworld.wolfram.com/Peg.html",
BaseStyle->"Hyperlink",
ButtonData:>{
URL["http://mathworld.wolfram.com/Peg.html"], None}],
"."
}], "Text",ExpressionUUID->"695a8652-56b8-4ba1-9e3c-3f00a7814a36"],
Cell["\<\
\[Copyright]2007 Wolfram Research, Inc. except for portions noted otherwise\
\>", "Text",ExpressionUUID->"e9e47fe4-e6b1-4ba9-a3bf-4f90e7063f50"]
}, Open ]],
Cell[CellGroupData[{
Cell["Graphic", "Section",ExpressionUUID->"ac3f13a2-bdad-44b2-aaa2-6a8a6d0efb8e"],
Cell[BoxData[{
RowBox[{
RowBox[{"Square", "[", "s_", "]"}], ":=",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",",
RowBox[{"-", "1"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}], "s"}]}], "\n",
RowBox[{
RowBox[{"line", "[", "l_List", "]"}], ":=",
RowBox[{"Line", "[",
RowBox[{"Append", "[",
RowBox[{"l", ",",
RowBox[{"First", "[", "l", "]"}]}], "]"}], "]"}]}]}], "Input",ExpressionU\
UID->"3cc14da3-59bc-4fbe-b656-bffd15e9f01c"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Show", "[",
RowBox[{"GraphicsArray", "[",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Graphics", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"line", "[",
RowBox[{"Square", "[",
RowBox[{"1", "/", "2"}], "]"}], "]"}], ",",
RowBox[{"Disk", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",",
RowBox[{"1", "/", "2"}]}], "]"}]}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Graphics", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Circle", "[",
RowBox[{
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}], ",",
RowBox[{"1", "/", "2"}]}], "]"}], ",", "\[IndentingNewLine]",
RowBox[{"Polygon", "[",
RowBox[{"Square", "[",
RowBox[{
RowBox[{"Sqrt", "[", "2", "]"}], "/", "4"}], "]"}],
"\[IndentingNewLine]", "]"}]}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}],
"\[IndentingNewLine]", "}"}], "]"}], "]"}]], "Input",ExpressionUUID->\
"11ff6542-c817-47b7-af13-27224875af1d"],
Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .47619
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.0113379 0.47619 [
[ 0 0 0 0 ]
[ 1 .47619 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 .47619 L
0 .47619 L
closepath
clip
newpath
% Start of sub-graphic
p
0.0238095 0.0113379 0.477324 0.464853 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.5 0.952381 0.5 0.952381 [
[ 0 0 0 0 ]
[ 1 1 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 m
1 0 L
1 1 L
0 1 L
closepath
clip
newpath
0 g
.5 Mabswid
[ ] 0 setdash
.02381 .02381 m
.97619 .02381 L
.97619 .97619 L
.02381 .97619 L
.02381 .02381 L
s
.5 .5 m
.5 .5 .47619 0 365.73 arc
F
MathSubEnd
P
% End of sub-graphic
% Start of sub-graphic
p
0.522676 0.0113379 0.97619 0.464853 MathSubStart
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10 scalefont setfont
% Scaling calculations
0.5 0.952381 0.5 0.952381 [
[ 0 0 0 0 ]
[ 1 1 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.5 Mabswid
[ ] 0 setdash
newpath
.5 .5 .47619 0 365.73 arc
s
.16328 .16328 m
.83672 .16328 L
.83672 .83672 L
.16328 .83672 L
F
0 0 m
1 0 L
1 1 L
0 1 L
closepath
clip
newpath
MathSubEnd
P
% End of sub-graphic
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{288, 137.125},
ImageMargins->{{43, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0,
1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWmlTE1EQDOEMN4QbIeEIGA4xcilyl4IoCBQlnmWJiIIlgoBaZfkH/NVI
Dzg57FkFlphg+DDMdifdm919x743C2sHmxvbawdb62vB2b213c2t9f3gzM7e
EZSd5fFkBT0ez4+gB/nhUXoS5K8F4eTAhbwQ/75DfxZZFbKJGMqTfajWR0cR
/VA/YScRcwFVIctDdssW60EMAOol7BiiQAHNhmyxMGIIUBdhR1QipFm/LdaB
2A2ok7DDKtGt2XVbrA0xAqidsAMqESFsry0rN3AQUCth2e1hWI9tEEQcBtRC
WDlbL6CEy8HFmhFHATUTtk/FRjUL22KNiJOAmgh7jWDjBOuwDRoQpwFdsa6Z
nOO0Zg5idYizgOoJ26USM5q122I1iPcB1RE2TLB7BItt/AlUNeI8oFrCduo5
zhM2aMtKh7AIqJqwHQRbIFjANvAjLmvfk8CGCLZIsGbboBJxBZCfsKxpLxOs
yTaoQHwEqJKwbQRbQfRG2wGVLUN8AqiCsKzvWCVYg21QivgMUDlhE/sOjGSr
iF7y4XrbpQTxeVJcXgAqI2yQYI9xlE2IOtulGPEloFLCBiTmxGL4E6Mc8vla
26gI8RWgEsKyntirVrmErbGtBHsNqJiwrJ/OVqs8wlbbVj7E9eRZvQFURFg2
OOSoVT5hq2yrAsS3gMwhLwHL/RdWBYT121ZyZpuAfIRtIFieWrFvVNpW8sWt
5Fm9ty4HG+bz1crs+jklV/6DdZPZJKBArdgzW25byaO7nTyrj1aDZDMPn1qx
Rl9mW0nb30kBqxqCFZ7Latfqp9kcq0it2FhQalvJkLBnjT5JtGITu2K1YkNp
SazVbyPqwaExdKet0WcAbMrDpqwlasTmOsWxRvHUl0vk8hVHx/fmF04NStWA
TT+LuAGk/0cD9qJRGGPwLQ0UZU2MSZRdPgn2vunLSGQkMhIZiYuRSELHlw6j
jPuKqT87SCUDHDEDNjFP8ZnsRbn8/UtG2r42XZQRebndt6zS9ZVdfssnyyqJ
ax7pumjkvBSW1gt8ybFyXiF1dTHWed3X1SXm8yycn3KNXj7+zrJKmZ2HU1rJ
b9mwrJy3blzdJXJ1Q8p5m83VHT3nzcPAySVLGErPskvpvB0aJNhZNl2dt3bd
2kA+42Z4wvSz0TaQk39qGbQq61ARIF80XybMQgPags5QyeBCqYRzLYYUe0hZ
xBJhHUo8RGwJEJsisVIwVgUTsA2ku3oIiE2MrhJsTn9Lqy0rYg8AsZkJKwqa
JZiDgcjOAWIjt5QwCXRHzzZki0nruQuIjWKsFHBCZTttWWkzU4BY386KwsYI
5mAgshPRthXP9ulFGNGz7bLFAogjgAKEvaESQ5r9qVJvKPqQxLMDlkEC5mAg
/dYAINY7DOpPj9bx9dli0v77og9JPHtTxcKaRWwxuV9hQKz13FaJNs0GbDG5
X22Augk7rhJNmg3bYvIgNwFiz94UYo72YHn64MSuf0kr9SObPKbkuy5U/Xqy
fgJ14HLa\
\>"],ImageRangeCache->{{{0., 287.}, {136.125, 0.}} -> {0., 0., 0., 0.}, \
{{7.375, 137.}, {132.875, 3.1875}} -> {0., 0., 0., 0.}, {{149.938, 279.625}, \
{132.875, 3.1875}} -> {-1., 0., 0., \
0.}},ExpressionUUID->"a6a20a2a-3161-4e47-9282-da485930b6da"],
Cell[BoxData[
TagBox[
RowBox[{"\[SkeletonIndicator]", "GraphicsArray", "\[SkeletonIndicator]"}],
False,
Editable->False]], "Output",ExpressionUUID->"1af8d0d8-276e-4248-84f4-\
614a9a49edbd"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Plot", "Section",ExpressionUUID->"7c1665ef-1c99-4dc3-8075-295cd7fb54e2"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"Rround", "[", "n_", "]"}], ":=",
RowBox[{
RowBox[{
RowBox[{"Pi", "^",
RowBox[{"(",
RowBox[{"n", "/", "2"}], ")"}]}], "/",
RowBox[{"Gamma", "[",
RowBox[{"1", "+",
RowBox[{"n", "/", "2"}]}], "]"}]}], "/",
RowBox[{"2", "^", "n"}]}]}], "\n",
RowBox[{
RowBox[{"Rsquare", "[", "n_", "]"}], ":=",
RowBox[{
RowBox[{"2", "^", "n"}], " ",
RowBox[{
RowBox[{
RowBox[{"Gamma", "[",
RowBox[{"1", "+",
RowBox[{"n", "/", "2"}]}], "]"}], "/",
RowBox[{"n", "^",
RowBox[{"(",
RowBox[{"n", "/", "2"}], ")"}]}]}], "/",
RowBox[{"Pi", "^",
RowBox[{"(",
RowBox[{"n", "/", "2"}], ")"}]}]}]}]}]}], "Input",ExpressionUUID->\
"e5d2d5e0-98cf-4d4a-9036-57fcff617550"],
Cell[BoxData[
RowBox[{
RowBox[{"General", "::", "\<\"spell1\"\>"}], ":",
" ", "\<\"Possible spelling error: new symbol name \\\"\\!\\(Rround\\)\\\" \
is similar to existing symbol \\\"\\!\\(Round\\)\\\". \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], \
"Message",ExpressionUUID->"94beb26c-acad-4d11-adcb-01991ebbd721"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{"Rround", "[", "n", "]"}], "/",
RowBox[{"Rsquare", "[", "n", "]"}]}], ",",
RowBox[{"{",
RowBox[{"n", ",", "0", ",", "10"}], "}"}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"TraditionalForm", "/@",
RowBox[{"{",
RowBox[{"n", ",",
RowBox[{
RowBox[{
SubscriptBox["R", "round"], "[", "n", "]"}], "/",
RowBox[{
SubscriptBox["R", "square"], "[", "n", "]"}]}]}], "}"}]}]}], ",",
"\[IndentingNewLine]",
RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]], "Input",ExpressionUUID->\
"b7a3dc00-c953-4c30-ac5c-e32a6499f212"],
Cell[BoxData[
RowBox[{
RowBox[{"General", "::", "\<\"spell\"\>"}], ":",
" ", "\<\"Possible spelling error: new symbol name \\\"\\!\\(round\\)\\\" \
is similar to existing symbols \\!\\({Round, Rround}\\). \
\\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\
\\\", ButtonFrame->None, ButtonData:>\\\"General::spell\\\"]\\)\"\>"}]], \
"Message",ExpressionUUID->"eeb5b336-f743-480a-92db-64867424a1e4"],
Cell[BoxData[
RowBox[{
RowBox[{"General", "::", "\<\"spell1\"\>"}], ":",
" ", "\<\"Possible spelling error: new symbol name \\\"\\!\\(square\\)\\\" \
is similar to existing symbol \\\"\\!\\(Rsquare\\)\\\". \\!\\(\\*ButtonBox[\\\
\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", \
ButtonFrame->None, ButtonData:>\\\"General::spell1\\\"]\\)\"\>"}]], "Message",\
ExpressionUUID->"b826784b-8954-4084-85e4-41d88deaa50f"],
Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803
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.0952381 -0.386152 0.646344 [
[.21429 .24769 -3 -9 ]
[.21429 .24769 3 0 ]
[.40476 .24769 -3 -9 ]
[.40476 .24769 3 0 ]
[.59524 .24769 -3 -9 ]
[.59524 .24769 3 0 ]
[.78571 .24769 -3 -9 ]
[.78571 .24769 3 0 ]
[.97619 .24769 -6 -9 ]
[.97619 .24769 6 0 ]
[1.025 .26019 0 -6 ]
[1.025 .26019 9 6 ]
[.01131 .00165 -18 -4.5 ]
[.01131 .00165 0 4.5 ]
[.01131 .13092 -18 -4.5 ]
[.01131 .13092 0 4.5 ]
[.01131 .38946 -18 -4.5 ]
[.01131 .38946 0 4.5 ]
[.01131 .51873 -18 -4.5 ]
[.01131 .51873 0 4.5 ]
[.02381 .64303 -22.9688 0 ]
[.02381 .64303 22.9688 25.8125 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.21429 .26019 m
.21429 .26644 L
s
[(2)] .21429 .24769 0 1 Mshowa
.40476 .26019 m
.40476 .26644 L
s
[(4)] .40476 .24769 0 1 Mshowa
.59524 .26019 m
.59524 .26644 L
s
[(6)] .59524 .24769 0 1 Mshowa
.78571 .26019 m
.78571 .26644 L
s
[(8)] .78571 .24769 0 1 Mshowa
.97619 .26019 m
.97619 .26644 L
s
[(10)] .97619 .24769 0 1 Mshowa
.125 Mabswid
.07143 .26019 m
.07143 .26394 L
s
.11905 .26019 m
.11905 .26394 L
s
.16667 .26019 m
.16667 .26394 L
s
.2619 .26019 m
.2619 .26394 L
s
.30952 .26019 m
.30952 .26394 L
s
.35714 .26019 m
.35714 .26394 L
s
.45238 .26019 m
.45238 .26394 L
s
.5 .26019 m
.5 .26394 L
s
.54762 .26019 m
.54762 .26394 L
s
.64286 .26019 m
.64286 .26394 L
s
.69048 .26019 m
.69048 .26394 L
s
.7381 .26019 m
.7381 .26394 L
s
.83333 .26019 m
.83333 .26394 L
s
.88095 .26019 m
.88095 .26394 L
s
.92857 .26019 m
.92857 .26394 L
s
.25 Mabswid
0 .26019 m
1 .26019 L
s
gsave
1.025 .26019 -61 -10 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 20 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
63.000 13.000 moveto
%%IncludeResource: font Times-Italic
%%IncludeFont: Times-Italic
/Times-Italic findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(n) show
1.000 setlinewidth
grestore
.02381 .00165 m
.03006 .00165 L
s
[(0.6)] .01131 .00165 1 0 Mshowa
.02381 .13092 m
.03006 .13092 L
s
[(0.8)] .01131 .13092 1 0 Mshowa
.02381 .38946 m
.03006 .38946 L
s
[(1.2)] .01131 .38946 1 0 Mshowa
.02381 .51873 m
.03006 .51873 L
s
[(1.4)] .01131 .51873 1 0 Mshowa
.125 Mabswid
.02381 .03397 m
.02756 .03397 L
s
.02381 .06629 m
.02756 .06629 L
s
.02381 .09861 m
.02756 .09861 L
s
.02381 .16324 m
.02756 .16324 L
s
.02381 .19556 m
.02756 .19556 L
s
.02381 .22788 m
.02756 .22788 L
s
.02381 .29251 m
.02756 .29251 L
s
.02381 .32483 m
.02756 .32483 L
s
.02381 .35714 m
.02756 .35714 L
s
.02381 .42178 m
.02756 .42178 L
s
.02381 .4541 m
.02756 .4541 L
s
.02381 .48641 m
.02756 .48641 L
s
.02381 .55105 m
.02756 .55105 L
s
.02381 .58336 m
.02756 .58336 L
s
.02381 .61568 m
.02756 .61568 L
s
.25 Mabswid
.02381 0 m
.02381 .61803 L
s
gsave
.02381 .64303 -83.9688 -4 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 33.8125 translate 1 -1 scale
/g { setgray} bind def
/k { setcmykcolor} bind def
/p { gsave} bind def
/r { setrgbcolor} bind def
/w { setlinewidth} bind def
/C { curveto} bind def
/F { fill} bind def
/L { lineto} bind def
/rL { rlineto} bind def
/P { grestore} bind def
/s { stroke} bind def
/S { show} bind def
/N {currentpoint 3 -1 roll show moveto} bind def
/Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def
/m { moveto} bind def
/Mr { rmoveto} bind def
/Mx {currentpoint exch pop moveto} bind def
/My {currentpoint pop exch moveto} bind def
/X {0 rmoveto} bind def
/Y {0 exch rmoveto} bind def
/MISOfy
{
/newfontname exch def
/oldfontname exch def
oldfontname findfont
dup length dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding MacintoshRomanEncoding def
currentdict
end
newfontname exch definefont pop
} def
66.625 11.688 moveto
%%IncludeResource: font Times-Italic
%%IncludeFont: Times-Italic
%%BeginResource: font Times-Italic-MISO
%%BeginFont: Times-Italic-MISO
/Times-Italic /Times-Italic-MISO MISOfy
%%EndFont
%%EndResource
%%IncludeResource: font Times-Italic-MISO
%%IncludeFont: Times-Italic-MISO
/Times-Italic-MISO findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(R) show
72.688 13.250 moveto
%%IncludeResource: font Times-Roman
%%IncludeFont: Times-Roman
%%BeginResource: font Times-Roman-MISO
%%BeginFont: Times-Roman-MISO
/Times-Roman /Times-Roman-MISO MISOfy
%%EndFont
%%EndResource
%%IncludeResource: font Times-Roman-MISO
%%IncludeFont: Times-Roman-MISO
/Times-Roman-MISO findfont 7.125 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(round) show
%%IncludeResource: font Mathematica2
%%IncludeFont: Mathematica2
/Mathematica2 findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
90.062 11.688 moveto
(H) show
93.250 11.688 moveto
%%IncludeResource: font Times-Italic-MISO
%%IncludeFont: Times-Italic-MISO
/Times-Italic-MISO findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(n) show
%%IncludeResource: font Mathematica2
%%IncludeFont: Mathematica2
/Mathematica2 findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
98.250 11.688 moveto
(L) show
%%IncludeResource: font Mathematica1
%%IncludeFont: Mathematica1
/Mathematica1 findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
64.438 18.875 moveto
(\\200\\200\\200\\200\\200\\200\\200\\200\\200\\200\\200\\200\\200\\200\\200\\\
200) show
86.438 18.875 moveto
(\\200\\200\\200\\200\\200\\200\\200\\200) show
97.438 18.875 moveto
(\\200\\200) show
100.188 18.875 moveto
(\\200) show
101.562 18.875 moveto
(\\200) show
101.875 18.875 moveto
(\\200) show
65.750 25.750 moveto
%%IncludeResource: font Times-Italic-MISO
%%IncludeFont: Times-Italic-MISO
/Times-Italic-MISO findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(R) show
71.812 27.312 moveto
%%IncludeResource: font Times-Roman-MISO
%%IncludeFont: Times-Roman-MISO
/Times-Roman-MISO findfont 7.125 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(square) show
%%IncludeResource: font Mathematica2
%%IncludeFont: Mathematica2
/Mathematica2 findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
91.000 25.750 moveto
(H) show
94.188 25.750 moveto
%%IncludeResource: font Times-Italic-MISO
%%IncludeFont: Times-Italic-MISO
/Times-Italic-MISO findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
(n) show
%%IncludeResource: font Mathematica2
%%IncludeFont: Mathematica2
/Mathematica2 findfont 10.000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000 0.000 0.000 setrgbcolor
99.188 25.750 moveto
(L) show
1.000 setlinewidth
grestore
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
1 0 0 r
.5 Mabswid
.02381 .26019 m
.02499 .24547 L
.02605 .23703 L
.02721 .2299 L
.02846 .2236 L
.03068 .21485 L
.03279 .20857 L
.03527 .20292 L
.0379 .19846 L
.04014 .19562 L
.04262 .19333 L
.04394 .19241 L
.04519 .1917 L
.04632 .1912 L
.04755 .19079 L
.04825 .19061 L
.04888 .19048 L
.04961 .19037 L
.0503 .1903 L
.05153 .19026 L
.05222 .19028 L
.05285 .19033 L
.054 .19048 L
.05508 .19069 L
.05626 .19099 L
.05752 .19139 L
.0601 .19245 L
.06244 .19367 L
.06783 .19723 L
.07281 .20134 L
.08408 .21287 L
.10458 .23912 L
.14385 .2989 L
.1816 .35986 L
.2218 .42261 L
.26049 .47726 L
.30163 .5264 L
.32215 .54682 L
.34125 .56313 L
.36085 .57706 L
.37936 .58753 L
.38918 .59201 L
.39982 .59603 L
.40949 .59891 L
.41841 .60093 L
.42308 .60174 L
.4281 .60243 L
.43053 .60269 L
.43284 .60289 L
.43511 .60306 L
Mistroke
.43717 .60317 L
.43845 .60323 L
.43965 .60327 L
.44092 .6033 L
.44164 .60331 L
.44229 .60331 L
.4434 .60332 L
.4446 .60331 L
.44587 .6033 L
.44704 .60327 L
.44771 .60325 L
.44844 .60322 L
.44976 .60317 L
.45224 .60302 L
.45514 .6028 L
.45781 .60254 L
.46246 .60195 L
.46746 .60115 L
.47651 .59922 L
.48727 .59617 L
.49713 .59266 L
.51609 .58402 L
.5368 .5719 L
.57742 .54063 L
.61651 .50233 L
.65806 .45443 L
.6981 .40289 L
.73662 .34981 L
.77759 .2911 L
.81704 .2337 L
.85498 .17881 L
.89537 .12169 L
.93425 .06879 L
.97558 .01548 L
.97619 .01472 L
Mfstroke
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
ImageSize->{288, 177.938},
ImageMargins->{{43, 0}, {0, 0}},
ImageRegion->{{0, 1}, {0,
1}},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzNmmlzFEUYxye7m0gSjySbhBAgB4FkcwAJZ7ilNIBAQAwgCKghookQE2ME
xAILKBULKaTEF17lB7C0Sqt85X3f9/EZFPwCvFozPZOemc3vmd3ebFQKdmf/
83v+z9M93TO9vXT3jvYfGuwdHejrrds40jvcP9D3SN2GoZExKZpnWXl1lmW9
VWfZx8mxQ/clOfY3WW+/2Ip3XGq/RWwmpoSoiyvGitivSlKfI05MiXqL+Un7
+Dr1IT9g4J5ywvOyDndr8zUnaV1L76bUfC9W+2YQm9ITBcYu08CFavnD5ZI+
rS714hTpoxALCyzmAv474PUy/hvgc2T8V8Abcob/AvhcGf8Z8Hky/hPgjTnD
fwS8ScZ/ADwh498D3pwz/DvAW2T8W8Bbc4Z/A3ibjH8N+HwZ/wrwBTnDvwR8
oYx/AXh7Vnimd3q6wXwOth2O7eTu5vrcZ5Bh0X+cYRr1iYY+Bb/FOa34E8iw
5N/K4A2XwtCh8TFYLJUH6EeAL5PxDwFfnjP8A8A7Zfx9wFfkDH8P8JUy/i7g
q3KGu7eDsbPvQODqkED7RFSNHTvkbYhe44+O+aNt2V1oJf0Rb4LLWqwh6Vt5
BfA3zCwKAX8dtHVCT1juki0Fr7Jf1fRs1pOqSR95mhgb1fdvNTVrIb0bQhYz
nC5PvWu0uF3uv47OIonvJE0h56jvq8E/wqXUyA0qFhsUdG7Sfdz4v2vD9Rm2
oZGdVdGx4FChYmdmW2xg1t0AzhUh3ZYIZvV1c7CS5hCPAsg5K+uu97vcCFp5
SCXNepIlIH8iJDJfaoNv8WVS+U1S5aqkVmkKRILjhHp2NsRGdWytWUmvgdYl
W5SA9ipoG2SLUtBeAa2du7zMzPll0DpCndU1LVA3ACds/E8ZaC+C1ma/pOxG
JK2JpfuvH21eBLYiXJ22J6ZIs9JxaWs29Mu6Pou3bSZTX7GegSEXLQ5jqwwS
NENsArQJnGUh520rOfNeJyuVay2HWl8AbbOZxWXQtsgWFYA/b2ZRCfgl0Laa
WTwHWrdsMR3wi2YWVYBfAG2bmcWzoG2XLWYAft7MohrwZ0C73cziHGg7ZIuZ
gD9tZjEL8CdBu2NKLWYDfha0HjOLM6DtlC1qAD9tZlEL+BOg7TKzOAXabtmi
DvCTZhb1gD8O2p1mFidA2yNbzAH8OGh7ZYsGwI/JFmqx5313Da6Y7H/53rn0
iY6CdpeTyF24wVN5wiKNstFacBS0fXK2QtAo1TywHQFtv5yqCLSol0rrOUhl
urHYCPbDoB3wjQ9vs3GSiYZAuzvN+BD3N5vAbBC0e+TJkgD8yOQtDoN2r2zR
DPgAaL2yRQvgD4B2cEotWgE/BFqfbNEm4kHtPjOLg2JlaDFf7P2MLRaIwyio
3S9bLAT8gHiVMrbYD1q/bNEO+D4ziw7A94qDPmOLPaA9KFssAnw3aIdli8WA
7wTtiJlFD2iDssUSwHeA9pBssRTw7aANyRbLAO8GbVi2WA74FtAeli06Ad9k
v6ofOZwVwoRFDjyY/WfTJtgImpsqi9WA1laAbRdoj8qp1GogdcmmiZVgdgto
R9MkmLhko+fzKnBeD9oxOVvKVo56p1SrwXYdaMd940Etaor1EdmuAQvSHpv8
tV8LttSBJ+SpQA3u1FPhpBx4MwTS7A6xWK/z0J3llBxIw69dm52WA2+FQHrm
hlh06Tz0vD8jB9L8p0XcWdliE+CNup6n5MDbILBBB56TAzdriL5lhgRu1YE1
+ui8jG/TULU+uiDjasdI1VKh8Ysy3qOhEh14ScZ3aTxmI+qmqH5LU4GX5UD1
rTXfPvuSDF2bzCn1Af7fp+kx/QiXdJttn1ebZuoWp1TnueBsbka8G2rgFusZ
Rsc19cnhY34tOQ7xPS6gXXFSOzuaRakZpfcYFELu+aD95WT0nv8Rz7EwtRnY
DTFuciSYzOkdX4BbgH181anBeTjw1+dKY7cyiHD2qwtSI8bfU0r290+Z7pVK
gKKZRAstqwjWlNrVIa5xbn+F2ZX3WjbdbJBKs00NpYQd8Wc4WEXXNDjf/L3h
klnPrav+rKWZzq3Qd7o41NVXfAPcGytRg0kmtN1gkv2dfiiWZjI9JOM4lFLG
EXLV2G1xPULLTeaeP1pocNx87rmu5dyyOESEDAivZTRpQwaxlfcPLPWkxQ==
\
\>"],ImageRangeCache->{{{0., 287.}, {176.938, 0.}} -> {-1., 0., 0., \
0.}},ExpressionUUID->"cf42dbab-2048-4be7-8a0e-04c120c4c20a"],
Cell[BoxData[
TagBox[
RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}],
False,
Editable->False]], "Output",ExpressionUUID->"3bb0c824-9aa1-4d56-9277-\
ecec3b2005ee"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Rround", "[", "n", "]"}], "/",
RowBox[{"Rsquare", "[", "n", "]"}]}]], "Input",ExpressionUUID->"42222c59-\
8b71-4dca-882d-21ae4389d0c9"],
Cell[BoxData[
FractionBox[
RowBox[{
SuperscriptBox["2",
RowBox[{
RowBox[{"-", "2"}], " ", "n"}]], " ",
SuperscriptBox["n",
RowBox[{"n", "/", "2"}]], " ",
SuperscriptBox["\[Pi]", "n"]}],
SuperscriptBox[
RowBox[{"Gamma", "[",
RowBox[{"1", "+",
FractionBox["n", "2"]}], "]"}], "2"]]], "Output",ExpressionUUID->\
"a2b78ba6-cdc8-47a6-b600-236a0c0d2c7f"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["2",
RowBox[{
RowBox[{"-", "2"}], " ", "n"}]], " ",
SuperscriptBox["n",
RowBox[{"n", "/", "2"}]], " ",
SuperscriptBox["\[Pi]", "n"]}],
SuperscriptBox[
RowBox[{"Gamma", "[",
RowBox[{"1", "+",
FractionBox["n", "2"]}], "]"}], "2"]], "\[Equal]", "1"}], ",", "n"}],
"]"}]], "Input",ExpressionUUID->"354ffb9e-e1ec-4e00-a4a7-32f4ad4c6233"],
Cell[BoxData[
RowBox[{
RowBox[{"InverseFunction", "::", "\<\"ifun\"\>"}], ":",
" ", "\<\"Inverse functions are being used. Values may be lost for \
multivalued inverses. \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"InverseFunction::ifun\\\"]\\)\"\>"}]], "Message",ExpressionUUI\
D->"a91f8d97-7a46-49d0-b465-cb4db918950b"],
Cell[BoxData[
RowBox[{
RowBox[{"Solve", "::", "\<\"dinv\"\>"}], ":",
" ", "\<\"The expression \\!\\(n\\^\\(n/2\\)\\) involves unknowns in more \
than one argument, so inverse functions cannot be used. \\!\\(\\*ButtonBox[\\\
\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", \
ButtonFrame->None, ButtonData:>\\\"Solve::dinv\\\"]\\)\"\>"}]], "Message",Expr\
essionUUID->"d0fd9543-f2ff-4673-bec2-c91e8174aaef"],
Cell[BoxData[
RowBox[{
RowBox[{"InverseFunction", "::", "\<\"ifun\"\>"}], ":",
" ", "\<\"Inverse functions are being used. Values may be lost for \
multivalued inverses. \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \
ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \
ButtonData:>\\\"InverseFunction::ifun\\\"]\\)\"\>"}]], "Message",ExpressionUUI\
D->"b4c61787-da44-4cc6-89fa-291408282b2a"],
Cell[BoxData[
RowBox[{
RowBox[{"Solve", "::", "\<\"dinv\"\>"}], ":",
" ", "\<\"The expression \\!\\(n\\^\\(n/2\\)\\) involves unknowns in more \
than one argument, so inverse functions cannot be used. \\!\\(\\*ButtonBox[\\\
\"More\[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", \
ButtonFrame->None, ButtonData:>\\\"Solve::dinv\\\"]\\)\"\>"}]], "Message",Expr\
essionUUID->"24796243-8485-43e6-85dc-9dd95f8e78dd"],
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["2",
RowBox[{
RowBox[{"-", "2"}], " ", "n"}]], " ",
SuperscriptBox["n",
RowBox[{"n", "/", "2"}]], " ",
SuperscriptBox["\[Pi]", "n"]}],
SuperscriptBox[
RowBox[{"Gamma", "[",
RowBox[{"1", "+",
FractionBox["n", "2"]}], "]"}], "2"]], "\[Equal]", "1"}], ",", "n"}],
"]"}]], "Output",ExpressionUUID->"89e3ff16-1942-4d9f-becc-740e501cdeac"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"n", "/.",
RowBox[{"FindRoot", "[",
RowBox[{
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["2",
RowBox[{
RowBox[{"-", "2"}], " ", "n"}]], " ",
SuperscriptBox["n",
RowBox[{"n", "/", "2"}]], " ",
SuperscriptBox["\[Pi]", "n"]}],
SuperscriptBox[
RowBox[{"Gamma", "[",
RowBox[{"1", "+",
FractionBox["n", "2"]}], "]"}], "2"]], "\[Equal]", "1"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "8", ",", "8.2"}], "}"}], ",",
RowBox[{"WorkingPrecision", "\[Rule]", "100"}]}], "]"}]}]], "Input",Expres\
sionUUID->"5b0cb0ca-2316-4b7a-809b-87a52a4a647e"],
Cell[BoxData["8.\
137941046091372376529838984053223370096725309762443769583530992246309412056601\
6077877642866598898188136539051538602`100."], "Output",ExpressionUUID->\
"41a67236-92ee-49a6-a8a5-25d3b6cec6a3"]
}, Open ]],
Cell[CellGroupData[{
Cell["V6.1", "Subsubsection",ExpressionUUID->"bde7568c-d90f-4ced-b909-3357cfcab6d8"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Reduce", "[",
RowBox[{
RowBox[{
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["2",
RowBox[{
RowBox[{"-", "2"}], " ", "n"}]], " ",
SuperscriptBox["n",
RowBox[{"n", "/", "2"}]], " ",
SuperscriptBox["\[Pi]", "n"]}],
SuperscriptBox[
RowBox[{"Gamma", "[",
RowBox[{"1", "+",
FractionBox["n", "2"]}], "]"}], "2"]], "\[Equal]", "1"}], "&&",
RowBox[{"1", "<", "n", "<", "10"}]}], ",", "n"}], "]"}]], "Input",Expressi\
onUUID->"91adb6e2-d3e0-4d1c-84cf-8ce11aa3c150"],
Cell[BoxData[
RowBox[{
RowBox[{"Reduce", "::", "\<\"nint\"\>"}], ":",
" ", "\<\"Warning: \\!\\(Reduce\\) used numeric integration to prove that \
the solution set found is complete. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\
\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Reduce\\\", ButtonNote -> \\\"Reduce::nint\\\"]\\)\
\"\>"}]], "Message", \
"MSG",ExpressionUUID->"15874cb7-94cb-4f77-8e14-5f93fda80221"],
Cell[BoxData[
RowBox[{"n", "\[Equal]",
RowBox[{"Root", "[",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
FractionBox["1", "2"]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
RowBox[{"Log", "[", "2", "]"}]}], "-",
RowBox[{"2", " ",
RowBox[{"Log", "[", "\[Pi]", "]"}]}], "-",
RowBox[{"Log", "[", "#1", "]"}]}], ")"}], " ", "#1"}]]}], "+",
SuperscriptBox[
RowBox[{"Gamma", "[",
RowBox[{"1", "+",
FractionBox["#1", "2"]}], "]"}], "2"]}], "&"}], ",",
"8.1379410460913723765298389840532233724802091974718053826398`30.\
102999566398122"}], "}"}], "]"}]}]], "Output",ExpressionUUID->"a053008f-0947-\
4ff7-8fa7-ebabf334e1b4"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"FullSimplify", "[",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["\[ExponentialE]",
RowBox[{
RowBox[{"-",
FractionBox["1", "2"]}], " ",
RowBox[{"(",
RowBox[{
RowBox[{"4", " ",
RowBox[{"Log", "[", "2", "]"}]}], "-",
RowBox[{"2", " ",
RowBox[{"Log", "[", "\[Pi]", "]"}]}], "-",
RowBox[{"Log", "[", "#1", "]"}]}], ")"}], " ", "#1"}]]}], "+",
SuperscriptBox[
RowBox[{"Gamma", "[",
RowBox[{"1", "+",
FractionBox["#1", "2"]}], "]"}], "2"]}], "&"}], "[", "x", "]"}],
"]"}]], "Input",ExpressionUUID->"80676768-1433-4c20-9d72-a18a2b8f214c"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["4",
RowBox[{"-", "x"}]]}], " ",
SuperscriptBox["\[Pi]", "x"], " ",
SuperscriptBox["x",
RowBox[{"x", "/", "2"}]]}], "+",
SuperscriptBox[
RowBox[{"Gamma", "[",
RowBox[{"1", "+",
FractionBox["x", "2"]}], "]"}], "2"]}]], "Output",ExpressionUUID->\
"7cf719d4-761a-4561-974f-07321afb4594"]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{
RowBox[{"Root", "[",
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["4",
RowBox[{"-", "#"}]]}], " ",
SuperscriptBox["\[Pi]", "#"], " ",
SuperscriptBox["#",
RowBox[{"#", "/", "2"}]]}], "+",
SuperscriptBox[
RowBox[{"Gamma", "[",
RowBox[{"1", "+",
FractionBox["#", "2"]}], "]"}], "2"]}], "&"}], ",",
"8.1379410460913723765298389840532233724802091974718053826398`30.\
102999566398122"}], "}"}], "]"}], "//", "N"}]], "Input",ExpressionUUID->\
"c243b690-5025-4e68-a80f-77324688ba7b"],
Cell[BoxData["8.137941046091372`"], "Output",ExpressionUUID->"7b5d8704-1ec8-4694-9a17-8796bad1fef5"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
},
WindowSize->{793, 827},
WindowMargins->{{Automatic, 421}, {Automatic, 15}},
FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 2, \
2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 75, 0, 92, "Title", "ExpressionUUID" -> \
"e7f828a9-a5ed-4f76-b647-3ad838d4fd59"],
Cell[CellGroupData[{
Cell[680, 26, 83, 0, 44, "Subsection", "ExpressionUUID" -> \
"911db98d-4521-4d9e-b39b-1e792b6fe288"],
Cell[766, 28, 113, 3, 49, "Text", "ExpressionUUID" -> \
"c65b89bd-d1f6-4631-bb50-b9d789a46ead"],
Cell[882, 33, 329, 8, 30, "Text", "ExpressionUUID" -> \
"53503f17-70e4-4204-bebe-69453fbacd1b"],
Cell[1214, 43, 336, 10, 30, "Text", "ExpressionUUID" -> \
"695a8652-56b8-4ba1-9e3c-3f00a7814a36"],
Cell[1553, 55, 154, 2, 30, "Text", "ExpressionUUID" -> \
"e9e47fe4-e6b1-4ba9-a3bf-4f90e7063f50"]
}, Open ]],
Cell[CellGroupData[{
Cell[1744, 62, 81, 0, 64, "Section", "ExpressionUUID" -> \
"ac3f13a2-bdad-44b2-aaa2-6a8a6d0efb8e"],
Cell[1828, 64, 729, 24, 54, "Input", "ExpressionUUID" -> \
"3cc14da3-59bc-4fbe-b656-bffd15e9f01c"],
Cell[CellGroupData[{
Cell[2582, 92, 1342, 36, 138, "Input", "ExpressionUUID" -> \
"11ff6542-c817-47b7-af13-27224875af1d"],
Cell[3927, 130, 3619, 145, 146, 1686, 111, "GraphicsData", "PostScript", \
"Graphics", "ExpressionUUID" -> "a6a20a2a-3161-4e47-9282-da485930b6da"],
Cell[7549, 277, 196, 5, 32, "Output", "ExpressionUUID" -> \
"1af8d0d8-276e-4248-84f4-614a9a49edbd"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell[7794, 288, 78, 0, 64, "Section", "ExpressionUUID" -> \
"7c1665ef-1c99-4dc3-8075-295cd7fb54e2"],
Cell[CellGroupData[{
Cell[7897, 292, 795, 27, 54, "Input", "ExpressionUUID" -> \
"e5d2d5e0-98cf-4d4a-9036-57fcff617550"],
Cell[8695, 321, 432, 7, 43, "Message", "ExpressionUUID" -> \
"94beb26c-acad-4d11-adcb-01991ebbd721"]
}, Open ]],
Cell[CellGroupData[{
Cell[9164, 333, 673, 19, 81, "Input", "ExpressionUUID" -> \
"b7a3dc00-c953-4c30-ac5c-e32a6499f212"],
Cell[9840, 354, 432, 7, 70, "Message", "ExpressionUUID" -> \
"eeb5b336-f743-480a-92db-64867424a1e4"],
Cell[10275, 363, 434, 7, 70, "Message", "ExpressionUUID" -> \
"b826784b-8954-4084-85e4-41d88deaa50f"],
Cell[10712, 372, 11590, 506, 70, 9115, 463, "GraphicsData", "PostScript", \
"Graphics", "ExpressionUUID" -> "cf42dbab-2048-4be7-8a0e-04c120c4c20a"],
Cell[22305, 880, 191, 5, 70, "Output", "ExpressionUUID" -> \
"3bb0c824-9aa1-4d56-9277-ecec3b2005ee"]
}, Open ]],
Cell[CellGroupData[{
Cell[22533, 890, 173, 4, 70, "Input", "ExpressionUUID" -> \
"42222c59-8b71-4dca-882d-21ae4389d0c9"],
Cell[22709, 896, 394, 13, 70, "Output", "ExpressionUUID" -> \
"a2b78ba6-cdc8-47a6-b600-236a0c0d2c7f"]
}, Open ]],
Cell[CellGroupData[{
Cell[23140, 914, 515, 16, 70, "Input", "ExpressionUUID" -> \
"354ffb9e-e1ec-4e00-a4a7-32f4ad4c6233"],
Cell[23658, 932, 404, 7, 70, "Message", "ExpressionUUID" -> \
"a91f8d97-7a46-49d0-b465-cb4db918950b"],
Cell[24065, 941, 425, 7, 70, "Message", "ExpressionUUID" -> \
"d0fd9543-f2ff-4673-bec2-c91e8174aaef"],
Cell[24493, 950, 404, 7, 70, "Message", "ExpressionUUID" -> \
"b4c61787-da44-4cc6-89fa-291408282b2a"],
Cell[24900, 959, 425, 7, 70, "Message", "ExpressionUUID" -> \
"24796243-8485-43e6-85dc-9dd95f8e78dd"],
Cell[25328, 968, 516, 16, 70, "Output", "ExpressionUUID" -> \
"89e3ff16-1942-4d9f-becc-740e501cdeac"]
}, Open ]],
Cell[CellGroupData[{
Cell[25881, 989, 676, 20, 70, "Input", "ExpressionUUID" -> \
"5b0cb0ca-2316-4b7a-809b-87a52a4a647e"],
Cell[26560, 1011, 210, 3, 70, "Output", "ExpressionUUID" -> \
"41a67236-92ee-49a6-a8a5-25d3b6cec6a3"]
}, Open ]],
Cell[CellGroupData[{
Cell[26807, 1019, 84, 0, 70, "Subsubsection", "ExpressionUUID" -> \
"bde7568c-d90f-4ced-b909-3357cfcab6d8"],
Cell[CellGroupData[{
Cell[26916, 1023, 589, 18, 70, "Input", "ExpressionUUID" -> \
"91adb6e2-d3e0-4d1c-84cf-8ce11aa3c150"],
Cell[27508, 1043, 446, 8, 70, "Message", "ExpressionUUID" -> \
"15874cb7-94cb-4f77-8e14-5f93fda80221"],
Cell[27957, 1053, 885, 25, 70, "Output", "ExpressionUUID" -> \
"a053008f-0947-4ff7-8fa7-ebabf334e1b4"]
}, Open ]],
Cell[CellGroupData[{
Cell[28879, 1083, 720, 21, 70, "Input", "ExpressionUUID" -> \
"80676768-1433-4c20-9d72-a18a2b8f214c"],
Cell[29602, 1106, 391, 13, 70, "Output", "ExpressionUUID" -> \
"7cf719d4-761a-4561-974f-07321afb4594"]
}, Open ]],
Cell[CellGroupData[{
Cell[30030, 1124, 660, 20, 70, "Input", "ExpressionUUID" -> \
"c243b690-5025-4e68-a80f-77324688ba7b"],
Cell[30693, 1146, 100, 0, 70, "Output", "ExpressionUUID" -> \
"7b5d8704-1ec8-4694-9a17-8796bad1fef5"]
}, Open ]]
}, Open ]]
}, Open ]]
}, Open ]]
}
]
*)
(* End of internal cache information *)
