(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.4' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 155628, 3438] NotebookOptionsPosition[ 154672, 3400] NotebookOutlinePosition[ 155054, 3417] CellTagsIndexPosition[ 155011, 3414] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Loop", "Section", CellChangeTimes->{{3.680876439991744*^9, 3.680876440577674*^9}}], Cell[BoxData[ RowBox[{"Loop", ":=", RowBox[{"(", RowBox[{ "For", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Array", "[", RowBox[{"AlleleFreqA", ",", "Nloci"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"AlleleFreqA", "[", "i", "]"}], "=", RowBox[{"{", "}"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nloci"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"TotalLoadA", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"AUC1A", "=", "IntroFreq2"}], ";", "\[IndentingNewLine]", RowBox[{"AUC2A", "=", "IntroFreqTotal"}], ";", "\[IndentingNewLine]", RowBox[{"AUC3A", "=", "IntroFreqTotal"}], ";", "\[IndentingNewLine]", RowBox[{"AUC4A", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"AUC5A", "=", "0"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"DiploidFitnessTable", "=", RowBox[{"Table", "[", RowBox[{"1", ",", RowBox[{"{", RowBox[{"i", ",", "NHaplotypes"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "NHaplotypes"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"BitOr", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}]}], "]"}], ",", "1"}], "]"}], "-", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"BitOr", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}]}], "]"}], ",", "2"}], "]"}]}], "==", " ", "0"}], ",", RowBox[{ RowBox[{"DiploidFitnessTable", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", "1"}], ",", RowBox[{ RowBox[{"DiploidFitnessTable", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", "tox"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "1"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "1"}], "]"}]}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"DiploidFitnessTable", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "sc"}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "1"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "1"}], "]"}]}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"DiploidFitnessTable", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", RowBox[{"(", RowBox[{"1", "-", "sc"}], ")"}]}], ",", RowBox[{ RowBox[{"DiploidFitnessTable", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", "1"}]}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NHaplotypes"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "NHaplotypes"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "1"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "1"}], "]"}]}], ")"}], ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "0"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "0"}], "]"}]}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"DiploidFitnessTable", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", "h1"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NHaplotypes"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "NHaplotypes"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "1"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "1"}], "]"}]}], ")"}], ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "3"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "3"}], "]"}]}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"DiploidFitnessTable", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", "h2"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NHaplotypes"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "NHaplotypes"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "1"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "1"}], "]"}]}], ")"}], ">", "0"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "4"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "4"}], "]"}]}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"DiploidFitnessTable", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", "h3"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NHaplotypes"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "NHaplotypes"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MaleViabilitySelection", "=", "DiploidFitnessTable"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FemaleViabilitySelection", "=", "DiploidFitnessTable"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "0"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "0"}], "]"}]}], ")"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"FemaleViabilitySelection", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "sp1"}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "0"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "0"}], "]"}]}], ")"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"FemaleViabilitySelection", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", RowBox[{"(", RowBox[{"1", "-", "sp1"}], ")"}]}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NHaplotypes"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "NHaplotypes"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "3"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "3"}], "]"}]}], ")"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"FemaleViabilitySelection", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "sp2"}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "3"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "3"}], "]"}]}], ")"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"FemaleViabilitySelection", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", RowBox[{"(", RowBox[{"1", "-", "sp2"}], ")"}]}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NHaplotypes"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "NHaplotypes"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "4"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "4"}], "]"}]}], ")"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"FemaleViabilitySelection", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "sp3"}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "4"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", "4"}], "]"}]}], ")"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"FemaleViabilitySelection", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "*=", RowBox[{"(", RowBox[{"1", "-", "sp3"}], ")"}]}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NHaplotypes"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "NHaplotypes"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MaskProb", "=", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"mask", ",", "Nloci"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"prob", "=", "1.0"}], ";", RowBox[{"z", "=", "1"}]}], ",", " ", RowBox[{"z", "<", "Nloci"}], ",", RowBox[{"z", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{"mask", ",", RowBox[{"(", RowBox[{"Nloci", "-", "z"}], ")"}]}], "]"}], "==", RowBox[{"BitGet", "[", RowBox[{"mask", ",", RowBox[{"(", RowBox[{"Nloci", "-", "z", "-", "1"}], ")"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"prob", "*=", RowBox[{"(", RowBox[{"1", "-", RowBox[{"recrate", "[", "z", "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"prob", "*=", RowBox[{"recrate", "[", "z", "]"}]}]}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ZygoteGenotypes", "=", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "mask"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"zyg1", "=", "0"}], ";", RowBox[{"zyg2", "=", "0"}], ";", RowBox[{"k", "=", "0"}]}], ",", RowBox[{"k", "<", "Nloci"}], ",", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{"mask", ",", "k"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zyg1", "=", RowBox[{"BitOr", "[", RowBox[{"zyg1", ",", RowBox[{"(", RowBox[{"BitAnd", "[", RowBox[{"i", ",", RowBox[{"(", RowBox[{"2", "^", "k"}], ")"}]}], "]"}], ")"}]}], "]"}]}], ";", RowBox[{"zyg2", "=", RowBox[{"BitOr", "[", RowBox[{"zyg2", ",", RowBox[{"(", RowBox[{"BitAnd", "[", RowBox[{"j", ",", RowBox[{"(", RowBox[{"2", "^", "k"}], ")"}]}], "]"}], ")"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zyg1", "=", RowBox[{"BitOr", "[", RowBox[{"zyg1", ",", RowBox[{"(", RowBox[{"BitAnd", "[", RowBox[{"j", ",", RowBox[{"(", RowBox[{"2", "^", "k"}], ")"}]}], "]"}], ")"}]}], "]"}]}], ";", RowBox[{"zyg2", "=", RowBox[{"BitOr", "[", RowBox[{"zyg2", ",", RowBox[{"(", RowBox[{"BitAnd", "[", RowBox[{"i", ",", RowBox[{"(", RowBox[{"2", "^", "k"}], ")"}]}], "]"}], ")"}]}], "]"}]}]}]}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"RecTable", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "NHaplotypes"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "NHaplotypes"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "NHaplotypes"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "NHaplotypes"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "0"}], ",", RowBox[{"j", "<", "NHaplotypes"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"mask", "=", "0"}], ",", RowBox[{"mask", "<", "masklim"}], ",", RowBox[{"mask", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MaskProb", "[", RowBox[{"mask", ",", "Nloci"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"zygoteProb", " ", "=", RowBox[{"0.5", "*", "prob"}]}], ";", "\[IndentingNewLine]", RowBox[{"ZygoteGenotypes", "[", RowBox[{"i", ",", "j", ",", "mask"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"RecTable", "[", RowBox[{"[", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "1"}], ")"}], ",", RowBox[{"(", RowBox[{"j", "+", "1"}], ")"}], ",", RowBox[{"(", RowBox[{"zyg1", "+", "1"}], ")"}]}], "]"}], "]"}], "+=", "zygoteProb"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"RecTable", "[", RowBox[{"[", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "1"}], ")"}], ",", RowBox[{"(", RowBox[{"j", "+", "1"}], ")"}], ",", RowBox[{"(", RowBox[{"zyg2", "+", "1"}], ")"}]}], "]"}], "]"}], "+=", "zygoteProb"}], ";"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"g", "=", "0"}]}], ",", RowBox[{"g", "<", RowBox[{"Generations", "+", "1"}]}], ",", RowBox[{"g", "++"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "=", RowBox[{"MaleGenoFreqA", "*", RowBox[{"MaleViabilitySelection", "/", RowBox[{"Total", "[", RowBox[{ RowBox[{"MaleGenoFreqA", "*", "MaleViabilitySelection"}], ",", "2"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"FemaleGenoFreqSelecA", "=", RowBox[{"FemaleGenoFreqA", "*", RowBox[{"FemaleViabilitySelection", "/", RowBox[{"Total", "[", RowBox[{ RowBox[{"FemaleGenoFreqA", "*", "FemaleViabilitySelection"}], ",", "2"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"TotalLoadt1A", "=", RowBox[{"1", "-", RowBox[{"Total", "[", RowBox[{ RowBox[{"FemaleGenoFreqA", "*", "FemaleViabilitySelection"}], ",", "2"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"g", "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", RowBox[{"1", "-", "IntroFreq1", "-", "IntroFreq2"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{"7", ",", "7"}], "]"}], "]"}], "=", "IntroFreq1"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{"8", ",", "8"}], "]"}], "]"}], "=", "IntroFreq2"}], ";", "\[IndentingNewLine]", RowBox[{"MaleGenoFreqSelecA", "=", RowBox[{"MaleGenoFreqSelecA", "/", RowBox[{"(", RowBox[{"Total", "[", RowBox[{"MaleGenoFreqSelecA", ",", "2"}], "]"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", RowBox[{"1", "-", "IntroFreq1", "-", "IntroFreq2"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{"7", ",", "7"}], "]"}], "]"}], "=", "IntroFreq1"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{"8", ",", "8"}], "]"}], "]"}], "=", "IntroFreq2"}], ";", "\[IndentingNewLine]", RowBox[{"FemaleGenoFreqSelecA", "=", RowBox[{"FemaleGenoFreqSelecA", "/", RowBox[{"(", RowBox[{"Total", "[", RowBox[{"FemaleGenoFreqSelecA", ",", "2"}], "]"}], ")"}]}]}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"g", "\[Equal]", "thresh2"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "*=", RowBox[{"(", RowBox[{"1", "-", "IntroFreq3"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{"16", ",", "16"}], "]"}], "]"}], "+=", "IntroFreq3"}], ";", "\[IndentingNewLine]", RowBox[{"MaleGenoFreqSelecA", "=", RowBox[{"MaleGenoFreqSelecA", "/", RowBox[{"(", RowBox[{"Total", "[", RowBox[{"MaleGenoFreqSelecA", ",", "2"}], "]"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FemaleGenoFreqSelecA", "*=", RowBox[{"(", RowBox[{"1", "-", "IntroFreq3"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{"16", ",", "16"}], "]"}], "]"}], "+=", "IntroFreq3"}], ";", "\[IndentingNewLine]", RowBox[{"FemaleGenoFreqSelecA", "=", RowBox[{"FemaleGenoFreqSelecA", "/", RowBox[{"(", RowBox[{"Total", "[", RowBox[{"FemaleGenoFreqSelecA", ",", "2"}], "]"}], ")"}]}]}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"g", "\[Equal]", "thresh3"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "*=", RowBox[{"(", RowBox[{"1", "-", "IntroFreq4"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{"NHaplotypes", ",", "NHaplotypes"}], "]"}], "]"}], "+=", "IntroFreq4"}], ";", "\[IndentingNewLine]", RowBox[{"MaleGenoFreqSelecA", "=", RowBox[{"MaleGenoFreqSelecA", "/", RowBox[{"(", RowBox[{"Total", "[", RowBox[{"MaleGenoFreqSelecA", ",", "2"}], "]"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"FemaleGenoFreqSelecA", "*=", RowBox[{"(", RowBox[{"1", "-", "IntroFreq4"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{"NHaplotypes", ",", "NHaplotypes"}], "]"}], "]"}], "+=", "IntroFreq4"}], ";", "\[IndentingNewLine]", RowBox[{"FemaleGenoFreqSelecA", "=", RowBox[{"FemaleGenoFreqSelecA", "/", RowBox[{"(", RowBox[{"Total", "[", RowBox[{"FemaleGenoFreqSelecA", ",", "2"}], "]"}], ")"}]}]}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"k", "=", "i"}], ";", RowBox[{"l", "=", "j"}], ";", RowBox[{"If", " ", "[", RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"BitOr", "[", RowBox[{"i", ",", "j"}], "]"}], ",", "1"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{"i", ",", "0"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{"j", ",", "0"}], "]"}]}], ")"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"k", "=", RowBox[{"BitSet", "[", RowBox[{"k", ",", "0"}], "]"}]}], ";", RowBox[{"l", "=", RowBox[{"BitSet", "[", RowBox[{"l", ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"k", "+", "1"}], ",", RowBox[{"l", "+", "1"}]}], "]"}], "]"}], "+=", RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], ";", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"NHaplotypes", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"NHaplotypes", "-", "1"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"k", "=", "i"}], ";", RowBox[{"l", "=", "j"}], ";", RowBox[{"If", " ", "[", RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"BitOr", "[", RowBox[{"i", ",", "j"}], "]"}], ",", "1"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{"i", ",", "3"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{"j", ",", "3"}], "]"}]}], ")"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"k", "=", RowBox[{"BitSet", "[", RowBox[{"k", ",", "3"}], "]"}]}], ";", RowBox[{"l", "=", RowBox[{"BitSet", "[", RowBox[{"l", ",", "3"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"k", "+", "1"}], ",", RowBox[{"l", "+", "1"}]}], "]"}], "]"}], "+=", RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], ";", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"NHaplotypes", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"NHaplotypes", "-", "1"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"k", "=", "i"}], ";", RowBox[{"l", "=", "j"}], ";", RowBox[{"If", " ", "[", RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"BitOr", "[", RowBox[{"i", ",", "j"}], "]"}], ",", "1"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{"i", ",", "4"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{"j", ",", "4"}], "]"}]}], ")"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"k", "=", RowBox[{"BitSet", "[", RowBox[{"k", ",", "4"}], "]"}]}], ";", RowBox[{"l", "=", RowBox[{"BitSet", "[", RowBox[{"l", ",", "4"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"k", "+", "1"}], ",", RowBox[{"l", "+", "1"}]}], "]"}], "]"}], "+=", RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], ";", RowBox[{ RowBox[{"MaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"NHaplotypes", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"NHaplotypes", "-", "1"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"k", "=", "i"}], ";", RowBox[{"l", "=", "j"}], ";", RowBox[{"If", " ", "[", RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"BitOr", "[", RowBox[{"i", ",", "j"}], "]"}], ",", "1"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{"i", ",", "0"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{"j", ",", "0"}], "]"}]}], ")"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"k", "=", RowBox[{"BitSet", "[", RowBox[{"k", ",", "0"}], "]"}]}], ";", RowBox[{"l", "=", RowBox[{"BitSet", "[", RowBox[{"l", ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"k", "+", "1"}], ",", RowBox[{"l", "+", "1"}]}], "]"}], "]"}], "+=", RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], ";", RowBox[{ RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"NHaplotypes", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"NHaplotypes", "-", "1"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"k", "=", "i"}], ";", RowBox[{"l", "=", "j"}], ";", RowBox[{"If", " ", "[", RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"BitOr", "[", RowBox[{"i", ",", "j"}], "]"}], ",", "1"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{"i", ",", "3"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{"j", ",", "3"}], "]"}]}], ")"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"k", "=", RowBox[{"BitSet", "[", RowBox[{"k", ",", "3"}], "]"}]}], ";", RowBox[{"l", "=", RowBox[{"BitSet", "[", RowBox[{"l", ",", "3"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"k", "+", "1"}], ",", RowBox[{"l", "+", "1"}]}], "]"}], "]"}], "+=", RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], ";", RowBox[{ RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"NHaplotypes", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"NHaplotypes", "-", "1"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"k", "=", "i"}], ";", RowBox[{"l", "=", "j"}], ";", RowBox[{"If", " ", "[", RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"BitOr", "[", RowBox[{"i", ",", "j"}], "]"}], ",", "1"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"BitGet", "[", RowBox[{"i", ",", "4"}], "]"}], "+", RowBox[{"BitGet", "[", RowBox[{"j", ",", "4"}], "]"}]}], ")"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"k", "=", RowBox[{"BitSet", "[", RowBox[{"k", ",", "4"}], "]"}]}], ";", RowBox[{"l", "=", RowBox[{"BitSet", "[", RowBox[{"l", ",", "4"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"k", "+", "1"}], ",", RowBox[{"l", "+", "1"}]}], "]"}], "]"}], "+=", RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}]}], ";", RowBox[{ RowBox[{"FemaleGenoFreqSelecA", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", RowBox[{"NHaplotypes", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", RowBox[{"NHaplotypes", "-", "1"}]}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SpermTable", "=", RowBox[{"RecTable", "*", "MaleGenoFreqSelecA"}]}], ";", "\[IndentingNewLine]", RowBox[{"EggTable", "=", RowBox[{"RecTable", "*", "FemaleGenoFreqSelecA"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SpermFreqt1A", "=", RowBox[{"Total", "[", RowBox[{"SpermTable", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"EggFreqt1A", "=", RowBox[{"Total", "[", RowBox[{"EggTable", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SpermFreqA", "=", RowBox[{"SpermFreqt1A", "/", RowBox[{"(", RowBox[{"Total", "[", "SpermFreqt1A", "]"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EggFreqA", "=", RowBox[{"EggFreqt1A", "/", RowBox[{"(", RowBox[{"Total", "[", "EggFreqt1A", "]"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MaleGenoFreqT1A", "=", RowBox[{"KroneckerProduct", "[", RowBox[{"SpermFreqA", ",", "EggFreqA"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FemaleGenoFreqT1A", "=", RowBox[{"KroneckerProduct", "[", RowBox[{"SpermFreqA", ",", "EggFreqA"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MaleGenoFreqA", "=", "MaleGenoFreqT1A"}], ";", "\[IndentingNewLine]", RowBox[{"FemaleGenoFreqA", "=", "FemaleGenoFreqT1A"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"SpermAlleleFreqT1A", "[", "i", "]"}], "=", "0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nloci"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", RowBox[{"i", "-", "1"}]}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"SpermAlleleFreqT1A", "[", "i", "]"}], "+=", RowBox[{"SpermFreqA", "[", RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nloci"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "NHaplotypes"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"EggAlleleFreqT1A", "[", "i", "]"}], "=", "0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nloci"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{ RowBox[{"j", "-", "1"}], ",", RowBox[{"i", "-", "1"}]}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"EggAlleleFreqT1A", "[", "i", "]"}], "+=", RowBox[{"EggFreqA", "[", RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nloci"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "NHaplotypes"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"AlleleFreqT1A", "[", "i", "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"SpermAlleleFreqT1A", "[", "i", "]"}], "+", RowBox[{"EggAlleleFreqT1A", "[", "i", "]"}]}], ")"}], "/", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "Nloci"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{ RowBox[{"AlleleFreqA", "[", "1", "]"}], ",", RowBox[{"AlleleFreqT1A", "[", "1", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{ RowBox[{"AlleleFreqA", "[", "2", "]"}], ",", RowBox[{"AlleleFreqT1A", "[", "2", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{ RowBox[{"AlleleFreqA", "[", "3", "]"}], ",", RowBox[{"AlleleFreqT1A", "[", "3", "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"g", "<", "thresh2"}], ",", RowBox[{"AppendTo", "[", RowBox[{ RowBox[{"AlleleFreqA", "[", "4", "]"}], ",", "Null"}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{ RowBox[{"AlleleFreqA", "[", "4", "]"}], ",", RowBox[{"AlleleFreqT1A", "[", "4", "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"g", "<", "thresh3"}], ",", RowBox[{"AppendTo", "[", RowBox[{ RowBox[{"AlleleFreqA", "[", "5", "]"}], ",", "Null"}], "]"}], ",", RowBox[{"AppendTo", "[", RowBox[{ RowBox[{"AlleleFreqA", "[", "5", "]"}], ",", RowBox[{"AlleleFreqT1A", "[", "5", "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"AUC1A", "+=", RowBox[{"AlleleFreqT1A", "[", "1", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AUC2A", "+=", RowBox[{"AlleleFreqT1A", "[", "2", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AUC3A", "+=", RowBox[{"AlleleFreqT1A", "[", "3", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AUC4A", "+=", RowBox[{"AlleleFreqT1A", "[", "4", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AUC5A", "+=", RowBox[{"AlleleFreqT1A", "[", "5", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"TotalLoadA", ",", "TotalLoadt1A"}], "]"}], ";"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ")"}]}]], "Input", CellChangeTimes->{{3.679195238472766*^9, 3.679195290229185*^9}, { 3.679195336664768*^9, 3.679195364804172*^9}, {3.679195399802265*^9, 3.6791954158717203`*^9}, {3.679195461705997*^9, 3.679195485646923*^9}, { 3.679195527714764*^9, 3.679195573368829*^9}, {3.679195922475966*^9, 3.6791959420168858`*^9}, {3.679196105912516*^9, 3.679196151384348*^9}, 3.6791968975579*^9, {3.6791969319483957`*^9, 3.679197162887766*^9}, { 3.679197381534028*^9, 3.679197390339229*^9}, {3.679197458864303*^9, 3.679197466864097*^9}, {3.67919750371981*^9, 3.679197585209832*^9}, { 3.679197624402258*^9, 3.679197637729237*^9}, {3.679203568449382*^9, 3.679203603294393*^9}, {3.679205890420905*^9, 3.679205938473055*^9}, { 3.679205984887636*^9, 3.6792059997742968`*^9}, {3.679206116320804*^9, 3.679206161186357*^9}, {3.6794081754537582`*^9, 3.67940820625259*^9}, { 3.67940853442587*^9, 3.679408593057382*^9}, {3.679408640898909*^9, 3.679408664470084*^9}, {3.679409901930099*^9, 3.679409905953642*^9}, { 3.6794099415651407`*^9, 3.679409945703527*^9}, {3.6794108201570263`*^9, 3.679410827278801*^9}, {3.6794109072626867`*^9, 3.679410909088386*^9}, { 3.679411062180499*^9, 3.6794110635418367`*^9}, 3.679411420882893*^9, { 3.6794134551771927`*^9, 3.679413485654039*^9}, {3.679417992537286*^9, 3.679418016576469*^9}, {3.679418979414535*^9, 3.679419002529429*^9}, 3.6794190354189043`*^9, {3.679419093475958*^9, 3.6794190952522783`*^9}, 3.679419314246674*^9, {3.679420151149292*^9, 3.6794202033892593`*^9}, { 3.67942034425703*^9, 3.67942034793606*^9}, {3.6802755203304996`*^9, 3.680275533702771*^9}, {3.680275661218587*^9, 3.680275672082404*^9}, { 3.680275716098983*^9, 3.680275777232111*^9}, {3.680275810228286*^9, 3.6802758371735086`*^9}, {3.680275970468361*^9, 3.680275985669724*^9}, { 3.68027603950838*^9, 3.6802762207545023`*^9}, {3.680276319399047*^9, 3.680276343802533*^9}, {3.68027652876575*^9, 3.680276571327035*^9}, { 3.6802808768856087`*^9, 3.68028089020971*^9}, {3.6804463306191597`*^9, 3.680446357864223*^9}, {3.680446433914899*^9, 3.680446434859243*^9}, 3.680451722932249*^9, 3.680451782047534*^9, {3.680527357659811*^9, 3.680527383919874*^9}, {3.68052743098487*^9, 3.6805275629570312`*^9}, { 3.680529091920483*^9, 3.680529207891753*^9}, {3.6805292412962303`*^9, 3.680529314012001*^9}, {3.680529528595521*^9, 3.680529642081966*^9}, { 3.680529702386009*^9, 3.6805297041179953`*^9}, {3.6805299730348663`*^9, 3.680530165293159*^9}, 3.680530203329508*^9, 3.680530530177824*^9, { 3.680531238824839*^9, 3.6805313134750967`*^9}, {3.6808689766113777`*^9, 3.6808689828310347`*^9}, {3.680869038126087*^9, 3.6808690442724323`*^9}, { 3.680870171465149*^9, 3.6808702827929296`*^9}, {3.680870349193787*^9, 3.6808703523306313`*^9}, 3.6808704344594173`*^9, 3.6808705064852247`*^9, 3.680871354282482*^9, 3.68087149900552*^9, {3.68087175088018*^9, 3.6808717776848373`*^9}, {3.680871826347048*^9, 3.680871836165534*^9}, { 3.68087415547255*^9, 3.680874166955637*^9}, 3.6808764644342747`*^9, { 3.681214011923746*^9, 3.6812140708424063`*^9}, {3.6812141039866943`*^9, 3.681214134203924*^9}, {3.6812143234612427`*^9, 3.681214430596898*^9}, { 3.681214484379158*^9, 3.681214554674776*^9}, {3.681214597133232*^9, 3.6812146796584673`*^9}, {3.681214877339875*^9, 3.681214985866005*^9}, { 3.6812150290347757`*^9, 3.68121505955729*^9}, 3.6812233326774387`*^9, { 3.686064577461965*^9, 3.68606462863967*^9}, {3.6860646900018387`*^9, 3.686064836760418*^9}, {3.686065011143886*^9, 3.686065011902747*^9}, { 3.6860651086052237`*^9, 3.686065124837624*^9}, 3.686065169445717*^9, { 3.686065243239951*^9, 3.68606524721564*^9}, {3.6860690499484053`*^9, 3.686069051974958*^9}, 3.686069101015026*^9, {3.686936811607036*^9, 3.686936885108459*^9}, {3.686937140232725*^9, 3.686937550622944*^9}, { 3.686937613917573*^9, 3.68693771332666*^9}, {3.688217471542123*^9, 3.6882174967980947`*^9}, {3.688236177126587*^9, 3.688236187718297*^9}, { 3.693156318368721*^9, 3.693156322391571*^9}, {3.693156356681303*^9, 3.693156386734952*^9}, {3.693156479199974*^9, 3.693156521831605*^9}, { 3.69910978479554*^9, 3.699109912382577*^9}, {3.699110061786186*^9, 3.69911007419748*^9}, {3.707495053474106*^9, 3.7074950615986032`*^9}, { 3.7074950966238832`*^9, 3.707495161732048*^9}, 3.707495194650148*^9, { 3.70749523176162*^9, 3.707495267937818*^9}, {3.7074952994134817`*^9, 3.707495371078055*^9}, 3.707495404917346*^9, {3.707496913671262*^9, 3.7074969216712837`*^9}, 3.707497024182507*^9, {3.708780680507221*^9, 3.7087808041419067`*^9}, {3.7087813958519163`*^9, 3.708781424502087*^9}, 3.708855188412068*^9, {3.709306177527074*^9, 3.7093062844335537`*^9}, 3.709306663506295*^9, {3.718155110549181*^9, 3.718155257550123*^9}, { 3.718155357447976*^9, 3.718155471386739*^9}, {3.720188583456469*^9, 3.720188590657653*^9}, 3.720188640326209*^9, {3.720188671569891*^9, 3.7201886794658546`*^9}, {3.7201887314518948`*^9, 3.720188735243024*^9}, { 3.7201888042057037`*^9, 3.720188845221197*^9}, {3.720189000366293*^9, 3.7201890118082523`*^9}, {3.720189066421164*^9, 3.720189197770381*^9}, { 3.720189293015809*^9, 3.720189410240162*^9}, {3.7201894452446213`*^9, 3.7201894785288*^9}, {3.720189521498111*^9, 3.720189566025797*^9}, { 3.720189747535471*^9, 3.720189750583943*^9}, {3.7201901222472343`*^9, 3.720190132966158*^9}, {3.7201902587758923`*^9, 3.720190259137834*^9}, { 3.720191104818693*^9, 3.720191109280902*^9}, {3.720277586233857*^9, 3.720277664172262*^9}, {3.720277697785883*^9, 3.7202777175126257`*^9}, { 3.720277785774942*^9, 3.720277810758082*^9}, {3.720277870314207*^9, 3.7202779199235353`*^9}, {3.720277961590189*^9, 3.720277997783269*^9}, { 3.720278705738782*^9, 3.720278718128124*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Multiple payload release", "Section", CellChangeTimes->{{3.68087641515726*^9, 3.680876444462661*^9}, { 3.720193314556286*^9, 3.720193320267703*^9}, {3.720193424088686*^9, 3.7201934257328997`*^9}, {3.753017299225568*^9, 3.753017306721641*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Nloci", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NGenotypes", "=", RowBox[{"3", "^", "Nloci"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NHaplotypes", "=", RowBox[{"2", "^", "Nloci"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"recrate", "[", "1", "]"}], "=", "0.5"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"recrate", "[", "2", "]"}], "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"recrate", "[", "3", "]"}], "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"recrate", "[", "4", "]"}], "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"masklim", "=", RowBox[{"2", "^", RowBox[{"(", RowBox[{"Nloci", "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tox", "=", "0"}], ";"}], RowBox[{"(*", RowBox[{ RowBox[{ "this", " ", "describes", " ", "the", " ", "level", " ", "of", " ", "toxicity", " ", "for", " ", "the", " ", "underdominance", " ", RowBox[{"toxins", ".", " ", "1"}], " ", "is", " ", "no", " ", "effect", " ", "on", " ", "fitness"}], ",", " ", RowBox[{"0", " ", "is", " ", "complete", " ", "lethality"}]}], " ", "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"thresh2", "=", "20"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"this", " ", "is", " ", "the", " ", "delay"}], ",", " ", RowBox[{"in", " ", "#", " ", "of", " ", "generations"}], ",", " ", RowBox[{"for", " ", "the", " ", "2", "nd", " ", "introduction"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"thresh3", "=", "40"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"this", " ", "is", " ", "the", " ", "delay"}], ",", " ", RowBox[{"in", " ", "#", " ", "of", " ", "generations"}], ",", " ", RowBox[{"for", " ", "the", " ", "3", "rd", " ", "introduction"}]}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Generations", "=", "100"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h1", "=", ".95"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h2", "=", ".95"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h3", "=", ".95"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.05"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sp1", "=", ".5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sp2", "=", ".5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sp3", "=", ".5"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"IntroFreqTotal", "=", "0.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"IntroFreq2", "=", "0.01"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"IntroFreq3", "=", "0.01"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"IntroFreq4", "=", "0.01"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"IntroFreq1", "=", RowBox[{"IntroFreqTotal", "-", "IntroFreq2"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MaleGenoFreqA", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NHaplotypes"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "NHaplotypes"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"MaleGenoFreqA", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FemaleGenoFreqA", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "NHaplotypes"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "NHaplotypes"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FemaleGenoFreqA", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "1"}], ";"}]}], "Input", CellChangeTimes->{{3.681214761291274*^9, 3.681214793483444*^9}, { 3.681214829953525*^9, 3.681214830560564*^9}, 3.6812148669542103`*^9, { 3.681215288505467*^9, 3.681215294680584*^9}, {3.681215616209691*^9, 3.681215625857429*^9}, {3.681223355039247*^9, 3.681223359646871*^9}, { 3.686065044925506*^9, 3.686065047388232*^9}, 3.686065307981388*^9, { 3.6860654687468*^9, 3.686065471082625*^9}, {3.686069983498103*^9, 3.686069998201858*^9}, 3.6860700505717916`*^9, {3.686070096517373*^9, 3.686070122238496*^9}, 3.68693773996318*^9, {3.6870930968568497`*^9, 3.687093098721877*^9}, {3.6882359088800173`*^9, 3.6882359489994698`*^9}, 3.688236118568329*^9, 3.6882362186032743`*^9, {3.688313652779181*^9, 3.688313652959963*^9}, 3.68831395585258*^9, 3.688318676229398*^9, { 3.69910998436487*^9, 3.69910998497022*^9}, {3.707495457340341*^9, 3.707495571142981*^9}, {3.70749587240558*^9, 3.7074959175338583`*^9}, { 3.707496136998891*^9, 3.707496137509008*^9}, {3.707497098460547*^9, 3.707497098634542*^9}, {3.707660613900374*^9, 3.707660614066877*^9}, { 3.7076607606128063`*^9, 3.7076607607277527`*^9}, {3.707661318436943*^9, 3.707661318538764*^9}, {3.7087805871688137`*^9, 3.7087805893605633`*^9}, 3.708780838226234*^9, {3.7087808814561577`*^9, 3.708780893067851*^9}, { 3.708781447184785*^9, 3.708781451486495*^9}, {3.70930630337503*^9, 3.7093063056443033`*^9}, {3.718155282646406*^9, 3.718155335958982*^9}, { 3.718155801750783*^9, 3.718155806390995*^9}, {3.720189581808208*^9, 3.720189708748077*^9}, {3.720189780532617*^9, 3.720189822274624*^9}, { 3.7201898639360027`*^9, 3.7201898912399197`*^9}, {3.720189935198379*^9, 3.720189936214978*^9}, {3.720190215211566*^9, 3.720190217197298*^9}, { 3.7201914667200613`*^9, 3.7201914669033003`*^9}, {3.7201916955258427`*^9, 3.720191695712029*^9}, {3.720191765629345*^9, 3.720191765755547*^9}, { 3.72019184106605*^9, 3.720191867735126*^9}, {3.720192085506054*^9, 3.720192143287999*^9}, {3.720278617578404*^9, 3.720278683657895*^9}, { 3.720278738048242*^9, 3.7202787455494432`*^9}, {3.720278910982375*^9, 3.7202789305190887`*^9}, 3.720279000921525*^9, {3.746273850416418*^9, 3.746273851542577*^9}}], Cell[BoxData[ RowBox[{"Loop", ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Fig3", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AlleleFreqA", "[", "3", "]"}], ",", RowBox[{"AlleleFreqA", "[", "2", "]"}], ",", RowBox[{"AlleleFreqA", "[", "1", "]"}], ",", RowBox[{"AlleleFreqA", "[", "4", "]"}], ",", RowBox[{"AlleleFreqA", "[", "5", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "Generations"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1.000000000000001"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Darker", "[", "Green", "]"}], ",", "Dashed", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Darker", "[", "Green", "]"}], ",", " ", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Purple", ",", " ", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Blue", ",", "Thick"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Orange", ",", "Thick"}], "]"}]}], "}"}]}], ",", RowBox[{"FrameStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"20", ",", "Black"}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"480", ",", "260"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"thresh2", "+", "1"}], ",", RowBox[{"thresh3", "+", "1"}]}], "}"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", "Thick", ",", "Dashed"}], "]"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"\"\\"Italic\"]]\))\>\"", ",", "\"\\"Italic\"]]\))\>\"", ",", "\"\\"Italic\"]]\))\>\"", ",", "\"\\"Italic\"]]\))\>\"", ",", "\"\\"Italic\"]]\))\>\""}], "}"}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"22", ",", "5"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"Right", ",", "Center"}], "}"}]}], "]"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input",\ CellChangeTimes->{{3.706017466510227*^9, 3.706017483197239*^9}, { 3.706019850882448*^9, 3.706020017202558*^9}, {3.7064605981988163`*^9, 3.7064606188581953`*^9}, {3.70646065006726*^9, 3.706460676117549*^9}, { 3.7074893780533237`*^9, 3.7074894020918217`*^9}, 3.707489439839303*^9, { 3.708854668760016*^9, 3.70885470858095*^9}, {3.7094803836660233`*^9, 3.709480386032819*^9}, {3.709480453715109*^9, 3.7094805275480957`*^9}, { 3.709480573287184*^9, 3.709480627334012*^9}, {3.709480706360052*^9, 3.709480735328253*^9}, {3.709480778395*^9, 3.709480797033538*^9}, { 3.7094808571952887`*^9, 3.7094809504131117`*^9}, {3.7094810199687147`*^9, 3.709481045135603*^9}, {3.7094810938103743`*^9, 3.709481109868156*^9}, { 3.7105149320084763`*^9, 3.710514935288085*^9}, {3.710515011251625*^9, 3.71051502323452*^9}, {3.710515053395351*^9, 3.710515054019389*^9}, { 3.7105157358228073`*^9, 3.710515827391714*^9}, {3.710515893077767*^9, 3.7105159142259007`*^9}, {3.710515956459557*^9, 3.710516035493133*^9}, 3.710519795293503*^9, {3.710519843174103*^9, 3.710519866485045*^9}, { 3.7105199003898973`*^9, 3.7105199028137007`*^9}, {3.710678565406893*^9, 3.7106785696618967`*^9}, {3.710678772484674*^9, 3.710678791180924*^9}, { 3.710678872142364*^9, 3.710678918173605*^9}, {3.710678965409684*^9, 3.710679074376237*^9}, {3.710679104688809*^9, 3.7106791356891403`*^9}, { 3.710679179098197*^9, 3.710679205188449*^9}, {3.710679276117779*^9, 3.71067933456509*^9}, {3.710679666045265*^9, 3.710679666451285*^9}, { 3.710679812488096*^9, 3.710679813478327*^9}, 3.710679880800755*^9, 3.710769704040111*^9, {3.710770344051784*^9, 3.7107703934417353`*^9}, { 3.710770517331463*^9, 3.7107705470980873`*^9}, {3.710770679629447*^9, 3.71077067980523*^9}, {3.7107707298916073`*^9, 3.7107707455418787`*^9}, { 3.715963654465*^9, 3.715963771260626*^9}, 3.717257715103157*^9, { 3.720189977782709*^9, 3.720190056264472*^9}, {3.720190174088951*^9, 3.720190180421835*^9}, {3.720191982633173*^9, 3.7201920094771013`*^9}, { 3.720193224277413*^9, 3.720193224405727*^9}, {3.720278772648109*^9, 3.7202788060959873`*^9}, {3.720278854314345*^9, 3.720278861913896*^9}, { 3.720279045700594*^9, 3.720279048155809*^9}, {3.720279328713835*^9, 3.720279336128574*^9}, {3.720279407644779*^9, 3.7202794122760963`*^9}, { 3.72027979224675*^9, 3.720279792542067*^9}, {3.720279838776916*^9, 3.720279865119706*^9}, {3.720280001622431*^9, 3.720280100499007*^9}, { 3.720280146558228*^9, 3.720280160220808*^9}, {3.7202802150888643`*^9, 3.720280215839113*^9}, {3.72028128548347*^9, 3.7202812978352337`*^9}, 3.7202816051475677`*^9, {3.720283312344222*^9, 3.7202833124947777`*^9}, { 3.720283381418483*^9, 3.720283382048409*^9}, 3.7202834996321507`*^9, { 3.7202835774818983`*^9, 3.720283598845282*^9}, {3.743782685631034*^9, 3.7437826914102087`*^9}, {3.7437827327546062`*^9, 3.743782865607829*^9}, { 3.743782933762909*^9, 3.743783057289917*^9}, 3.746135055221299*^9, { 3.746135118906899*^9, 3.746135275513927*^9}, {3.746135326626026*^9, 3.74613541582127*^9}, {3.7461355468457537`*^9, 3.746135565703237*^9}, 3.746135627766329*^9, 3.74613580828253*^9, {3.746135962321464*^9, 3.746135968040269*^9}, {3.746135998177609*^9, 3.7461360748050823`*^9}}], Cell[BoxData[ TagBox[ GraphicsBox[{{{}, {{}, {}, {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], PointSize[ 0.007333333333333334], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw1iwtM02cUR4kPqMwszqJQwxziVhFplVd5lMePZ6GAlBZamAEDwgy4jAhF UMJDdI6BE1QQqTqhg4qgAbaxFAJbYYhDWCXCxMFkgANxMMGJM9QHm9n/3uTL zfnOPVsSUqVJK4yMjJL+e2/2/7Pgrap8M796Mx/om/TdV2RNzMKSbfpBiXyU 4XXIX702IbZ4jGEz3KnqPi+TTDBsgcvtO3tmNQ8YtkTXzBHO4vMphq0wNvl7 X8bcQ4at0Zz8R/lY4iOG30fqZMv3uow/GebCbe67uzNeswzbwJOtajK5R2yL 2NS7NizJHMN2iA9PtnRvIubj2qUAxS+viXdBnfOy0Bl/MWyPMsFvgSmZxA5Y XNC/VaMhdsSWk1dGcm4TO2HagTew4ymxM8Yt45WF5o8ZFmCTtHYV24HYBYIl wYSxmNgVI3HP2tr2ErvBQ4OMzHRidxT4Ov1z5FNiIbh8EzNDObEHDIe1Zta1 xJ5o56mnOd8Qe4HL8tm8UkfsjXV6oxZDHzHQXHIvmzPMcD5g+fx6pnKCvA/e 1rUMvztL3gf1SR85cxfJ+2Lo9NFrF1+S98Wt7teqU6vmGe8Hr8TcWyZrGc73 w3hdwtX1bPL+qBIqsrUc8v4Y7vn2sZc1+QAEChM9G7eRD0DufWXrvB35QGzY w9m8bE8+ECvc8kT3BeRFcBKyHhQJyYug8avYtQbkg8C7YLgT408+CFmf1zXk BpEPRt2PaW2HQ8kHQ6uwfRoqIS+GIe7miyUZeTE2ttasLFCQD4E63ok//SH5 EPSbsGxs4siH4uzw6fHgePKhKBCH8MISyYdhRm/U6biffBic59r4y8nkd+Nm Q8Vc08fkd4M3KJeLU8mHw9hF3dh/kHw4VPJNXDcleQl+CuYPlh5iGBLUb7zR MZRF9xJItR2jq7MZ1kngniZmf5BDfQTOZO7wcMyjPgKmn/Rb2R+lPgLzU6K8 945RHwF+gcx0+Tj1UhxwNU8ZOEG9FAO9TzzKCqmXokNuZxFSRL0UD7VfFj4r pl4GM6tAdtkX1MvQ7nfbeVsJ9TIsyTfsbyylXoa9/efMeWeoj8SJkfHmqrPU R8Ki8m+VaTn1kVifdd7hwDnqI8H7QTfYVUF9FBaae4feqaQ+CvlTvZ9Fq6iP gkw06F5xgfoojIjsXfUXqZdjsVTd8+oS9XLs05zazr1MvRx1N1yqRVXUy9El fZSSUE29Ak4WWzsPqalXIFfVOXr8K+oViGndunCyhnoFjIfC7EtqqY8Gv9p0 oFhDfTT002teFFyhPho/u78aU9ZRH43YJ19r4q9SHwPxnp3ZwfXUxyAtvfuY XcO8979r/fHq "]]}, {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], PointSize[ 0.007333333333333334], Thickness[Large], LineBox[CompressedData[" 1:eJw1ywlQlGUcx3EgFQQydmXzAOKsVUAQFFrl+rHicgq7LMsuYSgUlcQUWMnM ArpcjrEzjuyWCgiKMelwWpEwIoRtoYMUR4DcySoQyDkMg4RAOb7/Z+adZz7v 9/lZx30eHq+no6MT///38n515nwK8l+ePh/mBx5q+R/k2pAN8FikcrPxG2Bs gqP3eBNdicOMTZHsNvvzMY8Rxttx1lNhFqN8wtgcu7asVtzsGmVsBdO1QclM 0zhjG6hG67LOukwwtkPx189TVB6TjN9B0PvvxS6vkXeBp2vFDlY/Y2wP1emE Bj/9KcaOuBp7vfX1D8lOuPNv5593q8l7cSbHeVQ1Q3ZBzaDeCaXtNGNXbJqb zr0vJO/DuLb1+54U8n4cH9849CSf7IZBTTOrvIHsjjljryJ1D/ldaCaiv2JN k3mQaXP2nNSdYXwAjf9c0SxtJR8Eu+/yZL8d2QMd5/bkhOwne2KDR0rbKT7Z Cxb3zaNOh5G9YWjQ0pUZTfZB3l75D1c/IgMNd6WJU0mMFUDv0PPBNDl1X4jj Wd5xWdR94dlzKbVCSZ2PF47eDglq6nwMc/e53yygfghXPnmxllxC/RCCv6i6 3HGDuh8OdPQttlVS90N++1rMg9vUDyN4vvOxpJ76Ycjrjaqbf6EuQOo6N43z G3UB0ro/2+zzgLo/BEPXSn1bqfvj242ljebt1ANwg2Nd0P4X9QBUczKMYx5R D8QtV5GguZ96IBJUw+cNh6kHYWZnzIjDCPUgZHw5/5P9U+rB+KayME9/nHow Mlttn2omqIegbKwtO3aKeggSnUx52hnqR5ArZ5X4z1M/goDlaD/1AvVQeGnq cpsXqYdiR/0FjXaJehgGFq25E8vUw1BRldLbv0JdCHa+83jdKmMI8WkSW5S9 Tu+FwED2a966s6/cJITMpHtwTI+xjghm5icqz2xgDBEWd3fwNm9irBBh8mGT e7Y+7UWw+HtePG9A+3C0H11wFRnSPhy/2owllhrRPhxTGbtVz4xpHw6O07I9 dwvtxfBfWa2VvkF7MfSqOn9MN6G9GOr19PP5LNqLkd6nrS1n0z4C9tXcizVb aR8Bu985yhpT2kdgzDJ5oZxD+wgI7gVyC9+kvQTdLQJ55jbaS1BtPOURt532 EgzL+2sP7qC9BC1LRu7GO2kfCeUjw5UeMiKReurtgEIz2kfCwa04Osqc9pHg 2PUmsSxoL0XtdUWThgwpypxvK5Leor0Uf5Q4jm6zpL0U362GWt4h68iQxzkW I7WivQxFluq2WbJChsaPXYqzrGkvw0l+2QLbhvZRCD1+a6mIjChcuBbWbmc7 6/Mf0vD4jg== "]]}, {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], Thickness[ Large], LineBox[CompressedData[" 1:eJxd0k9Ik2EcwPGfwzIItMNAwcASkYjIaX+srdqvZZo2l9uaTgIVYexWd/Xw HqK6KKLSQfBUEJiIXjyEh+fgQIRAQQQVAjsEIbSgoEvyVuyZ7f2+MF4++z4/ 3j/Pe374WSLjE5HM39+/c+H4Hh71L3YcjDwP2z90Kr/wYiw+aX1KZzbG3+2H Zq3P6Mr60f6P12+t/fqq1imrHlyyrtH5qqlf2ScfrM9qJBio3GrKWZ/TtZND OVndtK7XvYb0ib25XesGbc8fZrvnP1s3amPzm01f3VfrC1q+nR2YO/3N+qJO Zyo+1e3krS/p+6cvh5bdoi9rcOLjF/fYARXfkvvfzRqpd0vcoj+PSn1Ff7ul vqrF91Y4X4Ovw63wDfgmHIRD6nqufwv9NnwHDsPqtQPLXXRYIuiw3EOHpU3L PL0N/T7mYWlHh6UDHZYH6LB0osPShQ7LQ3RYouhR7/uQbnRYYugxfB+P0GHp 8VphBzawxDEfx36iG1gS3vWawPVhg/WS9D6vJjGf9K436PIY9w87sIElhfkU nh/dpLA/vZiHHdj0Yr4P87ADG1jSmE/j/mGD9dKP/es/7n8ASwQg+A== "]]}, {RGBColor[0, 0, 1], PointSize[0.007333333333333334], Thickness[Large], LineBox[CompressedData[" 1:eJxd0T0sA2Ecx/E/EWMH0Y0mzBYD9Vb990VbtKXXd9IIwWARCREiXFKDmJow oBPRwSLtKoZnsogEi2iiIhKJJq2uFof08XK/Sy6XT77PP/fcPS1T88pMLREF vu7vZ/Xq4LXGU/fT6qa16k5uM1RO2rMpaTO3JsfGdwxp6S4OGuvvJ/IZ6W5O Jpdz0d2cdA+Xig0PBdO5dC9b1rOuOc+FdB+XX3wLV5M30hYupo43Vqbz0v1c SFwemJqepa18eF2nGLdepZkXS2d05yhXrTKHzJmj5sc32W28tz+buNWkVRtv L6U17cdkZ8+79mfVzh/aP5ODq8+K7GByco2uO6EPwDyYXNDB5IYOJg90MA1C B9MQdDANQweTF7pX/z/IBx1Mfuh+1nT/fwQ6mEb1ZrAKFmAKwHwAzhO6AJOi X88KvB8sYD0F9d/LQZgP6tcL6BSC/YNVsABTGObD8P3QRRjOJwLzYBUsIjAf hXmwChZgisF8DPYPFrCe4nB+8d/+CZS78r0= "]]}, {RGBColor[1, 0.5, 0], PointSize[0.007333333333333334], Thickness[Large], LineBox[CompressedData[" 1:eJxdkU0oRFEYhj82NpbGLKyEkg2lZOHnW5i582eYe82YyU4slFKIksVRVreU hTKxsLKwUZKFUKeUjRWldPNzzYZRfptsNF3MHMx9b53uec7zved8p1M7PKGP lhNR5/f4+Rc+0cPzVdva3dxid3HBx3V2jTmSXi6y8HHje1vl6uWa8n627h9b slubyvt5yTj2VozvKK9x7u26qevmQHmNM9PWbEP1ifIB9tgLG+0dZ8oH2Mqb Tx/NlvJBnrmoz2c/M8oH+WFySLPHssqHWF/f2821Pisf4kOv53b/6kX5MB+l hTh1FIswn6+YjvPLFOEpx/lnEeGywuRV+V6mUhbAFAUfZad0P+oDD0z9bmZg ASyBKQb5mLt/AV4Ck+6uZx3OB5ZQT4b7vmxA3nDXS/A0AP0DC2AJTHHIx+H+ 4GUc3icBeWABLBOQH4Q8sACWwJSEfBL6B5ZQTyl4v9Sf/wL0g8+I "]]}}, {}}, InsetBox[ TemplateBox[{ "\"UD construct w/o Cas (\\!\\(\\*SubscriptBox[\\\"A\\\", \\n StyleBox[\ \\\"t\\\",\\nFontSlant->\\\"Italic\\\"]]\\))\"", "\"UD construct with Cas (\\!\\(\\*SubscriptBox[\\\"B\\\", \\n \ StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"]]\\))\"", "\"Payload 1 (\\!\\(\\*SubscriptBox[\\\"C\\\", \\n StyleBox[\\\"t\\\",\ \\nFontSlant->\\\"Italic\\\"]]\\))\"", "\"Payload 2 (\\!\\(\\*SubscriptBox[\\\"D\\\", \\n StyleBox[\\\"t\\\",\ \\nFontSlant->\\\"Italic\\\"]]\\))\"", "\"Payload 3 (\\!\\(\\*SubscriptBox[\\\"E\\\", \\n StyleBox[\\\"t\\\",\ \\nFontSlant->\\\"Italic\\\"]]\\))\""}, "LineLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Dashing[{Small, Small}], Thickness[Large]], { LineBox[{{0, 5}, {22, 5}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Dashing[{Small, Small}], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {22, 5}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.4580000000000001] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large]], { LineBox[{{0, 5}, {22, 5}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {22, 5}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.4580000000000001] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0.5, 0, 0.5], Thickness[Large]], { LineBox[{{0, 5}, {22, 5}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0.5, 0, 0.5], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {22, 5}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.4580000000000001] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], { LineBox[{{0, 5}, {22, 5}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {22, 5}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.4580000000000001] -> Baseline)], #4}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0.5, 0], Thickness[Large]], { LineBox[{{0, 5}, {22, 5}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0.5, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {22, 5}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.4580000000000001] -> Baseline)], #5}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}} ], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontSize -> 14, FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, Rational[2, 3], 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 2/3, 0]"], 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, Rational[2, 3], 0]; 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, Rational[2, 3], 0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, Rational[2, 3], 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 2/3, 0]"], 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, Rational[2, 3], 0]; 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, Rational[2, 3], 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.5, 0, 0.5], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.33333333333333337`, 0., 0.33333333333333337`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.5, 0, 0.5]"], 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.5, 0, 0.5]; 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.5, 0, 0.5], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 0, 1]"], 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, 0, 1]; 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, 0, 1], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0.5, 0]"], 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[1, 0.5, 0]; 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[1, 0.5, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"22", ",", "5"}], "}"}]}]}], "]"}]& )], Scaled[{0.99, 0.5}], ImageScaled[{1, 0.5}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[ Rational[1, 2], 0.5], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.495, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameStyle->Directive[20, GrayLevel[0]], FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{21, 41}, {21, 41}}, GridLinesStyle->Directive[ GrayLevel[0.5], Thickness[Large], Dashing[{Small, Small}]], ImagePadding->All, ImageSize->{480, 260}, LabelStyle->14, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1, 100}, {0, 1.000000000000001}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0, Rational[2, 3], 0], Dashing[{Small, Small}], Thickness[Large]], Line[CompressedData[" 1:eJw1iwtM02cUR4kPqMwszqJQwxziVhFplVd5lMePZ6GAlBZamAEDwgy4jAhF UMJDdI6BE1QQqTqhg4qgAbaxFAJbYYhDWCXCxMFkgANxMMGJM9QHm9n/3uTL zfnOPVsSUqVJK4yMjJL+e2/2/7Pgrap8M796Mx/om/TdV2RNzMKSbfpBiXyU 4XXIX702IbZ4jGEz3KnqPi+TTDBsgcvtO3tmNQ8YtkTXzBHO4vMphq0wNvl7 X8bcQ4at0Zz8R/lY4iOG30fqZMv3uow/GebCbe67uzNeswzbwJOtajK5R2yL 2NS7NizJHMN2iA9PtnRvIubj2qUAxS+viXdBnfOy0Bl/MWyPMsFvgSmZxA5Y XNC/VaMhdsSWk1dGcm4TO2HagTew4ymxM8Yt45WF5o8ZFmCTtHYV24HYBYIl wYSxmNgVI3HP2tr2ErvBQ4OMzHRidxT4Ov1z5FNiIbh8EzNDObEHDIe1Zta1 xJ5o56mnOd8Qe4HL8tm8UkfsjXV6oxZDHzHQXHIvmzPMcD5g+fx6pnKCvA/e 1rUMvztL3gf1SR85cxfJ+2Lo9NFrF1+S98Wt7teqU6vmGe8Hr8TcWyZrGc73 w3hdwtX1bPL+qBIqsrUc8v4Y7vn2sZc1+QAEChM9G7eRD0DufWXrvB35QGzY w9m8bE8+ECvc8kT3BeRFcBKyHhQJyYug8avYtQbkg8C7YLgT408+CFmf1zXk BpEPRt2PaW2HQ8kHQ6uwfRoqIS+GIe7miyUZeTE2ttasLFCQD4E63ok//SH5 EPSbsGxs4siH4uzw6fHgePKhKBCH8MISyYdhRm/U6biffBic59r4y8nkd+Nm Q8Vc08fkd4M3KJeLU8mHw9hF3dh/kHw4VPJNXDcleQl+CuYPlh5iGBLUb7zR MZRF9xJItR2jq7MZ1kngniZmf5BDfQTOZO7wcMyjPgKmn/Rb2R+lPgLzU6K8 945RHwF+gcx0+Tj1UhxwNU8ZOEG9FAO9TzzKCqmXokNuZxFSRL0UD7VfFj4r pl4GM6tAdtkX1MvQ7nfbeVsJ9TIsyTfsbyylXoa9/efMeWeoj8SJkfHmqrPU R8Ki8m+VaTn1kVifdd7hwDnqI8H7QTfYVUF9FBaae4feqaQ+CvlTvZ9Fq6iP gkw06F5xgfoojIjsXfUXqZdjsVTd8+oS9XLs05zazr1MvRx1N1yqRVXUy9El fZSSUE29Ak4WWzsPqalXIFfVOXr8K+oViGndunCyhnoFjIfC7EtqqY8Gv9p0 oFhDfTT002teFFyhPho/u78aU9ZRH43YJ19r4q9SHwPxnp3ZwfXUxyAtvfuY XcO8979r/fHq "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0, Rational[2, 3], 0], Thickness[Large]], Line[CompressedData[" 1:eJw1ywlQlGUcx3EgFQQydmXzAOKsVUAQFFrl+rHicgq7LMsuYSgUlcQUWMnM ArpcjrEzjuyWCgiKMelwWpEwIoRtoYMUR4DcySoQyDkMg4RAOb7/Z+adZz7v 9/lZx30eHq+no6MT///38n515nwK8l+ePh/mBx5q+R/k2pAN8FikcrPxG2Bs gqP3eBNdicOMTZHsNvvzMY8Rxttx1lNhFqN8wtgcu7asVtzsGmVsBdO1QclM 0zhjG6hG67LOukwwtkPx189TVB6TjN9B0PvvxS6vkXeBp2vFDlY/Y2wP1emE Bj/9KcaOuBp7vfX1D8lOuPNv5593q8l7cSbHeVQ1Q3ZBzaDeCaXtNGNXbJqb zr0vJO/DuLb1+54U8n4cH9849CSf7IZBTTOrvIHsjjljryJ1D/ldaCaiv2JN k3mQaXP2nNSdYXwAjf9c0SxtJR8Eu+/yZL8d2QMd5/bkhOwne2KDR0rbKT7Z Cxb3zaNOh5G9YWjQ0pUZTfZB3l75D1c/IgMNd6WJU0mMFUDv0PPBNDl1X4jj Wd5xWdR94dlzKbVCSZ2PF47eDglq6nwMc/e53yygfghXPnmxllxC/RCCv6i6 3HGDuh8OdPQttlVS90N++1rMg9vUDyN4vvOxpJ76Ycjrjaqbf6EuQOo6N43z G3UB0ro/2+zzgLo/BEPXSn1bqfvj242ljebt1ANwg2Nd0P4X9QBUczKMYx5R D8QtV5GguZ96IBJUw+cNh6kHYWZnzIjDCPUgZHw5/5P9U+rB+KayME9/nHow Mlttn2omqIegbKwtO3aKeggSnUx52hnqR5ArZ5X4z1M/goDlaD/1AvVQeGnq cpsXqYdiR/0FjXaJehgGFq25E8vUw1BRldLbv0JdCHa+83jdKmMI8WkSW5S9 Tu+FwED2a966s6/cJITMpHtwTI+xjghm5icqz2xgDBEWd3fwNm9irBBh8mGT e7Y+7UWw+HtePG9A+3C0H11wFRnSPhy/2owllhrRPhxTGbtVz4xpHw6O07I9 dwvtxfBfWa2VvkF7MfSqOn9MN6G9GOr19PP5LNqLkd6nrS1n0z4C9tXcizVb aR8Bu985yhpT2kdgzDJ5oZxD+wgI7gVyC9+kvQTdLQJ55jbaS1BtPOURt532 EgzL+2sP7qC9BC1LRu7GO2kfCeUjw5UeMiKReurtgEIz2kfCwa04Osqc9pHg 2PUmsSxoL0XtdUWThgwpypxvK5Leor0Uf5Q4jm6zpL0U362GWt4h68iQxzkW I7WivQxFluq2WbJChsaPXYqzrGkvw0l+2QLbhvZRCD1+a6mIjChcuBbWbmc7 6/Mf0vD4jg== "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0.5, 0, 0.5], Thickness[Large]], Line[CompressedData[" 1:eJxd0k9Ik2EcwPGfwzIItMNAwcASkYjIaX+srdqvZZo2l9uaTgIVYexWd/Xw HqK6KKLSQfBUEJiIXjyEh+fgQIRAQQQVAjsEIbSgoEvyVuyZ7f2+MF4++z4/ 3j/Pe374WSLjE5HM39+/c+H4Hh71L3YcjDwP2z90Kr/wYiw+aX1KZzbG3+2H Zq3P6Mr60f6P12+t/fqq1imrHlyyrtH5qqlf2ScfrM9qJBio3GrKWZ/TtZND OVndtK7XvYb0ib25XesGbc8fZrvnP1s3amPzm01f3VfrC1q+nR2YO/3N+qJO Zyo+1e3krS/p+6cvh5bdoi9rcOLjF/fYARXfkvvfzRqpd0vcoj+PSn1Ff7ul vqrF91Y4X4Ovw63wDfgmHIRD6nqufwv9NnwHDsPqtQPLXXRYIuiw3EOHpU3L PL0N/T7mYWlHh6UDHZYH6LB0osPShQ7LQ3RYouhR7/uQbnRYYugxfB+P0GHp 8VphBzawxDEfx36iG1gS3vWawPVhg/WS9D6vJjGf9K436PIY9w87sIElhfkU nh/dpLA/vZiHHdj0Yr4P87ADG1jSmE/j/mGD9dKP/es/7n8ASwQg+A== "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], Line[CompressedData[" 1:eJxd0T0sA2Ecx/E/EWMH0Y0mzBYD9Vb990VbtKXXd9IIwWARCREiXFKDmJow oBPRwSLtKoZnsogEi2iiIhKJJq2uFof08XK/Sy6XT77PP/fcPS1T88pMLREF vu7vZ/Xq4LXGU/fT6qa16k5uM1RO2rMpaTO3JsfGdwxp6S4OGuvvJ/IZ6W5O Jpdz0d2cdA+Xig0PBdO5dC9b1rOuOc+FdB+XX3wLV5M30hYupo43Vqbz0v1c SFwemJqepa18eF2nGLdepZkXS2d05yhXrTKHzJmj5sc32W28tz+buNWkVRtv L6U17cdkZ8+79mfVzh/aP5ODq8+K7GByco2uO6EPwDyYXNDB5IYOJg90MA1C B9MQdDANQweTF7pX/z/IBx1Mfuh+1nT/fwQ6mEb1ZrAKFmAKwHwAzhO6AJOi X88KvB8sYD0F9d/LQZgP6tcL6BSC/YNVsABTGObD8P3QRRjOJwLzYBUsIjAf hXmwChZgisF8DPYPFrCe4nB+8d/+CZS78r0= "]]}, { Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[1, 0.5, 0], Thickness[Large]], Line[CompressedData[" 1:eJxdkU0oRFEYhj82NpbGLKyEkg2lZOHnW5i582eYe82YyU4slFKIksVRVreU hTKxsLKwUZKFUKeUjRWldPNzzYZRfptsNF3MHMx9b53uec7zved8p1M7PKGP lhNR5/f4+Rc+0cPzVdva3dxid3HBx3V2jTmSXi6y8HHje1vl6uWa8n627h9b slubyvt5yTj2VozvKK9x7u26qevmQHmNM9PWbEP1ifIB9tgLG+0dZ8oH2Mqb Tx/NlvJBnrmoz2c/M8oH+WFySLPHssqHWF/f2821Pisf4kOv53b/6kX5MB+l hTh1FIswn6+YjvPLFOEpx/lnEeGywuRV+V6mUhbAFAUfZad0P+oDD0z9bmZg ASyBKQb5mLt/AV4Ck+6uZx3OB5ZQT4b7vmxA3nDXS/A0AP0DC2AJTHHIx+H+ 4GUc3icBeWABLBOQH4Q8sACWwJSEfBL6B5ZQTyl4v9Sf/wL0g8+I "]]}}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, AxesOrigin -> {1.495, 0}, PlotRange -> {{1, 100}, {0, 1.000000000000001}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> Rational[1, 2], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {1.495, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[20, GrayLevel[0]], FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {{21, 41}, {21, 41}}, GridLinesStyle -> Directive[ GrayLevel[0.5], Thickness[Large], Dashing[{Small, Small}]], ImageSize -> {480, 260}, LabelStyle -> 14, Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1, 100}, {0, 1.000000000000001}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ LineLegend[{ Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0, Rational[2, 3], 0], Dashing[{Small, Small}], Thickness[Large]], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0, Rational[2, 3], 0], Thickness[Large]], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0.5, 0, 0.5], Thickness[Large]], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[1, 0.5, 0], Thickness[Large]]}, { "UD construct w/o Cas (\!\(\*SubscriptBox[\"A\", \n StyleBox[\"t\",\n\ FontSlant->\"Italic\"]]\))", "UD construct with Cas (\!\(\*SubscriptBox[\"B\", \n StyleBox[\"t\",\n\ FontSlant->\"Italic\"]]\))", "Payload 1 (\!\(\*SubscriptBox[\"C\", \n StyleBox[\"t\",\nFontSlant->\ \"Italic\"]]\))", "Payload 2 (\!\(\*SubscriptBox[\"D\", \n StyleBox[\"t\",\nFontSlant->\ \"Italic\"]]\))", "Payload 3 (\!\(\*SubscriptBox[\"E\", \n StyleBox[\"t\",\nFontSlant->\ \"Italic\"]]\))"}, LegendMarkers -> {{False, Automatic}, {False, Automatic}, { False, Automatic}, {False, Automatic}, {False, Automatic}}, Joined -> {True, True, True, True, True}, LabelStyle -> 14, LegendLayout -> "Column", LegendMarkerSize -> {22, 5}]], { Right, Center}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{{3.7202835885781193`*^9, 3.720283607310957*^9}, 3.743782554314073*^9, 3.7437827005389423`*^9, 3.7437828295301437`*^9, { 3.7437828738407297`*^9, 3.7437828822916517`*^9}, {3.743782948584806*^9, 3.7437830576751337`*^9}, 3.7461350393060007`*^9, {3.746135120418989*^9, 3.74613519852975*^9}, {3.7461352363819103`*^9, 3.74613527648662*^9}, { 3.746135330169339*^9, 3.7461354163897038`*^9}, {3.7461355493665447`*^9, 3.746135566191908*^9}, 3.7461356450885477`*^9, 3.746135810899736*^9, { 3.7461360211179028`*^9, 3.7461360322531347`*^9}, 3.7461360757976933`*^9, 3.746273866451426*^9, 3.746373884360511*^9, 3.74862306553831*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Fig4", "=", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", "TotalLoadA", "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "Generations"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1.000000000000001"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"Frame", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Directive", "[", RowBox[{"Red", ",", " ", "Thick"}], "]"}], "}"}]}], ",", RowBox[{"FrameStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"20", ",", "Black"}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"480", ",", "260"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"GridLines", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"thresh2", "+", "1"}], ",", RowBox[{"thresh3", "+", "1"}]}], "}"}], "}"}]}], ",", RowBox[{"GridLinesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", "Thick", ",", "Dashed"}], "]"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "2"}]}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input",\ CellChangeTimes->{{3.72019153914135*^9, 3.72019158004352*^9}, { 3.720192025362753*^9, 3.720192066224874*^9}, {3.720193021309784*^9, 3.720193046580039*^9}, {3.72027945086327*^9, 3.72027946205405*^9}, { 3.720279603310055*^9, 3.7202796288932343`*^9}, {3.7202813344387207`*^9, 3.720281353958538*^9}, {3.720281600834318*^9, 3.720281617700204*^9}, { 3.720281658487829*^9, 3.72028169745229*^9}, {3.720282402811675*^9, 3.720282439988163*^9}, {3.72028330626458*^9, 3.7202833066953487`*^9}, 3.720283509422936*^9, {3.720283613132213*^9, 3.7202836239888268`*^9}, { 3.743782568621908*^9, 3.743782575940626*^9}, {3.743782609057961*^9, 3.7437826099700327`*^9}, {3.743783063255389*^9, 3.743783063437622*^9}, { 3.7461355825074577`*^9, 3.746135589970389*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.009166666666666668], Thickness[Large], LineBox[CompressedData[" 1:eJxVzQ1M1HUcx/F/JXITUQgqFgjIiBUQEKDJIfDh6ZSne4I77momCQYTZkyC 5hhxBYkYuRQ3M2ALBsOcRgclyNNdYEjIRTxl8lAkCEg8JQGNaCvn7/fd+m3/ /ff6f/7v/XYfeVt59ElBEI7+9zx6Pz7LIcL/D4S+0jtN9mXsuwgT7cbp/JAB ZiusyUrDb+0dYrbFbIH4RE0gtx087zaU6UsGmR3wWpx0wPIk753h+dDCRW/o Z3ZBdb6wUJnJd1d4iZ55om3XMLMbpi94SQrT7zK/iNbeq7l+lr8wu+MH79cX b5VNMHtiufC0qPS535i94Hnu88X6p7l9IDaX7j9uxv0KhlaNZxP+5r0viuVZ sqIVbj9cNpmikhe4/TFyYany5Cz3Huy0VljnTXHvRdJbkea+G9yvoutT661F 5vy+fTjmI7iOOnIHwObLgNzWSG4xqkXFV6sLuQMhBIweGpvh3o+xsfBTl/Lv MQfhzXPan4MPTTIH45RB6pFbPMUcgubQi5+tLd5nBq5t1HySEz7z2DrAbVRR 8ZPjLNtD0brs4C9OZtaFYl+EbaYsje9hsHI1rttz68LQYlc3PZ3K93AU7Zh8 eJ1bF456kcV7H9EeAXdxnZBCewQQmr4VtEciuupIyUAW3yMheVlquJjLdwl6 L/1T4Haa7xLUbg5YRpXz/QBa2joMga18P4BtPVUmp0W+H0SQesF+h/gB2w9i XtPc9O1lZiEKlWeeD2gPnmN7FFIsnt1m+INZiMa1kqEll4rf2R6NPY7e5nXb 59keg/KN0fP+Psy6GITNTSVv9+N7LDKsMmwsuHWxONOyOmRGexzkFZ0PBNrj oErSxmz68l2KqhHTyjq3TgrTh53jK7TLMP6Bdssy7TKknHBMnqddjpmJLWuz 3JAjzVp74z79L0fneuMX97iNcrwRaH7zV+oVSHY+bjZOvQIqsSx9hHoFdvWF rdyhXoHxIeuyYeqVmHtXnzRIvRIGu5CwfuqV6GvYDOqjXglRbZzSRH08onsa 8m5TH4+z/b3t31Mfj5xlmW039fGQNFnkdVGfgO6XptZvUp8A/eqPBZ3UJ+D8 9KhTB/UJsMx0um2kXoXUw98VGqhXwfuKWWw79SqMJ77g3Ea9Ct0F2UIr9WrY ZCvnm6lXI63HZfIG9WrUNKqnmqhXoyM+damR+kRkrA4/RUYiNss9dl+nPhHF x/6SfEN9InY6Db7zNfUafFyrudJAvQYavcdMPfUadEv+dCcbNcjJOpytp16L 95ccu76iXguv/lmHR/4XqxvkNA== "]]}}, {}}, AspectRatio->NCache[ Rational[1, 2], 0.5], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.495, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameStyle->Directive[20, GrayLevel[0]], FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{21, 41}, {21, 41}}, GridLinesStyle->Directive[ GrayLevel[0.5], Thickness[Large], Dashing[{Small, Small}]], ImagePadding->All, ImageSize->{480, 260}, LabelStyle->14, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1, 100}, {0, 1.000000000000001}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7202836251826963`*^9, {3.743782558446705*^9, 3.743782580629525*^9}, 3.743782610879414*^9, 3.743783063800658*^9, 3.746135591817134*^9, 3.746135815834508*^9, 3.746273874562442*^9, 3.746373887496027*^9, 3.748623065595028*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Combined Figure", "Section", CellChangeTimes->{{3.720193837322966*^9, 3.720193841132975*^9}, { 3.766930782693926*^9, 3.766930784161409*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CombinedFig", "=", RowBox[{"Grid", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Rotate", "[", RowBox[{"\"\< Allele Frequency\>\"", ",", RowBox[{"90", "Degree"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "18"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ RowBox[{"Rotate", "[", RowBox[{"\"\< Genetic Load \>\"", ",", RowBox[{"90", "Degree"}]}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", "18"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", "Null"}], "}"}], ",", RowBox[{"ItemSize", "\[Rule]", "Full"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "22"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", "Fig3", ",", "Fig4", ",", RowBox[{"Style", "[", RowBox[{ "\"\< Generations\>\"", ",", RowBox[{"FontSize", "\[Rule]", "18"}], ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}], ",", RowBox[{"ItemSize", "\[Rule]", "Full"}]}], "]"}]}], "}"}], "}"}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"{", RowBox[{"0.5", ",", "2"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.720193581312641*^9, 3.720193748733528*^9}, { 3.720194921586341*^9, 3.7201949396979113`*^9}, {3.720194998313368*^9, 3.7201953111800423`*^9}, {3.7201953599133472`*^9, 3.7201954727220707`*^9}, {3.7201955249429817`*^9, 3.7201958778983927`*^9}, {3.7201959163960943`*^9, 3.720195926280352*^9}, { 3.720196052332614*^9, 3.720196056163805*^9}, {3.7202836491504593`*^9, 3.7202836781522007`*^9}, {3.743782658421768*^9, 3.743782659221651*^9}, { 3.746135658318573*^9, 3.7461356762865973`*^9}, {3.7461357089171553`*^9, 3.746135724329314*^9}, {3.746373900036832*^9, 3.74637396740082*^9}, 3.748623035883094*^9}], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ RotationBox["\<\" Allele Frequency\"\>", BoxRotation->1.5707963267948966`], StripOnInput->False, FontFamily->"Helvetica", FontSize->18]}, { StyleBox[ RotationBox["\<\" Genetic Load \"\>", BoxRotation->1.5707963267948966`], StripOnInput->False, FontFamily->"Helvetica", FontSize->18]}, {""} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{All}}}], "Column"], TagBox[GridBox[{ { StyleBox["\<\"Multiple payloads released with female-limited \ cost\"\>", StripOnInput->False, FontFamily->"Helvetica", FontSize->22]}, { TagBox[ GraphicsBox[{{{}, {{}, {}, {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], PointSize[ 0.007333333333333334], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw1iwtM02cUR4kPqMwszqJQwxziVhFplVd5lMePZ6GAlBZamAEDwgy4jAhF UMJDdI6BE1QQqTqhg4qgAbaxFAJbYYhDWCXCxMFkgANxMMGJM9QHm9n/3uTL zfnOPVsSUqVJK4yMjJL+e2/2/7Pgrap8M796Mx/om/TdV2RNzMKSbfpBiXyU 4XXIX702IbZ4jGEz3KnqPi+TTDBsgcvtO3tmNQ8YtkTXzBHO4vMphq0wNvl7 X8bcQ4at0Zz8R/lY4iOG30fqZMv3uow/GebCbe67uzNeswzbwJOtajK5R2yL 2NS7NizJHMN2iA9PtnRvIubj2qUAxS+viXdBnfOy0Bl/MWyPMsFvgSmZxA5Y XNC/VaMhdsSWk1dGcm4TO2HagTew4ymxM8Yt45WF5o8ZFmCTtHYV24HYBYIl wYSxmNgVI3HP2tr2ErvBQ4OMzHRidxT4Ov1z5FNiIbh8EzNDObEHDIe1Zta1 xJ5o56mnOd8Qe4HL8tm8UkfsjXV6oxZDHzHQXHIvmzPMcD5g+fx6pnKCvA/e 1rUMvztL3gf1SR85cxfJ+2Lo9NFrF1+S98Wt7teqU6vmGe8Hr8TcWyZrGc73 w3hdwtX1bPL+qBIqsrUc8v4Y7vn2sZc1+QAEChM9G7eRD0DufWXrvB35QGzY w9m8bE8+ECvc8kT3BeRFcBKyHhQJyYug8avYtQbkg8C7YLgT408+CFmf1zXk BpEPRt2PaW2HQ8kHQ6uwfRoqIS+GIe7miyUZeTE2ttasLFCQD4E63ok//SH5 EPSbsGxs4siH4uzw6fHgePKhKBCH8MISyYdhRm/U6biffBic59r4y8nkd+Nm Q8Vc08fkd4M3KJeLU8mHw9hF3dh/kHw4VPJNXDcleQl+CuYPlh5iGBLUb7zR MZRF9xJItR2jq7MZ1kngniZmf5BDfQTOZO7wcMyjPgKmn/Rb2R+lPgLzU6K8 945RHwF+gcx0+Tj1UhxwNU8ZOEG9FAO9TzzKCqmXokNuZxFSRL0UD7VfFj4r pl4GM6tAdtkX1MvQ7nfbeVsJ9TIsyTfsbyylXoa9/efMeWeoj8SJkfHmqrPU R8Ki8m+VaTn1kVifdd7hwDnqI8H7QTfYVUF9FBaae4feqaQ+CvlTvZ9Fq6iP gkw06F5xgfoojIjsXfUXqZdjsVTd8+oS9XLs05zazr1MvRx1N1yqRVXUy9El fZSSUE29Ak4WWzsPqalXIFfVOXr8K+oViGndunCyhnoFjIfC7EtqqY8Gv9p0 oFhDfTT002teFFyhPho/u78aU9ZRH43YJ19r4q9SHwPxnp3ZwfXUxyAtvfuY XcO8979r/fHq "]]}, {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], PointSize[ 0.007333333333333334], Thickness[Large], LineBox[CompressedData[" 1:eJw1ywlQlGUcx3EgFQQydmXzAOKsVUAQFFrl+rHicgq7LMsuYSgUlcQUWMnM ArpcjrEzjuyWCgiKMelwWpEwIoRtoYMUR4DcySoQyDkMg4RAOb7/Z+adZz7v 9/lZx30eHq+no6MT///38n515nwK8l+ePh/mBx5q+R/k2pAN8FikcrPxG2Bs gqP3eBNdicOMTZHsNvvzMY8Rxttx1lNhFqN8wtgcu7asVtzsGmVsBdO1QclM 0zhjG6hG67LOukwwtkPx189TVB6TjN9B0PvvxS6vkXeBp2vFDlY/Y2wP1emE Bj/9KcaOuBp7vfX1D8lOuPNv5593q8l7cSbHeVQ1Q3ZBzaDeCaXtNGNXbJqb zr0vJO/DuLb1+54U8n4cH9849CSf7IZBTTOrvIHsjjljryJ1D/ldaCaiv2JN k3mQaXP2nNSdYXwAjf9c0SxtJR8Eu+/yZL8d2QMd5/bkhOwne2KDR0rbKT7Z Cxb3zaNOh5G9YWjQ0pUZTfZB3l75D1c/IgMNd6WJU0mMFUDv0PPBNDl1X4jj Wd5xWdR94dlzKbVCSZ2PF47eDglq6nwMc/e53yygfghXPnmxllxC/RCCv6i6 3HGDuh8OdPQttlVS90N++1rMg9vUDyN4vvOxpJ76Ycjrjaqbf6EuQOo6N43z G3UB0ro/2+zzgLo/BEPXSn1bqfvj242ljebt1ANwg2Nd0P4X9QBUczKMYx5R D8QtV5GguZ96IBJUw+cNh6kHYWZnzIjDCPUgZHw5/5P9U+rB+KayME9/nHow Mlttn2omqIegbKwtO3aKeggSnUx52hnqR5ArZ5X4z1M/goDlaD/1AvVQeGnq cpsXqYdiR/0FjXaJehgGFq25E8vUw1BRldLbv0JdCHa+83jdKmMI8WkSW5S9 Tu+FwED2a966s6/cJITMpHtwTI+xjghm5icqz2xgDBEWd3fwNm9irBBh8mGT e7Y+7UWw+HtePG9A+3C0H11wFRnSPhy/2owllhrRPhxTGbtVz4xpHw6O07I9 dwvtxfBfWa2VvkF7MfSqOn9MN6G9GOr19PP5LNqLkd6nrS1n0z4C9tXcizVb aR8Bu985yhpT2kdgzDJ5oZxD+wgI7gVyC9+kvQTdLQJ55jbaS1BtPOURt532 EgzL+2sP7qC9BC1LRu7GO2kfCeUjw5UeMiKReurtgEIz2kfCwa04Osqc9pHg 2PUmsSxoL0XtdUWThgwpypxvK5Leor0Uf5Q4jm6zpL0U362GWt4h68iQxzkW I7WivQxFluq2WbJChsaPXYqzrGkvw0l+2QLbhvZRCD1+a6mIjChcuBbWbmc7 6/Mf0vD4jg== "]]}, {RGBColor[0.5, 0, 0.5], PointSize[0.007333333333333334], Thickness[Large], LineBox[CompressedData[" 1:eJxd0k9Ik2EcwPGfwzIItMNAwcASkYjIaX+srdqvZZo2l9uaTgIVYexWd/Xw HqK6KKLSQfBUEJiIXjyEh+fgQIRAQQQVAjsEIbSgoEvyVuyZ7f2+MF4++z4/ 3j/Pe374WSLjE5HM39+/c+H4Hh71L3YcjDwP2z90Kr/wYiw+aX1KZzbG3+2H Zq3P6Mr60f6P12+t/fqq1imrHlyyrtH5qqlf2ScfrM9qJBio3GrKWZ/TtZND OVndtK7XvYb0ib25XesGbc8fZrvnP1s3amPzm01f3VfrC1q+nR2YO/3N+qJO Zyo+1e3krS/p+6cvh5bdoi9rcOLjF/fYARXfkvvfzRqpd0vcoj+PSn1Ff7ul vqrF91Y4X4Ovw63wDfgmHIRD6nqufwv9NnwHDsPqtQPLXXRYIuiw3EOHpU3L PL0N/T7mYWlHh6UDHZYH6LB0osPShQ7LQ3RYouhR7/uQbnRYYugxfB+P0GHp 8VphBzawxDEfx36iG1gS3vWawPVhg/WS9D6vJjGf9K436PIY9w87sIElhfkU nh/dpLA/vZiHHdj0Yr4P87ADG1jSmE/j/mGD9dKP/es/7n8ASwQg+A== "]]}, {RGBColor[0, 0, 1], PointSize[0.007333333333333334], Thickness[ Large], LineBox[CompressedData[" 1:eJxd0T0sA2Ecx/E/EWMH0Y0mzBYD9Vb990VbtKXXd9IIwWARCREiXFKDmJow oBPRwSLtKoZnsogEi2iiIhKJJq2uFof08XK/Sy6XT77PP/fcPS1T88pMLREF vu7vZ/Xq4LXGU/fT6qa16k5uM1RO2rMpaTO3JsfGdwxp6S4OGuvvJ/IZ6W5O Jpdz0d2cdA+Xig0PBdO5dC9b1rOuOc+FdB+XX3wLV5M30hYupo43Vqbz0v1c SFwemJqepa18eF2nGLdepZkXS2d05yhXrTKHzJmj5sc32W28tz+buNWkVRtv L6U17cdkZ8+79mfVzh/aP5ODq8+K7GByco2uO6EPwDyYXNDB5IYOJg90MA1C B9MQdDANQweTF7pX/z/IBx1Mfuh+1nT/fwQ6mEb1ZrAKFmAKwHwAzhO6AJOi X88KvB8sYD0F9d/LQZgP6tcL6BSC/YNVsABTGObD8P3QRRjOJwLzYBUsIjAf hXmwChZgisF8DPYPFrCe4nB+8d/+CZS78r0= "]]}, {RGBColor[1, 0.5, 0], PointSize[0.007333333333333334], Thickness[Large], LineBox[CompressedData[" 1:eJxdkU0oRFEYhj82NpbGLKyEkg2lZOHnW5i582eYe82YyU4slFKIksVRVreU hTKxsLKwUZKFUKeUjRWldPNzzYZRfptsNF3MHMx9b53uec7zved8p1M7PKGP lhNR5/f4+Rc+0cPzVdva3dxid3HBx3V2jTmSXi6y8HHje1vl6uWa8n627h9b slubyvt5yTj2VozvKK9x7u26qevmQHmNM9PWbEP1ifIB9tgLG+0dZ8oH2Mqb Tx/NlvJBnrmoz2c/M8oH+WFySLPHssqHWF/f2821Pisf4kOv53b/6kX5MB+l hTh1FIswn6+YjvPLFOEpx/lnEeGywuRV+V6mUhbAFAUfZad0P+oDD0z9bmZg ASyBKQb5mLt/AV4Ck+6uZx3OB5ZQT4b7vmxA3nDXS/A0AP0DC2AJTHHIx+H+ 4GUc3icBeWABLBOQH4Q8sACWwJSEfBL6B5ZQTyl4v9Sf/wL0g8+I "]]}}, {}}, InsetBox[ TemplateBox[{ "\"UD construct w/o Cas (\\!\\(\\*SubscriptBox[\\\"A\\\", \\n \ StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"]]\\))\"", "\"UD construct with Cas (\\!\\(\\*SubscriptBox[\\\"B\\\", \\n \ StyleBox[\\\"t\\\",\\nFontSlant->\\\"Italic\\\"]]\\))\"", "\"Payload 1 (\\!\\(\\*SubscriptBox[\\\"C\\\", \\n StyleBox[\\\ \"t\\\",\\nFontSlant->\\\"Italic\\\"]]\\))\"", "\"Payload 2 (\\!\\(\\*SubscriptBox[\\\"D\\\", \\n StyleBox[\\\ \"t\\\",\\nFontSlant->\\\"Italic\\\"]]\\))\"", "\"Payload 3 (\\!\\(\\*SubscriptBox[\\\"E\\\", \\n StyleBox[\\\ \"t\\\",\\nFontSlant->\\\"Italic\\\"]]\\))\""}, "LineLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Dashing[{Small, Small}], Thickness[Large]], { LineBox[{{0, 5}, {22, 5}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Dashing[{Small, Small}], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {22, 5}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.4580000000000001] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large]], { LineBox[{{0, 5}, {22, 5}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {22, 5}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.4580000000000001] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0.5, 0, 0.5], Thickness[Large]], { LineBox[{{0, 5}, {22, 5}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0.5, 0, 0.5], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {22, 5}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.4580000000000001] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], { LineBox[{{0, 5}, {22, 5}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {22, 5}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.4580000000000001] -> Baseline)], #4}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0.5, 0], Thickness[Large]], { LineBox[{{0, 5}, {22, 5}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.12000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0.5, 0], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {22, 5}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[-0.4580000000000001] -> Baseline)], #5}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontSize -> 14, FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, Rational[2, 3], 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 2/3, 0]"], 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, Rational[2, 3], 0]; 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, Rational[2, 3], 0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, Rational[2, 3], 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 2/3, 0]"], 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, Rational[2, 3], 0]; 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, Rational[2, 3], 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.5, 0, 0.5], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.33333333333333337`, 0., 0.33333333333333337`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.5, 0, 0.5]"], 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.5, 0, 0.5]; 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.5, 0, 0.5], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 0, 1], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0, 0, 1]"], 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, 0, 1]; 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, 0, 1], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.007333333333333334`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0.5, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[1, 0.5, 0]"], 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[1, 0.5, 0]; 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[1, 0.5, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{ "True", ",", "True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", RowBox[{"{", RowBox[{"22", ",", "5"}], "}"}]}]}], "]"}]& )], Scaled[{0.99, 0.5}], ImageScaled[{1, 0.5}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[ Rational[1, 2], 0.5], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.495, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameStyle->Directive[20, GrayLevel[0]], FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{21, 41}, {21, 41}}, GridLinesStyle->Directive[ GrayLevel[0.5], Thickness[Large], Dashing[{Small, Small}]], ImagePadding->All, ImageSize->{480, 260}, LabelStyle->14, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1, 100}, {0, 1.000000000000001}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0, Rational[2, 3], 0], Dashing[{Small, Small}], Thickness[Large]], Line[CompressedData[" 1:eJw1iwtM02cUR4kPqMwszqJQwxziVhFplVd5lMePZ6GAlBZamAEDwgy4jAhF UMJDdI6BE1QQqTqhg4qgAbaxFAJbYYhDWCXCxMFkgANxMMGJM9QHm9n/3uTL zfnOPVsSUqVJK4yMjJL+e2/2/7Pgrap8M796Mx/om/TdV2RNzMKSbfpBiXyU 4XXIX702IbZ4jGEz3KnqPi+TTDBsgcvtO3tmNQ8YtkTXzBHO4vMphq0wNvl7 X8bcQ4at0Zz8R/lY4iOG30fqZMv3uow/GebCbe67uzNeswzbwJOtajK5R2yL 2NS7NizJHMN2iA9PtnRvIubj2qUAxS+viXdBnfOy0Bl/MWyPMsFvgSmZxA5Y XNC/VaMhdsSWk1dGcm4TO2HagTew4ymxM8Yt45WF5o8ZFmCTtHYV24HYBYIl wYSxmNgVI3HP2tr2ErvBQ4OMzHRidxT4Ov1z5FNiIbh8EzNDObEHDIe1Zta1 xJ5o56mnOd8Qe4HL8tm8UkfsjXV6oxZDHzHQXHIvmzPMcD5g+fx6pnKCvA/e 1rUMvztL3gf1SR85cxfJ+2Lo9NFrF1+S98Wt7teqU6vmGe8Hr8TcWyZrGc73 w3hdwtX1bPL+qBIqsrUc8v4Y7vn2sZc1+QAEChM9G7eRD0DufWXrvB35QGzY w9m8bE8+ECvc8kT3BeRFcBKyHhQJyYug8avYtQbkg8C7YLgT408+CFmf1zXk BpEPRt2PaW2HQ8kHQ6uwfRoqIS+GIe7miyUZeTE2ttasLFCQD4E63ok//SH5 EPSbsGxs4siH4uzw6fHgePKhKBCH8MISyYdhRm/U6biffBic59r4y8nkd+Nm Q8Vc08fkd4M3KJeLU8mHw9hF3dh/kHw4VPJNXDcleQl+CuYPlh5iGBLUb7zR MZRF9xJItR2jq7MZ1kngniZmf5BDfQTOZO7wcMyjPgKmn/Rb2R+lPgLzU6K8 945RHwF+gcx0+Tj1UhxwNU8ZOEG9FAO9TzzKCqmXokNuZxFSRL0UD7VfFj4r pl4GM6tAdtkX1MvQ7nfbeVsJ9TIsyTfsbyylXoa9/efMeWeoj8SJkfHmqrPU R8Ki8m+VaTn1kVifdd7hwDnqI8H7QTfYVUF9FBaae4feqaQ+CvlTvZ9Fq6iP gkw06F5xgfoojIjsXfUXqZdjsVTd8+oS9XLs05zazr1MvRx1N1yqRVXUy9El fZSSUE29Ak4WWzsPqalXIFfVOXr8K+oViGndunCyhnoFjIfC7EtqqY8Gv9p0 oFhDfTT002teFFyhPho/u78aU9ZRH43YJ19r4q9SHwPxnp3ZwfXUxyAtvfuY XcO8979r/fHq "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0, Rational[2, 3], 0], Thickness[Large]], Line[CompressedData[" 1:eJw1ywlQlGUcx3EgFQQydmXzAOKsVUAQFFrl+rHicgq7LMsuYSgUlcQUWMnM ArpcjrEzjuyWCgiKMelwWpEwIoRtoYMUR4DcySoQyDkMg4RAOb7/Z+adZz7v 9/lZx30eHq+no6MT///38n515nwK8l+ePh/mBx5q+R/k2pAN8FikcrPxG2Bs gqP3eBNdicOMTZHsNvvzMY8Rxttx1lNhFqN8wtgcu7asVtzsGmVsBdO1QclM 0zhjG6hG67LOukwwtkPx189TVB6TjN9B0PvvxS6vkXeBp2vFDlY/Y2wP1emE Bj/9KcaOuBp7vfX1D8lOuPNv5593q8l7cSbHeVQ1Q3ZBzaDeCaXtNGNXbJqb zr0vJO/DuLb1+54U8n4cH9849CSf7IZBTTOrvIHsjjljryJ1D/ldaCaiv2JN k3mQaXP2nNSdYXwAjf9c0SxtJR8Eu+/yZL8d2QMd5/bkhOwne2KDR0rbKT7Z Cxb3zaNOh5G9YWjQ0pUZTfZB3l75D1c/IgMNd6WJU0mMFUDv0PPBNDl1X4jj Wd5xWdR94dlzKbVCSZ2PF47eDglq6nwMc/e53yygfghXPnmxllxC/RCCv6i6 3HGDuh8OdPQttlVS90N++1rMg9vUDyN4vvOxpJ76Ycjrjaqbf6EuQOo6N43z G3UB0ro/2+zzgLo/BEPXSn1bqfvj242ljebt1ANwg2Nd0P4X9QBUczKMYx5R D8QtV5GguZ96IBJUw+cNh6kHYWZnzIjDCPUgZHw5/5P9U+rB+KayME9/nHow Mlttn2omqIegbKwtO3aKeggSnUx52hnqR5ArZ5X4z1M/goDlaD/1AvVQeGnq cpsXqYdiR/0FjXaJehgGFq25E8vUw1BRldLbv0JdCHa+83jdKmMI8WkSW5S9 Tu+FwED2a966s6/cJITMpHtwTI+xjghm5icqz2xgDBEWd3fwNm9irBBh8mGT e7Y+7UWw+HtePG9A+3C0H11wFRnSPhy/2owllhrRPhxTGbtVz4xpHw6O07I9 dwvtxfBfWa2VvkF7MfSqOn9MN6G9GOr19PP5LNqLkd6nrS1n0z4C9tXcizVb aR8Bu985yhpT2kdgzDJ5oZxD+wgI7gVyC9+kvQTdLQJ55jbaS1BtPOURt532 EgzL+2sP7qC9BC1LRu7GO2kfCeUjw5UeMiKReurtgEIz2kfCwa04Osqc9pHg 2PUmsSxoL0XtdUWThgwpypxvK5Leor0Uf5Q4jm6zpL0U362GWt4h68iQxzkW I7WivQxFluq2WbJChsaPXYqzrGkvw0l+2QLbhvZRCD1+a6mIjChcuBbWbmc7 6/Mf0vD4jg== "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0.5, 0, 0.5], Thickness[Large]], Line[CompressedData[" 1:eJxd0k9Ik2EcwPGfwzIItMNAwcASkYjIaX+srdqvZZo2l9uaTgIVYexWd/Xw HqK6KKLSQfBUEJiIXjyEh+fgQIRAQQQVAjsEIbSgoEvyVuyZ7f2+MF4++z4/ 3j/Pe374WSLjE5HM39+/c+H4Hh71L3YcjDwP2z90Kr/wYiw+aX1KZzbG3+2H Zq3P6Mr60f6P12+t/fqq1imrHlyyrtH5qqlf2ScfrM9qJBio3GrKWZ/TtZND OVndtK7XvYb0ib25XesGbc8fZrvnP1s3amPzm01f3VfrC1q+nR2YO/3N+qJO Zyo+1e3krS/p+6cvh5bdoi9rcOLjF/fYARXfkvvfzRqpd0vcoj+PSn1Ff7ul vqrF91Y4X4Ovw63wDfgmHIRD6nqufwv9NnwHDsPqtQPLXXRYIuiw3EOHpU3L PL0N/T7mYWlHh6UDHZYH6LB0osPShQ7LQ3RYouhR7/uQbnRYYugxfB+P0GHp 8VphBzawxDEfx36iG1gS3vWawPVhg/WS9D6vJjGf9K436PIY9w87sIElhfkU nh/dpLA/vZiHHdj0Yr4P87ADG1jSmE/j/mGD9dKP/es/7n8ASwQg+A== "]]}, { Hue[0.37820393249936934`, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], Line[CompressedData[" 1:eJxd0T0sA2Ecx/E/EWMH0Y0mzBYD9Vb990VbtKXXd9IIwWARCREiXFKDmJow oBPRwSLtKoZnsogEi2iiIhKJJq2uFof08XK/Sy6XT77PP/fcPS1T88pMLREF vu7vZ/Xq4LXGU/fT6qa16k5uM1RO2rMpaTO3JsfGdwxp6S4OGuvvJ/IZ6W5O Jpdz0d2cdA+Xig0PBdO5dC9b1rOuOc+FdB+XX3wLV5M30hYupo43Vqbz0v1c SFwemJqepa18eF2nGLdepZkXS2d05yhXrTKHzJmj5sc32W28tz+buNWkVRtv L6U17cdkZ8+79mfVzh/aP5ODq8+K7GByco2uO6EPwDyYXNDB5IYOJg90MA1C B9MQdDANQweTF7pX/z/IBx1Mfuh+1nT/fwQ6mEb1ZrAKFmAKwHwAzhO6AJOi X88KvB8sYD0F9d/LQZgP6tcL6BSC/YNVsABTGObD8P3QRRjOJwLzYBUsIjAf hXmwChZgisF8DPYPFrCe4nB+8d/+CZS78r0= "]]}, { Hue[0.6142719099991583, 0.6, 0.6], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[1, 0.5, 0], Thickness[Large]], Line[CompressedData[" 1:eJxdkU0oRFEYhj82NpbGLKyEkg2lZOHnW5i582eYe82YyU4slFKIksVRVreU hTKxsLKwUZKFUKeUjRWldPNzzYZRfptsNF3MHMx9b53uec7zved8p1M7PKGP lhNR5/f4+Rc+0cPzVdva3dxid3HBx3V2jTmSXi6y8HHje1vl6uWa8n627h9b slubyvt5yTj2VozvKK9x7u26qevmQHmNM9PWbEP1ifIB9tgLG+0dZ8oH2Mqb Tx/NlvJBnrmoz2c/M8oH+WFySLPHssqHWF/f2821Pisf4kOv53b/6kX5MB+l hTh1FIswn6+YjvPLFOEpx/lnEeGywuRV+V6mUhbAFAUfZad0P+oDD0z9bmZg ASyBKQb5mLt/AV4Ck+6uZx3OB5ZQT4b7vmxA3nDXS/A0AP0DC2AJTHHIx+H+ 4GUc3icBeWABLBOQH4Q8sACWwJSEfBL6B5ZQTyl4v9Sf/wL0g8+I "]]}}}, {}}, { DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, AxesOrigin -> {1.495, 0}, PlotRange -> {{1, 100}, {0, 1.000000000000001}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> Rational[1, 2], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {1.495, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[20, GrayLevel[0]], FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {{21, 41}, {21, 41}}, GridLinesStyle -> Directive[ GrayLevel[0.5], Thickness[Large], Dashing[{Small, Small}]], ImageSize -> {480, 260}, LabelStyle -> 14, Method -> { "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{1, 100}, {0, 1.000000000000001}}, PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ LineLegend[{ Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0, Rational[2, 3], 0], Dashing[{Small, Small}], Thickness[Large]], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0, Rational[2, 3], 0], Thickness[Large]], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0.5, 0, 0.5], Thickness[Large]], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[0, 0, 1], Thickness[Large]], Directive[ PointSize[0.007333333333333334], AbsoluteThickness[1.6], RGBColor[1, 0.5, 0], Thickness[Large]]}, { "UD construct w/o Cas (\!\(\*SubscriptBox[\"A\", \n \ StyleBox[\"t\",\nFontSlant->\"Italic\"]]\))", "UD construct with Cas (\!\(\*SubscriptBox[\"B\", \n \ StyleBox[\"t\",\nFontSlant->\"Italic\"]]\))", "Payload 1 (\!\(\*SubscriptBox[\"C\", \n StyleBox[\"t\",\n\ FontSlant->\"Italic\"]]\))", "Payload 2 (\!\(\*SubscriptBox[\"D\", \n StyleBox[\"t\",\n\ FontSlant->\"Italic\"]]\))", "Payload 3 (\!\(\*SubscriptBox[\"E\", \n StyleBox[\"t\",\n\ FontSlant->\"Italic\"]]\))"}, LegendMarkers -> {{False, Automatic}, {False, Automatic}, { False, Automatic}, {False, Automatic}, {False, Automatic}}, Joined -> {True, True, True, True, True}, LabelStyle -> 14, LegendLayout -> "Column", LegendMarkerSize -> {22, 5}]], { Right, Center}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]}, { GraphicsBox[{{}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.009166666666666668], Thickness[ Large], LineBox[CompressedData[" 1:eJxVzQ1M1HUcx/F/JXITUQgqFgjIiBUQEKDJIfDh6ZSne4I77momCQYTZkyC 5hhxBYkYuRQ3M2ALBsOcRgclyNNdYEjIRTxl8lAkCEg8JQGNaCvn7/fd+m3/ /ff6f/7v/XYfeVt59ElBEI7+9zx6Pz7LIcL/D4S+0jtN9mXsuwgT7cbp/JAB ZiusyUrDb+0dYrbFbIH4RE0gtx087zaU6UsGmR3wWpx0wPIk753h+dDCRW/o Z3ZBdb6wUJnJd1d4iZ55om3XMLMbpi94SQrT7zK/iNbeq7l+lr8wu+MH79cX b5VNMHtiufC0qPS535i94Hnu88X6p7l9IDaX7j9uxv0KhlaNZxP+5r0viuVZ sqIVbj9cNpmikhe4/TFyYany5Cz3Huy0VljnTXHvRdJbkea+G9yvoutT661F 5vy+fTjmI7iOOnIHwObLgNzWSG4xqkXFV6sLuQMhBIweGpvh3o+xsfBTl/Lv MQfhzXPan4MPTTIH45RB6pFbPMUcgubQi5+tLd5nBq5t1HySEz7z2DrAbVRR 8ZPjLNtD0brs4C9OZtaFYl+EbaYsje9hsHI1rttz68LQYlc3PZ3K93AU7Zh8 eJ1bF456kcV7H9EeAXdxnZBCewQQmr4VtEciuupIyUAW3yMheVlquJjLdwl6 L/1T4Haa7xLUbg5YRpXz/QBa2joMga18P4BtPVUmp0W+H0SQesF+h/gB2w9i XtPc9O1lZiEKlWeeD2gPnmN7FFIsnt1m+INZiMa1kqEll4rf2R6NPY7e5nXb 59keg/KN0fP+Psy6GITNTSVv9+N7LDKsMmwsuHWxONOyOmRGexzkFZ0PBNrj oErSxmz68l2KqhHTyjq3TgrTh53jK7TLMP6Bdssy7TKknHBMnqddjpmJLWuz 3JAjzVp74z79L0fneuMX97iNcrwRaH7zV+oVSHY+bjZOvQIqsSx9hHoFdvWF rdyhXoHxIeuyYeqVmHtXnzRIvRIGu5CwfuqV6GvYDOqjXglRbZzSRH08onsa 8m5TH4+z/b3t31Mfj5xlmW039fGQNFnkdVGfgO6XptZvUp8A/eqPBZ3UJ+D8 9KhTB/UJsMx0um2kXoXUw98VGqhXwfuKWWw79SqMJ77g3Ea9Ct0F2UIr9WrY ZCvnm6lXI63HZfIG9WrUNKqnmqhXoyM+damR+kRkrA4/RUYiNss9dl+nPhHF x/6SfEN9InY6Db7zNfUafFyrudJAvQYavcdMPfUadEv+dCcbNcjJOpytp16L 95ccu76iXguv/lmHR/4XqxvkNA== "]]}}, {}}, AspectRatio->NCache[ Rational[1, 2], 0.5], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{1.495, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{None, None}, {None, None}}, FrameStyle->Directive[20, GrayLevel[0]], FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{21, 41}, {21, 41}}, GridLinesStyle->Directive[ GrayLevel[0.5], Thickness[Large], Dashing[{Small, Small}]], ImagePadding->All, ImageSize->{480, 260}, LabelStyle->14, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ ( Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], ( Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{1, 100}, {0, 1.000000000000001}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, {0, 0}}, Ticks->{Automatic, Automatic}]}, { StyleBox["\<\" \ Generations\"\>", StripOnInput->False, FontFamily->"Helvetica", FontSize->18]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{All}}}], "Column"]} }, AutoDelete->False, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.5}}, "Rows" -> {{2}}}], "Grid"]], "Output", CellChangeTimes->{{3.72019361887591*^9, 3.7201936377571087`*^9}, { 3.720193721969202*^9, 3.7201937493123426`*^9}, 3.7201938897604017`*^9, 3.7201941672376547`*^9, 3.7201942677159643`*^9, 3.7201944532532*^9, 3.720194883282486*^9, {3.7201950417626762`*^9, 3.72019519077588*^9}, { 3.720195256618312*^9, 3.720195270566401*^9}, 3.720195312991931*^9, 3.720195364749157*^9, {3.7201954179701967`*^9, 3.720195473400155*^9}, { 3.720195617158923*^9, 3.7201958793725033`*^9}, {3.72019592434453*^9, 3.7201959271739798`*^9}, {3.720195995053336*^9, 3.7201960084580793`*^9}, 3.720196057386463*^9, 3.720281526464679*^9, 3.7202815622721567`*^9, 3.720283630892481*^9, {3.720283668805489*^9, 3.720283678392837*^9}, 3.743782617434575*^9, 3.743782660618441*^9, 3.743783067193636*^9, 3.746135649752941*^9, {3.746135713340185*^9, 3.746135738069068*^9}, 3.74613582146879*^9, 3.746136175555785*^9, 3.746273879520175*^9, { 3.74637393893543*^9, 3.746373968340761*^9}, 3.748623068975245*^9}] }, Open ]] }, Closed]] }, Evaluator->"6th Kernel", WindowSize->{1117, 755}, WindowMargins->{{106, Automatic}, {71, Automatic}}, FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 11, \ 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 89, 1, 64, "Section"], Cell[672, 25, 51289, 1217, 3463, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[51998, 1247, 254, 3, 50, "Section"], Cell[52255, 1252, 6409, 153, 590, "Input"], Cell[58667, 1407, 47, 1, 28, "Input"], Cell[CellGroupData[{ Cell[58739, 1412, 6607, 131, 165, "Input"], Cell[65349, 1545, 37032, 760, 275, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102418, 2310, 2311, 51, 97, "Input"], Cell[104732, 2363, 2929, 63, 275, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[107710, 2432, 149, 2, 50, "Section"], Cell[CellGroupData[{ Cell[107884, 2438, 2689, 61, 148, "Input"], Cell[110576, 2501, 44068, 895, 591, "Output"] }, Open ]] }, Closed]] } ] *)