(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 20063, 540] NotebookOptionsPosition[ 19061, 503] NotebookOutlinePosition[ 19574, 523] CellTagsIndexPosition[ 19531, 520] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ m is the distance in trait value\[LineSeparator]e between optimal value and \ pop mean \[Sigma] is the standard dev of trait value distributions in the pop k is the steepness of the trait to condition function s is the survival parameter a is max female fecundity g is the strength of sexual selection t is the size of competing groups of males r is the number of repeted fitness measures for each male d is the resolution of the condition to fitness function for males, i.e. how \ many focal individuals did we consider to draw that curve.\ \>", "Text", CellChangeTimes->{{3.680492886114439*^9, 3.6804929809858656`*^9}, { 3.6804930675138144`*^9, 3.680493113729458*^9}, {3.6827664741816373`*^9, 3.6827664741816373`*^9}, {3.6827665306508675`*^9, 3.682766532361965*^9}, 3.7009719553358116`*^9, {3.7015145748337507`*^9, 3.701514577653658*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"m", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k", "=", "5"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", "25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", "10"}], ";"}]}], "Input", CellChangeTimes->{ 3.680492869628496*^9, {3.680492966155017*^9, 3.6804929837300224`*^9}, { 3.680493015602845*^9, 3.680493017713966*^9}, {3.680493050721854*^9, 3.6804930646256495`*^9}, {3.680493687246261*^9, 3.68049370086104*^9}, { 3.680583504844534*^9, 3.680583510259844*^9}, {3.680585871364891*^9, 3.680585873748028*^9}, {3.6805969269342337`*^9, 3.6805969325895567`*^9}, { 3.681017076872678*^9, 3.6810170891253786`*^9}, {3.681028023209772*^9, 3.681028023360781*^9}, 3.681030242226693*^9, {3.6810310765964165`*^9, 3.681031076683421*^9}, {3.6811016544835176`*^9, 3.681101659538807*^9}, 3.681635142263908*^9, 3.681730665308071*^9, {3.6817312268561897`*^9, 3.681731229271328*^9}, {3.6817321132978916`*^9, 3.681732113672913*^9}, { 3.6827581787101636`*^9, 3.682758179054183*^9}, {3.682911842216316*^9, 3.682911842967359*^9}, {3.685438622567035*^9, 3.685438625823221*^9}, { 3.6854398100319543`*^9, 3.68543981012696*^9}, 3.685440675233441*^9, { 3.6854417419704547`*^9, 3.685441742297474*^9}, {3.6854418543858843`*^9, 3.6854418547289042`*^9}, {3.685441960344945*^9, 3.6854419699444942`*^9}, { 3.6990896145447426`*^9, 3.6990896149607663`*^9}, {3.6991730270206633`*^9, 3.69917302749269*^9}, {3.699173073604328*^9, 3.6991730738763437`*^9}, 3.69917675007561*^9, {3.699265492336377*^9, 3.699265492720399*^9}, { 3.6993579913720193`*^9, 3.6993579920760593`*^9}, {3.6995859157895503`*^9, 3.6995859159715605`*^9}, {3.7039940111321917`*^9, 3.7039940117259426`*^9}, 3.7189547902287903`*^9}], Cell[CellGroupData[{ Cell["\<\ Distribution of trait values, condition, condition after survival.\ \>", "Subsubsection", CellChangeTimes->{{3.6804238914898357`*^9, 3.680423915025182*^9}, { 3.710139499491648*^9, 3.710139500467848*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"f", "[", RowBox[{"z_", ",", "m_", ",", "\[Sigma]_"}], "]"}], ":=", " ", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{" ", RowBox[{ FractionBox[ RowBox[{"-", "1"}], "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"z", "-", "m"}], "\[Sigma]"], ")"}], "2"]}]}]], RowBox[{"\[Sigma]", SqrtBox[ RowBox[{"2", "\[Pi]"}]]}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cond", "[", RowBox[{"z_", ",", "k_"}], "]"}], ":=", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", "z", ")"}], "2"]}], "/", "k"}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"invcond1", "[", RowBox[{"c_", ",", "k_"}], "]"}], ":=", RowBox[{ RowBox[{"-", SqrtBox["k"]}], " ", SqrtBox[ RowBox[{"Log", "[", FractionBox["1", "c"], "]"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"invcond2", "[", RowBox[{"c_", ",", "k_"}], "]"}], ":=", RowBox[{ SqrtBox["k"], " ", SqrtBox[ RowBox[{"Log", "[", FractionBox["1", "c"], "]"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fcond", "[", RowBox[{"c_", ",", "m_", ",", "\[Sigma]_", ",", "k_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"f", "[", RowBox[{ RowBox[{"invcond1", "[", RowBox[{"c", ",", "k"}], "]"}], ",", "m", ",", "\[Sigma]"}], "]"}], "+", RowBox[{"f", "[", RowBox[{ RowBox[{"invcond2", "[", RowBox[{"c", ",", "k"}], "]"}], ",", "m", ",", "\[Sigma]"}], "]"}]}], ")"}], "*", FractionBox[ SqrtBox["k"], RowBox[{"2", " ", "c", " ", SqrtBox[ RowBox[{"Log", "[", FractionBox["1", "c"], "]"}]]}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"surv", "[", RowBox[{"c_", ",", "s_"}], "]"}], ":=", RowBox[{"c", RowBox[{ RowBox[{"(", RowBox[{"s", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"s", "+", "c"}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"marginalsurv", "[", RowBox[{"c_", ",", "m_", ",", "\[Sigma]_", ",", "k_", ",", "s_"}], "]"}], ":=", RowBox[{ RowBox[{"fcond", "[", RowBox[{"c", ",", "m", ",", "\[Sigma]", ",", "k"}], "]"}], "*", RowBox[{"surv", "[", RowBox[{"c", ",", "s"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fcad", "[", RowBox[{"c_", ",", "m_", ",", "\[Sigma]_", ",", "k_", ",", "s_"}], "]"}], ":=", FractionBox[ RowBox[{"marginalsurv", "[", RowBox[{"c", ",", "m", ",", "\[Sigma]", ",", "k", ",", "s"}], "]"}], RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"marginalsurv", "[", RowBox[{"cc", ",", "m", ",", "\[Sigma]", ",", "k", ",", "s"}], "]"}], ",", RowBox[{"{", RowBox[{"cc", ",", "0", ",", "1"}], "}"}]}], "]"}]]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.753176205420808*^9, 3.7531762054298086`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Male female covariance in fitness", "Section", CellChangeTimes->{{3.7166156502864656`*^9, 3.716615660837621*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"covarmf", "[", RowBox[{"res_", ",", "rep_", ",", "g_", ",", "t_", ",", "m_", ",", "s_"}], "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"Conditions", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Densities", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"i", "=", "1"}], ",", "\[IndentingNewLine]", RowBox[{"i", "\[LessEqual]", RowBox[{"res", "-", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"Conditions", ",", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "0.5"}], ")"}], "/", "res"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"Densities", ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"fcond", "[", RowBox[{"c", ",", "m", ",", "\[Sigma]", ",", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"i", "/", "res"}], ",", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "1"}], ")"}], "/", "res"}]}], "}"}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"fc", "=", RowBox[{"ProbabilityDistribution", "[", RowBox[{ RowBox[{"fcond", "[", RowBox[{"c", ",", "m", ",", "\[Sigma]", ",", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"malefit", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Conditions", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "g", " "}], RowBox[{ RowBox[{ RowBox[{"Conditions", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "g"}], "+", RowBox[{"Total", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{"fc", ",", RowBox[{"t", "-", "1"}]}], "]"}], "^", "g"}], "]"}]}]], " ", "*", "t", "*", RowBox[{"surv", "[", RowBox[{ RowBox[{"Conditions", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "s"}], "]"}]}], ",", "rep"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"res", "-", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"femfit", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Conditions", "[", RowBox[{"[", "i", "]"}], "]"}], "*", "a", "*", RowBox[{"surv", "[", RowBox[{ RowBox[{"Conditions", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "s"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"res", "-", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"meanmalefitness", "=", RowBox[{"Densities", ".", "malefit"}]}], ";", "\[IndentingNewLine]", RowBox[{"meanfemfitness", "=", RowBox[{"Densities", ".", "femfit"}]}], ";", "\[IndentingNewLine]", RowBox[{"covar", "=", RowBox[{"Densities", ".", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"malefit", "-", "meanmalefitness"}], ")"}], "*", RowBox[{"(", RowBox[{"femfit", "-", "meanfemfitness"}], ")"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"covarrelative", "=", RowBox[{"covar", "/", RowBox[{"(", RowBox[{"meanmalefitness", "*", "meanfemfitness"}], ")"}]}]}], ";", "\[IndentingNewLine]", "covarrelative"}], ")"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.7166156722326975`*^9, 3.716615676984887*^9}, { 3.716615761316576*^9, 3.716615777808465*^9}, {3.7166158859378166`*^9, 3.716615913763827*^9}, {3.7166160174537845`*^9, 3.7166160773242283`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Males variance in relative fitness", "Section", CellChangeTimes->{{3.7101394271496973`*^9, 3.710139431746055*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"res", "=", "50"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rep", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", "2"}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.751698238911492*^9, 3.7516982564634957`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"varmales", "[", RowBox[{"res_", ",", "rep_", ",", "g_", ",", "t_", ",", "m_", ",", "s_"}], "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"Conditions", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Densities", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"i", "=", "1"}], ",", "\[IndentingNewLine]", RowBox[{"i", "\[LessEqual]", RowBox[{"res", "-", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"Conditions", ",", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "0.5"}], ")"}], "/", "res"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"Densities", ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"fcond", "[", RowBox[{"c", ",", "m", ",", "\[Sigma]", ",", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"i", "/", "res"}], ",", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "1"}], ")"}], "/", "res"}]}], "}"}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"fc", "=", RowBox[{"ProbabilityDistribution", "[", RowBox[{ RowBox[{"fcond", "[", RowBox[{"c", ",", "m", ",", "\[Sigma]", ",", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"c", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"malefit", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Mean", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"Conditions", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "g", " "}], RowBox[{ RowBox[{ RowBox[{"Conditions", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "g"}], "+", RowBox[{"Total", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{"fc", ",", RowBox[{"t", "-", "1"}]}], "]"}], "^", "g"}], "]"}]}]], " ", "*", "t", "*", RowBox[{"surv", "[", RowBox[{ RowBox[{"Conditions", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "s"}], "]"}]}], ",", "rep"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"res", "-", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"meanmalefitness", "=", RowBox[{"Densities", ".", "malefit"}]}], ";", "\[IndentingNewLine]", RowBox[{"varmalefitness", "=", RowBox[{"Densities", ".", RowBox[{ RowBox[{"(", RowBox[{"malefit", "-", "meanmalefitness"}], ")"}], "^", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"varmalerelative", "=", RowBox[{"varmalefitness", "/", RowBox[{ RowBox[{"(", "meanmalefitness", ")"}], "^", "2"}]}]}], ";", "\[IndentingNewLine]", "varmalerelative"}], ")"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.710139201607125*^9, 3.7101393257703857`*^9}, { 3.710139514423551*^9, 3.710139514709592*^9}, {3.7103185057997093`*^9, 3.7103185179116697`*^9}, {3.7111758618310523`*^9, 3.7111758653487473`*^9}, { 3.7142030093525896`*^9, 3.7142030110527973`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Females variance in relative fitness", "Section", CellChangeTimes->{{3.7531762364445825`*^9, 3.753176241988899*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"varfem", "[", RowBox[{"res_", ",", "a_", ",", "b_", ",", "m_", ",", "s_"}], "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"Conditions", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"Densities", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"i", "=", "1"}], ",", "\[IndentingNewLine]", RowBox[{"i", "\[LessEqual]", RowBox[{"res", "-", "1"}]}], ",", "\[IndentingNewLine]", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"AppendTo", "[", RowBox[{"Conditions", ",", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "0.5"}], ")"}], "/", "res"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"Densities", ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"fcond", "[", RowBox[{"c", ",", "m", ",", "\[Sigma]", ",", "k"}], "]"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"i", "/", "res"}], ",", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "1"}], ")"}], "/", "res"}]}], "}"}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"femfit", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Conditions", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "b"}], "*", "a", "*", RowBox[{"surv", "[", RowBox[{ RowBox[{"Conditions", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "s"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"res", "-", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"meanfemfitness", "=", RowBox[{"Densities", ".", "femfit"}]}], ";", "\[IndentingNewLine]", RowBox[{"varfemfitness", "=", RowBox[{"Densities", ".", RowBox[{ RowBox[{"(", RowBox[{"femfit", "-", "meanfemfitness"}], ")"}], "^", "2"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"varfemrelative", "=", RowBox[{"varfemfitness", "/", RowBox[{ RowBox[{"(", "meanfemfitness", ")"}], "^", "2"}]}]}], ";", "\[IndentingNewLine]", "varfemrelative"}], ")"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.710318316838525*^9, 3.710318468170905*^9}, { 3.7103185334213924`*^9, 3.7103185372928815`*^9}, {3.7142849789441895`*^9, 3.7142849950806537`*^9}, {3.751698862181141*^9, 3.751698871397668*^9}}] }, Open ]] }, WindowSize->{1264, 1342}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.1999999999999, 841.8}}, FrontEndVersion->"10.4 for Microsoft Windows (64-bit) (February 25, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 862, 16, 201, "Text"], Cell[1423, 38, 2144, 40, 192, "Input"], Cell[CellGroupData[{ Cell[3592, 82, 216, 4, 39, "Subsubsection"], Cell[3811, 88, 2985, 96, 390, "Input"], Cell[6799, 186, 94, 1, 31, InheritFromParent] }, Open ]], Cell[CellGroupData[{ Cell[6930, 192, 120, 1, 70, "Section"], Cell[7053, 195, 4516, 112, 523, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[11606, 312, 121, 1, 70, "Section"], Cell[11730, 315, 437, 11, 132, "Input"], Cell[12170, 328, 3867, 95, 483, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[16074, 428, 123, 1, 70, "Section"], Cell[16200, 431, 2845, 69, 372, "Input"] }, Open ]] } ] *)