ParamComp_2ndTerm.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     44342,        955]
NotebookOptionsPosition[     43004,        924]
NotebookOutlinePosition[     43398,        940]
CellTagsIndexPosition[     43355,        937]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<../figs/\>\""}], 
     "}"}], "]"}], "]"}], " "}]}], "Input",
 CellChangeTimes->{{3.817327186262085*^9, 3.817327186581585*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"4369a029-5b39-4613-a053-a352f3b4b385"],

Cell[BoxData["\<\"/Users/marknovak/Git/aaaManuscripts/GeometricComplexity/\
GeometricComplexity/figs\"\>"], "Output",
 CellChangeTimes->{
  3.817327343734651*^9, 3.8173274124082623`*^9, 3.8246875747029867`*^9, 
   3.825163126916822*^9, {3.8287526621210957`*^9, 3.828752677823763*^9}, 
   3.828752855498077*^9, 3.828752913494561*^9, {3.8288201161117*^9, 
   3.828820145368911*^9}, {3.8288202522206078`*^9, 3.828820279269251*^9}, 
   3.8288229697059097`*^9, 3.834777407267758*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"40e8174c-1e72-44fa-815d-6c38e3623696"]
}, Open  ]],

Cell[BoxData[{
 FormBox[
  RowBox[{
   RowBox[{
    SubscriptBox["SC", "2"], "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SubscriptBox["Log", "e"]}], 
      RowBox[{"f", "(", 
       RowBox[{"x", "|", 
        SubscriptBox[
         OverscriptBox["\[CapitalTheta]", "^"], "x"]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["k", "2"], 
      RowBox[{
       SubscriptBox["Log", "e"], "(", 
       FractionBox["n", 
        RowBox[{"2", " ", "\[Pi]"}]], ")"}]}], "+", 
     RowBox[{
      SubscriptBox["Log", "e"], 
      RowBox[{
       SubscriptBox["\[Integral]", "\[CapitalTheta]"], 
       RowBox[{
        SqrtBox[
         RowBox[{"det", " ", 
          RowBox[{"I", "(", "\[CapitalTheta]", ")"}]}]], 
        RowBox[{"\[DifferentialD]", "\[CapitalTheta]"}]}]}]}], " ", "+", " ", 
     
     RowBox[{"o", "(", "1", ")"}]}]}], ";"}], 
  TraditionalForm], "\[IndentingNewLine]", 
 FormBox[
  RowBox[{
   RowBox[{"The", " ", "first", " ", "term", " ", "is", " ", "the", " ", 
    RowBox[{"likelihood", ".", " ", "The"}], " ", "second", " ", "term", " ", 
    "is", " ", "the", " ", "parameter", " ", "and", " ", "sample", " ", 
    "size", " ", "dependent", " ", 
    RowBox[{"component", ".", "\[IndentingNewLine]", "The"}], " ", "third", 
    " ", "term", " ", "containing", " ", 
    RowBox[{"I", "(", "\[CapitalTheta]", ")"}]}], ",", " ", 
   RowBox[{
   "the", " ", "Expected", " ", "Fisher", " ", "Information", " ", "Matrix"}],
    ",", " ", 
   RowBox[{"reflects", " ", "the", " ", 
    RowBox[{"model", "'"}], "s", " ", 
    RowBox[{"flexibility", "."}]}]}], TraditionalForm]}], "Text",
 CellChangeTimes->{
  3.817327208510028*^9},ExpressionUUID->"327cbc8b-297f-469b-ae4c-\
2b020279b4b7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cm", "=", 
   RowBox[{"72", "/", "2.54"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824688328734762*^9, 3.8246883345182*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"4839a748-53d8-4ed9-870c-693cc76c4867"],

Cell[CellGroupData[{

Cell["Second Term dependence on k and n", "Subsection",
 CellChangeTimes->{{3.79553874165469*^9, 3.7955387483097277`*^9}, {
  3.795538787211925*^9, 
  3.795538818385933*^9}},ExpressionUUID->"10092bee-2c13-4ff1-b0dd-\
d0fd3eee466c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nmax", "=", "80"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"p1", "=", "\[IndentingNewLine]", 
  RowBox[{"Plot", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Evaluate", "@", 
     RowBox[{"Table", "[", 
      RowBox[{
       FormBox[
        RowBox[{
         FractionBox["k", "2"], 
         RowBox[{"Log", "[", 
          FractionBox["n", 
           RowBox[{"2", " ", "\[Pi]"}]], "]"}]}],
        TraditionalForm], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "1", ",", "nmax"}], "}"}], ",", "\[IndentingNewLine]", 
    
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "nmax"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*StyleBox[\"k\",FontSlant->\"Italic\"]\)=1\>\"", ",", 
         "\"\<\!\(\*StyleBox[\"k\",FontSlant->\"Italic\"]\)=2\>\"", ",", 
         "\"\<\!\(\*StyleBox[\"k\",FontSlant->\"Italic\"]\)=3\>\"", ",", " ", 
         "\"\<\!\(\*StyleBox[\"k\",FontSlant->\"Italic\"]\)=4\>\""}], "}"}], 
       ",", "Above"}], "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"PlotRangeClipping", "\[Rule]", "False"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"ImagePadding", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"50", ",", "5"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"30", ",", " ", "5"}], "}"}]}], "}"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Epilog", "\[Rule]", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"\"\<\!\(\*FractionBox[\(k\), \(2\)]\)\>\"", 
            RowBox[{"ln", "[", 
             FractionBox["n", 
              RowBox[{"2", " ", "\[Pi]"}]], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"15", ",", "3.5"}], "}"}]}], "]"}], ",", "12"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{
          "\"\<Sample size \
(\!\(\*StyleBox[\"n\",FontSlant->\"Italic\"]\))\>\"", ",", "13"}], "]"}], ",", 
         RowBox[{"Scaled", "[", 
          RowBox[{"{", 
           RowBox[{"0.5", ",", 
            RowBox[{"-", "0.2"}]}], "}"}], "]"}]}], "]"}], ",", 
       RowBox[{"Rotate", "[", 
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<Parametric\\ncomplexity\>\"", ",", "13"}], "]"}], 
           ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "0.2"}], ",", "0.5"}], "}"}], "]"}]}], "]"}], ",", 
         
         RowBox[{"90", " ", "Degree"}]}], "]"}]}], "\[IndentingNewLine]", 
      "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<ParamComp_2ndTerm.pdf\>\"", ",", 
    RowBox[{"Show", "[", 
     RowBox[{"p1", ",", 
      RowBox[{"ImageSize", "\[Rule]", " ", 
       RowBox[{"8", " ", "cm"}]}]}], "]"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.795479499352764*^9, 3.795479565911522*^9}, {
   3.795479640588686*^9, 3.795479736031001*^9}, 3.795480144448567*^9, {
   3.795481378570217*^9, 3.7954814370312366`*^9}, {3.7954814689588633`*^9, 
   3.795481516043228*^9}, {3.79548155169906*^9, 3.7954815564591217`*^9}, {
   3.79548165444751*^9, 3.795481674349378*^9}, {3.7967602063331633`*^9, 
   3.796760211875461*^9}, {3.7967602451231823`*^9, 3.796760399451775*^9}, {
   3.796760461747941*^9, 3.7967604663531733`*^9}, {3.796760513466807*^9, 
   3.7967605559260893`*^9}, {3.800578601294194*^9, 3.800578660113759*^9}, {
   3.8005786960185013`*^9, 3.800578697960251*^9}, {3.817327246267918*^9, 
   3.817327324744255*^9}, {3.817327380191167*^9, 3.817327390869643*^9}, {
   3.817327517938064*^9, 3.817327675802816*^9}, {3.8173277115221567`*^9, 
   3.8173277372247553`*^9}, {3.817327776889546*^9, 3.817327778634231*^9}, {
   3.8246875694302893`*^9, 3.824687569525017*^9}, {3.824687620508353*^9, 
   3.824687763005616*^9}, {3.82468783217983*^9, 3.824687863729507*^9}, {
   3.8246878942493134`*^9, 3.8246880323637114`*^9}, {3.824688075906447*^9, 
   3.824688087657363*^9}, {3.8246881261198397`*^9, 3.824688406020019*^9}, {
   3.824688462539006*^9, 3.824688663306761*^9}, {3.8246888500759068`*^9, 
   3.824688919224759*^9}, {3.824688970767816*^9, 3.824688971254455*^9}, {
   3.8246890248617153`*^9, 3.824689051891842*^9}, {3.8246891015224524`*^9, 
   3.824689150711405*^9}, {3.824689230893125*^9, 3.8246892467169037`*^9}, {
   3.824689292578534*^9, 3.8246894648112*^9}, {3.825163116733953*^9, 
   3.825163134476409*^9}, {3.828752672726252*^9, 3.8287527210911837`*^9}, {
   3.828752766434888*^9, 3.828752790369074*^9}, {3.8287528417962418`*^9, 
   3.828752912165361*^9}, {3.8288199090922422`*^9, 3.828819910595401*^9}, {
   3.828819947859479*^9, 3.828820032568323*^9}, {3.8288201437962*^9, 
   3.828820143978489*^9}, {3.828820250783471*^9, 3.828820294021947*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"8cf1c52c-097b-4692-91a6-9b2058a8e3f7"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwtxw0w1AkcxvGt9jiS2lp3pVZZkvJSiV7Y8/uxJMKy/yTqKh0NpYhEJYUI
ubFxw+mNS3kp3F42TYtCsZYGQyytJvJa3nbtH3k/N3PPzHee+WifCuD6LKVQ
KK6L/feMuKcllrrrkPL/xLs4o3cPaKJp/vP4nKFU2GoY2xxzjIELE9kV5f1F
0IOysxahDEyXpGydPSqAh26eVPkdBjbdNvGpbxAA/bqx2TERA4WRho7mxS+A
0tSaamKihSW9R9fbRLyE1tAtnp+VNyJbJeBRyYwQKry8A+97bMIz7ndYJ9rK
4VzBD5PjVCY6X/QUGNFE4N9Udc+fxsTXT6pLTv0igjOTMdjNYGJolC7nsp8I
fK2UEhp3MzFob3n5wQoReLcoMZ75MpH2XM85IaAGjs0ps0++Z+Ljqn1TvGox
ODipJtWm6KDKJGOm7sR70BtW35LB3IwGTtTd27IaQVKnc2NVtD6ey/W44+XV
AtWcn+bLmg2QN2C/Oi6wHTTCGx56DRpjTtb3D5UNHfC3joOgj7kTv69JJh6s
6IToT0lP04pMULx5Q25GcBdM+NkUnWaZ4tVDEvn94i/QWxXRmN5nhq/eHU8L
nu4G6qUNC3YX96AsUeO27ppeyBgHa0+dffiSH+PF3N4H7XZNaQm15ujPj7Km
mPYDe0Q0b+bGQpqGT6zBugHY5s2+YrvEEo2ESaUq1K9gZcxUbuQB6m1ztSpt
/grffmMf+pyJ2H9+S8eNvG+wTNOo0CfEClUeSK3VLwyC6ZUaXp6FNf7lXB8n
YQ6BbmX2tYzVbEygWTdbS4fAULBbwZWyUToX7Gt9YxiiV85f0Mi0Qc30tWUN
60fgT+6PM/EhtujSdTlR5/UIVME7tVLWfnxvX16j7DIKfPpb/Uy6HaqFrQmI
GBiFQe6UU8qAHWp3MzP9WTKwtOiaYRcewH+WZ1JvXZMBZ7maIPumPUbJv8R+
qpBBWMwAWe3ogN4cuiRvQQZy31nLiVUH0Tg+Ii3cXA76pkSKpPcgZilnjYSE
ySE072jgpXxHHNhJeZPFl8NNpRx3UbQT7vOmE+2Dcshb8VjU4uiMGdIjqo+0
x4AR0YYKGgdlSuH5Sm5j4NLKeVfZz0GzkifzHrfHwMmfNZDj7oLSkyXbxaVj
4OoVFCx664IOSYqPqvIxmFO1iR4xckV+rraYrqOAF/Hn3UmeKzaEtqUVuijA
MVy4g5h1xTfFVbeWRCpglH2inneSi6wOTS6jQAHm5RmylkoucqdzxoMlCvDm
L1l70YjAYVqa/VkqCXdDSpfJeQQK1Z8kRBqRYB6aDAXJBCbovNLdY0xCe5jv
Vb8/CNSyFBQOLXptOF3RlUag7vCZZPcdJKRG+X9pekigec/WdMNdJKQkbagQ
5BM4ae+X3byXhMS88IiwGgI3ERnNGjYkGD7jCk1rCaxPVwsUL7ouX39CVkcg
WSacDbclQZX/4ZxfA4F2uT193ftJiC82/NWzlcCijaXzfHsSYt92WLB6CFSn
dVoe4JCgV/U89HsvgdWNjzunF11VHVck6CewFluDClxIoNaaGhgNEnh8RYLv
ai4JUY2JmlpjBApMItOlh0hgNp06/FFBYCkx+fp3NxIqmvcmp44TOCce/QCH
SaBIelRWThGIV4OastxJyGwT2tZNE6jy81Kh2xES8CMv8tYsgffEWsnKHiR0
Sk+XsecJvG9V5/lq0dc/saYWFgicMVSln/Uk4V/rQW2u
          "]]}, 
        Annotation[#, "Charting`Private`Tag$4531#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwtxw0w1HkAxvHF/ziS2lp3pVZZkvJSiV7Y83tYEmHZfxJ1lY6GUkSikkKE
3Ni4yemNS3kp3F723LQob0toMJSl1aQi7vRC8s46N3PPzHee+egdDhb4KzMY
DI/5/nt24v0yG4PlYPy/hs38z9d36sCi8GFS3odcss4koT1+PxtzY7lVlf01
pBdDx6wj2MiUpa+b2VdLbnv6UMNX2Wi7Yu7f3FJLWBfMLPfXsyGJMXGxKpUS
RlvHNXNzXZT17VthH11POiLW+rxWWwWeevCdsulGUuXrF3LTezWOel3lHuxs
JceLvhkfpThwO+UjNmXKSFCb9EYQk4PH9+rKDv8gI0fH4/GOzUFErAH/TKCM
BNiqJrdu4SB0W2XlrioZ8Xuhyn4QwAHzoaFbcnAn2T+rxjv0jIO70u2Twrou
4uyqkdqYrg/1cfZ008FuYvhRa20WZw2MXakt63N6iKxJ/+LiOCMcz/e+6uvb
R+r43ykq2o0hHHBakhjyN9GOarntO2iGvJyJ59UtH8jv+s7i95xNmFiaRt9a
OETiXqXezygxR8OalflZYcNkLNC+5AjXAud2y4Zvln4hfdLo1sz3lnhUeyAj
bGqEUKdXzjme2oqhFO0rBktHSdYosfPR346/RPG+nA1jpMuxLSO50QpBolg7
hsU44X2qV1h6csHU9k8wXj5B1vvxzjoo2cBUklquTk0SWzOOWquQwHC9h215
+yT55yfe7tfZQP+Jtd0XC6aIio5psX+4LdRvye20Tk4Ti7NPhQXWdvjNrTlR
xpkhBtW557OW8JDMtGu3k88QE/GWEYGcB/lsWIDdxVkSt0hxUjvbHjqZyypa
VijIr4Jvp5PCHeD+5kyK/mMFkZJazXLuDjxzqnyq5j5HRKwao2yWIzQjlwZH
D8yRQcGka/qAI/TecbKDuAzYWL+Z5hXvxB8LsqnL5xngL9AU515yQuzw24RX
VQxExg98rXNxhh+fJSuYY2A4YMZmbPEumCVFZ0RZKcHIgk6X9e1CjlrOp/BI
JUQU7As5XeiCgU2MJzkiJVxSzfOqj3PFdj8W3TWohIKFd+tfuLghS75X446e
MtjRnRhh8jGkGlWo6qkM9w5+bXU/H5Zl9xTeV5ThGsQdyPNyh/xQ2YaGcmV4
+IaG1de4wzl15KXGsDJmNezjPpl6QJSv18DSV8GfSSe8vgo90BLRmVHsrgKX
KMlGesYDT0qll5ViVPCZd7BZeEgAbreOgF2kAqvKrKEX1QIIpvJGw2Qq8BMp
LTtlSuMjM8PpGEXheni5yrCQhkTrXnKMKQWriDRSlEYjWf+RwVYzCl2RAecC
f6GhayMu/jDvZVGskTcZNAw+Hk3z2kjhWmzQ27bbNKx612WabKaQnrqySlxI
Y9wpMLd9G4WUgqjoyKc0VtNZ7dr2FEweCCQWjTSaMzVDGubdVGg0NtRE42uF
ZCbKgYKG6PnxwBYajvm979/toJBUavKjTweNklXlCpEThYSabmtuLw0tZo/N
Tj4FQ+nDiIk+GnWtd3um5i2tSywR99NoREdokTsFqtHC2HSQxoGFyQFLBBRi
W1N0dL/QEJvHZMp3U+C0Hd7zcoRGOT3++GdPClXt29KujdKYbfj8nOyhwJD1
qi+apIFzoW05XhSyOyUOTVM01L9XlnjupYCXwpjLMzRuNOimqXlT6JEfqeAp
aNy0bfJ5NO8Lr7iTc3M0pk00WMd8KPwLXNRI2A==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$4531#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwtjns0lAkAR8drMPikM7WlRho2KqNYvZDvp/FKo2E+jxO9RBqSSokQalD0
MEtLSWO2bbNS1npVU7YiKY9MiFCnvMpZrRRCBtue0z3nnvvvXbxrv2C3Mo1G
8/jm/2Wdun7Xzng+aN95+hP/Y7aLPkyUnPKOWfxFLjVLbk7aykJceDT7184G
shdDe20iWQiq2mb3NeUZKfHyVf30Mwt3n9dlla1pJJnx5qu21rDA8198p8BF
TtKaWjMtLQ3A+5DILJE8J1sjTXzfqC/CZ6fmO/W2LeRD/8ADOVsMsUilo+Oc
Qzu576ba2KgqG9ZtXOduXhcZ2lR9KVSPjc2KFm1GWBcZMpaEHhYb7f5+k/pp
XaTQnp4qX82G9zKxfFzeRQa+oLMKhGycVbssy6O6ya1T6tyd9WzYeA7IPnj2
kK5ujLTaDCM4H/VWvHTuI5f8S5jksn/Eg0N0j/sj/WRbnVHCLJEpBHYqHE3N
IfIxf+50RfNyhIbd0gliDpNzYhsl/gPmqIiWLWq6NEr+aeRa+o5tgRGW39Re
5jgpep12PavEEoVrl8Xu53wlvwQ7lATZWuH2dGXIgJ6C7KuOk198twpzTYiA
m2NTpOqRhTPOh9dASEnl5TkzZO4oucHXaB1SHIyfbvmNhnbnpqzUWmt4qHZb
0PYogTtYM73KyxYNjXVX385WxrJAbrSjkh2u1O11U69Shr05W10uJpHzRrGy
YbsK/gnger6RApwM1u+GMypQ0ecU7o6wR02ZcXHteVVYRT8R59tswIQs+9pi
fTUYV147ljubC9OzBw3Cr6rBrHT1sKCTi8Bp72cWhnSIdKcPzpE6oCW8qaHz
PB0XBBqTKRGOUAj98rMJdVSTj7Tv2Tphyxpxq1qsOoqYVaZSpjM0szc3bx9U
x4Bgwi2j3xnFnlZDV3w1YGfTNcktdEGq3lCy6z0N8LW0S68lbgQ3xNO1nq2J
qKT+kcc8V8yNlFTGxWvik1Bh92XWJlQ3rO+RtWnC1IrKaOvbhMOnR/qKrBiI
zPc7cOQGD69cEySjpxhIpOf51Ijc4J0pUVR3MZCvc7XmBW8zwjYm6R6y1AIr
7iWG9fgQMmTKqfFacG/lP6p8z4f8wvgU/bkW3EJt+/N83OGid7GGs0AbHv7h
h2qq3PHRe5+LOFgbUwwH0SDHAxrHijm5pdooSwnzGRF7oLzkUY/ahDZ4sbKV
lMIDBul/bDphr4OP3B3PxDsF8HU1nSwQ6cD6Qe7Qi0oBYsZihjhVOggsUpp3
mEOhN3vXoJROIDvinsonMYUfMsf4GxwIWEemkzfTKfDL5twSOBJojxLGBJ+n
wNlG0AOcCMyLZQ53ZVEoD5D6iVwIZJ4I7W6SUPBp/buvkkcgI23hw9IbFD4P
Xj663ovAmfzYuKgnFIoUYRWGQQTMCgQyq1oKZe9mm5rvIVB3w/TLUB2FwYXz
YmyEBBhFLfuCGymEKLw7vEIIpJSbbfNtpXBmhX5cShiB5KpXNra9FH6Z7779
wxECS6qLI8f7KCxdN+Y+Hkmg+vGpktL3FFb425upHiWgWmu1nDNAQYfZmLMg
hsAJ+Rl9g88UiHr7oI3xBNhNu7w7hilkT4VLPBMIPGxem545SkFRuOf+juME
aG29mroTFN7eLrgbISIgfSlzrPtK4RxbJSshkQA6xMdPKigIzc39TicReNsZ
VMGd/vbfvVIjM5lA/GvbiZkZClFcXYn0JIH/AMO5PQM=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$4531#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwBkQJu/SFib1JlAgAAACgAAAACAAAAHYiquz4kGUAAAAAAAAAAAMkzT++a
SBpANKyyiafstj8pLIbThVwdQP/2psHA59M/5EDwazt3HUCZ15Mp/FvUP55V
WgTxkR1A0osyZc7P1D8Ufy41XMcdQLqBLEw6ttU/ANLWljIyHkC75VsbRH7X
P9Z3J1rfBx9AQwlvorv72j/BYWRwnFkgQGpXkTxf2OA/ba0F9/UEIkBOdFq0
LRHnP2zSxZtsESJAvqXGu2I95z9q94VA4x0iQHeCJE95aec/aEEGitA2IkBy
OMDAS8HnP2TVBh2raCJAEbImTopv6D9c/QdDYMwiQKTFOfmQxuk/Sk0Kj8qT
I0AJ9x37y1/sPybtDiefIiVAK00ENiqj8D/XyyOAEIMoQG2oWZFhYfU/xk8W
/r3TK0CQ6EkSiHD5PxV8z55h6y5Ap6P41MLP/D+vI0q05iIxQPgTklOdDQBA
g92PqpezMkDJJRyon3MBQPZpRLNmPDRAe1TX8Zy2AkDlxX7QmeY1QLnEXpdz
+gNABHYc/0d0N0DwjBWLJBMFQJ/1P0JaIzlAt7CFYSIvBkDZR9KXiso6QGyw
gkIANAdAQ+7H/jVVPEARFWWGKxkIQCpkQ3pFAT5ALbqPvAkECUBBLiIH0JA/
QCYqUUG80wlA6mNDVN+gQEDnbifcgKkKQAMaLa5ldUFACZ3bQg5xC0A0esiQ
qTtCQKFOzojXIgxAJMKmfZ8SQ0CKEULTQtsMQCy0NvNS20NA2/1zaEKADUCD
D/5xFaBEQBqZGL3PGw5AmFII+4l1RUBQ4XmMI74OQMU/xAy8PEZAzEnAyAdQ
D0CwFMMooBRHQAx4E29+6A9AkCsrfSM3R0AAAAAAAAAQQJlvDl8=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$4531#4"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> False, 
     ImagePadding -> {{50, 5}, {30, 5}}, DisplayFunction -> Identity, 
     AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
     Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, 
     DisplayFunction :> Identity, Epilog -> {
       StyleBox[
        InsetBox[
         FormBox[
          RowBox[{"\"\\!\\(\\*FractionBox[\\(k\\), \\(2\\)]\\)\"", " ", 
            RowBox[{"ln", "(", 
              FractionBox[
               TagBox["n", HoldForm], 
               RowBox[{"2", " ", "\[Pi]"}]], ")"}]}], TraditionalForm], {
         15, 3.5}], {12}, StripOnInput -> False], 
       InsetBox[
        FormBox[
         StyleBox[
         "\"Sample size \
(\\!\\(\\*StyleBox[\\\"n\\\",FontSlant->\\\"Italic\\\"]\\))\"", 13, 
          StripOnInput -> False], TraditionalForm], 
        Scaled[{0.5, -0.2}]], 
       GeometricTransformationBox[
        InsetBox[
         FormBox[
          StyleBox["\"Parametric\\ncomplexity\"", 13, StripOnInput -> False], 
          TraditionalForm], 
         Scaled[{-0.2, 0.5}]], {{{0, -1}, {1, 0}}, Center}]}, 
     Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImagePadding -> {{50, 5}, {30, 5}}, ImageSize -> 
     Large, Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotRange -> {{0, 80}, {0, 4}}, 
     PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"\\!\\(\\*StyleBox[\\\"k\\\",FontSlant->\\\"Italic\\\"]\\)=1\"", 
       "\"\\!\\(\\*StyleBox[\\\"k\\\",FontSlant->\\\"Italic\\\"]\\)=2\"", 
       "\"\\!\\(\\*StyleBox[\\\"k\\\",FontSlant->\\\"Italic\\\"]\\)=3\"", 
       "\"\\!\\(\\*StyleBox[\\\"k\\\",FontSlant->\\\"Italic\\\"]\\)=4\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Row\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {2, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "Above"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.796156656350209*^9, 3.79624151145543*^9, 3.796695739743166*^9, 
   3.7967600367758093`*^9, {3.796760311104321*^9, 3.796760320778715*^9}, {
   3.796760360825445*^9, 3.7967603998021803`*^9}, {3.79676044791989*^9, 
   3.796760473491261*^9}, 3.7967605199970293`*^9, 3.796760558661207*^9, {
   3.796918666968783*^9, 3.796918688177581*^9}, {3.796921564633891*^9, 
   3.796921587428376*^9}, 3.796928348715877*^9, 3.796930711635086*^9, 
   3.796937253149901*^9, 3.7969453183513393`*^9, 3.800485711671857*^9, 
   3.800541235905415*^9, 3.800541413198597*^9, 3.800547564636736*^9, 
   3.800561863418202*^9, 3.800562268483655*^9, 3.800562347322238*^9, {
   3.80057861635538*^9, 3.800578661407549*^9}, 3.80057869929883*^9, 
   3.8008598050288897`*^9, 3.801223486672626*^9, 3.801247697615756*^9, 
   3.802523984201024*^9, 3.802524026884963*^9, 3.806488267628631*^9, 
   3.817327343946117*^9, 3.817327412507984*^9, 3.817327545502953*^9, {
   3.8173276242695847`*^9, 3.817327676578661*^9}, 3.817327743281732*^9, 
   3.8173277797527857`*^9, 3.824687580997711*^9, {3.8246876252637444`*^9, 
   3.824687732934697*^9}, 3.8246877638252697`*^9, {3.824687833048771*^9, 
   3.8246878644316587`*^9}, {3.824687898320856*^9, 3.8246879806246367`*^9}, {
   3.824688137533113*^9, 3.824688179055252*^9}, {3.824688229511545*^9, 
   3.8246884066154337`*^9}, {3.824688479826644*^9, 3.824688634815394*^9}, {
   3.824688682014921*^9, 3.824688704653297*^9}, {3.824688899486629*^9, 
   3.824688919947443*^9}, 3.824688971656782*^9, {3.824689025657858*^9, 
   3.824689052421772*^9}, {3.824689103478121*^9, 3.824689151072261*^9}, 
   3.824689257561944*^9, {3.8246892964458714`*^9, 3.824689308334325*^9}, {
   3.8246893385801363`*^9, 3.824689465191654*^9}, {3.825163127085986*^9, 
   3.825163135571444*^9}, {3.828752662803776*^9, 3.8287526779424686`*^9}, 
   3.82875272289522*^9, 3.828752803565608*^9, {3.828752855616418*^9, 
   3.828752913607987*^9}, 3.8288199136383553`*^9, 3.828819948557773*^9, {
   3.828819978667449*^9, 3.828820032920594*^9}, {3.828820116169107*^9, 
   3.828820145416257*^9}, {3.828820252266168*^9, 3.828820279319478*^9}, 
   3.82882296981046*^9, 3.83477740794934*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"d34d96ae-a506-40d8-88d4-4164335c7fe9"]
}, Open  ]],

Cell[TextData[{
 "For reference, the sample size of the largest dataset in Novak & Stouffer \
2021 is",
 StyleBox[" n",
  FontSlant->"Italic"],
 " = 528.\nThe smallest is ",
 StyleBox["n ",
  FontSlant->"Italic"],
 "= 10.\nAnd the median is ",
 StyleBox["n ",
  FontSlant->"Italic"],
 "= 80."
}], "Text",
 CellChangeTimes->{{3.828820300780671*^9, 3.8288203455537243`*^9}, {
  3.828820379273692*^9, 3.828820392240065*^9}, {3.828820456022332*^9, 
  3.8288204943721743`*^9}},ExpressionUUID->"f3625a49-3cae-4b78-89a2-\
c55ddbf7e1d7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"PC", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"Round", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"N", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"k", "/", "2"}], " ", 
             RowBox[{"Log", "[", 
              RowBox[{"n", "/", 
               RowBox[{"(", 
                RowBox[{"2", " ", "\[Pi]"}], ")"}]}], "]"}]}], "/.", 
            RowBox[{"n", "\[Rule]", " ", "10"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"k", "/", "2"}], " ", 
             RowBox[{"Log", "[", 
              RowBox[{"n", "/", 
               RowBox[{"(", 
                RowBox[{"2", " ", "\[Pi]"}], ")"}]}], "]"}]}], "/.", 
            RowBox[{"n", "\[Rule]", " ", "80"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"k", "/", "2"}], " ", 
             RowBox[{"Log", "[", 
              RowBox[{"n", "/", 
               RowBox[{"(", 
                RowBox[{"2", " ", "\[Pi]"}], ")"}]}], "]"}]}], "/.", 
            RowBox[{"n", "\[Rule]", " ", "528"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"k", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "}"}], "]"}],
       "\[IndentingNewLine]", ",", 
      RowBox[{"1", "/", "10."}]}], "]"}], "//", "Transpose"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.828819349766342*^9, 3.828819490483491*^9}, {
  3.828819529203114*^9, 3.828819529490018*^9}, {3.828819844166106*^9, 
  3.828819858741458*^9}, {3.828820352698429*^9, 3.828820353401724*^9}, {
  3.828820397944502*^9, 3.828820400879904*^9}, {3.8288204992926188`*^9, 
  3.8288205022119303`*^9}, {3.828822689003046*^9, 3.8288227006396437`*^9}, {
  3.828822732391283*^9, 3.828822764797205*^9}, {3.8288228400434113`*^9, 
  3.8288228922487803`*^9}, {3.828823121736758*^9, 3.8288231308156776`*^9}, {
  3.828823708746469*^9, 3.8288237102315407`*^9}, {3.828823989757739*^9, 
  3.828824002276135*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"643d1148-ea94-4db8-88c1-97195a250196"],

Cell[BoxData[
 TagBox[GridBox[{
    {"0.2`", "1.3`", "2.2`"},
    {"0.5`", "2.5`", "4.4`"},
    {"0.7000000000000001`", "3.8000000000000003`", "6.6000000000000005`"},
    {"0.9`", "5.1000000000000005`", "8.9`"}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.828819406367032*^9, {3.8288194491951437`*^9, 3.828819491392048*^9}, 
   3.828819529808297*^9, {3.828819852451527*^9, 3.8288198591714363`*^9}, {
   3.828820116536809*^9, 3.828820145785191*^9}, {3.828820252700704*^9, 
   3.8288202796762877`*^9}, 3.828820353775588*^9, 3.828820401439336*^9, 
   3.828820503450005*^9, 3.828822701422296*^9, {3.828822761850841*^9, 
   3.828822765122095*^9}, 3.828822840648944*^9, {3.828822871198739*^9, 
   3.82882289264655*^9}, 3.828822970126753*^9, 3.828823132264003*^9, {
   3.828823354989936*^9, 3.828823379271042*^9}, 3.828823420135277*^9, 
   3.828823710622892*^9, {3.828823990850506*^9, 3.828824002528768*^9}, 
   3.834777409211426*^9},
 CellLabel->
  "Out[12]//TableForm=",ExpressionUUID->"d808e958-9bfe-4953-8299-\
000ec0340b57"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{808, 911},
WindowMargins->{{301, Automatic}, {Automatic, 29}},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"9b9bbe20-f9c4-4728-8b3e-aba5b440e012"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 458, 10, 52, "Input",ExpressionUUID->"4369a029-5b39-4613-a053-a352f3b4b385"],
Cell[1041, 34, 556, 8, 34, "Output",ExpressionUUID->"40e8174c-1e72-44fa-815d-6c38e3623696"]
}, Open  ]],
Cell[1612, 45, 1722, 48, 103, "Text",ExpressionUUID->"327cbc8b-297f-469b-ae4c-2b020279b4b7"],
Cell[3337, 95, 238, 5, 30, "Input",ExpressionUUID->"4839a748-53d8-4ed9-870c-693cc76c4867"],
Cell[CellGroupData[{
Cell[3600, 104, 231, 4, 54, "Subsection",ExpressionUUID->"10092bee-2c13-4ff1-b0dd-d0fd3eee466c"],
Cell[CellGroupData[{
Cell[3856, 112, 5487, 121, 416, "Input",ExpressionUUID->"8cf1c52c-097b-4692-91a6-9b2058a8e3f7"],
Cell[9346, 235, 29241, 571, 407, "Output",ExpressionUUID->"d34d96ae-a506-40d8-88d4-4164335c7fe9"]
}, Open  ]],
Cell[38602, 809, 529, 16, 81, "Text",ExpressionUUID->"f3625a49-3cae-4b78-89a2-c55ddbf7e1d7"],
Cell[CellGroupData[{
Cell[39156, 829, 2445, 59, 115, "Input",ExpressionUUID->"643d1148-ea94-4db8-88c1-97195a250196"],
Cell[41604, 890, 1372, 30, 94, "Output",ExpressionUUID->"d808e958-9bfe-4953-8299-000ec0340b57"]
}, Open  ]]
}, Open  ]]
}
]
*)