(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 391583, 8248] NotebookOptionsPosition[ 279321, 6033] NotebookOutlinePosition[ 375539, 7910] CellTagsIndexPosition[ 374588, 7879] WindowTitle->MultiNonlinearModelFit | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["MultiNonlinearModelFit", "Title", CellTags->{"Name", "TemplateCell", "Title"}], Cell["\<\ Fit multiple datasets with multiple expressions that share parameters\ \>", "Text", CellTags->{"Description", "TemplateCell"}], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ TemplateBox[{"Definition", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line above. \ You can add input cells and extra code to define additional input cases or \ prerequisites. All definitions, including dependencies, will be included in \ the generated resource function.\n\nThis section should be evaluated before \ creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDefinition"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "MultiNonlinearModelFit", "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"AccuracyGoal", "\[Rule]", "Automatic"}], ",", RowBox[{"ConfidenceLevel", "\[Rule]", FractionBox["19", "20"]}], ",", RowBox[{"EvaluationMonitor", "\[Rule]", "None"}], ",", RowBox[{"Gradient", "\[Rule]", "Automatic"}], ",", RowBox[{"MaxIterations", "\[Rule]", "Automatic"}], ",", "\n", "\t", RowBox[{"Method", "\[Rule]", "Automatic"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "Automatic"}], ",", RowBox[{"StepMonitor", "\[Rule]", "None"}], ",", RowBox[{"Tolerance", "\[Rule]", "Automatic"}], ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", "Automatic"}], ",", "\n", "\t", RowBox[{"Weights", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"WorkingPrecision", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"\"\\"", "\[Rule]", "\[FormalN]"}]}], "\n", "}"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"\[Equal]", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"Options", "[", "NonlinearModelFit", "]"}], ",", " ", RowBox[{"{", RowBox[{"\"\\"", " ", "->", " ", "\[FormalN]"}], "}"}]}], "]"}]}], " ", "*)"}], "\n"}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"MultiNonlinearModelFit", "[", RowBox[{"datasets_", ",", " ", "form_", ",", " ", "fitParams_", ",", " ", RowBox[{"independents", " ", ":", " ", RowBox[{"Except", "[", "_List", "]"}]}], ",", " ", RowBox[{"opts", " ", ":", " ", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", "\n", " ", RowBox[{"MultiNonlinearModelFit", "[", RowBox[{"datasets", ",", " ", "form", ",", " ", "fitParams", ",", " ", RowBox[{"{", "independents", "}"}], ",", " ", "opts"}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"MultiNonlinearModelFit", "[", RowBox[{"datasets_", ",", " ", RowBox[{"form", " ", ":", " ", RowBox[{"Except", "[", RowBox[{"_", "?", "AssociationQ"}], "]"}]}], ",", " ", "fitParams_", ",", " ", "independents_", ",", " ", RowBox[{"opts", " ", ":", " ", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], " ", ":=", " ", "\n", " ", RowBox[{"MultiNonlinearModelFit", "[", RowBox[{"datasets", ",", " ", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "form"}], ",", " ", RowBox[{"\"\\"", " ", "->", " ", "True"}]}], "|>"}], ",", " ", "fitParams", ",", " ", "independents", ",", " ", "opts"}], "]"}]}], ";"}], "\n", " "}], "\n", RowBox[{ RowBox[{ RowBox[{"MultiNonlinearModelFit", "[", "\n", " ", RowBox[{ RowBox[{"datasets", " ", ":", " ", RowBox[{"{", RowBox[{"__", "?", RowBox[{"(", RowBox[{ RowBox[{"MatrixQ", "[", RowBox[{"#1", ",", " ", "NumericQ"}], "]"}], " ", "&"}], ")"}]}], "}"}]}], ",", " ", "\n", " ", RowBox[{ RowBox[{"assoc", " ", ":", " ", RowBox[{"KeyValuePattern", "[", RowBox[{"{", "\n", " ", RowBox[{ RowBox[{"\"\\"", " ", "->", " ", "expressions_"}], ",", "\n", " ", RowBox[{"\"\\"", " ", "->", " ", "constraints_"}]}], "\n", " ", "}"}], "]"}]}], " ", "/;", " ", RowBox[{"AssociationQ", "[", "assoc", "]"}]}], ",", "\n", " ", "fitParams_List", ",", " ", "\n", " ", "independents_List", ",", "\n", " ", RowBox[{"opts", " ", ":", " ", RowBox[{"OptionsPattern", "[", "]"}]}]}], "\n", "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{"fitfun", ",", " ", "weights", ",", "\n", " ", RowBox[{"numSets", " ", "=", " ", RowBox[{"Length", "[", "datasets", "]"}]}], ",", "\n", " ", RowBox[{"precision", " ", "=", " ", RowBox[{"Precision", " ", "@", " ", "datasets"}]}], ",", "\n", " ", "augmentedData", ",", "\n", " ", RowBox[{"indexSymbol", " ", "=", " ", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}]}], "\n", "}"}], ",", "\n", " ", RowBox[{ RowBox[{"augmentedData", " ", "=", " ", RowBox[{"Join", " ", "@@", " ", RowBox[{"MapIndexed", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"#2", ",", " ", "precision"}], "]"}], ",", " ", RowBox[{"Length", "[", "#1", "]"}]}], "]"}], ",", " ", "#1", ",", " ", "2"}], "]"}], "&"}], ",", "\n", " ", "datasets"}], "\n", " ", "]"}]}]}], ";", "\n", " ", RowBox[{"fitfun", " ", "=", " ", RowBox[{"With", "[", RowBox[{ RowBox[{"{", "\n", " ", RowBox[{"conditions", " ", "=", " ", RowBox[{"Flatten", " ", "@", " ", RowBox[{"Map", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", " ", RowBox[{"Indexed", "[", RowBox[{"expressions", ",", " ", "#"}], "]"}]}], "}"}], "&"}], ",", " ", "\n", " ", RowBox[{"Range", "[", "numSets", "]"}]}], "\n", " ", "]"}]}]}], "\n", " ", "}"}], ",", " ", "\n", " ", RowBox[{"Switch", " ", "@@", " ", RowBox[{"Prepend", "[", RowBox[{"conditions", ",", " ", RowBox[{"Round", "[", "indexSymbol", "]"}]}], "]"}]}]}], "\n", " ", "]"}]}], ";", " ", "\n", " ", RowBox[{"weights", " ", "=", " ", RowBox[{"Replace", "[", "\n", " ", RowBox[{ RowBox[{"OptionValue", "[", "Weights", "]"}], ",", "\n", " ", RowBox[{"{", "\n", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", "list_List", ")"}], "?", RowBox[{"(", RowBox[{ RowBox[{"VectorQ", "[", RowBox[{"#1", ",", " ", "NumericQ"}], "]"}], "&"}], " ", ")"}]}], " ", "/;", " ", RowBox[{ RowBox[{"Length", "[", "list", "]"}], " ", "===", " ", "numSets"}]}], " ", ":>", " ", "\n", " ", RowBox[{"Join", " ", "@@", " ", RowBox[{"MapThread", "[", RowBox[{"ConstantArray", ",", " ", RowBox[{"{", RowBox[{"list", ",", " ", RowBox[{"Length", " ", "/@", " ", "datasets"}]}], "}"}]}], "]"}]}]}], ",", " ", "\n", " ", RowBox[{ RowBox[{ RowBox[{"list", " ", ":", " ", RowBox[{"{", RowBox[{"__", "?", RowBox[{"(", RowBox[{ RowBox[{"VectorQ", "[", RowBox[{"#1", ",", " ", "NumericQ"}], "]"}], " ", "&"}], " ", ")"}]}], "}"}]}], " ", "/;", " ", RowBox[{ RowBox[{"Length", " ", "/@", " ", "list"}], " ", "===", " ", RowBox[{"Length", " ", "/@", " ", "datasets"}]}]}], " ", ":>", "\n", " ", RowBox[{"Join", " ", "@@", " ", "list"}]}], ",", " ", "\n", " ", RowBox[{"\"\\"", " ", ":>", " ", RowBox[{"Join", " ", "@@", " ", RowBox[{"Map", "[", "\n", " ", RowBox[{ RowBox[{ RowBox[{"ConstantArray", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"1", " ", "/", " ", "#1"}], ",", " ", "precision"}], "]"}], ",", " ", "#1"}], "]"}], "&"}], ",", "\n", " ", RowBox[{"Length", " ", "/@", " ", "datasets"}]}], "\n", " ", "]"}]}]}]}], "\n", " ", "}"}]}], "\n", " ", "]"}]}], ";", " ", "\n", " ", RowBox[{"NonlinearModelFit", "[", "\n", " ", RowBox[{"augmentedData", ",", "\n", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"TrueQ", "[", "constraints", "]"}], ",", " ", "fitfun", ",", " ", RowBox[{"{", RowBox[{"fitfun", ",", " ", "constraints"}], "}"}]}], "]"}], ",", " ", "\n", " ", "fitParams", ",", "\n", " ", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{"indexSymbol", ",", " ", "independents"}], "}"}], "]"}], ",", "\n", " ", RowBox[{"Weights", " ", "->", " ", "weights"}], ",", " ", "\n", " ", RowBox[{"Sequence", " ", "@@", " ", RowBox[{"FilterRules", "[", RowBox[{ RowBox[{"{", "opts", "}"}], ",", " ", RowBox[{"Options", "[", "NonlinearModelFit", "]"}]}], "]"}]}]}], "\n", " ", "]"}]}]}], "\n", "]"}]}], ";"}]}], "Code", CellChangeTimes->{ 3.783181994995476*^9, {3.783182026693776*^9, 3.7831820300062056`*^9}, { 3.7831821497169933`*^9, 3.783182218465815*^9}, 3.810466339445677*^9, 3.810466719969515*^9, {3.810664950626606*^9, 3.8106649893953996`*^9}, 3.8106651128774977`*^9, {3.8106651486618795`*^9, 3.8106651991217628`*^9}, { 3.810665289060798*^9, 3.8106652914195213`*^9}, 3.810665402950675*^9, { 3.810665433580825*^9, 3.8106654354907227`*^9}}, CellLabel->"In[1]:=", CellID->31404727] }, Open ]], Cell["Documentation", "Section", CellTags->"Documentation", CellID->363488142], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, then \ pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiNonlinearModelFit", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["dat", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["dat", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["form", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["form", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["\[Beta]", "TI"], StyleBox["1", "TR"]], ",", "\[Ellipsis]"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["1", "TR"]], ",", "\[Ellipsis]"}], "}"}]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "is a generalized form of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["NonlinearModelFit", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/NonlinearModelFit", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " where each dataset ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["dat", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " is fitted with expression ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["form", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], ". The expressions are allowed to share parameter values ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\[Beta]", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " with each other." }], "UsageDescription"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MultiNonlinearModelFit", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["dat", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["dat", "TI"], StyleBox["2", "TR"]], ",", " ", "\[Ellipsis]"}], "}"}], ",", " ", RowBox[{"<|", RowBox[{ RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["form", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["form", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "}"}]}], ",", " ", RowBox[{"\"\\"", "\[Rule]", StyleBox["cons", "TI"]}]}], " ", "|>"}], ",", " ", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["\[Beta]", "TI"], StyleBox["1", "TR"]], ",", "\[Ellipsis]"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox[ StyleBox["x", "TI"], StyleBox["1", "TR"]], ",", "\[Ellipsis]"}], "}"}]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro"], Cell[TextData[{ "fits the model subject to parameter constraints ", Cell[BoxData[ FormBox[ StyleBox["cons", "TI"], TraditionalForm]]], "." }], "UsageDescription"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ TemplateBox[{"Details & Options", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoDetailsOptions"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349], Cell[TextData[{ Cell[BoxData[ FormBox["MultiNonlinearModelFit", TraditionalForm]]], " works by recasting the data and fitting forms into a form suitable for ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox[ StyleBox[ StyleBox[ StyleBox["NonlinearModelFit", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/NonlinearModelFit", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellTags->"TabNext", CellID->107622986], Cell[TextData[{ "The datasets ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["dat", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " must all be numeric matrices." }], "Notes", CellTags->"TabNext", CellID->95135932], Cell[TextData[{ "The number of datasets ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["dat", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " must match the number of expressions ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["form", "TI"], StyleBox["i", "TI"]], TraditionalForm]], "InlineFormula", FontFamily->"Source Sans Pro"], ". It is also possible to specify a function that evaluates to a list when \ provided with numerical arguments." }], "Notes", CellID->117308948], Cell[TextData[{ "The parameters ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["\[Beta]", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " can be specified in the same way as in ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox[ StyleBox[ StyleBox[ StyleBox["NonlinearModelFit", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/NonlinearModelFit", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ". ", Cell[BoxData[ FormBox["MultiNonlinearModelFit", TraditionalForm]]], " also inherits all options from ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox[ StyleBox[ StyleBox[ StyleBox["NonlinearModelFit", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/NonlinearModelFit", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ". " }], "Notes", CellTags->"TabNext", CellID->412379553], Cell[TextData[{ "Internally, the datasets ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["dat", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], " are joined together into a single matrix, so if a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox[ StyleBox["Weights", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Weights", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " vector is specified as an option, it should have the same length as ", Cell[BoxData[ FormBox[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Join", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Join", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ SubscriptBox[ StyleBox["dat", "TI"], StyleBox["1", "TR"]], ",", SubscriptBox[ StyleBox["dat", "TI"], StyleBox["2", "TR"]], ",", "\[Ellipsis]"}], "]"}], TraditionalForm]]], ". It is also possible to specify a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox[ StyleBox["Weights", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Weights", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " vector that has a length matching the number of datasets. There is a \ special option ", Cell[BoxData[ FormBox[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Weights", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Weights", ContentPadding->False], MouseAppearanceTag["LinkHand"]], " ", "\[Rule]", " ", "\"\\""}], TraditionalForm]]], " to specify that each dataset should weigh equally in the fit, regardless \ of the number of points in each. Finally, it is also possible to specify the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox[ StyleBox["Weights", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Weights", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " as a list of vectors matching the input data." }], "Notes", CellID->740375827], Cell[TextData[{ "The returned model uses the symbol ", Cell[BoxData[ TagBox["\[FormalN]", "ForceRasterization"]], "InlineFormula", FontFamily->"Source Sans Pro"], " (", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["\\[FormalN]", "CharactersRefLink", ShowSpecialCharacters->False, ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/character/FormalN", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ") to switch between the different expressions ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["form", "TI"], StyleBox["i", "TI"]], TraditionalForm]]], ". This symbol should therefore be avoided by the user when using ", Cell[BoxData[ FormBox["MultiNonlinearModelFit", TraditionalForm]]], ". This symbol can be changed with the ", Cell[BoxData[ FormBox["\"\\"", TraditionalForm]]], " option." }], "Notes", CellID->338723645] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.2863], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and Subsubsection \ cells similarly to existing documentation pages. Here are some typical \ Subsection names and the types of examples they normally contain:\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Editable->False, Deletable->False, CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["\<\ Fit some random data to simple linear models with a shared slope parameter:\ \>", "Text", CellChangeTimes->{{3.761380253548151*^9, 3.7613802759268546`*^9}, { 3.7615863110173655`*^9, 3.7615863436226254`*^9}, {3.7640486976459064`*^9, 3.7640486984068713`*^9}, {3.811683474660273*^9, 3.811683474885931*^9}}, CellID->271879374], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"BinormalDistribution", "[", "0.7", "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "100"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}], "+=", "1."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "2"}], "]"}], "]"}], "+=", RowBox[{"-", "1."}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"fit", "=", RowBox[{"MultiNonlinearModelFit", "[", "\[IndentingNewLine]", RowBox[{"data", ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", " ", "x"}], "+", " ", "b1"}], ",", RowBox[{ RowBox[{"a", " ", "x"}], " ", "+", " ", "b2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b1", ",", "b2"}], "}"}], ",", RowBox[{"{", "x", "}"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7615861520294685`*^9, 3.7615862967749414`*^9}, { 3.761586355936857*^9, 3.7615863685531187`*^9}, {3.7621524534875917`*^9, 3.7621524793295155`*^9}, {3.764047724462863*^9, 3.7640477249196196`*^9}, { 3.7640477680703497`*^9, 3.7640477687286158`*^9}, {3.764048569154351*^9, 3.764048600056225*^9}, {3.764048680394077*^9, 3.7640486904481597`*^9}, { 3.7640487340442753`*^9, 3.76404876352346*^9}, {3.764049354401583*^9, 3.7640494805441637`*^9}, {3.7640499643205795`*^9, 3.7640499976231227`*^9}, 3.764050032057027*^9, 3.7656067677423573`*^9, {3.8042439869523635`*^9, 3.8042440195979943`*^9}}, CellLabel->"In[82]:=", CellID->161500924], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"Switch", "[", RowBox[{ RowBox[{"Round", "[", "\[FormalN]", "]"}], ",", "1", ",", RowBox[{"0.9731451925738352`", "\[VeryThinSpace]", "+", RowBox[{"0.7645740839137558`", " ", "x"}]}], ",", "2", ",", RowBox[{ RowBox[{"-", "1.000816688254623`"}], "+", RowBox[{"0.7645740839137558`", " ", "x"}]}]}], "]"}], Short[#, 2]& ], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Nonlinear", {$CellContext`a -> 0.7645740839137558, $CellContext`b1 -> 0.9731451925738352, $CellContext`b2 -> -1.000816688254623}, \ {{\[FormalN], $CellContext`x}, Switch[ Round[\[FormalN]], 1, $CellContext`b1 + $CellContext`a $CellContext`x, 2, $CellContext`b2 + $CellContext`a $CellContext`x]}}, { 1}, CompressedData[" 1:eJxFlnk81Nsbxwe5tihJIkUIZfkp0qIcpJItQrdU1nRd2ctS1kpdCldaRJYW 2aIsoZAz9n0b21jvWDPWMTPGnl//dM68Xt9/3q/P6znP83me85zZa+d2wYGd QCDU/vo4CL9/NNCSub33KS87cfxnaBMdsBF/88LLQlJy/0xCtbVjn/5SaAa/ eYrttEM1zzBo/lv4QJ06C/HFBm95sbxJMOjVr1+80YP49dxd7/+8PAUdBUa1 mcqliO/v6XRKGGDCgoGytb+j5yDKxz4iSU9iFrislRQxEpaR/u3w0deeViMg 3PjI5AswifguYZL7i+xKwKu4M9klcQHxdCPa7HmjRki22RwSLVSG4hO0y6W/ Px+FNuu3JWm1nUg/5ZExWHyaDqMLw1zvpi0hrpGZWvuwsQMu5k7vErAfRZz9 P984xY0kGD5Or2zKICM+WVSXbhdHBTfvT8qP660ifvbJB8cdCuxaGdSRpmSv rVq/+Z5ql+MWIgyYcvRN3veX3Ug/E/moSt/DHbCUSWuWsvOI2+zuO24yvA6j 8udbpQsHEE8ufpDkUrcAarcTH9p+4kfx5zij2bZ4EojhBN0boTfJyAfv7/ab A3pGga5jIKvwGfZte+0eGbLPEvA7XtcNvnGiOKU+O1prLUdBlEIosc6jH+lL 7xxkJZ/PgesDAimfnowjrin1PfeCxTS4qFsgXGTBgeIcMXhRUCmWA4/bSS4x TPH8TD0+rHjs0gxQiOAk93Pjczdb1HNMtY+DqxTiw82p7Ii/haQtfAQydBf5 phhx6iuqq5t7c1uL/TjUWxlYdQino/iCip23J/l+zXeIaRz12T2k34gIq8jS awGvg2mUuk3Yh4TULbEl7nSw10+LpqP8E3H/Dk61PRk/IC34jvNPx2oUp6Jo MXhlow9olB2vMNqDz+0flR0vS6ZBE+ZIb8SVAsSJVzTqLu1dBhpUjpnRQjZU 184D+t9cz1TCcMXtLNtqBtK3GG897NZPBepf/dXaruO5avqPjfkvVxfMHqrx yd79A/ET3KT73A10eNSBP0OUH+cjrT5oBiv7wYHAl2tCr7D/d68l2DNJTcCA 978subAVxLcIHiAeWZuHBJn12EfrSaheO31yQk2vJ2yJrozj/xvHqUpXCKg+ woKULYXHekSwn4+H5WjDHr/6ElPz+XoV3id0x6bpylo6mFQSF9y8QEX8HB/T D14rAwUf9S12L64hrnBRzy9Irxy25RsSb4rTEC/Wi0somB6Ceb0KhjKbKYgT bvxzTcGpFD4Nv3W8dv8s4pwt5l8k+YlQnE3nWpBhB+KFLaGs8NQvIEZzh+qD Nibm6SGWlaY0mHxssfiUFQnxNFdBrkWbabinNZJdmYL357q6gzq75irQlbri 0SiB6/Lf5yBsF5UNlKPyzLbl47446dS9OP1tFqRNgnMvY/G50yOBFj+5mGCZ P79YYHkd8Y48gqaKVDuUnBYIebq5AnGGl2NEVk4F0H3aJKqiM424jJEg6UDW AjCpfdl5oQvPm06Qc4jq2gggrpelkkZwH+WJFxIF9JlQ/Lz/bIo9C/V978zS g0D5auiipkg0tcL3fbiRh3VmZghI1uwq0r6H+9Kj6k6KhyMwa+ubCRdfvD9X nAjLl42/go/JA9dvhOJ6X/WqjGz9QQa+5Sy1hWp87yzJ+emyt/8DppeLT5+b GEO8ru456UzeKjhkvlPDyRvv7Tw5ht6dWDocHbM4drJiCuXffIZ74NKPGriW cLCnObQB6SUNNCIa/pgEfZ/TLYS/43l7McjS+SNtFJY+qVflk8LzfIlvVd2e OQEH5/PuL3PNIS6RdUWhunMDRmVOjPcn1KBz4+OdP2w71wMfHUsbUJrA9cbG 2x9MNmwD2bttWmwY+N4R1QVFLPjnwYXX8R+TSBt4/l+xZWf7GIKzQyux/cO4 X4nnXkZWFIwAre3JCcE59XifcxmInkrYqjWmIr/rnfE21HcToQGzaR4qaO5+ lFOciN9ZgROGRtRvVMDt+LxPU5Yd6dnTU+eTFPuhIThcdm0bfjd/0Bf9+GMK wM62q2HTt/C776pE7GV7Roc3XrWW8fLhvdSyrS3HNWcYPKx8LWwei+vKXmEq 3FOkQSJnr15fKBH5ZpOmSg2tGoXcXje7lwMHEQ8pCpdQeUUBUdmJi4Q1PM9v U8bYcpWWYPaft+v/XFtDehXG/M+rrdNQayHoj1W3esSFZaQNTwbRQeSLC3PC JXivOjq7RCR6TYLtjt8N42vw+/VBdf77357jsCROovlbCO5XqbUnw5kyD5rP +QZEZfzmBK2z/ekUbfMBaJqdvI9HfAH+5nV0wzslUQvg6/NYXnWeHsSNv9YF ttZVgiLp6JPdU3TE3/OmL3cEMkBo1BN3wtFuFD+UUqVr4L0Kb2zvTNtUxEJ6 T7fEduvXX+HjqTfEq37LiFdQ2jVpXb2Q1BB1R1OWiXiQqK/94wMUeIf/k6xk PebKOQqPzbQrgLkXm80aWx/iJHPTm3kLs/Awu7p4wpd5xK8+8lU67rwIZGTJ SfQKKsqTedqR8ewgm9ZXy7Cz7+sYiIvxu52yK6UDSthSc82VcRTHhfnZ+6IJ De7uzHZqFCMQf3NBq+Axz2YKXPUf4BOHS0gvyOFDZWn82u+y7unFciWIhzTw ZNC6+8AnjQf3LrcPIk6XVXF6DAaBuN3dKAOJacQ94ldKkkpmAO2zdmCjdznK s5zHh+7N1wEEDvotRiniPlrejzEoDqJDfkKm8r1/cZ6Bre8su3lYUEbofmhu AhviT+QzU/sPsYDNSY1bijsaUXz7B8bvf9qUAVLXW30pBewnQcqHkZs6AtVl ocWTsFXEhU+YX5g83AETXwnC2NA5xLt91jk1NBkwuMp51tuAA517712I0wmb P4h8sb6mHymciOdkOoWNfCkHER6nCDORuC7JQia5rZwFelwP3GozpiDeLvLj zkBQC2gJCgx4X4HzbEg+EW8cxq6VabYvVrehAfFX3LU7GvXrYbTqE57n5TOI D4hxWekF0CAnmcnxtGUTyidbp7iCGEgFJu8WlZWCy5A/lCz/5p+3qODNDbYi oeBBxCPrZSlBHXRYWqPvE9WH5z9b7Wj5ob/iQaN7p6cvtRbxLZbiP6teLgLn mdY47UetWO9urTYvzQCGsrPJ1Y29iMdcGpoqVBuGw0OvrJRmcX8/kA0ucRmP Qf8ls60wBPugb57oyvg+AbdmyFG4zXDfRWMmCvbem4XX2w1npNk3kL4nx/Gp rPU8pIgvXDapwvk70RuihrN/vad13spuTmOI67bk+Wi6pQNZVYe02FNYL7oo Lxc1RIIm1LuOGnFdiH9m9kp1PWDA6OyqzrZd/YgvuDqJZxyhgIyHwJrWNYf8 VDE74PUv3wJMEkpK4vmE90Z55J7E5oBRkKnT2U5m4j6qv19831gzAIgeBW6b bPDemGNPrG8wqocTHfLKCqH1KP6zME2hzFwydPMKlXTexkD60Fmyl3QSEziW sMamhNuQ/qbfS3EZpTVgXkzsr4rsQ3yKmu3aOtQNSxL+rI1/hn2I+WfwVIbt MOhpi5fQFKIh/thP+4LmtY+QuYcrTezQBN6HQau3AjPHwNEjAs71+aOIZ9U2 LnnsXwDqIZYr25/geWCVUnUrm8phuJSXeu+7esQlJAPPiuuVQF+T/Z7rcdiH 5uvGS83+npDd3dFuxhfvq3zOrNVZ5xnw1caoWXpXDvbBQc7a0KgIfBFq4sgV wnNlkG9so3x7DlqJTyQzu3jRXKX+dSddvKcPKlqmBgxw9yN/2kT6260FWdD2 kW1Mx2FupK8EZLuegC74lnuG09AW+z/NM/TF7/o02GpWP0oSxefu0NrfeFN8 DHi6vjkZcGMR8Yscm0w0VmahTbKaf8ktXK/V+eD06wvDUCu3+KCq2xriCSJO 35QrK8C+otdCm0Qx/5a+xZib5wd8Z9rpwhDD98XYeF7YaqUVdtQSSud48R5L Ic+U2Sp1g/2egoE3LHAfWZWXtuR+nAQEZx1Zaz0f5ENITVV8ilEeWLIV6hB8 h/P84s810CbMBIflp1I6PbEPtQZ/vRuJGwETflPuY26FiEfHv959zY8CBmWm Tx4fwnPS1CaZXcGTC5nO92VdLuP+BqdJkzwCqfDo1fZPPrUj+N4JjQ2aXyqD rLaXGifc1nE+BKLnOT0WOCrCzL0ZU4HyN99hbSRBIcOJDMeJ6AK8B3ZG7Rf4 ZLoA+4M3bmcW4b3kGWiq9/TMU3jxf6Kb5MPwu3DrY1uaWM8QiBNLvCIXNYD4 PPcjzbs2k0C5OiUzo7Ed/x+w9do4GDgMDymdzi8oIyMeka6bO27bBLgeirxP F8V1jfR1sk3LfQB+2ioPRnbjPjq0ur0eKZsFkiL74RcKCdUlExop/yx1Et6+ p34/800nisN75PHAwvkxcN5VMu2qLe5XpHV833krOrDhPOxQPFsF/g9OgE5b "], Function[Null, Internal`LocalizedBlock[{\[FormalN], $CellContext`a, $CellContext`b1, \ $CellContext`b2, $CellContext`x}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{ 3.765606768851709*^9, {3.804243996441615*^9, 3.804244020974947*^9}, { 3.804244134752164*^9, 3.804244135430318*^9}, {3.8104667449494696`*^9, 3.8104667478768144`*^9}, {3.810665019802122*^9, 3.8106650312515645`*^9}, 3.810665069444984*^9, 3.8106654067196035`*^9, 3.8106654409441214`*^9}, CellLabel->"Out[85]=", CellID->55084629] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", "data", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fit", "[", RowBox[{"1", ",", "x"}], "]"}], ",", RowBox[{"fit", "[", RowBox[{"2", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7615861520294685`*^9, 3.7615862967749414`*^9}, { 3.761586355936857*^9, 3.7615863685531187`*^9}, {3.7621524534875917`*^9, 3.7621524793295155`*^9}, {3.764047724462863*^9, 3.7640477249196196`*^9}, { 3.7640477680703497`*^9, 3.7640477687286158`*^9}, {3.764048569154351*^9, 3.764048600056225*^9}, {3.764048680394077*^9, 3.7640486904481597`*^9}, { 3.7640487340442753`*^9, 3.76404876352346*^9}, {3.764049354401583*^9, 3.7640494805441637`*^9}, {3.7640499643205795`*^9, 3.7640499976231227`*^9}, 3.764050032057027*^9, 3.7656067677423573`*^9, {3.8042440237221546`*^9, 3.8042440239906654`*^9}, {3.8104667491830964`*^9, 3.8104667594292607`*^9}}, CellLabel->"In[86]:=", CellID->671103164], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwV0Hs80/sfwPFtHVHuostRSH7l2PLQjxTO8V5SZ0RF7XTVkUu/JYSTLkfR RR2d6CdFyDids9xKZ3IQ4vOVhSnGTo7bJtkam9HumOGc88fr8fz/tT7sbHAk AYfDRfzTv3KeWQ7eW07ARAtpnQrAY7VHVthv+kmC3HQez/9H7ILik9LI1mWj 0HXayontroHpt+cdv6ySwHAiz79hcQAiXlj/dujIBKKZCHeonJvgq4HeKDpf hWr4zbrTWZ8RJzyjiGI7BTG6V/VK+iw8Ht3+KOGEANL3bpNkgwSsrbhx2UwW LCetZsQUqqEsUDa1L/Ad6g81Ss1a0YxwO15vaHwgRKHz5+xk7b0wEV8+3LBL gbJqb8f+WDoDXs9K2m++e4+mX0itTcKFQPhwMZ+0WITSRQpWZ3k/SOrZZWH5 YjhzXeIooszBt3ee0FYSCeRysaCTkWhGtmmN8aSuUqLi7b9UNeb0weTdW2/8 4+NA48zVHd0oh9B1Q577R+dRZrW8e0MtHxgNN4pi2Gpot8RunnxuTP6sl4U3 TcBh6TjfU2ln+tH5xnCjKwNC8KUla2rvq8Gy3cah/8IMJHmy+6BOj9x0YWV3 +1EhZBLTMHY8D5oubdEw9lWieb5J8fM7IvC2b3wRTJXCd741VvXUJeRte7Jr WF9WIs8wuxllkAYmft5K8jg8CcQMvX6egR7ZiNqxZOJPERwfwW4alRDIjxHX 1BDXj+JW1ZEydr5EfQZGPZxwEaJo+XOR6QowJ/WekxjiMVxqUL74/jW0mHG7 pYLCgUdXZSPsL9RALzHNexWngPVJZJmP8wJcfq/nZlM+hmRXL0Uv0FpRS/30 Ve3iEHg1e7YE2iiAJ9woambI0H6VYDDjWA1gx7zYh9fPgpd4yaSwFk9e7eRf F7ubhdJJlpqTrUrg7DXbepYnBveXl916Iuag8wNe9X/9vxDzY9sF5rox+NqA e93grQJtjzQuX2OsgA3uwwcQiwdOyTm6Fbka+DGEHq7idsKe5R8qNt3Wgqm5 E7ZNJ0c4h/m8W/NFKMy/n942mIA4Wax849MaeFNGvNK6TYNGTGs9Blap4efR TbLR+H9+PGz7PeJNFyhonVJWuwIkm9eaG6nF4GeoSkIhzVDz1J+6bloHxO8o SSmU16inOgA7s1YGDZR8eo30I6oaJAY4GI0A7tRPIcSoJnQv/QfP9q+mQI9z 8A87YwytxfuEpAS8h1pOmia95A946L3S9UaPCmrLUo+ygmSI4THdsPMEF0pj zfWnQ6XIpvsuwXkEj827R7oTvOfA1/5Y/DtbMVz+T6RVWCYTnDOrDlhUKyDK h529q24KSiXgl5OnAqkgmbqgr4JZ4+oGk9l5eF+F83ax/xPZSU1S7xm1gDKR llFR2QK+9zrXuPhIwSHQnOtUoYb97Tm9wX/hyT4p0amuOgFg880lXIEGHLHg QhN/FVq77/JUcbgGrZ+cuZHs2Ipi3EhY0AkRjL5bptk9+RHs2qzrd1yTwYBr HLcACVCF2S/jMReFoI3CzR7Z+xKeMvgRp9JUkDvoIjAb64eLrzVu6tYFONpf Xbbx3AcIOtKwy2/8E7DZD7i7q+bgvwdXe0Wdn4GqTUrKpTwFEn6ienzTMoG6 dhvwD4+1IR19y0BX2luw2+OV8XapBIZ+L6NaNeoge1jjs7RUiJrudLga2qvh sOGce7hqHA3Lq67P6n8G24pjxNbeRZT5bFzEo7ehgoLoJxZ+A+iWRyl/87gK 8grCtzACeoC5LpQTqtQC5m6+imosh+BHBU+LuItAzMUzmRcC4NuP2jzeqAYK /XLuttQIgGzJoF+t7ABL/T1rdtLNyJ9cHK1/3WtB3r+Cf0C6TAxdfbcqGwpn weTrgEBxnRgMaA+GvDcSyISyEnkRiYcCYGtziEUvjCmmk4wf1sDqnuO3pT8M QOxmbBB/X4FO5XY3LzccA45FT2Vs5SjcZD2yOpi3CEytiniNJEOY3iBlKA1D oaWu4rQ3QmSQeKZvNnkYpdan27rkjkAms3Aap8OTHxd/wr/YPIOYh851HNLp kItSvnC8W4rI6pSlc2c7kJXDhoBvUhRwNzv4s9WrOaBFx2QUJkrAktYYUNC2 hPzEVd54OkGEXuXbdtWlaqHp+wRl9IgcuvwuXsks18LfUnhWDQ== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlH080/sewOfpMr16cHfK5ayTEw0VtyfyOso35dzcsIjTLadj41BekjF5 CkM53eEeZ+m8EokOTkxLa6kc3D4/TydmycyYh3mNtXMsNrb9NkoPt/vH+/X+ 5/33+8sYxok4cwKBEPuJ//voFFfhHyGHMH79NiLZCP364KwOjhG1/lxh600c B2prP2uovwe1OZcdHJvXQ50t980Iy4DYnJJkgs8YYit6A4LSV+HsZ9JGyzYT MBnVEtqtViiev4OdyX4D3QqJ39LoBAwPcLL8KDjkOWR+X7xdAVlrmylOQhw8 H+4oDvfvRhFpZvR3ZpMwHBF2/pFRC17m3uTbLTo4czXT46vEZeRCkdXou9UI /zrecH232aHWyKKjdf0G5LiWcSTmmR4pilYGn3/7B1zAH6SfDF2CzVJ+gsiR gNlF5auYgwpYzZGvIcMK2FlkqE2+WkSgJHPbXTugcIDYtDQ2iZp9rxSclkyD nrIroRhNI3LMJU7QlgVIqXrbUdOhQUsP/Fmi9C7URczQp68ZQet2Zy9zdhoh 8nJ5UHueHtYSeJ4FPxEw1lBt5BjRBC6ky2zBbTOsxI3XMLXHhOgHfVN3bhKh 769Q6z7QO9Hw6C/Htu7QAWFrhkHQoARvCnxTUrQKGw9EnHjtNQLVN+2ggr0I YxnvrXz9DJDfm6hND7LACmoLEw7Q/4KtqcgMu6ewwh7yEoqULV3ox5QjBE2p EZye4jJxlwmNJ21PFVMVILH/M0ue9xK9zGPl1nXrYKD+QBW1yPwQL3xbRcDA ANy06dskOiaEsr0lxJ+7NCB3tI4KzF0CKxluce2lJcY/3N6NsdQotHbZ0yO/ Eynu5wx+SFWjO2fN2kj506hUSFHkjejh2fNjGZxJE/D3+XTtOVeFRMlSZqa6 D9ZHkj/03lhGiZqhSv+rQ8BPpu3TORtQMEVb/7toAspPzcw/3TcLszM3ozy0 BOxXWdApa6oKclbCN0ChDo5FVCcZ/jsHG5pcFTbhZphD+dyTLwu0ECsJ1jib f4Txh/HXKDQdKMjG06G9JkjQD3Bm+TPIqT/dk5GggoCXjzL8GFxE2RvXWHHE BA7Lbq6cmWEIVV+K960chQf4xNbRKwYo4/dKxZ9PgTEpgdy0X4GafkC0pdFF tCt8e9pPa4xQQ6qpITa/ga7SL6oHc18h3mGpRIZrwLtuuU70XI6wlCcMSzoO i+bVwoEQIcyNuHnuYAvR9SI/Ek8gA0Ya2ynxrwZga2VpzjU4iu8wqeY3itH5 7BtkF493KKIdm+otnUTzan7S0MwYdNz+V1/VdROU/3v6SFP0LBoXV23xIy1B cbb/Cb/v7gH+hXWj45456M5bTWXxVMhn/7pE4eNXcL9PtJLibkTehZFvPyuZ ANMzdUDPiy74z9Y074laIWxxYh0lB3ZAZqg7830lDoOx1JXBHCaYJ8fHaDJX 4LHV/VVtoga10kMGnT9/COw4V1pwSBtqIb2wEJB0EPSYSve8uAhR5Ll6fNQW aziXxSWPT8LOyIZcuc0UEttPSWh2Joi+Gl0+4mWD9SBZzHjuKPxio7EKjjbA AnGmJTt2AW0IF74adtDBpkPuovNkFWIm3TmYe3YZTlpYhvq+1QK9fl9ORyoO UcfzubHGWTgkaN+9l/EObtsn/ObZ0422td0iWTq8g9+466k2xD+hNkx6weBo hlGpuo1Rb4dgpI/wbNHWArsr03RGe4whd6Yd6+w3c2DqObVecO81IiQeptAC M1Dh896quyGP0Eo0acSuFoeWHGu5eCOOvNzm70qZBugLOlerrFSiuez5ZBXj KZRV3dr8XbYCTbssHPxq5hW8EDvxu4kCwBMvUy6cXoH8RufhFJYafM5ImjP6 lGAkqaYjTnWCSXzD9wDjPbQQMOY/A03Ixx4XnC//9L1NtJAtChnMNcXPlT1R wd847uuaw4wwlf/xIq/tU8wKC7z2j2tw8u8Olm5Fi5B6T9zoOD6DKh2rv3Xl yEFnc9XvEv018vz9Lq9JJIG86LSPu1mzsMfj68dPOmXwIzdA8Ef0C2T9g30d 10EJykmp2YLrryjbf9cV5WYzLG6IcUvZqUVO9u7QohhGLuxSt+sNr+Figfdl 3h0p2O4vlhuPq9DxJKfGM9E4lNKqJo9H6RHdyiuuXduL/gdtQmqQ "]]}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAfedN8v//E8BS5XKoPMwGwOZ7FvXb /BPAnA5QPW/HBsBOEN/3t/kTwOQ3LdKhwgbAIDlw/W/zE8B4iuf7BrkGwMKK kgjg5hPAnC9cT9GlBsAILtcewM0TwOd5RfZlfwbAlHRgS4CbE8B+DhhEjzIG wKsBc6QANxPAqje93+GYBcAFZUcyGV0SwG3CQrisSwTAE9jFbKKREcBXyxtU jBQDwFLDmmMpyhDAfZCVUobjAcB77z1skOMPwBCOSvKlmADAuHeaaq9PDsCO E6aqtMf+v06SVSD+mQzA2Hsts2gq/L9Hnb1OSOwKwJxc9oBRmfm/psd51nNb CcCoOWbVYzT3v16ElBXPqAfAkIdMbMGb9L9+YAOuCxMGwMLR2YlIL/K/AC0f v0OFBMDaKFHZCJ7vv9qLmYer1QLA5I/bIxd26r8cCmip9EIBwILvs3t4puW/ azUqBdsc/7/UMHlYcG/gv2M33qjDw/u/MMaCf6Oh1r8qeDr/bqT4v8A3XtEY Ksq/od1TxHlB9b/Ap6ndEs2lv+eBFTxHGPK/IAOjWobEuz+6lShF6FbtvyTz LH+4atE/MOnZ9C+d5r+WQ6tSfLPbP0S62wn9VuC/cNHGBc2l4j9wqa/4ERPT v2MfS11F2ec/VmYjodJ8ub/AdIGnarTsP8fM2YozU7g/lWyaM5O78D86LcGy UJfTP/Gt/dClUPM/AnYV3GQZ4D8C87nnjrn1PwcMUIFi7uY/Osf/uyxW+D+D 4NZDcqPtP/giBMuV5vo/sJuGUH7y8T9sgmFT1Ur9P2+iZBDkVvU/BnFImcni /z9eapodh4H4P6sxRCxKJwFAiVF2OTOc+z+WbkMpFVcCQAQUleZ/+v4/FHMH hbqgA0DXy4XwhA8BQG75dx1L1ARAVXtiNprDAkBaR60UtiEGQGwL6yLOWgRA IhePSAxZB0Afq8aWBuoFQKwq0BlIighAe7hDUw+bB0DKBdZJXtUJQHCmbLY2 LwlAw2KItl8KC0AMAjdiLuUKQE+H/4E7WQxARW1UlSqTDECe79Xq/KENQBi5 HW9FJA5AyNlYkKnUDkCScoiRMNcPQMJFUEqYEBBAUoZPLZ22EECOX8pq0asQ QCpbhFWkfRFAPBv0Wf1DEUDW5gmik1USQLM6gHgW6RFAzmLlQRIfE0AYm2I1 JYMSQOEEp/iVIhNAHgJBG9WFEkD0pmivGSYTQCRpHwGFiBJAGevrHCEtE0Aw N9zM5I0SQGRz8vcvOxNASdNVZKSYEkD6g/+tTVcTQHoLSZMjrhJAJqUZGomP E0Deey/xIdkSQDlH29AMkxNA5OIN19HbEkBM6ZyHkJYTQOpJ7LyB3hJAcS0g 9ZedE0D2F6mI4eMSQLy1JtCmqxNADrQiIKHuEkBSxjOGxMcTQEDsFU8gBBNA ZWj1PEjLE0BGU/Q00AYTQHgKt/PLzhNATbrSGoAJE0CdTjph09UTQFmIj+bf DhNA6NZAPOLjE0ByJAl+nxkTQPp4AvNl5xNAd4vnY08cE0ANG8Sp6eoTQH7y xUn/HhNAMl9HF/HxE0CKwIIVXyQTQEUBCc509RNAkCdh+w4nE0BYo8qE+PgT QJaOP+G+KRNAakWMO3z8E0Cc9R3HbiwTQH3nTfL//xNAolz8rB4vE0DjjD8L "]]}, Annotation[#, "Charting`Private`Tag$26796#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAfedN8v//E8CNSKCXdEsTwOZ7FvXb /BPAMt0O4g1JE8BOEN/3t/kTwNZxfSynRhPAIDlw/W/zE8Agm1rB2UETwMKK kgjg5hPAsu0U6z44E8AILtcewM0TwNiSiT4JJRPAlHRgS4CbE8Aj3XLlnf4S wKsBc6QANxPAuXFFM8exEsAFZUcyGV0SwBo3iJ8sCxLAE9jFbKKREcCQu3Rt nG8RwFLDmmMpyhDAIp6xbBnXEMB77z1skOMPwOwcjDypMRDAuHeaaq9PDsCP tSDchi4PwE6SVSD+mQzAtGlk4ODfDcBHnb1OSOwKwBbaSEdVlwzApsd51nNb CcCcyIBx3mQLwF6ElBXPqAfAkO/zPI0YCsB+YAOuCxMGwKmUustQ4gjAAC0f v0OFBMD+9SG9LrIHwNqLmYer1QLAwY/ETzJoBsAcCmip9EIBwKinuqVKNAXA azUqBdsc/7/99+uciOYDwGM33qjDw/u/jgS+9uCeAsAqeDr/bqT4v0SP4xNO bQHAod1TxHlB9b9nUkTS4CEAwOeBFTxHGPK/XifxpxDZ/b+6lShF6Fbtv8ca 0O2qOvu/MOnZ9C+d5r+qhvD4eaj4v0S62wn9VuC/2O63inJC9r9wqa/4ERPT v9/H9V62qPO/VmYjodJ8ub8wndq5Izvxv8fM2YozU7g/9tUBtIuz7b86LcGy UJfTPz5TO3lmiei/AnYV3GQZ4D8cycJLlLfjvwcMUIFi7uY/WEFuRrH83L+D 4NZDcqPtP2DSXAoNu9K/sJuGUH7y8T8kqc7RHVTCv2+iZBDkVvU/gF1G6yJc kz9eapodh4H4PzBeaFfaycU/iVF2OTOc+z9wFq4TRWPUPwQUleZ/+v4/ZDrO 8W+w3j/Xy4XwhA8BQJY2qVp6JuQ/VXtiNprDAkBIbn43JlzpP2wL6yLOWgRA aK0FB3857j8fq8aWBuoFQMj9BCY3f/E/e7hDUw+bB0AEtBCGYxX0P3CmbLY2 LwlA9m11X2Z/9j8MAjdiLuUKQA63Y/YdHfk/RW1UlSqTDECshxDIoK77Pxi5 HW9FJA5AAFwWE/oT/j+ScoiRMNcPQL3f0g2EVgBAUoZPLZ22EEBVE8dO9owB QCpbhFWkfRFAsIoaLU69AkDW5gmik1USQJ7JMmqABwRAzmLlQRIfE0Bnivfj nTsFQOEEp/iVIhNAdFi0r/1ABUD0pmivGSYTQIEmcXtdRgVAGevrHCEtE0CZ wuoSHVEFQGRz8vcvOxNAyvrdQZxmBUD6g/+tTVcTQC1rxJ+akQVAJqUZGomP E0DzS5Fbl+cFQDlH29AMkxNA/xlOJ/fsBUBM6ZyHkJYTQAzoCvNW8gVAcS0g 9ZedE0AkhISKFv0FQLy1JtCmqxNAVbx3uZUSBkBSxjOGxMcTQLgsXheUPQZA ZWj1PEjLE0DF+hrj80IGQHgKt/PLzhNA0sjXrlNIBkCdTjph09UTQOpkUUYT UwZA6NZAPOLjE0AbnUR1kmgGQPp4AvNl5xNAJmsBQfJtBkANG8Sp6eoTQDM5 vgxScwZAMl9HF/HxE0BL1TekEX4GQEUBCc509RNAWKP0b3GDBkBYo8qE+PgT QGRxsTvRiAZAakWMO3z8E0BwP24HMY4GQH3nTfL//xNAfA0r05CTBkAL/0KS "]]}, Annotation[#, "Charting`Private`Tag$26796#2"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-2.796990234539692, 4.153576274113011}, {-3.354958809216938, 4.576790260627807}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.761586271479412*^9, 3.761586297220986*^9}, { 3.761586359923256*^9, 3.761586369040167*^9}, 3.762090211827135*^9, 3.7621500960659723`*^9, 3.7621501265395455`*^9, 3.7621501674839306`*^9, 3.7621524829168916`*^9, 3.7621528985442214`*^9, 3.762154056830498*^9, 3.7628600036232224`*^9, {3.7640476303176775`*^9, 3.7640476662685266`*^9}, { 3.764047725266693*^9, 3.7640477691136675`*^9}, {3.7640478026767826`*^9, 3.7640478420085664`*^9}, 3.764048186599034*^9, {3.764048248334915*^9, 3.7640482591929026`*^9}, {3.7640485944950533`*^9, 3.7640486018476534`*^9}, {3.7640486907188206`*^9, 3.7640487642824135`*^9}, 3.764049332579908*^9, 3.764049369617412*^9, {3.7640494560586567`*^9, 3.764049480869316*^9}, 3.7640497699224067`*^9, {3.764049982192462*^9, 3.7640499978654957`*^9}, 3.764050032479895*^9, 3.765606612523302*^9, 3.7656067750494337`*^9, {3.8042439990048647`*^9, 3.804244024522554*^9}, 3.8042441372889*^9, {3.810466750577893*^9, 3.8104667604521675`*^9}, { 3.8106650212103596`*^9, 3.8106650326857047`*^9}, 3.8106650704791975`*^9, 3.8106654445545015`*^9}, CellLabel->"Out[86]=", CellID->329708566] }, Open ]], Cell[TextData[{ "Fit the same model with parameter constraints to allow for a small \ difference between the slopes of the lines. This works best by using a \ quadratic form for the difference between the slope parameters, since ", Cell[BoxData[ FormBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ SubscriptBox[ StyleBox["a", "TI"], StyleBox["1", "TR"]], "-", SubscriptBox[ StyleBox["a", "TI"], StyleBox["2", "TR"]]}], ")"}], "2"], TraditionalForm]], "InlineFormula", FontFamily->"Source Sans Pro"], "is differentiable (unlike ", Cell[BoxData[ FormBox[ RowBox[{ TagBox[ ButtonBox[ StyleBox["Abs", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Abs", ContentPadding->False], MouseAppearanceTag["LinkHand"]], "[", RowBox[{ SubscriptBox[ StyleBox["a", "TI"], StyleBox["1", "TR"]], "\[Dash]", SubscriptBox[ StyleBox["a", "TI"], StyleBox["2", "TR"]]}], "]"}], TraditionalForm]]], "):" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.8042440640230217`*^9, 3.8042440724068527`*^9}, { 3.804244318462883*^9, 3.8042443968943477`*^9}, {3.8042444621746583`*^9, 3.8042446281116667`*^9}, {3.8049545182307568`*^9, 3.804954524772513*^9}, { 3.8104662409762087`*^9, 3.810466251093176*^9}, {3.81168351471104*^9, 3.811683624579762*^9}, {3.811683674841161*^9, 3.811683675515818*^9}, { 3.811683859629855*^9, 3.811684011884077*^9}}, CellID->196825297], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit", "=", RowBox[{"MultiNonlinearModelFit", "[", "\[IndentingNewLine]", RowBox[{"data", ",", "\[IndentingNewLine]", RowBox[{"<|", "\[IndentingNewLine]", RowBox[{ RowBox[{"\"\\"", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a1", " ", "x"}], "+", " ", "b1"}], ",", RowBox[{ RowBox[{"a2", " ", "x"}], " ", "+", " ", "b2"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"\"\\"", "\[Rule]", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a1", "-", "a2"}], ")"}], "2"], "<", SuperscriptBox["0.1", "2"]}], "&&", RowBox[{"b1", ">", "0"}], "&&", RowBox[{"b2", "<", "0"}]}]}]}], " ", "\[IndentingNewLine]", "|>"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{"a1", ",", "a2", ",", "b1", ",", "b2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "x", "}"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.804244079342932*^9, 3.804244107663619*^9}, { 3.8042441419862237`*^9, 3.804244305263569*^9}, {3.804244403697688*^9, 3.804244460048216*^9}, {3.804244609168457*^9, 3.8042446109838896`*^9}, { 3.8042447844050703`*^9, 3.8042447905925975`*^9}}, CellLabel->"In[87]:=", CellID->78453074], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"Switch", "[", RowBox[{ RowBox[{"Round", "[", "\[FormalN]", "]"}], ",", "1", ",", RowBox[{"0.972325567877498`", "\[VeryThinSpace]", "+", RowBox[{"0.8087240232403033`", " ", "x"}]}], ",", "2", ",", RowBox[{ RowBox[{"-", "0.9968205730222871`"}], "+", RowBox[{"0.708726161479999`", " ", "x"}]}]}], "]"}], Short[#, 2]& ], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Nonlinear", {$CellContext`a1 -> 0.8087240232403033, $CellContext`a2 -> 0.708726161479999, $CellContext`b1 -> 0.972325567877498, $CellContext`b2 -> -0.9968205730222871}, \ {{\[FormalN], $CellContext`x}, { Switch[ Round[\[FormalN]], 1, $CellContext`b1 + $CellContext`a1 $CellContext`x, 2, $CellContext`b2 + $CellContext`a2 $CellContext`x], And[($CellContext`a1 - $CellContext`a2)^2 < 0.010000000000000002`, $CellContext`b1 > 0, $CellContext`b2 < 0]}}}, { 1}, CompressedData[" 1:eJxFlnk81Nsbxwe5tihJIkUIZfkp0qIcpJItQrdU1nRd2ctS1kpdCldaRJYW 2aIsoZAz9n0b21jvWDPWMTPGnl//dM68Xt9/3q/P6znP83me85zZa+d2wYGd QCDU/vo4CL9/NNCSub33KS87cfxnaBMdsBF/88LLQlJy/0xCtbVjn/5SaAa/ eYrttEM1zzBo/lv4QJ06C/HFBm95sbxJMOjVr1+80YP49dxd7/+8PAUdBUa1 mcqliO/v6XRKGGDCgoGytb+j5yDKxz4iSU9iFrislRQxEpaR/u3w0deeViMg 3PjI5AswifguYZL7i+xKwKu4M9klcQHxdCPa7HmjRki22RwSLVSG4hO0y6W/ Px+FNuu3JWm1nUg/5ZExWHyaDqMLw1zvpi0hrpGZWvuwsQMu5k7vErAfRZz9 P984xY0kGD5Or2zKICM+WVSXbhdHBTfvT8qP660ifvbJB8cdCuxaGdSRpmSv rVq/+Z5ql+MWIgyYcvRN3veX3Ug/E/moSt/DHbCUSWuWsvOI2+zuO24yvA6j 8udbpQsHEE8ufpDkUrcAarcTH9p+4kfx5zij2bZ4EojhBN0boTfJyAfv7/ab A3pGga5jIKvwGfZte+0eGbLPEvA7XtcNvnGiOKU+O1prLUdBlEIosc6jH+lL 7xxkJZ/PgesDAimfnowjrin1PfeCxTS4qFsgXGTBgeIcMXhRUCmWA4/bSS4x TPH8TD0+rHjs0gxQiOAk93Pjczdb1HNMtY+DqxTiw82p7Ii/haQtfAQydBf5 phhx6iuqq5t7c1uL/TjUWxlYdQino/iCip23J/l+zXeIaRz12T2k34gIq8jS awGvg2mUuk3Yh4TULbEl7nSw10+LpqP8E3H/Dk61PRk/IC34jvNPx2oUp6Jo MXhlow9olB2vMNqDz+0flR0vS6ZBE+ZIb8SVAsSJVzTqLu1dBhpUjpnRQjZU 184D+t9cz1TCcMXtLNtqBtK3GG897NZPBepf/dXaruO5avqPjfkvVxfMHqrx yd79A/ET3KT73A10eNSBP0OUH+cjrT5oBiv7wYHAl2tCr7D/d68l2DNJTcCA 978subAVxLcIHiAeWZuHBJn12EfrSaheO31yQk2vJ2yJrozj/xvHqUpXCKg+ woKULYXHekSwn4+H5WjDHr/6ElPz+XoV3id0x6bpylo6mFQSF9y8QEX8HB/T D14rAwUf9S12L64hrnBRzy9Irxy25RsSb4rTEC/Wi0somB6Ceb0KhjKbKYgT bvxzTcGpFD4Nv3W8dv8s4pwt5l8k+YlQnE3nWpBhB+KFLaGs8NQvIEZzh+qD Nibm6SGWlaY0mHxssfiUFQnxNFdBrkWbabinNZJdmYL357q6gzq75irQlbri 0SiB6/Lf5yBsF5UNlKPyzLbl47446dS9OP1tFqRNgnMvY/G50yOBFj+5mGCZ P79YYHkd8Y48gqaKVDuUnBYIebq5AnGGl2NEVk4F0H3aJKqiM424jJEg6UDW AjCpfdl5oQvPm06Qc4jq2gggrpelkkZwH+WJFxIF9JlQ/Lz/bIo9C/V978zS g0D5auiipkg0tcL3fbiRh3VmZghI1uwq0r6H+9Kj6k6KhyMwa+ubCRdfvD9X nAjLl42/go/JA9dvhOJ6X/WqjGz9QQa+5Sy1hWp87yzJ+emyt/8DppeLT5+b GEO8ru456UzeKjhkvlPDyRvv7Tw5ht6dWDocHbM4drJiCuXffIZ74NKPGriW cLCnObQB6SUNNCIa/pgEfZ/TLYS/43l7McjS+SNtFJY+qVflk8LzfIlvVd2e OQEH5/PuL3PNIS6RdUWhunMDRmVOjPcn1KBz4+OdP2w71wMfHUsbUJrA9cbG 2x9MNmwD2bttWmwY+N4R1QVFLPjnwYXX8R+TSBt4/l+xZWf7GIKzQyux/cO4 X4nnXkZWFIwAre3JCcE59XifcxmInkrYqjWmIr/rnfE21HcToQGzaR4qaO5+ lFOciN9ZgROGRtRvVMDt+LxPU5Yd6dnTU+eTFPuhIThcdm0bfjd/0Bf9+GMK wM62q2HTt/C776pE7GV7Roc3XrWW8fLhvdSyrS3HNWcYPKx8LWwei+vKXmEq 3FOkQSJnr15fKBH5ZpOmSg2tGoXcXje7lwMHEQ8pCpdQeUUBUdmJi4Q1PM9v U8bYcpWWYPaft+v/XFtDehXG/M+rrdNQayHoj1W3esSFZaQNTwbRQeSLC3PC JXivOjq7RCR6TYLtjt8N42vw+/VBdf77357jsCROovlbCO5XqbUnw5kyD5rP +QZEZfzmBK2z/ekUbfMBaJqdvI9HfAH+5nV0wzslUQvg6/NYXnWeHsSNv9YF ttZVgiLp6JPdU3TE3/OmL3cEMkBo1BN3wtFuFD+UUqVr4L0Kb2zvTNtUxEJ6 T7fEduvXX+HjqTfEq37LiFdQ2jVpXb2Q1BB1R1OWiXiQqK/94wMUeIf/k6xk PebKOQqPzbQrgLkXm80aWx/iJHPTm3kLs/Awu7p4wpd5xK8+8lU67rwIZGTJ SfQKKsqTedqR8ewgm9ZXy7Cz7+sYiIvxu52yK6UDSthSc82VcRTHhfnZ+6IJ De7uzHZqFCMQf3NBq+Axz2YKXPUf4BOHS0gvyOFDZWn82u+y7unFciWIhzTw ZNC6+8AnjQf3LrcPIk6XVXF6DAaBuN3dKAOJacQ94ldKkkpmAO2zdmCjdznK s5zHh+7N1wEEDvotRiniPlrejzEoDqJDfkKm8r1/cZ6Bre8su3lYUEbofmhu AhviT+QzU/sPsYDNSY1bijsaUXz7B8bvf9qUAVLXW30pBewnQcqHkZs6AtVl ocWTsFXEhU+YX5g83AETXwnC2NA5xLt91jk1NBkwuMp51tuAA517712I0wmb P4h8sb6mHymciOdkOoWNfCkHER6nCDORuC7JQia5rZwFelwP3GozpiDeLvLj zkBQC2gJCgx4X4HzbEg+EW8cxq6VabYvVrehAfFX3LU7GvXrYbTqE57n5TOI D4hxWekF0CAnmcnxtGUTyidbp7iCGEgFJu8WlZWCy5A/lCz/5p+3qODNDbYi oeBBxCPrZSlBHXRYWqPvE9WH5z9b7Wj5ob/iQaN7p6cvtRbxLZbiP6teLgLn mdY47UetWO9urTYvzQCGsrPJ1Y29iMdcGpoqVBuGw0OvrJRmcX8/kA0ucRmP Qf8ls60wBPugb57oyvg+AbdmyFG4zXDfRWMmCvbem4XX2w1npNk3kL4nx/Gp rPU8pIgvXDapwvk70RuihrN/vad13spuTmOI67bk+Wi6pQNZVYe02FNYL7oo Lxc1RIIm1LuOGnFdiH9m9kp1PWDA6OyqzrZd/YgvuDqJZxyhgIyHwJrWNYf8 VDE74PUv3wJMEkpK4vmE90Z55J7E5oBRkKnT2U5m4j6qv19831gzAIgeBW6b bPDemGNPrG8wqocTHfLKCqH1KP6zME2hzFwydPMKlXTexkD60Fmyl3QSEziW sMamhNuQ/qbfS3EZpTVgXkzsr4rsQ3yKmu3aOtQNSxL+rI1/hn2I+WfwVIbt MOhpi5fQFKIh/thP+4LmtY+QuYcrTezQBN6HQau3AjPHwNEjAs71+aOIZ9U2 LnnsXwDqIZYr25/geWCVUnUrm8phuJSXeu+7esQlJAPPiuuVQF+T/Z7rcdiH 5uvGS83+npDd3dFuxhfvq3zOrNVZ5xnw1caoWXpXDvbBQc7a0KgIfBFq4sgV wnNlkG9so3x7DlqJTyQzu3jRXKX+dSddvKcPKlqmBgxw9yN/2kT6260FWdD2 kW1Mx2FupK8EZLuegC74lnuG09AW+z/NM/TF7/o02GpWP0oSxefu0NrfeFN8 DHi6vjkZcGMR8Yscm0w0VmahTbKaf8ktXK/V+eD06wvDUCu3+KCq2xriCSJO 35QrK8C+otdCm0Qx/5a+xZib5wd8Z9rpwhDD98XYeF7YaqUVdtQSSud48R5L Ic+U2Sp1g/2egoE3LHAfWZWXtuR+nAQEZx1Zaz0f5ENITVV8ilEeWLIV6hB8 h/P84s810CbMBIflp1I6PbEPtQZ/vRuJGwETflPuY26FiEfHv959zY8CBmWm Tx4fwnPS1CaZXcGTC5nO92VdLuP+BqdJkzwCqfDo1fZPPrUj+N4JjQ2aXyqD rLaXGifc1nE+BKLnOT0WOCrCzL0ZU4HyN99hbSRBIcOJDMeJ6AK8B3ZG7Rf4 ZLoA+4M3bmcW4b3kGWiq9/TMU3jxf6Kb5MPwu3DrY1uaWM8QiBNLvCIXNYD4 PPcjzbs2k0C5OiUzo7Ed/x+w9do4GDgMDymdzi8oIyMeka6bO27bBLgeirxP F8V1jfR1sk3LfQB+2ioPRnbjPjq0ur0eKZsFkiL74RcKCdUlExop/yx1Et6+ p34/800nisN75PHAwvkxcN5VMu2qLe5XpHV833krOrDhPOxQPFsF/g9OgE5b "], Function[Null, Internal`LocalizedBlock[{\[FormalN], $CellContext`a1, $CellContext`a2, \ $CellContext`b1, $CellContext`b2, $CellContext`x}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.804244115486034*^9, 3.8042441864261403`*^9}, { 3.804244248408171*^9, 3.8042442629087334`*^9}, {3.804244292998872*^9, 3.8042443074322615`*^9}, 3.804244360708459*^9, 3.8042444318359575`*^9, 3.8042446332338886`*^9, {3.804244786068899*^9, 3.8042447916770477`*^9}, 3.8104667837064342`*^9, {3.8106650241355796`*^9, 3.8106650365853167`*^9}, { 3.810665072756136*^9, 3.810665075637412*^9}, 3.8106651236167736`*^9, { 3.810665175581946*^9, 3.810665204280072*^9}, 3.8106654462908335`*^9}, CellLabel->"Out[87]=", CellID->714980295] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", "data", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fit", "[", RowBox[{"1", ",", "x"}], "]"}], ",", RowBox[{"fit", "[", RowBox[{"2", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{3.8104667819831476`*^9}, CellLabel->"In[88]:=", CellID->74343381], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwV0Hs80/sfwPFtHVHuostRSH7l2PLQjxTO8V5SZ0RF7XTVkUu/JYSTLkfR RR2d6CdFyDids9xKZ3IQ4vOVhSnGTo7bJtkam9HumOGc88fr8fz/tT7sbHAk AYfDRfzTv3KeWQ7eW07ARAtpnQrAY7VHVthv+kmC3HQez/9H7ILik9LI1mWj 0HXayontroHpt+cdv6ySwHAiz79hcQAiXlj/dujIBKKZCHeonJvgq4HeKDpf hWr4zbrTWZ8RJzyjiGI7BTG6V/VK+iw8Ht3+KOGEANL3bpNkgwSsrbhx2UwW LCetZsQUqqEsUDa1L/Ad6g81Ss1a0YxwO15vaHwgRKHz5+xk7b0wEV8+3LBL gbJqb8f+WDoDXs9K2m++e4+mX0itTcKFQPhwMZ+0WITSRQpWZ3k/SOrZZWH5 YjhzXeIooszBt3ee0FYSCeRysaCTkWhGtmmN8aSuUqLi7b9UNeb0weTdW2/8 4+NA48zVHd0oh9B1Q577R+dRZrW8e0MtHxgNN4pi2Gpot8RunnxuTP6sl4U3 TcBh6TjfU2ln+tH5xnCjKwNC8KUla2rvq8Gy3cah/8IMJHmy+6BOj9x0YWV3 +1EhZBLTMHY8D5oubdEw9lWieb5J8fM7IvC2b3wRTJXCd741VvXUJeRte7Jr WF9WIs8wuxllkAYmft5K8jg8CcQMvX6egR7ZiNqxZOJPERwfwW4alRDIjxHX 1BDXj+JW1ZEydr5EfQZGPZxwEaJo+XOR6QowJ/WekxjiMVxqUL74/jW0mHG7 pYLCgUdXZSPsL9RALzHNexWngPVJZJmP8wJcfq/nZlM+hmRXL0Uv0FpRS/30 Ve3iEHg1e7YE2iiAJ9woambI0H6VYDDjWA1gx7zYh9fPgpd4yaSwFk9e7eRf F7ubhdJJlpqTrUrg7DXbepYnBveXl916Iuag8wNe9X/9vxDzY9sF5rox+NqA e93grQJtjzQuX2OsgA3uwwcQiwdOyTm6Fbka+DGEHq7idsKe5R8qNt3Wgqm5 E7ZNJ0c4h/m8W/NFKMy/n942mIA4Wax849MaeFNGvNK6TYNGTGs9Blap4efR TbLR+H9+PGz7PeJNFyhonVJWuwIkm9eaG6nF4GeoSkIhzVDz1J+6bloHxO8o SSmU16inOgA7s1YGDZR8eo30I6oaJAY4GI0A7tRPIcSoJnQv/QfP9q+mQI9z 8A87YwytxfuEpAS8h1pOmia95A946L3S9UaPCmrLUo+ygmSI4THdsPMEF0pj zfWnQ6XIpvsuwXkEj827R7oTvOfA1/5Y/DtbMVz+T6RVWCYTnDOrDlhUKyDK h529q24KSiXgl5OnAqkgmbqgr4JZ4+oGk9l5eF+F83ax/xPZSU1S7xm1gDKR llFR2QK+9zrXuPhIwSHQnOtUoYb97Tm9wX/hyT4p0amuOgFg880lXIEGHLHg QhN/FVq77/JUcbgGrZ+cuZHs2Ipi3EhY0AkRjL5bptk9+RHs2qzrd1yTwYBr HLcACVCF2S/jMReFoI3CzR7Z+xKeMvgRp9JUkDvoIjAb64eLrzVu6tYFONpf Xbbx3AcIOtKwy2/8E7DZD7i7q+bgvwdXe0Wdn4GqTUrKpTwFEn6ienzTMoG6 dhvwD4+1IR19y0BX2luw2+OV8XapBIZ+L6NaNeoge1jjs7RUiJrudLga2qvh sOGce7hqHA3Lq67P6n8G24pjxNbeRZT5bFzEo7ehgoLoJxZ+A+iWRyl/87gK 8grCtzACeoC5LpQTqtQC5m6+imosh+BHBU+LuItAzMUzmRcC4NuP2jzeqAYK /XLuttQIgGzJoF+t7ABL/T1rdtLNyJ9cHK1/3WtB3r+Cf0C6TAxdfbcqGwpn weTrgEBxnRgMaA+GvDcSyISyEnkRiYcCYGtziEUvjCmmk4wf1sDqnuO3pT8M QOxmbBB/X4FO5XY3LzccA45FT2Vs5SjcZD2yOpi3CEytiniNJEOY3iBlKA1D oaWu4rQ3QmSQeKZvNnkYpdan27rkjkAms3Aap8OTHxd/wr/YPIOYh851HNLp kItSvnC8W4rI6pSlc2c7kJXDhoBvUhRwNzv4s9WrOaBFx2QUJkrAktYYUNC2 hPzEVd54OkGEXuXbdtWlaqHp+wRl9IgcuvwuXsks18LfUnhWDQ== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVlH080/sewOfpMr16cHfK5ayTEw0VtyfyOso35dzcsIjTLadj41BekjF5 CkM53eEeZ+m8EokOTkxLa6kc3D4/TydmycyYh3mNtXMsNrb9NkoPt/vH+/X+ 5/33+8sYxok4cwKBEPuJ//voFFfhHyGHMH79NiLZCP364KwOjhG1/lxh600c B2prP2uovwe1OZcdHJvXQ50t980Iy4DYnJJkgs8YYit6A4LSV+HsZ9JGyzYT MBnVEtqtViiev4OdyX4D3QqJ39LoBAwPcLL8KDjkOWR+X7xdAVlrmylOQhw8 H+4oDvfvRhFpZvR3ZpMwHBF2/pFRC17m3uTbLTo4czXT46vEZeRCkdXou9UI /zrecH232aHWyKKjdf0G5LiWcSTmmR4pilYGn3/7B1zAH6SfDF2CzVJ+gsiR gNlF5auYgwpYzZGvIcMK2FlkqE2+WkSgJHPbXTugcIDYtDQ2iZp9rxSclkyD nrIroRhNI3LMJU7QlgVIqXrbUdOhQUsP/Fmi9C7URczQp68ZQet2Zy9zdhoh 8nJ5UHueHtYSeJ4FPxEw1lBt5BjRBC6ky2zBbTOsxI3XMLXHhOgHfVN3bhKh 769Q6z7QO9Hw6C/Htu7QAWFrhkHQoARvCnxTUrQKGw9EnHjtNQLVN+2ggr0I YxnvrXz9DJDfm6hND7LACmoLEw7Q/4KtqcgMu6ewwh7yEoqULV3ox5QjBE2p EZye4jJxlwmNJ21PFVMVILH/M0ue9xK9zGPl1nXrYKD+QBW1yPwQL3xbRcDA ANy06dskOiaEsr0lxJ+7NCB3tI4KzF0CKxluce2lJcY/3N6NsdQotHbZ0yO/ Eynu5wx+SFWjO2fN2kj506hUSFHkjejh2fNjGZxJE/D3+XTtOVeFRMlSZqa6 D9ZHkj/03lhGiZqhSv+rQ8BPpu3TORtQMEVb/7toAspPzcw/3TcLszM3ozy0 BOxXWdApa6oKclbCN0ChDo5FVCcZ/jsHG5pcFTbhZphD+dyTLwu0ECsJ1jib f4Txh/HXKDQdKMjG06G9JkjQD3Bm+TPIqT/dk5GggoCXjzL8GFxE2RvXWHHE BA7Lbq6cmWEIVV+K960chQf4xNbRKwYo4/dKxZ9PgTEpgdy0X4GafkC0pdFF tCt8e9pPa4xQQ6qpITa/ga7SL6oHc18h3mGpRIZrwLtuuU70XI6wlCcMSzoO i+bVwoEQIcyNuHnuYAvR9SI/Ek8gA0Ya2ynxrwZga2VpzjU4iu8wqeY3itH5 7BtkF493KKIdm+otnUTzan7S0MwYdNz+V1/VdROU/3v6SFP0LBoXV23xIy1B cbb/Cb/v7gH+hXWj45456M5bTWXxVMhn/7pE4eNXcL9PtJLibkTehZFvPyuZ ANMzdUDPiy74z9Y074laIWxxYh0lB3ZAZqg7830lDoOx1JXBHCaYJ8fHaDJX 4LHV/VVtoga10kMGnT9/COw4V1pwSBtqIb2wEJB0EPSYSve8uAhR5Ll6fNQW aziXxSWPT8LOyIZcuc0UEttPSWh2Joi+Gl0+4mWD9SBZzHjuKPxio7EKjjbA AnGmJTt2AW0IF74adtDBpkPuovNkFWIm3TmYe3YZTlpYhvq+1QK9fl9ORyoO UcfzubHGWTgkaN+9l/EObtsn/ObZ0422td0iWTq8g9+466k2xD+hNkx6weBo hlGpuo1Rb4dgpI/wbNHWArsr03RGe4whd6Yd6+w3c2DqObVecO81IiQeptAC M1Dh896quyGP0Eo0acSuFoeWHGu5eCOOvNzm70qZBugLOlerrFSiuez5ZBXj KZRV3dr8XbYCTbssHPxq5hW8EDvxu4kCwBMvUy6cXoH8RufhFJYafM5ImjP6 lGAkqaYjTnWCSXzD9wDjPbQQMOY/A03Ixx4XnC//9L1NtJAtChnMNcXPlT1R wd847uuaw4wwlf/xIq/tU8wKC7z2j2tw8u8Olm5Fi5B6T9zoOD6DKh2rv3Xl yEFnc9XvEv018vz9Lq9JJIG86LSPu1mzsMfj68dPOmXwIzdA8Ef0C2T9g30d 10EJykmp2YLrryjbf9cV5WYzLG6IcUvZqUVO9u7QohhGLuxSt+sNr+Figfdl 3h0p2O4vlhuPq9DxJKfGM9E4lNKqJo9H6RHdyiuuXduL/gdtQmqQ "]]}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtlGs01HkcxscYmdFgZn7TRShZHNmmmw2V9v8tSS1NIlOnizQZjUuosDpo k8u4TDdiNmVPiZEzq+hUJPX/1SSb29oucilhGFOR3DIS1p6zL57zvHo+53ne PIuFYV4iKoVC2Taj/zyud9vQ9DTCnVKrGmoGHatj5o62fUe4SkE7+FlKx3zW +7GycYQLa7rHWiR0bLEmfDJsGOEweoF1aRwdP0nLoHeoEZ5MsI4/EEjH9GVv FuJ6hE1jbJwqgY4vRvi5n7qMsCDQVh45oI8VOsfzKY4I17kuPa3x0Md6IrdV Jvs5WFzy/GZknx5GzVUheRfYuCjWnuF7nYa9lDmHltSwsCZs11SFny6OGVgf cl5ljJu5bDFJpeLyX3OCbm03wiGmsumFlRTMz/CxmLrExMJC0TyPO1OkW+5D /pY+A6wRsUUukxOkvPpE0/G9DHyv18doMGKc9E28OOfvG/pYXVd1tf/uV/Kk n+7N2WgWFkY2nL1qPUJSeItIlyQabg52v+2cN0i2pl+SKF5TsV96b9z2xn7S zEBcNLJRB+dXBfIz7mvI4NV2em1m06T82cbBY6tV5CHH9htK5QQJ1fQp9+w2 0i567XRovpb0NxqQpMf+Q1575/30xIZRkiKd3brAooLsjZ/j7DZ/iLzastLf +kwxUZFl66oR9JPNMuVrW2k9seJDy8jyXDV52yrE+728hdhU0caYFHSQNuXP A8TqTiK86JaWjV6SP8mSdygDeglBwA/XXsTeJ4sH2EmlqX1EdV1Lmr13OTFX 0CoPeP6FWMt7fNtT9pL46knJK0gcJqhRc976m3QQ0pQzG5axvxL6TM944Wc1 8WTfwNjhV1oioaPJ5dj1fmKi6210edoEUXI52fPk0CDxsWDlH16cKSIsz5/V LRglKk/z+vliCvgG5ZhL4rVEe2PkfpMSHUjdEbXG/soEQdXq2ocNUoHGzVL/ 9m2KiDryPdOcT4M3tUlfEo11YFO8bXV4ph74xAgdcpRU8Fc9SjIbmQUhsz9Z NuyhQbsqZe6R9XRYpHiWPeujHux++Dtz6ykGxJS7eBtf1gerHs7ZuHYDCJeH 3HNYzgB3Be4UWDOBSXUULusxgMdkM06RGILrkZ1ZdplMcCp20NusMoL5983D XK2MINms2/AVYkHGsZQLK94Yg4zR5VuqZIFX8nZe7j0WNFWNz+88zAa7vYk+ +XFsyA69k9RE50CTmpGX6cOBuJ+tnKLLONAg7NnAWYQg412xd8geBJ20Qm2W JYJ9LyKHXPYjGJGLb5nYILCpXn/B1A+ByadPZot5CCpK6htqRAj8jw+NLV+H oDuhf+uSowi+JUwXb9uFwMGOB2rJTK7AZEHqOQStUX8u9buLYI1bWyMzE0F+ cEStYzkCjw9XJOezEYT6OQcZP0BwlGcxKstFoPtLXeEjjKDyrk2jXIFgqXmf pXkdAq9n9slPqxGcVP5o0tqFQCQedd5Si2BL+XBZaQ+CaIOy4doGBJziB4JU DYJc/tqDL18jkGe7X3T6jEDTBM5dKgSNgcHGsvGZvtHUYVEvghxf+5uh3xEY mj4t+vBxZpf3hMfmaQSrDrjNGxxEoHVOTxulccFVh9EQMYrgyUrvJfX6XNh9 vSZRq0UgtTH9K9+AC0Gu0nWxMxyBqSog1pAL//8XWLIUejtZXPgXhtVDoA== "]]}, Annotation[#, "Charting`Private`Tag$27207#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtlPs31GkcgMd8v8glZuZN5ZJLZqdoUdpySfv9yFrOukaonG4ue6zEMLY4 Yll3bdsFKTXtKdYWa3XaTaK8r9xOSLZCUZHcb2XMMCvMtufsD895/oHnPCZB UT6hbBaL5fGJ/5w44iFRKBCZ0UvQjDDjkeGE1bLeRUTKiy/ttN7AI56cvvm7 /yASZlkVKefziLGdcClqFpE+R1lHmjGPPMw5v6J/GJHWsKh88RoeWWHZbUge I1JSGWz4RJlH8mIPuyVfRiTQx32z9QCXlCmJilk2iDRkr9sjL+QS5VAXa90D PCJu1uNns7gEvWiMuH6OSwKOCQb8hBziU18YbNbCIYtnDqZONWqThPc7I86+ 0yYB7z7ztc3VIlUnCsMrvLRIjIq6YiF2JfE872e8fEmTFDYX1TR9qUlcxA88 XSfVyRWJTY29lgYpaY7vEgWqkUNToxcEEjVyMC1P58kNVWKV4ZWqX7uCJB2m /tBAKqRu+qlb1lVVwrIwwk7pNLGo8w4Qp6mQnlOXMss62aR4S5qoxkeZGKiH 3ZTuUiJvop8f3b2NJke3mSv3GiiwqXdP7AcFmwTbvLlRX/8RO13sITYdSsQ8 zl4RWSzH/Fvzo3N/sci1174N8Y4yzG/Lc0qiFHgkRcfBZa0Ep3SLji03LuLq /I3Oo/5TeM6wturs3gW8eeyl1Eo8jNfbL2WL5ubxV9W9akv+/fiJ9Hv09QMZ Ft6skHPRM5w3sa/WfM8s9v/W9NrTk/fw65QTJgo0g5vbXuZs9a1i7nQjHdfa KWxvUXfbu+AZ02+qbV4pHcXs4zqvQnT7GV5FYgWVOIhVNb1TgqaHmdGQ9Pfj 3/Th1P4up5iiKSapeqCA86gT37qc4Z0kmWHAwGPXeOcjHHU9hDPoL2OMz1Un c78rxQfDC9dlpsgZ2wrn5OY/K5ns3cfttl75yDy/8/hW5mwbQ6/KH/5hYZkp 3aft5qHyguluTf+Qpq0Em8rDpk+d6Gf8EoK2F9azwXebSNrmNsREaEysb99P Q3ySeo5l+xhjVNZ0QWVcGayMq9B7u2kmocrJV/uyKrwqdilv/HGGEZZEVG63 UgPDwvi1xXiW0WTbBFkOqYOrLwQJP59jnI/tyTfP1YRqW55g8rScWXtvXZQz Xwt+TyrdEte0wJyPyTq3uVsbMrK69SWWS4xPhpeFuJIDPZIWj5ORCsY8MM2v OJELtQ2Di/v/ZkHXsNr1XD8esGMsH0ZSbGgPGnLkGSFI9wosUzeh4C39mzx/ PQK12NNyZQEF0pKwCl0BgtMXsbPSJgp0JyYMTCwQ5L017Z//goIQkWTeageC ItHkqiFXChZSFeUeAQjqChKTsJACwa+6etlnECz2/bI7llBg59LboZmLIJl+ ejWqkQL3sSuZZy8goM3oyfAWCqItjGUFYgQaMWEZR55TcP+OoKOkDIEevaXG c5QCn6atGQ3NCGw3PuSbcWgIDZM5uLYiuO8ujebr0BCnfne2tR0BRAuwkR4N Yk/7I886EbhU5+xbzadhtAscBt4h8Hf3/ZmypWEhjj0bOoLgpTC9d9mBhpX6 DTfHxhEcyL+7ccGRButDLmtmZhAEv9Gv/+BGg7OSWnusDMEI25Mz6U3D3qKW NLkcQcSG5AMjfjSEO/+04+Qigmm326UDnzr4/18QIxycf32Ihn8BvhpGjg== "]]}, Annotation[#, "Charting`Private`Tag$27207#2"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-2.796990234539692, 4.153576274113011}, {-3.354958809216938, 4.576790260627807}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8042441721307354`*^9, 3.804244187392417*^9}, { 3.8042442656298494`*^9, 3.8042443084632597`*^9}, 3.804244361756751*^9, 3.804244433178488*^9, 3.8042446348127394`*^9, {3.8042447874069757`*^9, 3.8042447936438665`*^9}, 3.8104667848424187`*^9, {3.810665024726006*^9, 3.810665037757186*^9}, 3.8106654507080626`*^9}, CellLabel->"Out[88]=", CellID->370776675] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellChangeTimes->{{3.810665759112193*^9, 3.8106657602311707`*^9}}, CellID->154212933], Cell["\<\ It is possible to define a fitting function that evaluates to a list of \ values equal to the number of datasets when provided with numerical \ parameters:\ \>", "Text", CellChangeTimes->{{3.810665764367142*^9, 3.8106657864640903`*^9}, { 3.8106658250480337`*^9, 3.8106658493275347`*^9}, {3.8116837092876062`*^9, 3.811683710006345*^9}}, CellID->119078020], Cell[BoxData[{ RowBox[{ RowBox[{"data", "=", RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"BinormalDistribution", "[", "0.7", "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "100"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{"1", ",", "All", ",", "2"}], "]"}], "]"}], "+=", "1."}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"data", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "2"}], "]"}], "]"}], "+=", RowBox[{"-", "1."}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"fitfun", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"a_", "?", "NumericQ"}], ",", RowBox[{"b1_", "?", "NumericQ"}], ",", " ", RowBox[{"b2_", "?", "NumericQ"}]}], "}"}], ",", " ", RowBox[{"x_", "?", "NumericQ"}]}], "]"}], ":=", " ", RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"a", " ", "x"}], "+", "b1"}], ",", RowBox[{ RowBox[{"a", " ", "x"}], "+", " ", "b2"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.8106655888073807`*^9, 3.8106657034108505`*^9}, { 3.8106658049194593`*^9, 3.8106658117282853`*^9}}, CellID->3842048], Cell["\<\ The fit function does not evaluate symbolically, only numerically:\ \>", "Text", CellChangeTimes->{{3.8106658548477697`*^9, 3.810665893383317*^9}, { 3.8116837178141327`*^9, 3.811683718669011*^9}}, CellID->315801539], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fitfun", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b1", ",", "b2"}], "}"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.810665868610729*^9, 3.8106658784641275`*^9}}, CellLabel->"In[129]:=", CellID->26770659], Cell[BoxData[ RowBox[{"fitfun", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b1", ",", "b2"}], "}"}], ",", "x"}], "]"}]], "Output", CellChangeTimes->{3.8106658789916887`*^9}, CellLabel->"Out[129]=", CellID->224915703] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fitfun", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "2"}], "]"}]], "Input", CellChangeTimes->{{3.8106658969366064`*^9, 3.8106659048933234`*^9}}, CellLabel->"In[130]:=", CellID->246798801], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}]], "Output", CellChangeTimes->{3.8106659052254415`*^9}, CellLabel->"Out[130]=", CellID->754514990] }, Open ]], Cell["Use this function to fit with:", "Text", CellChangeTimes->{{3.8106659112630315`*^9, 3.810665919295558*^9}}, CellID->107243424], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit", "=", RowBox[{"MultiNonlinearModelFit", "[", "\[IndentingNewLine]", RowBox[{"data", ",", "\[IndentingNewLine]", " ", RowBox[{"fitfun", "[", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b1", ",", "b2"}], "}"}], ",", "x"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"a", ",", "b1", ",", "b2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "x", "}"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.8106655888073807`*^9, 3.8106657034108505`*^9}, { 3.8106658049194593`*^9, 3.8106658117282853`*^9}}, CellLabel->"In[131]:=", CellID->90161446], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"Switch", "[", RowBox[{ RowBox[{"Round", "[", "\[FormalN]", "]"}], ",", "1", ",", TemplateBox[{ RowBox[{"fitfun", "[", RowBox[{ RowBox[{"{", RowBox[{ "0.7119431568046648`", ",", "0.9298066837256317`", ",", RowBox[{"-", "1.0296954456324579`"}]}], "}"}], ",", "x"}], "]"}], "1"}, "IndexedDefault"], ",", "2", ",", TemplateBox[{ RowBox[{"fitfun", "[", RowBox[{ RowBox[{"{", RowBox[{ "0.7119431568046648`", ",", "0.9298066837256317`", ",", RowBox[{"-", "1.0296954456324579`"}]}], "}"}], ",", "x"}], "]"}], "2"}, "IndexedDefault"]}], "]"}], Short[#, 2]& ], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Nonlinear", {$CellContext`a -> 0.7119431568046648, $CellContext`b1 -> 0.9298066837256317, $CellContext`b2 -> -1.0296954456324579`}, {{\ \[FormalN], $CellContext`x}, Switch[ Round[\[FormalN]], 1, Indexed[ $CellContext`fitfun[{$CellContext`a, $CellContext`b1, \ $CellContext`b2}, $CellContext`x], {1}], 2, Indexed[ $CellContext`fitfun[{$CellContext`a, $CellContext`b1, \ $CellContext`b2}, $CellContext`x], {2}]]}}, {1}, CompressedData[" 1:eJxNl3k41Nsfx8eSfassUTFKLkrJLnIsiRRJclts2W+SpatIQqSyKyXbpRQK pRItcmQLZRv7nm1mkDGMrINf/3TOz/P45/W8n/f3fT7LOUg7elm6sBIIhNrf v2yEPz90cN3+U8r9C0vAwXJwp0/0GvjDBZcokXF2zVA5Z5flzqofiB/Rlrc/ lrkKTTqFG7rsq+EfXmMvqKxW3Ath0bqXCNsQ0pce8lnepzQE5QT49qa7/kJ8 vVTbZkbyF8y9Zr165Wsd4v4xorpq96tAVcRjjmbxccz9EjiKFelwYOZDkq3F HOJjeeyrLDZMcOVywIzwYV69P/zqRKBJWuYQkOzrDPtisID0LnlSXBFfl2Hu vLNgunQ9yn/28BAn94YRoFUdVx7dMYv0jQnxCv8OLALz7UHJAb1syL+54UGA iixLuUIW4WdHxijyuSAt3HGwjAw0ebXGFOgEpN/rVl4suVIJt0Qaaged+oL0 ao3p4Qq5HyFd/nyJ47UB9N0L5GDH59ZjkM8ryUxlQzuum2VmUt4aq54Lmah5 xmAF8bAdndU8j7phsz332rhCIeJautLZ70/SYOJXx6Gc7kHEY0Surc6Ms+ut CWjTxFk2oZw7uvib0u5QgYKlux/3/52XdJ3w123VLpjmeUGEt7EV5X+nVKvt mhcNZZhMiVJbXLcZjTyWU4p3Ab+NsOF9NdyvEzP5fAWKNJCgKzRWFD6GuKoF 6eYUyyw8xKWaEWhCQv6V7BdLFLvooGp71VhzM+6j1o419+ndDHDCO6k9JQPn nCjbzvrlCxNaVE2cm748i3zE6F/2+yYuQIsrMS7QCffLQNKjaGrjKFTQL38r AluQP/PstmtdG8vBtdg14xv/teJzvTwoelCIAR22Gk0f0yxBnC3HpdmrnwwE UrUC+El4j+xMs0KHnnHqtc4PKzw9zY5ysqpHxPas1cPZ7OVs82A8Jwu6lysK ohZAufGJ1TAj7HMg0C7IqHQZCruuPxMMmkD5Lxnx93dsWQROHB9ulNgsI73a N9+vfx/qhULqxx9aB+I9WqHr6Lm96wDBARe6u3LwPkrWpFkeiKVDFRrrVc98 /N3Hwo8viskSymUu+TbInGlB32U2fxze9mYY6BhoKruks6L8s5dIOaFvFqDS rSsZyp+xfmB5MsDDkApYS1QVt83jnDkf2mq8RUhgIoF6z/EjA/GIRxY1HUEU QE/nMqOm9+K59bsbr9U+CquqO5PN23sQn1efrBcikoEqO4XcyzOP+IYiCfMq HgbUy925/1ZoHsqj/XNhnC1kCA6c+yYifZyC9FlWGuwNxt2wNpktI1WwEfHO 6dMBsVWjIDFkRIL5nIq4rWcHXdLwJ/hKaXI5sGsdcW5LUYGp332s/1z538lV 7K/TcmKTWUI/2HNLjKI/WIN4ws5fLLHvJyFN0XD3+e24L6JCYdQAnV5wOoTv yLwNrmf/UWJGkcMPkFRgtzfcAJ831VTsxfDxNsgV3iKevob1WTLJfWLiXbDW 1YvjHHs5rufzf4LzNjBhoulkeD37MNI/8JSiRIn+BHzQits+CO/de1cFs0ts dEi05TpwxPkH0ru5jHgIvmkBYb32jNoAfA84yvqnnS4vhk99X7FkjLUhDtLO 8trkFoL8Q5zneRvw+yJhTPTSDXwDdtxLbRX1xHNiPOED1u16YbhyuN2sL56T j1oRPdGaE4Cw/mlpvxOe28atBrOPZFqB2wJjm+oA1jd+Y5n6D5SDbcesfYEq nqtVFlvDTe/7wAdTPxF6BR3xDBExKWuVYeg8kezRJz6EzjucWHj/jtIo9Kck be/fQ8L+4Iv5i51D4PMNuXGCLb6XpPsr+7iuN4EpvjLdK6ZLSH82O7Asz5UC WA+eSw6QwfrbwcXkzZa/69+YqKs/gvv7Yn64nnfvLDx2sYlbnIjfC2GHFjBk NAeJquthlu04/xsQP92lQYNLXlu6s4IncR+/W01ZuxfBSM7nx8PbZhD/JNd9 +9bwOxji6Lw/uyEB8Qfg1WuV2+0wxPvAcMOLElSH7kggVVv2+37JvfH9Iie+ 50PzjEl5BgxIT41cZXvzFu8jxewf2zk64CtYFeKaxnOVbOfydwPLAgx52SYV 3jqC/GMGXw2wqNWAEBUxliBdnP/eVv2VH6ReqPt7NO7H4r0TLb5BXr5LgYKS 5nYv1YYRJ1xmLQ3Kroa75Do2kxRoiLvVRZRX5nVB0Xvg8t0teO/i+oJjdg6w 6xWXddPPhuO/KxIlzp7x8GmDBMP99tte4P2i7Ohelmz5DA+9ovsUfPszbwQ9 K6Esjcbf75p4xdtRi9sr8A9vuu/IPhXGAN5P8s8FRZEQH/D60Rm1YRF+qNcq +u7DUv6HT/HPyGkzm0BItAv1+51JpFe4eaO3I6ALzhOfE5jGzYhHNicKTc3T gZx3qUV25gTKoxt+1Spr3wyQ1DkomfsS+4wc5A5lHfkJ18wtdP5WYSKuN6nW 3tIyCpK5tpMPOE4jrtJCYftXvR12s3qzGJkwEFcqv+p6nU4HV35ue2byfhXx uoW6XZ3vhoBemHy9Zz72T4oPs7IN64LCbvuaDwVhH7fTjJwa3tPAIXbTdnuv X4iTNwhulmA2QE9bp5uWHQuIx/vz3336+/0WC9PPFpihIa72TZNo7DIPiOZE s56VClQH1k6TnAlZCqzUscmUHMJ1nvzne499ey24cDDeK5gwh3yWWgvm3Sc6 gei0pX0zA+fUq+dS2upKgrc0k1nbNOYR1+JoW+PkocLJ2ifEM8q4zk6+Jboz fjRQuLTLVC3mO8rztNrtndmZSrggQVWq8BhB+jdlAR7rNBrUrVxWLyDhnJuW 5ROin0xDu0Y7y612+LtPmpZJUgNjgCalwNoPxxF/LbzC4d94HyzmuKakPKcj 7iz28J68cg/giX0dOsEcR3kuqdbpmqktg1zVEdPdhT1I31+kk6Q0woQxeZq9 vfqcKI8g2bqmM30SUiyC2CPvkZE+6s5fKdk3BmFECy08MXwR8fyoIrbrqlMg 93akVtBh3K+EHon6epcuQKRXRWQoDaI8+oU7syChEhTU9geq6mP/ex8tSuVk SfDSo3aBUHI74hGu/EpVDwl6wncbTvpTKcinwrBTJaWaChP7a/N3+80g/cYe CTEDjTpwJT3kC9tRCuJey6eKyBwtQOBkIp+ZKxXxBZ7YHYXHlmF18+E7LZJ4 zuvP8D/IoU6CLY/YO6NHB9B32462EtPi50CiciB0N8D7/mrGQe1keB6sLy+z H/q3DXEhJbN1bZXf8/Wkq8b52Rjy0aTXx1ukkUC8dARBygr78zMC9m16wgBd h2dh76VB5CP8eV9JtigZ1M65CO+614f0wNvrZd4FOiw+ov3JJ0AI9VE6rAHW 5HTBYdaT1Z+18fwLOFiDWmcIqnx2yOnOtSEf8eio/w6VVkMQmvXr4G68p/pl MZfzHpTDlyxdMbYxuD7XOdh0h1QJetsiXH40rrcjH6sOvTajgCbosF328uLw KNK3inIRiHY50KAuSFE2lBXlNCKQqlzqGsFkKq2j4Bbu4yv4+N8bBBIQym7R Pi/4AfmnAhW/b3IMEO9FfiKZX4l4SOURKsXjOdBs8hFPQf8vEPQOpzAGNfa8 BaHqipzth6cQ54Y2NmNJM6D/8c2ba/fxnkaPTLi4u1MBT6J8bqH9T8TjGL72 VJE2oCOjYTMyM4C4MplOCiR3gnj2bq1PumX4/ux036DtvwKamI3mDD58z/Tw mHD2FK8AIQNOqhUJ123qGXitbr0EM8POnxAaw3uxPvAgpI2XDjcPvZZ68RbX X+ivQcM8JwrcQ3XqZGNjQ/XUpDmqf3OaB6NpPNJWn1qQP5Hp15RJ74cBgt59 tqbsSF/wI5Y0VzoHiIkOluazD5F/4ZPMjhfTi/CpSu3qvhysfz0ToiaTuA41 4qRVanw5EJd7wxnVkNUG/Y/3WuT34/t8Vq/YwmbjMCg4qv/5DA3fYw8M69Tn nHsAbUR+r99+fK6tfBXyHxrI8HtrXtJ04RLiU1Evme0RdKibrb3Zg4HnxFWL vyI+tQj6ewYrqHXh72omfKTaSOfC5uikpglPPIfHH3v1iI/1ABPjt/K13Hh/ ZUKdLNmq3gPxk3n7srjxnETd5EnVtFoBi9ruBibZtYgXXOj16oujg0XGr4ID wzOozpo1LFGi1gwYPyggxfZwAukl6ErL6v/Q4VrvRVOlZVy3itajJadUx2Fc znhk61P8LqwnneI6fvknzGLGpe+Sxe8OZSXuqdLnOdigamStaYrP6+3w/t1K 7RyMXj6lST6I3+WR+QMs2t13oLhsaPLgJ9zH/DnnJTchGmjXv2N+tXsY6bl4 GzMSppZARMYeYiGzE3GHHkW+HGsGcDCLqj8h8hz3pTNRwkHkNQCnpI0zj+E5 LBvNHQ75QYHlpEhv20r8XnMJ+bzbKU8CKXNC30MUCeX/A10HL+g= "], Function[Null, Internal`LocalizedBlock[{\[FormalN], $CellContext`a, $CellContext`b1, \ $CellContext`b2, $CellContext`x}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.810665684508367*^9, 3.810665704280555*^9}, 3.8106659205801272`*^9}, CellLabel->"Out[131]=", CellID->203019342] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", "data", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fit", "[", RowBox[{"1", ",", "x"}], "]"}], ",", RowBox[{"fit", "[", RowBox[{"2", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellLabel->"In[132]:=", CellID->21031294], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwVkHk8FAgfh2cMIYptHZGbetvZ1eYqR/lNjlXeSLa1JUfJ0JKEzTbkaE3a bJTolUXqYxeZVK8VKvmNda6WzDinYTLjGEcYM5g1Mbb94/t5/n2er2lItC9V gUAghH7cv7wc/PKXnIgVOOX7zjzmhhw0VoQZN4O60bpsu6958wgccvos+PD9 NTw4oNU5GNyCrcEa1nY1XMTq9WhtEh/q3WJkX+7m487N6ruKwpZgvd4pYMFo CcsT/Nbi2/6ES5k6znY5zdCc/mBDt94UXLqYvaHGUoS8hed5gT6LMM5QXCMG rEJ8HG1B6ys1yg/TiQcL7/PBaGggrdFFClSGsUp6mwzLl0M1ikw70P8rvrKq 0ig4tNxk3ugXQ1f2LfL3vL/B2zApn8YlUbo779BsdhCZ5BLC+/7iMYww1erf 3zAB9moO42QRgbIrnFlj9KEJt2a4OiV904h2XUV0cvkLFH12ujYkgQcREykh D/3GUT06z8tGqQ/Wfe/nMeQKFOqEif0Jlw+QZjbQsvEuB7uDVeVT5Kfg4Gxa Wvf1HOa2hfDLOO8gUzthbWFKkSLf7DSnR9xCMRvc9Kbwp0kg+569qPrRj32Z 8J9rtoNYGBWhrdbVg892tzuFMW6gxeqqfn2gGBb2MojfWF6HTQFarjl2i3B0 4ZF6peUcZDtrjlfTx8HWh/3jLFGMbiq2xYkH2dikeK7WclAEzYbN493dUnAw k5+d/1wCRy/k9f1STKJMNxgqNDauok/z9Mn5ODHqihqtYnOl6BOfScUzY+hi FFk9+8kYkg8wf9dGFqz6GyQMfsKEhCy5R/K9Hlh4vF9nv6YET21znz9sXwuk Mmp39PAEbC5woG1iyyHIs+QK/zdlSs+ygPzrcUWKwp70rLfyDhSXykq9UwgU qXPcH5U/S4HpcXQtzV0OjolBSe71MtQKW/9NI2kaz7tvGu7f+jec2fA8uTZA BnavY9u+deOi5p4j//NLnIIPon2U8Gf9kEKL4AyWLYFRa6GvY5YIbeYUfoh6 JIcHWg/O6e4gMC3Ox3ZanGDhavcLgUGVAPa52FtTixQo4vPssitVUtx9Nb7Y +hULebIZWqTrJCjU2loaLMug7Hlv6wVtNkxnT94OeSGB9Ls+rf1JQhAVqXhN FnEh8+L1Ww59Y9jcMpDv3fcWlvfMdGiaTICtonCCu3EZlKr1vZs3SpBSbm51 9QoDnd5Lp0ipfOSdfK1tekQIJcf2KnZ6cLA9n1RcoNEFA/PHaVnNY5CbOqq/ +nASAqP6RUau76FN+IbquH0dVH11Ns9+/KvjVdO9r9eEsI91dItX9jB8cVVX eOBdK2SbLxGz6mZwztL189OGS6CjmTZJ28eF46nqh5YDWDj8X5Pi6lMjkFcZ tIvusgwFnroVgiO9qEJn6RXJWVhikT+kqzeI7WHRG04qMiHz4XcpDKVVzPWc oXcoCvBOlLHwZ533oI7HVIOTpFAXRvY6TxKhSaCK46HQEQynjkZqVLEgjRss aaeJIWTHpcLjzBr8NfYJsXi8F6DQXy2g/Ck8clM+rdY5AvoeJtHOiVVgdrug RydKBh7TMbAexEW6NT1IHCuBFw7pb2/YTwNh/eWK1Rk5dG1zEd+16IFwqcTA lieBrtfE2XvABIPDfrFgy4U1YqDrlroheO55UVv0hwiKtXWN/WwEGDqdHzmk x0dB7tOcn3aP4SVhnuHwF2zogkbvCnM+vEreOUUIJFFMh5uGVC6/gVn1Bud4 zxXwL01sYIQJQWH/yXyaBYlyLaVm4lPfj/1duc4HRpehYlnQobZLjIfPvVHV M+GB1ikW8N0X0cR2Pc23TwRVcGt+cO8crkRv5ZSkzEDdX8dm/c5WY4bywyP0 3gV4uZNz7argGaaGhFqVdmbDHXjyf5trfZh6wVHQWVGLnAwwbm+YAkJ58l/n lBfhCsODzXCRoKggY41U9TsoCb2+C1wUgXrlmqbKvBTyg6jfdhKlmPq415je M4qZ757wiHatkGqjS0xynoHb2w58GGFz0VkEHjlZ66BTkzwhuy5EDSPvoMd2 AiDEKdQnlbbg9p39n7LJcxD+ZzqziTGIOrch7vrWJbg5lJJpzlOk1DRwRP50 NUquvv+JyJheJLhaBRtUsFBoxpEZsV6h2xNRTOVrCfwD8Rw4bQ== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJwV0/s71IkewPFhhBTNlurQxtgtS5djTm4jl8/QJqsl63a25xCbS7ZOobLx lNaltdaQqaZsqpOQ0aJl020rn+9xe4Zcx4zRCDGMYZoxYyaXMXL2/PB+Xn/B 2+ZoYnCcPolEiv2r/xtKKXPt0ptFi8ZH40E/L2H3taMG8mw1JJVW/yudycPh xHdC5qoFfN7uVt+RrEfITVV27rpuyMiPk3bkynBH1sXB/rQBnKM+IOkO9GBe D5sin1OCXdLLoIqSafC6dC60zEEFVh6eVpUPZSj2XJ2pL36PHwODPP7pqEOG zFnQ2zsON423SvYenUHH3knyWRcBvtFP0tvvp0YacS7+glIJP7z/9L7fs2Vs m2/bLnw8Coxs+/aT1TosYmWHRmYPoPkxh54v09V47Fs1p3XNtxB9ef3WqMQP KFm1boOlrhNPRsZkBffPIyvV9Jdy7IXN2d4VZioFOr+mUw/EzQE1kBogWmoE faEfZ9p2Eps8IkqsRvUI2fcdoigBF457shJ/JGlwsa9mLmFaCJtmgqN61Gpk tBvTtsTz8Cf6TX2+6xy6GfI/GplIUcYtpR7eI8OY00+9VCkKqF3c7u9c0AHl LcceBxxuwnlLKa3xhBj/aEg7saJQoFeT1qWGp0es19pfyS+dwSNdR4K3HJnD 0m4tz3p4AhTWO/SHcArrzJcMU7uuwQInvrj4gRJjN9+4ar9HBCaX6zKndVNw yqnNK8BZC5VOYv+dtSIcqvcoool1WFBFHxz0NiLWScJbhXdkOBmUbpB3VYLM 3C+KKy6OYE6v4hL70gJWM+vJF5zkUPlznlu6rwKviCzb2+MGgKpszrlLGwHv 2s/LkNQENdyh807eErz6Z9BLO1senvpVYJYpEWBOvCmt+QaJYf5LZ0iqdBIa 9wkdi1ukyB7iVu9MUeEnIsvNPq5t8MOdjP+SD05iojasXmLYC2Yh7LUB8VKc N7n8We3XWmzp8c3ttVrG9sOm1zlSGfztVwNh/vgw8A/2UW+zNMDecx4TfHj4 uyraOeRSFbYTDVGjZ/lIoQWsuDuSGIzSgdbY+xNAV7azgm7zgGWTQ7IOHQZT dZrD+lI1DPjO4uCpETR/5fC0YpMEuJo48+1X3wIkJT6sOq7EJ1+5v0hOoxA2 2Z3YyhnAMf2QllfuGjSLDgduLEJz8md2Xho+WOQz//PlyxaEzLIPnjs/oHdD wZmq6wQ+1BsoiCxYxguGZK9RJxLj05y4d10rAgjtZ/D3p3Vj9FbbMwtj49i3 yZhEPcJBn7b03baZ+sR+Eq85rq0LZLcU/TU/qfB3vHf2IokHlIpe9+/WPYdb 4Jjy2k4NrERJqVV1E2Q0fSWdPPEA6N3JFsVnZtG3WD3iuusRZLrsNhL4ynE1 RkRMFKlg6F5W1sdrYswXT8clJEjBhG1fWRv1HgvVp6OkG/ngsc01Qqwaxj0S Je+8RAgsgzduL7wakCZMWOWeugTduq5A9Vo1ikz8jERPloDiYyQN5QlAfh/q XMIXsST7u28oExJcGb6ewV+jxA2jdda/PVpGyhcj+6piJnGXNEZIJpMJuuKo y+uYORi/bWIT+qIXqLqU7hLlEKatS3ob6W9A1Ly7zNO81ACVHR0cOHsDa0tL +n+bWcByR+6yA8eAqFNlOG9jr6BroY1j62lDwu4PI2ZnGR9TDw0GVQ/N4yzj SVDEJ2NQc9D71WHFFF7f1+aiiRWBQmz/95R/LOOWtY32zzsl2NFXVTRTu4hy 5kOdIEeJXhXuG06oVRjvZtrIulWPqSd/3OE8MI/0K39KI2wqsSe/qHv65Dge upcospgQgd+BR/bc1TzclhkTTG5+BhYhVQ5lq+XIzDK5RQ9dggX3BB+/Ci7W HB9MfFuohAX1h5q9Yyqgt+oxN4WrkTViZk2+MY2WSprW5Xslfhz8tz9Na0g0 9h18GuY0hYWcqby+cj1ipSjM+NCZ91imK7yz3favb5cKy2mvNNjptD+c7j+P SdHPHi9xNZivDaNLPHUontur5/4mFy1sM2+OvDAgqjWxi8coChB45waeezOG xmu67l6RL0LO3V3UWp0Qo0W713LC1RAdwGz/ZuMDlAvZltEb6wDCbA6UfE0m GsYrxzLeTSLBy0uKbGoEY0ry48/teVCsoXRk7CYR/wNi82m9 "]]}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtlHs0lHkch2fGDGZMeP2ySwlRQo06plWkfb9ymTbrsmONtqIalHUvNoqy ThNls0wanUi7UWSd0gXR7f2VS7uubTbS1EbWiEllmAy5rD1n//ic58/n+euz VBwnDGfQaDSf+f3Hw4M+qrk5hOukf1Qt4LCwIuUztXwaYfGapuHTLBb2NXw1 cWsSYXbHQ0szOgtbOsfPxI0hvJ1796S9hokfZp3S7VUgPJ1xNUygYGJdh25z 3IawW2rewvSHTHw6cZf3j4UIN+8JThw/xMQV9ISLtHUIyzeM8uVKLcwKFzia Bhth/b+Gh2XVDIyeNUYXSwl8s6TNqzePjoX1BaF2zYa4fFCa3JNEwynvN0bn 9htgMd+/IS1zlqpNKois9NPHQm2/vqjN05TvqUDL2bNcHFY9GuPYM0kJiu75 bn7LwWY+QaWiHyao0kcHuxK2s/GNgBzbAhc1FSI5bdxxWQdHO0Utqu1QUUd2 aV3VQ9qYc9xUpM7+QNF4FpT7MSaWSYxTLCvfUs9/OptZ8ZSBg66TdnqvBykz TkT5+CY67rujH7V2bz8V9YU9S242R4XMbDFZbvKSCl339+X6+k/UkeUS9tac Tso+2WUu9qKG2mGk72EoaqQuvAxoOOimpiy7ZFILcS41mG7sKjBRUcne9lZm QxR5W2br+UY0QuUb/eLtdedPcs1Qz/jqIgXV8L7sVbuvnPS4LWfPiHqpquN8 mxHz12R8eaWGQJ2U227vmXsfFaRoj/WFJ6l1FGfHffBPVZKPWnuy+AG1ZPax ilUrlO9JF96DG/5nOsk9KZfPLQtWkYwDxi/CTHtJ60bb7/ILx0kdrn+6+J2C vO/IKuVxJsijvV3u+0tGyJpb5oK9MZPktcIM/yOqUbK1Lfx8etknMq44zPAf kZrEOuyMB8QsGRJZsCQzXUNGDL0l9tnR4MQ3B5z55z6Rvz4fyxJ60IG5UKZI m5olm17atnolMaC75dgHiQEdDpUnRlTItCAwRexUUM8A88x3rVatTIjWU1q1 b2OCkJd2kvOOBRYVTfnawyzg73Q44M7RgZRa9wCDQh3QKtGzzflSF+JLo2uc VrMhtHJurXcIG7iMdWKHAQ5cb1vKWZTPAc+Yb2X2eVy4kiRmu/yuByZ1S+I8 l+mD83BdaPMAF07tPy5d020AN2PJjJjF+iDM8OMV1RjC3TtyrXRXA7DfLgm8 eJgA5y0tT1UrDaFLwS7OCzSCbIrKvtpoCO3iATcjCwQrzpIJVoEE9DHLNDIr BNGJ7bPFQQSMl0ZUmtoguOYXnGW9jQBTpdJsKQ+Bs3bKhWU7CQhLUE2s3oBg S0JNh833BEwdnbviE4Qg1oe3auW81+aS6aITOQiq6IsH+JfmOwTyx9w8BJMv yuOrygj4euhcZm4+go2166fX/kbAPp6l+kwRgqZYEXKqJOButc3j0goE3XKp 2/o6AoRN/IyGRwimqnXPu7YREB6hdt3cgoCUnrG710FAMufWWEs7Akm0TfXG JwQU+brs7nyKgGvt0fplNwFvusD1dT8C89y0Keib701mjIUPItgdpZ/xoJ+A BYsbyoeGEZR6FRGbFAQ47hR8PjqKwGHmtq27kgBPOrs9UY0g4dlXVfUjBGwt aZZoNAhqbz4jPT4QEOl5ckPqNILpn/e2NKgI+P+/ACI/ijzVBPwLpUU4/Q== "]]}, Annotation[#, "Charting`Private`Tag$55861#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAfedN8v//E8AR7UyUjlsSwOZ7FvXb /BPAZjxLL1JZEsBOEN/3t/kTwLmLScoVVxLAIDlw/W/zE8BiKkYAnVISwMKK kgjg5hPAsmc/bKtJEsAILtcewM0TwFXiMUTINxLAlHRgS4CbE8Ca1xb0ARQS wKsBc6QANxPAIsLgU3XMEcAFZUcyGV0SwDyOXa9SMRHAE9jFbKKREcAO9k7d d6AQwFLDmmMpyhDACRgxdnQSEMB77z1skOMPwBpi+FXP8A7AuHeaaq9PDsCS y3dkRdENwE6SVSD+mQzAGyPJqqiZDMBHnb1OSOwKwPfu+8a6ZwvApsd51nNb CcBC8heIXEoKwF6ElBXPqAfAn+MFgesUCcB+YAOuCxMGwG4M3R4K9AfAAC0f v0OFBMCOqZWS19gGwNqLmYer1QLAvjQgPpKlBcAcCmip9EIBwGH3k47chgTA azUqBdsc/78UqNkWFFADwGM33qjDw/u/GM0AdfoeAsAqeDr/bqT4v44pEXhw AgHAod1TxHlB9b8q6OZlp5v/v+eBFTxHGPK/Gux9JY1b/b+6lShF6FbtvyzM uFRN6/q/MOnZ9C+d5r/glLYva4b4v0S62wn9VuC/eMyGVKhK9r9wqa/4ERPT vzHg+ui/3vO/VmYjodJ8ub/NYkHH9pvxv8fM2YozU7g/FpyVohbJ7r86LcGy UJfTP9cq8JX0+em/AnYV3GQZ4D9cl+8cEX3lvwcMUIFi7uY/KLw2g+Kf4L+D 4NZDcqPtP25kB4Leste/sJuGUH7y8T8sGNZJ6pTNv2+iZBDkVvU/IJF4GdaF tL9eapodh4H4P+A/KIdnGK8/iVF2OTOc+z9wIzlyMXTJPwQUleZ/+v4/6KrE wrpR1j/Xy4XwhA8BQIwII6XfRN8/VXtiNprDAkDW+nhkTXzkP2wL6yLOWgRA pJO7YuwD6T8fq8aWBuoFQChbeAnQdO0/e7hDUw+bB0A0tXZo/yLxP3CmbLY2 LwlA9M1egndi8z8MAjdiLuUKQJAKoywV0vU/RW1UlSqTDECIXiQrVTb4Pxi5 HW9FJA5AoEPT33Vx+j+ScoiRMNcPQJRM3iS83Pw/UoZPLZ22EECm5hYg4x7/ PypbhFWkfRFACkzGN9aqAEDW5gmik1USQLE2r6dN3gFAzmLlQRIfE0Dm6a5y Nf0CQOEEp/iVIhNAb6DMiTYCA0D0pmivGSYTQPhW6qA3BwNAGevrHCEtE0AJ xCXPOREDQGRz8vcvOxNALJ6cKz4lA0D6g/+tTVcTQHNSiuRGTQNAJqUZGomP E0AAu2VWWJ0DQDlH29AMkxNAiXGDbVmiA0BM6ZyHkJYTQBIooYRapwNAcS0g 9ZedE0AjldyyXLEDQLy1JtCmqxNARm9TD2HFA0BSxjOGxMcTQIwjQchp7QNA ZWj1PEjLE0AV2l7favIDQHgKt/PLzhNAn5B89mv3A0CdTjph09UTQLD9tyRu AQRA6NZAPOLjE0DT1y6BchUEQPp4AvNl5xNAWo5MmHMaBEANG8Sp6eoTQORE aq90HwRAMl9HF/HxE0D0saXddikEQEUBCc509RNAfmjD9HcuBEBYo8qE+PgT QAcf4Qt5MwRAakWMO3z8E0CP1f4iejgEQH3nTfL//xNAGIwcOns9BECxsUFA "]]}, Annotation[#, "Charting`Private`Tag$55861#2"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-2.1436528681603946`, 2.9559965255696588`}, {-4.118597913259171, 4.501075479845666}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.810665732893299*^9, 3.8106659216891613`*^9}, CellLabel->"Out[132]=", CellID->62565212] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->138026538], Cell["Fit two Gaussian peaks with a shared location parameter:", "Text", CellChangeTimes->{{3.761380253548151*^9, 3.7613802759268546`*^9}}, CellID->221583938], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"xvals", "=", RowBox[{"Range", "[", RowBox[{ RowBox[{"-", "5"}], ",", "5", ",", "0.1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"gauss", "[", "x_", "]"}], " ", ":=", RowBox[{"Evaluate", "@", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", "]"}], ",", "x"}], "]"}]}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"amp1", "=", "1.2"}], ",", RowBox[{"amp2", "=", "0.5"}], ",", RowBox[{"width1", "=", "1"}], ",", RowBox[{"width2", "=", "2"}], ",", RowBox[{"sharedOffset", "=", "0.5"}], ",", RowBox[{"eps", "=", "0.05"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dat1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"amp1", " ", RowBox[{"gauss", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "sharedOffset"}], ")"}], "/", "width1"}], "]"}]}], "+", RowBox[{"eps", " ", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", "]"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "xvals"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dat2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"amp2", " ", RowBox[{"gauss", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "sharedOffset"}], ")"}], "/", "width2"}], "]"}]}], "+", RowBox[{"eps", " ", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", "]"}], "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "xvals"}], "}"}]}], "]"}]}]}]}], "\[IndentingNewLine]", "]"}], ";"}], "\n", RowBox[{"plot", "=", RowBox[{"ListPlot", "[", RowBox[{"{", RowBox[{"dat1", ",", "dat2"}], "}"}], "]"}]}]}], "Input", CellChangeTimes->{{3.7613802804403615`*^9, 3.761380303660739*^9}, { 3.761380395192993*^9, 3.7613805925181737`*^9}, {3.7613806974181466`*^9, 3.761380725052333*^9}}, CellLabel->"In[89]:=", CellID->200638283], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw11AlQU0cYAGAIhCMQcgGlqFAKKoy0tUERj3FXrcKAOtXW0uq0AtYAtgoV 1NYDGXFEVCAcMgZtKy2HSKlACUdk2AUECSGI1SSEW1RSHKTYIqPiQGve/3bm TebN7v/t//8vu15Rcdv3ciwsLPb+/7z5ZYYz7f2m9j7f7QLKV7wZEsq/03Xz 89YiFGAeEpr4R11iwbokou18M8RU5fboA0PPdSIzDzE96eHsvy0tBzGemLZc iY8R6IsJ44moxL08g/9lHngiejSnNKHj3QrEeEJq7HMq12UVIcYTUt/4gXOl wqvgCel49elzJstowsQL6ML88UZ/70xY70Rn2/rDU/g1kD+fBvZo3CO+K0Nm vtORei08fiD6WClhPEd6qV7zqe2GSsjHgaYOLjlg9aAE6uHRm6WH1FXO8ZC/ PW1YOdF9IrgOPDtqyLO6sOhgBnh29FZy9GxxXQN4trRMq1RdNp6E/Gxodrl0 LGjLVWLmFFwqc0/f5t2SAp41DVOpKXKhUK81DU6v/MLkXQ6eFc2d0cX7DmeD x6EfEg+louw6eJZ02cg8y037K8GzoIWeT552C2rBs6Cyth9peOx1iJ8lwuX5 NTGtP8P61yRTXDf6dY8CSc37zZDBH1oFrkMV6JLZf0mk1VMxvK9KwHtBMnjx 939CLeBNk+TJOC+fvbfBmyIr6jkB77c3gfcv2cm317Rla8F7Ro4E5v/d79EE 3iQJfuq8NVDThNrN8eOkT7r7RuFwB6wfI1W7Cm1CTnehGPN+o+SduZlOrk6L lpr9h6Rr1cOPm5z+BG+YdE6WJbhJ1UhujjcS3uOV4ojYblh/j8TjJfxIrREl m+fVJOjuMZ+KPva9nszdSdXdHehn+2eh5/yl8N/diygzj641cnP0tv3oKhOP etWcXycshxFmfBQVM9de+2oY5o1oYUrEeQ5vkM0PrV516+wjl0EUxOSP9PMf mzzXGNn60FBtS3qsvxHixxCSieSqhj7UzfQHBdmEySMvP2D7hw6P+q1OnTeA rjD9RfpxvfUOdz1axvQfxQXvcXj7jAHip5BBusdRcLgH9ptGUondxrxRPft9 Uc2GIfGpRQbwXiJT1TXlkOYeeDOIs2JquUdJO3iv0eKiXb3Oud3gzaJ9guBk ylOz/cM7E6THt9o1oy7m/4lPTa4rD8kjcF4tseuR9encw00Qz8FL/VKS5BEF sJ8V1q9x8Mn8rIE9H5iOOd1eO3cRPGs84hGX83wwF84rF/tFRT376HkBYTwb 3PxJi6zZVgWeLfbVHNIdExSy5xfLw7ivsjoiCJxvnH70oi7yTD3Ub48DVKYw mSIH8uNhunnBRuukfPAc8Nj+EYnLtgL2fsHKtOmecVUxeI54a8n39qvOZ4HH x+vFYZ41WdmQnxNWZjypeOtIJWE8Ad6y9tR2za5i9v7DMxUn/xkJPQH3kxB7 3ZjcJB8pIkz9QsxTShpFIWw+ImwwNcp0RdXQXxEe0C5uW9lRwN7P+EV45cR7 vxfD/mL8rWve9MQv+6CfYpy4eed81wQF5CPBC35LK3fYwd7nEpzKTRKE6sug XmdcZTpo3xRaQP4Dm+rb6A== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw11QtMk1cUAOAWqlAtUAoBAyaTONlQ5OF0wkx27wDJVDYEQZ0PAijGuBXY FNhE0UwYjwmDabuCDSlaGUOGQKiMUnZvKbTyqoBs2iE+wKlEwNaB42Fko//5 b9I0zb3nu+ee/vf8Xokp0Uk2HA4n6f/P4jczXKlNpUqV416JykoXhwt9eWeU f+Z5PXrPOlzoOUn/9UvmHNTbszhE9PD027k2l/PREesQ0eHg4siuEhVhPBEd mIyrkQzLCeM505iDy/tGWgvBc6Yan82fWDxqwBPSwUObFAWmLPCE9MCmzkBx qAQxnpAm3TcrI+7VQbwTNR4yuo43/UyY9Y70ZNnax591FEL+DnT1qGTZQs5V ZOV7BLRl0s/TNU8GnoBWzXoWKaNTCeMtp77bAo4o8yph/2U0hv++YkTXCPnz Kc9rIipK/gNhPHtazjUejfu7ETx7Oply2P2psgXys6ONtz2UnKeN4C2l3qUW B9GxFmTlSpfQnW86nb9+dAXy41Fq3huo58nB49FU3971PMFF8GxpfDZ/1bYY NXg2VFV8ITKa1wkel4pXeUtSSprA49BT0+MNN0zl4HHozOZfXJqfnYd6vSE/ egp+NwRpYf1rotgWRwrU+WSDdb95ohY/WC3bokUyqz9LziRk8IMf/AbeDJku O+FQdVcL+bwiKzmi4FCxDrwpkh5YYbs+pwEx3j9EKJNOvDgpBc9CLu2T7QjN aQPPTKK3m0bmMzTopjV+nJxPaR94EUJg/RhpVxjbC9p06Kh1vydEv2Lq7g5h Hwqw+qOk4phsozyvB7yHJN8YeX34Cy0qtsabCC+tJl090QXrb5OUBe+C1ZYm dNY630mMDeJcd20H/G4mmoj74hWDBrZ+nANZYZ7J924hysyjPWOvrjwU6JGC iUetdrrjFU29CDM+spubDHfL6IZ5E2qLOjA/6Kll80Mh+6hCfUuHgpj80eQH 7lsnQ2+y50Nrmjj14SYC8WOIb+JnRo3qUR9TH+RnW19iecSe14w+lMTtj3/c ieRMfZHXUH553FgH2sjUHzVVOb41VMvGTyHD1YyC8LEu2O8V+sPQdnbPWh37 /yLf71v9O7f0gTeL/ly3s18y1QzePEp49lNA8HgbeK+ROOtf83dfdYD3BvU4 qZIu7mph64d95kOF2dM6ZGSeT/y54d3sKrke7isXS5e41XVH9EO8DS4KGisa UmphP1ucFpRwyvQOYe8H1jww0oC0VvB4+OWc5ZTHR5fBW4Kz/RWeYSdKwVuK V+RyX/hIVeDZ4XT3iF4XdR17f3GPx5Pn/esa4fm1x6cPKmu4btVwfj6eSFXk OsU2gLcMP/xyNK0QlRDGW47jt675K9bnBttf8AA9LU4MYz0B1mgCuutSCgnj OWC1YGWf4tdq8BzxoymZo93QNcjPCSt2cy9M797F9j8sN1lUyV3NbH/EzYF+ CwmFtYQ5vxDzQ6Kk4YZiiHfGpg1mKbf2Gtt/8Z1zPnOZ7lK2P+PEWNWc7NNv YX8R9rueGCtoqYZ6ijAdxjkfNySD54K3dxsGt/sfZ98PeCazajTzG7afumJ9 195D+5Pr0X/UM+Ny "]]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-5., 5.}, {-0.08425583307710079, 0.5502174204086208}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7613805790336466`*^9, 3.7613805930307207`*^9}, 3.761380725731305*^9, 3.761381840631212*^9, 3.761381899721142*^9, 3.7613846404796753`*^9, 3.762090240247876*^9, 3.7621501348013926`*^9, 3.762150171284381*^9, 3.7621529002417116`*^9, 3.7621540587699795`*^9, 3.7640488627500734`*^9, 3.764049493011831*^9, 3.764049771518631*^9, 3.765606614763692*^9, 3.8104667902353144`*^9, 3.810665220838827*^9, 3.810665454163797*^9}, CellLabel->"Out[92]=", CellID->479709532] }, Open ]], Cell["Fit with the models that were used to generate the data:", "Text", CellChangeTimes->{{3.7613811044222164`*^9, 3.7613811373907185`*^9}}, CellID->270044035], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit", "=", RowBox[{"MultiNonlinearModelFit", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"dat1", ",", "dat2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"amp1", " ", RowBox[{"gauss", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "sharedOffset"}], ")"}], "/", "width1"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"amp2", " ", RowBox[{"gauss", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "sharedOffset"}], ")"}], "/", "width2"}], "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ "amp1", ",", "amp2", ",", "width1", ",", "width2", ",", "sharedOffset"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "x", "}"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.7613806009428363`*^9, 3.7613806856260815`*^9}, { 3.761380739206242*^9, 3.761380741342474*^9}}, CellLabel->"In[93]:=", CellID->268841069], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"Switch", "[", RowBox[{ RowBox[{"Round", "[", "\[FormalN]", "]"}], ",", "1", ",", FractionBox[ RowBox[{"1.1946966623875372`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ")"}], "2"], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"\[LeftSkeleton]", "18", "\[RightSkeleton]"}], "2"]}]]}]]}], SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]]], ",", "2", ",", FractionBox[ RowBox[{"0.48662280850214895`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"\[LeftSkeleton]", "1", "\[RightSkeleton]"}], ")"}], "2"], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"\[LeftSkeleton]", "19", "\[RightSkeleton]"}], "2"]}]]}]]}], SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]]]}], "]"}], Short[#, 2]& ], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Nonlinear", {$CellContext`amp1 -> 1.1946966623875372`, $CellContext`amp2 -> 0.48662280850214895`, $CellContext`width1 -> 1.054871719197461, $CellContext`width2 -> 1.8320343502964689`, $CellContext`sharedOffset -> 0.4679754680297422}, {{\[FormalN], $CellContext`x}, Switch[ Round[\[FormalN]], 1, $CellContext`amp1 E^(Rational[-1, 2] $CellContext`width1^(-2) (-$CellContext`sharedOffset + \ $CellContext`x)^2) (2 Pi)^Rational[-1, 2], 2, $CellContext`amp2 E^(Rational[-1, 2] $CellContext`width2^(-2) (-$CellContext`sharedOffset + \ $CellContext`x)^2) (2 Pi)^Rational[-1, 2]]}}, {1}, CompressedData[" 1:eJxdlgs0lOsaxwcjhmHGEA7tytbNTiXdqL363lIqdFGpdhcbldTeLjth75Ra IVFE4iCnQyGRwjFkqPdFyDXKbZJLVLI3Gm0c0eKczf6+WfN8a82aNf/1rv/v eZ73nff7Gzi57z4uz2KxKv//UWDRj4Sa/tYir3/Ka1DTvUbRelzsX48mUXtR W3CgNJnRV0w9muTMfx6fSdzgh2m9pvqvR0BEuu+WNbekMbrz1CMgF2ZrGdsG R1KyXAEpifdw4TWlYFmuBtHUywhTOxINuBrkbOR9z8pvMylZLp+IW9UzGiOk dU5z+WSRR1vIfX4C4PJJX05ASI/cCSzrzyPz4/qeGhteBz7qZKLszX5/tVww HzWyuqVKz+GXdEafKqeaSwzmn3M74Xsfy3K5JCa/aq+SRRboS5UEtS92U3h7 D8xNhRTc96rI1vIA8+GQQvOBuvNbHgOuMmmOVri24HQY4CqTZxdPTKQ8LgRc JZJeIxTdEl8A/c4gNzJMe822JzA+U9hYReKsF2prWOIPuGxiLaog1EwC5swm W0KzfugxzABcBXJzvNFjUecNwJUny/FsYWx6GuDKkZVd+nKWrlmAyyJJc37v r+PlAS6LOJf9i+w/mQb8JzB/VVyuS+m/gc9XfF3w+MOxllhGN52qcxy3/1bK 0+6QnreYqXq+YNOcIRcV+3uAO4rDVDwablMlgDuCL0rcDeYdLwfcIbwmX37F 0udFgPsnPqjGqSq7UQO4g9hnddynN7OLAFeCt/Rr7VhdJdWfT/n34VbTHx8l dVYCn16cfShpxtaAWkZ3marzA547OV6t2CjlmkzV041r13bvKlJ/CbiduFqS 7qlrWsHo4VP+Yqzy3lzgcLIO+LzCHmixmmONmNEvTq2vwGb1vvMyW6Gejydf BDXWt72B+8tqkv8Ya/zja0Yn0+up1KeKkU1K0vUJ0/7U6wr5uwNynYyOpuuh nFwmn+eNdYL1Ymq+v8NVeZV22C+1bu2zK+9mSnWz6flQTbPe98z5XgznSXXk lYSeNBYD/16KctYIFxW2Mnrd9H5RZjOswx1vvYX7S3l/MFoXpN/G/I6fPg9U U18T206vidFXTp8fyn3LUdV/XG4G/kNUs+lRLs+7BdQ5QplqKm+O/tAEuKNU rkWH4NKCZsD9QvVkpwo7ql4B7jglv2Zo1ex7zwH3K7Uw+dBrrZt1gDtBneJt uUhUKuD+ooOepud2KBczeu30/x1dkmzI2BqNwT0sh7R9NoYqehcBf3lkYuTv F+6QCOpUQE3fq867vq8QcNmI9KqXr5+MAlw26prtHjncfhPcw4rIyMlpcNNw IpblzkDFe0qci5VEgKuEFlV5NfrykuD9jMKtFcciKh0Y/e/7HIWejWp0vJwP 5s9BK0Q91s6xkaBfFURsvtnM9osDXFXU69qlOdM2EXC5SBg80tInSgFcLtpx 71fO2qsRgKuGNgqs5+RG3AD9qiNh2O+ZOj5ZWJbLQ9vXX9pddSgFvn/ReOaF z11W58H7jo8MHkksw7uSGX16/nykItR8qrEV9qWBmnueOjcm54DzoIHaahaW mVcmAq4Aje7PGljyMAXUL0A/a0ePDNw5BfZdgM7YHJyl7RkL+tJE3zwIzlC1 g7lFEwUp+vGsmtLBnLVQds9pTpEVPX8W+lsn8ilCYaAOPR8WonPX5+ZuzoU/ shidzl3+UfWPbkkCGZ3OXceG5wXJ3wlmdDp3tZmH76yMEAKugLwcsH8Q1RaP ZbkaZO8R1bquJ6GAq0EKjdZsH9R7ALh80nB0VUKI2A9w+eTwqorlrhZRlCyX T463S5Js3mQCfx6pPVqr1Zd3D8v6qJOzcd+9+6E0FMxHjRh2R6lMBiYzOp27 CgaW6mtdiQFcLkn9oh+WtNsDy3JVifE2E+ekKymgfhWyl7M6oaskB8yHQ9gG /ba28dexLFeZ3JardbF/nwO4ymTA/ZhOT1IB6FeJ5LzSS2L15ADuDLIgdlBN cEq6ns5duyYqNH59exf0yyZEcmB5GTsecNnEw7hmCZt7E3AViEMAZ+62vSLA lSfC8Midu9kVgCtHXOcuiHKPyANcFjk33JedK74NuCwyuua+Zv7Ha2AfJ/AN fe7TcrMi4PMVJ2yzxyGiYGY9nbtErh2GMeuk6+ncdcHRh2Pe8RhwR/Fw3Bm1 1JYi0NcInsUSmFu4lgDuEPZenqiwJDCbkuX+ifkx0f2fzkYD7iC+dTDG2iKw GHAleLeVuGvcp5DR6dx1zf3Zy08bMfDpxc8Sap+FFEvroXNXme5QizW/jtHp 3JV4KmZl/JVqwO3EwbU7H7X9LO2Xzl1srwfeov5K4PMKu08uCDEclO4jnbtq s12DdIpKgZ6PC23aXXUbyuH+sg77bdJ3e/OC0enctb935G4nt4zR6dz1RKnE MzGvhtHp3KU0NmCp7VMF1oupYtvD4w36RbBfauNBkiB6IZ0bnbsG1upsHrB4 DudJzc9jZVmKMfDvpThijq9tt7ROOnctVciKGHwL5yyh1kfZH3J4J/1f0LnL oDX4tn2vdG507spLVZ/T+hD6D1HlyT4hlr2VoM4RqrG8+OL+70rgeaaMrz5Z VrGuDnC/UE2Ld9VHDeUD7jjl+PGfJuZ9xYD7lXL1+6/k8ulSwJ2gqnnC4zf3 FMD9RUbjFvyAYWk9dO76qXxRQGq8tC86d0UramdW2dQDf3kUZtYb1ppUBOpU QF5mjufECzHgslFhRy0x8XoCuGz0eWzwnN6GO4CriAKWJehvOhMLuDOQbpDc J6NoIeAqIW8dmxpNUSbgKqNqvQ9/1C+W3sN07jp/JOmBnHYamD8H9XskBPHs sgFXBXX+0u0VSkVgWa4qctg8/7WdUS7gctFLct7VaRPkclFhoUlVpnsoluWq IRF3Vl1CRhrgqqO3QzHqSq3poF8eStgnFzm8bw98/6J48aDQrVJ6fujclb98 6aRj6EOGS+cuzkbbaMvycOCvgcSmkmi5h+nMejp3NfsbjfnqRMO8gZzshGMx Oy6B+gVo6SMnO25BGth3ASJtKHBrthvgaiKrqvIGq2WeMC+hUd/Ubt/f4Htf C5VVHjh6yC2L+h8L/06W "], Function[Null, Internal`LocalizedBlock[{\[FormalN], $CellContext`amp1, \ $CellContext`amp2, $CellContext`sharedOffset, $CellContext`width1, \ $CellContext`width2, $CellContext`x}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{ 3.7613806867574244`*^9, 3.7613807423143454`*^9, {3.761381291062883*^9, 3.7613813143674164`*^9}, 3.7613813523136415`*^9, 3.761381585703851*^9, { 3.761381627962059*^9, 3.761381651074788*^9}, {3.761381703001326*^9, 3.7613817268505793`*^9}, 3.7613818423985786`*^9, 3.761381901008379*^9, 3.761384642004154*^9, 3.76158609914218*^9, 3.7620902420563984`*^9, 3.7621501376387663`*^9, 3.762150173095147*^9, 3.76215406041142*^9, 3.764048864201605*^9, 3.7640494990955524`*^9, 3.7640497731072755`*^9, 3.765606616327826*^9, 3.81046679287676*^9, 3.810665222818532*^9, 3.8106654557306414`*^9}, CellLabel->"Out[93]=", CellID->547888939] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.7613806009428363`*^9, 3.7613806856260815`*^9}, { 3.761380739206242*^9, 3.761380741342474*^9}}, CellLabel->"In[94]:=", CellID->54891852], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"amp1", "\[Rule]", "1.1946966623875372`"}], ",", RowBox[{"amp2", "\[Rule]", "0.48662280850214895`"}], ",", RowBox[{"width1", "\[Rule]", "1.054871719197461`"}], ",", RowBox[{"width2", "\[Rule]", "1.8320343502964689`"}], ",", RowBox[{"sharedOffset", "\[Rule]", "0.4679754680297422`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7613806867574244`*^9, 3.7613807423143454`*^9, {3.761381291062883*^9, 3.7613813143674164`*^9}, 3.7613813523136415`*^9, 3.761381585703851*^9, { 3.761381627962059*^9, 3.761381651074788*^9}, {3.761381703001326*^9, 3.7613817268505793`*^9}, 3.7613818423985786`*^9, 3.761381901008379*^9, 3.7613846420216937`*^9, 3.7615861063849044`*^9, 3.7620902438363743`*^9, 3.762150139692279*^9, 3.762150174925025*^9, 3.7621540662319717`*^9, 3.7640488689684362`*^9, 3.764049775864625*^9, 3.7656066183429775`*^9, 3.8104667955728674`*^9, 3.8106652253617086`*^9, 3.8106654587166295`*^9}, CellLabel->"Out[94]=", CellID->957744636] }, Open ]], Cell["Extract the fits as a list of expressions:", "Text", CellChangeTimes->{{3.7613819702392707`*^9, 3.761381978113969*^9}}, CellID->202197304], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fits", "=", RowBox[{ RowBox[{ RowBox[{"fit", "[", RowBox[{"#", ",", "x"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.761380792894313*^9, 3.7613807946360207`*^9}, { 3.761380839372181*^9, 3.7613808408151855`*^9}, {3.7613819276602507`*^9, 3.7613819438266525`*^9}, {3.8104668186017365`*^9, 3.8104668569675016`*^9}}, CellLabel->"In[95]:=", CellID->90361347], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"0.47661501088086466`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.44933547346978675`"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "0.4679754680297422`"}], "+", "x"}], ")"}], "2"]}]]}], ",", RowBox[{"0.194134412919197`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.14897135899317557`"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "0.4679754680297422`"}], "+", "x"}], ")"}], "2"]}]]}]}], "}"}]], "Output", CellChangeTimes->{3.7613807950643277`*^9, 3.76138084249576*^9, 3.7613817306591268`*^9, 3.7613817671362705`*^9, 3.7613818445577188`*^9, 3.76138190424648*^9, 3.7613819444301367`*^9, 3.7615861120984755`*^9, 3.7615863862288857`*^9, 3.7620902457554436`*^9, 3.762150140731928*^9, 3.7621501765317607`*^9, 3.7621540637129855`*^9, 3.764048870380651*^9, 3.764049501486144*^9, 3.764049776830057*^9, 3.765606619186527*^9, 3.8104667969471025`*^9, 3.810466857568345*^9, 3.8106652268816743`*^9, 3.8106654600201483`*^9}, CellLabel->"Out[95]=", CellID->817401215] }, Open ]], Cell["Compare the fits to the data:", "Text", CellChangeTimes->{{3.7613819849737363`*^9, 3.7613819904776173`*^9}}, CellID->16828894], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{"plot", ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{"fits", ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.76138076742276*^9, 3.7613808850286274`*^9}, { 3.761381789534189*^9, 3.7613817897307243`*^9}, {3.761381915351411*^9, 3.7613819154783983`*^9}, {3.7613819559929204`*^9, 3.7613819633649416`*^9}}, CellLabel->"In[96]:=", CellID->127239248], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw11AlQU0cYAGAIhCMQcgGlqFAKKoy0tUERj3FXrcKAOtXW0uq0AtYAtgoV 1NYDGXFEVCAcMgZtKy2HSKlACUdk2AUECSGI1SSEW1RSHKTYIqPiQGve/3bm TebN7v/t//8vu15Rcdv3ciwsLPb+/7z5ZYYz7f2m9j7f7QLKV7wZEsq/03Xz 89YiFGAeEpr4R11iwbokou18M8RU5fboA0PPdSIzDzE96eHsvy0tBzGemLZc iY8R6IsJ44moxL08g/9lHngiejSnNKHj3QrEeEJq7HMq12UVIcYTUt/4gXOl wqvgCel49elzJstowsQL6ML88UZ/70xY70Rn2/rDU/g1kD+fBvZo3CO+K0Nm vtORei08fiD6WClhPEd6qV7zqe2GSsjHgaYOLjlg9aAE6uHRm6WH1FXO8ZC/ PW1YOdF9IrgOPDtqyLO6sOhgBnh29FZy9GxxXQN4trRMq1RdNp6E/Gxodrl0 LGjLVWLmFFwqc0/f5t2SAp41DVOpKXKhUK81DU6v/MLkXQ6eFc2d0cX7DmeD x6EfEg+louw6eJZ02cg8y037K8GzoIWeT552C2rBs6Cyth9peOx1iJ8lwuX5 NTGtP8P61yRTXDf6dY8CSc37zZDBH1oFrkMV6JLZf0mk1VMxvK9KwHtBMnjx 939CLeBNk+TJOC+fvbfBmyIr6jkB77c3gfcv2cm317Rla8F7Ro4E5v/d79EE 3iQJfuq8NVDThNrN8eOkT7r7RuFwB6wfI1W7Cm1CTnehGPN+o+SduZlOrk6L lpr9h6Rr1cOPm5z+BG+YdE6WJbhJ1UhujjcS3uOV4ojYblh/j8TjJfxIrREl m+fVJOjuMZ+KPva9nszdSdXdHehn+2eh5/yl8N/diygzj641cnP0tv3oKhOP etWcXycshxFmfBQVM9de+2oY5o1oYUrEeQ5vkM0PrV516+wjl0EUxOSP9PMf mzzXGNn60FBtS3qsvxHixxCSieSqhj7UzfQHBdmEySMvP2D7hw6P+q1OnTeA rjD9RfpxvfUOdz1axvQfxQXvcXj7jAHip5BBusdRcLgH9ptGUondxrxRPft9 Uc2GIfGpRQbwXiJT1TXlkOYeeDOIs2JquUdJO3iv0eKiXb3Oud3gzaJ9guBk ylOz/cM7E6THt9o1oy7m/4lPTa4rD8kjcF4tseuR9encw00Qz8FL/VKS5BEF sJ8V1q9x8Mn8rIE9H5iOOd1eO3cRPGs84hGX83wwF84rF/tFRT376HkBYTwb 3PxJi6zZVgWeLfbVHNIdExSy5xfLw7ivsjoiCJxvnH70oi7yTD3Ub48DVKYw mSIH8uNhunnBRuukfPAc8Nj+EYnLtgL2fsHKtOmecVUxeI54a8n39qvOZ4HH x+vFYZ41WdmQnxNWZjypeOtIJWE8Ad6y9tR2za5i9v7DMxUn/xkJPQH3kxB7 3ZjcJB8pIkz9QsxTShpFIWw+ImwwNcp0RdXQXxEe0C5uW9lRwN7P+EV45cR7 vxfD/mL8rWve9MQv+6CfYpy4eed81wQF5CPBC35LK3fYwd7nEpzKTRKE6sug XmdcZTpo3xRaQP4Dm+rb6A== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw11QtMk1cUAOAWqlAtUAoBAyaTONlQ5OF0wkx27wDJVDYEQZ0PAijGuBXY FNhE0UwYjwmDabuCDSlaGUOGQKiMUnZvKbTyqoBs2iE+wKlEwNaB42Fko//5 b9I0zb3nu+ee/vf8Xokp0Uk2HA4n6f/P4jczXKlNpUqV416JykoXhwt9eWeU f+Z5PXrPOlzoOUn/9UvmHNTbszhE9PD027k2l/PREesQ0eHg4siuEhVhPBEd mIyrkQzLCeM505iDy/tGWgvBc6Yan82fWDxqwBPSwUObFAWmLPCE9MCmzkBx qAQxnpAm3TcrI+7VQbwTNR4yuo43/UyY9Y70ZNnax591FEL+DnT1qGTZQs5V ZOV7BLRl0s/TNU8GnoBWzXoWKaNTCeMtp77bAo4o8yph/2U0hv++YkTXCPnz Kc9rIipK/gNhPHtazjUejfu7ETx7Oply2P2psgXys6ONtz2UnKeN4C2l3qUW B9GxFmTlSpfQnW86nb9+dAXy41Fq3huo58nB49FU3971PMFF8GxpfDZ/1bYY NXg2VFV8ITKa1wkel4pXeUtSSprA49BT0+MNN0zl4HHozOZfXJqfnYd6vSE/ egp+NwRpYf1rotgWRwrU+WSDdb95ohY/WC3bokUyqz9LziRk8IMf/AbeDJku O+FQdVcL+bwiKzmi4FCxDrwpkh5YYbs+pwEx3j9EKJNOvDgpBc9CLu2T7QjN aQPPTKK3m0bmMzTopjV+nJxPaR94EUJg/RhpVxjbC9p06Kh1vydEv2Lq7g5h Hwqw+qOk4phsozyvB7yHJN8YeX34Cy0qtsabCC+tJl090QXrb5OUBe+C1ZYm dNY630mMDeJcd20H/G4mmoj74hWDBrZ+nANZYZ7J924hysyjPWOvrjwU6JGC iUetdrrjFU29CDM+spubDHfL6IZ5E2qLOjA/6Kll80Mh+6hCfUuHgpj80eQH 7lsnQ2+y50Nrmjj14SYC8WOIb+JnRo3qUR9TH+RnW19iecSe14w+lMTtj3/c ieRMfZHXUH553FgH2sjUHzVVOb41VMvGTyHD1YyC8LEu2O8V+sPQdnbPWh37 /yLf71v9O7f0gTeL/ly3s18y1QzePEp49lNA8HgbeK+ROOtf83dfdYD3BvU4 qZIu7mph64d95kOF2dM6ZGSeT/y54d3sKrke7isXS5e41XVH9EO8DS4KGisa UmphP1ucFpRwyvQOYe8H1jww0oC0VvB4+OWc5ZTHR5fBW4Kz/RWeYSdKwVuK V+RyX/hIVeDZ4XT3iF4XdR17f3GPx5Pn/esa4fm1x6cPKmu4btVwfj6eSFXk OsU2gLcMP/xyNK0QlRDGW47jt675K9bnBttf8AA9LU4MYz0B1mgCuutSCgnj OWC1YGWf4tdq8BzxoymZo93QNcjPCSt2cy9M797F9j8sN1lUyV3NbH/EzYF+ CwmFtYQ5vxDzQ6Kk4YZiiHfGpg1mKbf2Gtt/8Z1zPnOZ7lK2P+PEWNWc7NNv YX8R9rueGCtoqYZ6ijAdxjkfNySD54K3dxsGt/sfZ98PeCazajTzG7afumJ9 195D+5Pr0X/UM+Ny "]]}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtmnk4Vd/3x83jxR0a0GCMzGQM3XVKSClDxsxjighliCQkFRVCykymKEmR D+42RMbMJVzKEIqQzMP3/p7n9885z+tZZ+991n6vtfY6z3OEHL2MXRjo6Oj+ o13+737z59nFnR0S4rXNj7ByyyNPBu35N7hJQtHX2y+cr88jn8OPrJSvkdCn aKUL6QL5ZMGjV7e8/pIQQbZ4Vmcon1x3P45tdJKEkhzsi21cC8lssl8OonYS CrTtGpSqKyZ716ULpbSQkKNlulaj0ivyNzM30YAmEuLXjmBjL3hFfnlrTUK+ loQirBI00hNfk8917VPOKCOhE93mPVb1JeQn1+zPhD4nodzPdmuk0VLyFpvE OeunJOSBdTPtO/yW7Jq6YKiWQEI3DlUekvR+S1ZtDDObf0hCjWs2kl4sZeRv e1842IeRUNBz8xubx96RBf+b9scukdA3EcfMR+Pl5HsGpTf2u5JQZL7jmQly BXlx7MbNVUcS2nVRjRr2rIJcj8OFl1iTkDKbxOM80w9kV1vZh4KGJHRGnvfA 3qFK8kt63xw6VRJKLA+kq5WpIaudL2RJViShiW7DCbv8GnJjznc3BXkSaiN8 qxoSpZBHdQ1lHCVICC78xjcSEHnPQ5n39ftI6LF5g4D2/lpyzogzrzUvCSnx 5upedaglKyik3FjaRUIUalxMXl4tWb+XAw5xk9BRTuEtPdU6chj/VFMkHQkV jZ+S7XCqJ+M9BCQFtoiohdOluPlNPTm12iy6fI2IRvvymxboGsgV9h8NpxaJ 6IHy9IGBrAbybG7WgN4EEZ0eFegL/feRbKFo8wvXQkQn7u131//2iTwZ8eTs i0Yiqk3iv3r0WDPZt7/19bF6IqJzi72fntlMfhiofs2zioiyspV9f3u2kOsp e7c+vyKiG/eHTonsbyMbEgzs3F4S0ZkY9VKfB21kqmNkLV0+EZn0dtC5bbaR V5n/3VHIJKIJXm5x67F2sqx+N3d8PBE1Ovoy7Wn8TK5KZfeWekxEe6jc1elC nWS9P1hPfTQRrf+aNhJ06CQ7x71OWrpDROZ/jPUWf3SSn32NFjQLoM23PzVH bbGLzOyie4TPhogGHMVPeJ3oJXfbKpj/siQiDyMpT+HoXnKaxb7gajPafM+S R/v6e8kq+n8+OhgSkdiq4NBprz6yq2KSZaEWETH01J1pK+onf6L/GaohSUQ9 gkZmejYD5CcbnS+4xIlIqHB7NqdigGz/r7JlRISIItrGGtR3fyOvTT3cFXGA iDZ/tx0/1P2NLNmpkt+Gp81XWF3gZjVEjk6L/GyzQkDsnozLHq9HyBZPry7J LRGQzs5ikBJ+lCwad4GPYYGAFq8Kv/bRGyVX35F1yp0hoPCflxyO1oyS5zz6 l+eGCYiVnT9K+c13sqGG2MHQBgIqF8A9kaWMkfcr47WMawnIZp7/9Q+mcfKU 7PpF0RoCWm3ZY3j7zDj5tnDHm0/lBDQW+KX/3uA4uZTdT5vwkoDO1uZ92sc6 SSZ9/eiRFUtAcsySaTsPp8hIKjMq4iEBnfdoF9w/NkX2uBWc4/qAgMJm2ZZO q02TG8UUhyTvEJBeunjr74lp8o3rGWfeBhAQdvY8d8a5X+QfxCDJBjsCKiUK k4Ys5siPXM10cq0JiPnUgguFMkfWrFRwjLIkoP7HrDFz4n/IiQ5TyfrnCciK rUwS2/xDPl1iyt6nQ0DDwdLzj7/Nk0vPyk9NyBCQksubiqZ3i2S7TE6mT5I0 /6872MYuLZJx/yYFCsUJyPU9E1lE6S/ZNSXV3FOIgJqFnHkL3v0l8//iaFre RbPnKxSG1i2Rw6ImXrBu4pH9X3XdWOYVstwQqp1exaMIu+6rrMYr5CG5lOHW f3i0GElf6Jm+Qlb5Yrz78R88ErQ9dmvfsVXyzCEUwTuGR6LrMn3kiDWycf0z J4kWPKJ3bL2te3KTLNo7Tm1qxCOHWyyW+ws2ycvjshdc6/GIeJRfRYdni5zM Um+YXYVHIuOGmwUjW+RRvV/HDrzGowfLOBOp2B3ylU4NXsITPNKtznaMTKUH 8vc78a8f45GGiB/ni0F6wC9+5j4Xg0dj1f2i8fwMUEZyZn4QiUeanJJffj5j gHWz6EWmQDzy65TeV/WCEaKGh9pWbfBoK8Pc5OokM1yYEzuVdAGPtLcLJZqO sID0ztV6ZXM8Ct3+ncsXygKfBZkrfQzxyKTCvKH6ACvscZbJ+30CjzZPjWRY urBB9szN26PieHSW2X//+8OccG2jaTNEFI9aU222dSI5QQdHDDgghEeGR2YM 2CY4YUYm1/MCPx5F39Ork8zFgbx3h1UvDo88jUlZZqrcEPTnmMfjMR70WmvV xbQNDykOqlPYMA/iC3BeekVPgKoeeeeFfh6UahlqlK9KgO1yEWvjFh50iY/V 7/YLAoSFsuvvesODim1vWuxEEeE+oU/qaQjteS9JzU9Xd8HL8I68UwE8iOtT Pcd6yS5o+9cksubNg/K/StZML+wC7m+V+y648KC5m1xMnH67IS4rg3O/Pg9i TTAOf3R3DzxT9PiVzseDbFhy7t3p4oX/XrhcNCTxIHHfcqPEg3wwtNdujI6L B7kRwuWiPPjg4KbRoAMdD6pbIFXzcvJDVoNqq8hPbsRzluikcH4fFJgyvswr 40Yb888Y/AkHoaVpU8ziFTeS2VkqbbhyEGaOLmex5XMjQfXoO/tbD4L0weln l55zIwfV4nf/ogSgZLLjvlQYN9J3VaR2RAlChf+zy68NuNHOG6f4l9LCIOzs /eLrKW50KE11ys9NGGIMT43Sn+BGBu/zytdzhMFRYtnURIkb/W29w6wkKAKc g0bH13i50W/mcK18AVGwJbPzav3gQrv1eWNDT4rBJ8lRY49BLpRT/Uu/P1oM juwtj0no5UK7vHczsvWLAeu8M+NUIxcKzY5nZ3cXh5JMNBf9kguJ3Jy805h+ GBiZAz72X+NCQyaP5D1UpMBz4RwdnScXUnMyzSqJkYKvw4c0JC5yoSzB5ynr E1JQ9L6nJMiSC7WZLPkVJkuDmZtciiCZC92ZZ3Fq4ZKF/NZJn8usXKh/TOFn T4I8ECuqi+PpuFBU/pkz51vk4WbOk6mqNRw6HnXnzZUdeTC+ecKW5zcO3VNO 4r3hrgAbsml6ZZ041HYMQPDMETgXZyq4nYxDjiFdg2KSSnDjCI+ebjwOLT9S ubV5UQlyuz95P47Gofhc7+KwXCXYJmrWC9/CoXD3hrG8Q8pQHC/squuMQ+RP ecr3pFUAl/Dn5WNZHKK/+jnayFYN1JQLegfEafa9n4IJ+Wrg3Oe4JSyEQ2IH OfoyFtWganf/uXckHGJU2b1L5f5RcE+sWhhY5USB+Wdk/erVoSXpnqpIPSey JAUMq9ofg2VVLXuPKk7k73vLcbH8GAh/3Yx6944Tvbu0OZyOJ8MN3qvfdPM5 EU5l9OxwAxkkks1uesRwooaQUIn4/RhEPROpf2fOiaTFHl6PKzgOuqnV5079 5kBWUjF1n+W0YT5maJNpkgO9dYjpUL+kDc9CNgprRzhQ0K5rD5SzteG33VFW jR4OxHuGU3aEVwfihN9RZCo50N2tmGPinLpAzSuSJ0VxIHyw/qEynB5EPW2l fr7Ngb6jrP0VBnqgcG8mOjqIAwWkn9J1iNeDiMuHp5m9OND42Mbf/P2nQVIm J3PVlAOdoG77qqieAb/S50SqCAfK4M2IS445C4LZlejZAQ5ESVBCWYNnoTl+ wNN8LwcyjX1te0nyHOy/vre1k4MDVVe9d1JuOQd1qvHh9QvsiMKeoBLEbgjc 1feX8ins6KYLQ8tpFyPIbQrs97ViR+PeE7LWXiaQfMRPq8CEHa1wb4peyDeB 6FSfEupZdsQUf/Xu9HcT8PF1v6+HsaOlhcmqWjNTOCZgQxY4xI66JQJeBOua Qa8fltsyx4ZYP+clntaxgKbvmiS6KTYkwsyYtRNlAZX6R0OVv7OhtLBDc1Zt FpAhfORCRg8bqvttwoc3tQT3DhFuvwo21FN3kPWx5wVgEGP1EwpjQxEv7+Yd r7eGf48Zx8yC2JCbUBT1IMEGpjZ2DKKvsSFbMd6B/+xsoKNrVWLFlQ0J5/1O 0dixgeSbM8NtZ9hQrNd4eqiuHcj3tWsH7GZDs2fo5M7t2INtxJPdn/NZUTHu PU87uzN0wDJrQBYrmtgYrpxQdwbYMF8XTGFFueIdEu4eziDos2/E5xErSsal plA6neGHXVb+Hj9WFLp/UzA3zQVcNUo0bLVYUcMK7vhhw4vQv0yQZT3Giqa3 zf19oi6CbqmvYIkKK1Id/CWrWnsRDkuoMjNIsqL0jC6KopIbzOyp6XiBZ0X6 Q1wsJMFL4LnY6jA7zILcKfZPNPDuQC2WMUn8woLOHnqsmmroDgaXHulAFws6 4P/MNyrWHeRHjaViG1iQ0dqp4p1dHrDYPrCk9JIF1QgXqMUIXwG/gp93gwNY kGBExBa7pReE2DO+4iSxoFsj1qTbB3yg5LPuw14cC2r25fgvSMcHfpCjPVNZ WJAW1rK72csHdA7slpNbZ0Zf2tv329b70M4PsRLj78xIXc9H5LanL6SdP12a /JoZ1Yh7cEj1XYPOuodxjgXM6KMFx9YTxuvAcKTHRyqbGREx568XjlwHV7y1 YnUiMxKyCCjZfHwdZNuvlI3eZEbMXAI/Coz9gKIT+15cnxkVcOzJVJryh8V3 fYnz2sxoXSS6Pnd/AIge4vf/AMxITfpWXYhRAEQxZqueUWRGeeOnZh2rAsAQ lVV48jOjvw1y2txJgTB69Gvluykm1Kjau3rHPgjoZAQoWneYEIOzR1vzqVsQ vOe47Z0QJoRepDEtPb4FKzuOW43+TEgu0timZOAWzHXnapy+zIQS26+ne6uE wmCAbIWhARNyu3/4vFh7KLxvOPbGho8JwVGSBRN7GBx5ZWeYTmRCDzhz3o4r hEFx0u0/o5xMKO/mq43dVmGQc/mjjPM2I1qdULC68ioM4vBnCy+PMaIfcker tizC4Yq1dbZ/MSNKnWz8zVcTAVPaISc+5DKiGvVCS93fEeAsl/F9PZ0RYYV+ fB38d+ACw7hASBwjihwVqJkOuAOn8t1TIvwZkT+17I/b0UgQXbqREHucEaVc TznH2HYXvj1IvvuyjwElW4QfyNV4AD0fBYvsPzOgrJ2nU4d9HkDbTl7n7mYG JPTO0Yu94AHU+L7nC61iQPxvCQUTe6Mhy6rnpUk2A7Kuu1jCux4Nl6W4Oreu MqAmq0irgc6HsNESymuIY0CiBmT6YpdYWGJiO8bMwoBuc1t06N6NBVqH7FC5 Q49Kfoq+5SuIhdHS1ELRv/QoyOBIv9NsLDQ8q9RcG6BHrn/FOZMD4iD68pJ9 Vh49MotQWa5Pjof9HG4FSyfoEfVN2EV29kSwrWmLFtakR9qZgt7hyomQ6aNw 1VCZHo2eP515yjERxAbXVYrE6VH906Cpd1WJIFcU0+CEo0eUgzLHxa4nwYlz b0e6++jQbSU+1pKlp3Apbnv3Gzc6JNlknrUlnwJFOk5rVAc69FyuHsVdTIG5 9aYhnBUdamimHwxJSwEfp9hst7N0KJpQFG7DlQrBSqIKgkfokMzHQBn4kwoH i+OfHlzZoaSrJZ2Yqk8Hd2VJ5sH9OxQWo8+FlQOZ4MP8Ic+PZ4fSc9udQ3U9 E2706Z4mMuxQivmahcf4s+D+dZdHej+3KZe6IxVbrbOg8F0GX8WbbYoG1bR1 5EcWTCvvlU3Q2aZwJjk6n1jNhosqTOYGV7co31NsZ8X0csGTJX5txnGLUpZU fnfBKxf8+oVSIk23KGbaHz0XEnMh0g++V6tvUYz17DpjJ3Ih9/0Nd2nmLYr2 jF2y5Z08mFBZuMX+bJNSU+OeLfk5H5xUqfn19RsUj+N+K8vRL8E1X9VMp3yD 4p3jb/Wi/CVc5otlbC7coHQtxCRH/ngJVze0bDtiNyg/J/mFf6gVQTClgDRg t0HZg3o+000VwRPd6yFzG+uUsMY7wSsGr6DRHGfCp7ROueu092Jbdgk0f3Kh TxFfp5w3bDD3rCqBtqOUVwf3rVOqTpbdleorge59PuyiDOuUsvZXAyssb2Bk 5EuNbOcaxQSf8WrA/Q2sXsyWOOmxRqngsGFvVy8FyQD1Hc+cVYrVkw2+htm3 gIbPSY4lrlJ6PMR6dHFlYKblZGp+b5Vi0f1Kd1ayDMK4aU56rlIqVSLiUt3K YCBn2ByvtkoxvPdg8clEGUR1hZa8aV2haBtsmE5NvINJySaHpcVlyuuppwuO dBWQOXy+IfD4PwrT2BhxLbUKjowfWe9V+kf5YX43+X5dFTTMEOTlD/+jrGZ5 Z6n/rILJlc/PJ7n/UezcfRSW5atBkqjve35oiXIyInbp28dqKNU5KSzjv0QJ fxQ6ZP6vBhpeK4WOFv2lfAjRWg5+h+Dn7d2auryLlHdfcJYB5vVQmXBYe8ps lrIV8rPd/2MzyE8PLMmlTlKOOY5llLp1wsnKQfYts1GK7qWjRPn+Hrha8HqV QOqhOF42PMHu9QXkuT3DT4x2U1Ifbf/XG/QFFnykuX2LuynsJo+Gk6O+gI9m gUivbjdl34f0TnzWF7j+OetcYnAXhcRREfq69wv8nZHSU277TGmerLXPUPsK LOGrGTo+zZQi4R9+Petf4a7+9fd5uGZK0+Er1m9YBoBtz2IrW94nSpdV0JtI 4gBwFPxabhlsorAd1HPeKzkAPJ+p+gbajZQBFkXmzxYDwLvv46o5bz1FjmmF J6psAMxcRTK7gz9QvCS3egqcv8F9b9+ouHcVFM2Aq98Pen2D6uB6L+O5cgov 00DBvcBvIBrvRO62e0+xlt6SwR5+g0VK9mDXibcUrQUBc7nyb3BQ8ZR0FqGQ ciexa46NdRDmnyY7LyQ7UmQOn2w7njYIwQxPPuqo6UEcp4WeUd4gyD5zatql 4gV0L3yKTEoG4bzi16rI4xHQ+rtqVqVuELxd3acbniTCJJ44cnFiEOjo3u04 1eRBgN6tBi+JIWhqG7iveL4C+HcZ6lXnDYFbwLcmK6kPMB+/o9X1egjYRAeZ IhgrQejFcYG+8iE4HTQU0vv2PzAbDdAsahqCNokRn+u7KMBafOdG4iRtvJZP 8eBMHSgEFOaeExoGteTF1j9m9bA4emDN8vAwsP3xmWGsrwe9D6/0TeSGoeCZ r7j08wb4IXq0fvexYZhZuJYZfKYRprpnolrMh8Ejwz/hQFEz2DfsKp2/Nwya yytvFXhbYOhrP3ny0TDg9AO6tSNa4HYY4mhJGIbilQAeT+tWCD3SpWidOQxz 527cq8G1wwdVu5SC8mGoyVnP6w5oh9qu5UWe6mF4uH6jcXK8HSINHig61w2D XG4QI091B8iJhJ3ubxuGipCamtcqnfA1pLV6ZHQYMgq22z94dMJ2W5RR2cQw RPWSh+uzOuFu2vkwv5lhsJCkbHzh7oLyQ3xJ9X+HYa2Pokb3swtimLiSbzFT QV2mttQwqQfiU8bb/A9RQbm3P7GmuQf4Bb6KjR+mgnzQ7xvSmz2Q4nyVG5Om gljzXi02h14QP2t+tfEIFUgunj0UyT7wYLCfxgEVuHER5TI2fXBPVID/33Eq cLxNfv78UR9cNOx51XaSCnT0H538l/rg+JlTC3qnqfA7Zd+SbE0/7E/MsQ42 ocJPLYWvKfP9YPQ6WnbEjAo/ZnSqOES+QNDqo+MKllQYUPOJmLz7BQYFovZl 21Chd+Sum0nlF4j1Iw7W2VGhMzJVv+43zc4w1tblQIXG3k+70oy+wuLhsqPV LlSoDaKuckZ8hSUjiVfJF6lQJbw0FPj+K0h9b9d1uUSF0qsCL0z3DcBdlzpq swcVivcq36s/OwCrIhf7HT2pkF9z+opC6ADQ/xr/OeNFhXScnzLXxAAcSDt9 7pMPFZ69fcAXtPcbCN93SztwjQqJFzK3pvS+wcqD1m2H61SIpS//bhb8Daw0 TK8k+FEhOr/tY8Orb/Den3Gq3J8Kdw1+FBz5/g2Kr8x7NAdQIWx5JSaDNAhX U4zXmwOpEHBSxCw4YBAsrKjiT4Oo4PtLTX2mcBD63zB8dAmmgmfcuYMWw4Og 2R/rLHyTCpePOjM08gzB2mFD5g4au4wGTiqeGAJtv4O5biFUsL/7qCXzGi2P 1ta0F2lsLfviFQ8t7+ZsN8cu36KCeV9l3M2BIbD6ZHWrm8bGwZ1+vziHQb79 8l6JUCqcFZm8YEkeBuebT1960vhUywa56eowDDpe1cimsZY3QUQ5m5YHYc8a G2lM5hVnze4bhr22g/oDND5K0fyFZ6OCyF9SxzcaK7kafw5RpwJj9fHTrTSW 53J7+5umA09ZSG0hjaXKbiZdSKdCxFl6pUAai1nFB33qosLMjf1ZKjQWZiiw U2EaAekCwI3R3vdAQY1WjsoI2FGWfUJozGvYK068NAJaB2b62WhMWpnmDH0+ Ao7JVLUwmv/caTt/ZttHYDnkXfIMbb8isjhmZOhGweuBx/pxGjP47R5y5huF 178OWEfR9vuCfWF3hdIoJFvJ7Lyk6VF6GppxhqMw437p1X83aPGv3Euxd6eN dy10L6fp5yhw6X1Z5CiUVf1RS6fpW8m+XcSWNQph9Pa8vjT9iUtx2dbVo9Dy /RROkRYfdZ+qHjMtjcLbmyEa/r5U4H9rdNeC5zt8+CwRvOFNBZ/UyZtFkt/h yleOIferNP998O4mDt/hcOMXZsIVKtywfuGQH/wdLlVa9mu7U6FbR91iM+k7 HPc81uNKi/fwfc7aOR3f4doincMVWn4MMa9prE5/h32LRWvGTjQ95mOO6DP/ AO9l4w5RWj6NN5QLLGn8gDnWDs0Yayqc9ORc1yr4AYMlJa+9jamQYpExn9Tw A158Opf/wYAKSyeUf/4a+QFHf55jnNOnQs5eu974PWNgaHtreZ8uFZhqS1+N hY/BuQylazE03a1f6r5QTR+Dd8fchY6qUqEsYej5g8oxUIJ5+y5FKjhfZrmn uDAG4Y25b5po9egj6YJTuO04mFBVbdoOUOHg9pzll8BxEMvWtxvmo4LfVLih VMI4HLuxJj24mxYv1cXHelrHYd+hkNOpXFSIdKXnFTk6AY6sE96am8NANUzk 9jeZgDzmy2/LVoZBRUOKudVrAv7c2WHgp9XPSR7TRZ/cCSB/0pl/OT0MOh/y 2+pIk9A2G8IyR4trVpzhbce5SbCqEHn9t5BWf8UvIBX2n2ApLsNv/WIYCk84 73CI/oS6Yaeh0vRhOBcYcPOt5U/Iq3v4WOrJMCROZgQyffxJ81Ns8nTwMIjV LnjnPp8Cn5z2A2f0hiFgaKPkxvspcCuZlUk7MQwtK8zz57qmYGFj48yoxjB4 yvJ7rrBMw0xo0ZiC7DC8f37i8imfaWhzVxrnJA7T8j7ecebUDOwuJKXl9g9B YmxqZo3TDGg0jqXOdwzBVFHeaFzIDDSWZt+SpJ2n0WP/2WqUzYCjdLmQJ+28 7TUcvxAt8AuO7zbyVUkaAmcp5fOyy78An2Sk/vX8EISP9mv5ZM/CQ5Q92FY7 CNQPZ64EVM2CjS7b1f6KQVCPR4khfbNQqYkv7XlN6ye0C6fvs85Bt/17v4LU QbB9efNRtvsclBy5/qCeVufU/UQHexX/wH5GTpsa6UFYYz76YZ/jPCxT3K2V o79ByfNIw5DFBVAi/Tt5V3oAWkmRP3noFuHeBdY7KwIDMPngTkgm1yI4zPb2 2pAGYH9wRFHD4UXYJJWs4mj9V5R1GBun3SKQRuJyVxq/gv2BEJTUugiGb7us CXZfAZ9+Xf5Nzl/gC8oLnqX1e15Zzvhxs39guzh8kutTH9hefnbg7u1VCN5g 1p226IZ7Rn5HFVM2ILlFMXtwtR2YdiVM3lrfhpSJds6Jw01AnAvhJrLuQHO3 7d8pfBMIfXJTySHtQKb16b+rq41ADtaM/CS9A9j8sO+x5kYIHB87RLDbAe8T +5YtLzfCXNkRl6z6HWgbTw/5/eoj/Jac8nbUocMevG5/3Ha8Ab603pmP4KHH 3lv8Z/TmcS08Iadqm+6hxxY9Re9a3KgF4zdlzw4doMdei2v04p1roSNx7GSj JD0mrMrWXaZaC40Ox5NZdeix9bQV/tYRBO9XNo/fD6bH2GKlDVQUESSKXIt/ NE2PZens3DTpqAaTxAdTdvP0WBjdjYvbL6qByJ59TH6FHrsde7y49WY1PJzr +tnJxIB9Xaqx7ZSphsgPcppEQQZs+6IVCntUBX4Gv8afmDFgt7CMhhjL/8A0 yFHlWT0DVv64zxtj+wCJqbtYVpoZsMeiqtcqJiugn9LYd76TAXMqdtQ3+FgB ZkxS17mGGbD273+9BsIqwCLm79vQZQYMD9l77HbK4UJ6hMJFCUaM93IGVWr7 PdjX50orPWLEGLfPcmcR30HGhMXm4wRGTOb2RtzMUhl8Z+Vsm33OiJ00/yFm 9KUMHPW93PPyGbHY+FSLgJQycOpTLeSvY8RYBtS/yxwuA9efn8Tp/zFiaScs V6W134IH5y/hjgtM2DH+iXC5hDfwK7CSidOBCVO6uGOSH/QGLk/dm9S9yIQF vfr1XtPxDVz8eLiw1pcJO3v66Ua53BtwvOWq8C6aCeu02hJbaS0By7/fIaWG CXvq8yc3mr0EdAa/Wl8WZsbqMipK3BSK4aNePjnvMDPWym+GOJiL4WSFv+C4 LDOWpZF1Y/RrERxP2DNuo8GM9f4lXBe7XQSaBibuRibMGP1KuRBf70s4Uv85 UC2SGTuce3DqZnghCLxsTGSZYcaMtq6POLLmg0l6xYeWeWbM8X32fUZqHtyP Lxx6uMKMjQdcUhoqy4OloIfCe5lZsGxZi14lpzxo0Td7JS7IgvkRVXxD6mjf 23MTH0+ZsWCxmXeO6j94Ae0KzP/u17FgN6J0JBJOZgOD2Mpeg2YWzOFpyDuq UDao8U+rkzpZsDdaO08u7GRBFkN76PNhFix+d2T8VGUWBPQ8wRWtsmCcfC2+ FkpZIHpdVLRdlhXz/uvcbCufCUEVWud5nrNih78g48CkNDhi3Tlvl8mKVW2x 2FMc0mBmx/phSR4rZhSrMWYsnQYXdP2ajcpYsbcMgnwOdamg3p8PT9pZMRV7 +nHCYgqs/uWS5qNjw2yizvOH2T0HP7mvTCIubFj+7MunUVefgmyPc5avOxvW tE6on9Z6CpN+C9DgzYbt9iH+fLj3KZjWcAS5hLBhZ8z+zmdTkkDp7LGFvCQ2 7JHvxPg8MQn+Xs4alm5hw2hF17XvYwJczfV4ryLHjmlZ/rBvuhAP1M/7ErhV 2LFBotUiu2I8nF1r8Z3UZMfI3J6JsZzxIKkvoZB4mh0b63Ys9qyOg/GFiZf/ XNgxzpDqE2aicWB+zC6zLIUdMxA9wR+z/RjIvUbRRzg4sLn16NrLDTFQtEXn zkHgwPj45vuoETGwT7xE78deDizLn+18k3YMrAZys8Yd4sAOUkT/LH6KhlKB 1tsLGAem4k7JzOp9AIfcT/qX+HNg/fWGR/ro7gOOQdVRdoIDC0oqDpXOj4QP /oznJ39xYN5VBwVG/CLBdfazVtoiB3Z8mHdqTjsS0Fe3Q9x0nNiJlMsfRSbu gO/rZ1Oz/JyYf/g36x7xO/DNetuz2JAT0ylwkOuqDoe73S12LuacWEng1uXd ceGgdCrJ8IAtJ/YirUjzlWs4PFSUPxLjzokJtMU8GsSHw3EOx38ekZxYLYX1 4Z5LYZBf/jFIuooTI7yMvp1y+DaYysR5jNdxYl80zrPM0t8Ghmxbm5RmTkzu xzLp/mAoWD9cIeO+cGItDXIDeY9CgcdFguH3AieWQ4mTaF6+BX7EmKiX4jhM yj66YgHdBO0rJgmS8ThsQOYmd+l/gXAt7j86r2Qc5mVhXlcUHgg55cIeb9Nx mIjrQX+SfiAwMCyc0CzCYTfd90kJUwMAJcbMn/2Iw+rj26kKrAGgjhrPeK/g sP04lv2RHn5waUKm/N0WDiP5iP+cV/eDpxwJwuuMXNjAYSOZanY/WDFxWgvD c2FCGfk5/vnXoWx6J/eJBBfG+1AeOc5cA1nSUYYKKy7s/UycatQtX7BRy7iy 6cCFvYw+n4DO+0K0DesA5saFyQuvvTI87Au/8vpeN1/jwnAm7eh6tw/ka/rY DMZwYadvJSnVS/qAiOvLim0KF6YZHRHye+Yq8H444KUtyo1pffnlYXjmCmw7 5e0jSHFjbBQhswH6KzDOrfBpSIEbU1a5OsT6wQNKnE8KXQNu7GDO4f8MJTxA F+/ek3WBG5vKeM7qRXAHv4sVqnSx3NiI0q8THdtuYE08Md6axI2JKRiePUhx gxPVrY+T0rgxu+dJlXShbsBNGpmWLeLG5o5uyAUwukFuDXOKTRM3ZnvXhYNI uAh9u8/T/bfFjf3Q0buxoe0ClWioKJKJB6Of4vz0m9sFMtxdLY05eTC/hx95 7L46g0dtYOk0Lw9WaP/Dq87DGZiuZDjzKvFgKR58zG7PnUCpYfbT9cs8WGoD +xNDHkeI84mKlf/Cgw3phX9YT7CF9baiiqhhHoxDdJtYr2cLjuJdI6NjPJiZ kIKr2rYNKA7xycbO82BiDapxopdsYCbLdGKVCY9JBh0vGNaxhmjcz9uWB/HY 0pkeo9eCFwAdDUy4I4THlCwrKwqolrDkylnwRhSP+aeRbmimWoJ1rVwnuxQe U1g+Jye23xJk/AIOVqriscmdgI4pQQvoGGH/j98Ij0nzqU2JapsBA1dKh44J HmumrJrsxZmBirrsDx9zPLZvTi3hUY8ppD0xZm+1wWMNlTOKXM6m4KX33Dzo Mh77lHj288EHJoB/K700GI7HwipKv5TMG4NxpIFM6ns8djB/pO8Z0RByLef1 PnzAY1seR3u1ug1gTTrWta8Kjz2q2Du5J9QAMnq607nq8diHZ9rqzNRzMCto Rgz5jMdqnHQC+7LOQtR/1iu2U3isNrYwYfzcGRh6uEUK+oXH9g50cIazngE5 xzT5pDk85txAfNSOTkM/2+ilz0t4zPsIz7S98mkQMXMaAnoC9rN3vdxCTA9q 5i/VCvITsAi12PnzYrpAbOCgah4gYH7LbxbZp3XAJenluoUgAesSNvlpWqQD OPKsYqwYARsa7QoqVNIBywdXc+kVCRgKuZIrrK8NS4f8H/w4Q8DOtzdmHk3Q AkmrCNOcmwRs7fBDnu67GFh6vycy3SZgN+lFDMTNMYi6O/XZKYKAudnKh9GL YzDxVv+0yAMC5kXuVbn1GCADtxuynhKw8aXuUyFCZNhd8+JwxlsC5iEzUuvt rQEne79M7LwnYKajExOPBTTAZ4Y9266SgJUBr3x8hzp07vE8IFBLwKRx7WQ1 OXW476VCTOsgYLazh540rqsBnVDTxvNpApb/dfb5ng8qIKe6VrHxm4BlO3xX c7mmArZnpfys5glYaNhFg+vyKvBf4KN5/hUCphKZI9RdqAx+3eYTyUxELCmx g3oqXwl+hU91JAkQMXy5Gimm4QjwP+OPXhEmYiXvKLPEB0fgVIm+nrkYEePf 3MV7zPgI5A6V1O+RIWKXBTOz/H8ogL1yYEWCOhETAz0Lcw4F6J9kz4o3JWLE Fqp6xW9ZaDS5l/LBgohZbJdMScXLwvs6tqQRKyIWKdnAE6cuC4lprNFSjkSM axNZS0fLgKkZs1+9J209+/sHLNSlofcj3em/d4mYJOmvSyKSgAbF0JN8D4jY 7MWSR0LXJaAsc4cMD4mYYmd6R5CkBDy5ua344AkR69H3t01IOgznlTcPiGQS sYvhvfdFg8ShO2dlwbiSiGn3VPPTuR6COqL/74BqIuaQJv36sdghKA1dnkxD RMz6d1Bx109RiLP+NzjTSMQaik732niIgtGuvx/DeohYwcV/4p43RaAzfC65 9DcR62S89Xu5WgjQwpUnX//Q1ovwlaiLEoISu9mH24tErFzwgYGIiRA81vgd fnqNiBl4qGlm/hYEg7/TV34wk7CE8PocB1FB6HCcOE4UIGGCjbFkB6sD8J0p bzVBmISJNa5Fcazuh6Vct9d8YjTmuC4yn7Af+H792i8kQ8K+B6eWOvTtA2ff xRU5DRJWw5J+4oYjP6yH7xSfNSdh1yQMH4aW7gUusVrnrgskLO9XL+dZh70g +Clsn6ktCSNYyTYJEPaCNo7lnrULCfMwyy9q9d0Dj5/gnN19afaS5a2pk7tB 7AUf/71HJKzp8nBbKYkER3UHO3HxJMyajtcpvIsI+tMpdx8nkjBT8eRy6cdE 8JYR/JeUSsKUfUpO7fAQoeqdWGfuSxJWwfDogg0fAYwbFSMbmkjY/QPd4tWZ 3ODi9k/zVCsJm1yTaxFX4YYAjvK/rR0krPv5v+SVVi5IPafu0NNHwopcKIHv NnAw1Y9p/hgjYSwL+xYU3TlhPYDhr8tPEia5KGhjxMEJXPsaCqZnSFhs4H+Z pYUccMROd+/CAgmrLHWdkf/DDtr07B3X/pEwY826Qzrx7GCR3RKxukrCYta5 8h+pscNl7WiN4E0SprR7MJ99hA3+//9cLD/hzeWSSDb4H3IypLA= "]]}, Annotation[#, "Charting`Private`Tag$27465#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwt2Hk4Ff/3AHBkd+MuKlQqKkWWiIQ6t0VSkmxJStaPkC2JCHFxLZGd7Huk FdndCffeiSR79n0v+9qi33yf5/fXPK9nZt7vmed93uecmQPmjrpWbCwsLNqs LCz/Oz6ZvLr07x8J0bKxK3PwMYcJz52rvX9IiA7huMGheHPQxg+ul26SkGmx 6um1N+aw/5TTX8dlEqIoZmw2O2AOtSFR3EMTJCT12/rdPWQL4JbpEkWaSAj9 PT2ihMsSYlzvXvFNIiFKKjnffQqt4C/3UW2TBBLyia3sE8q0AuuURR3lWBLS oNG9JTtqBScZfoYL4STEzC51/KaINfTsyjG760dCYkkZnqIh1rC/cvoR+R4J +fOmvtzf8T94xfogm+UkCSFsDTYH694DZb0CzkQFEpJXQrVzd70HjOxhm+Ny JORLqdJmeNw9GNLQkTY/is3PeBtwovce7AyX/li3GzufKpRrZW0LfiJTzEAW 7H3s0539KHZgpHB7FtdARL6vT03UDN2HCUrM1RwGEfGqyqZvcDnAg87Gt6fr iEgqHZduKusA4R4qrg5VRMRAumu+2NsB6mi7/ja/ISK3LhUm+O1zBBmtVv7o aCIy8/Jo3uQJJ+Cw0pAXvk1E9BafIjKRztB65/iN2ZtE5HQBQVA91xlSjXZ7 VRsSkYRqfTPnSmdQ0pqnm+kQkeDyJ/K4CWewVoi/WXCeiJhJyxZrqbkAyjrp qypJRM64zT7m+ekCYamBzbfXCciUdsmJNVNXMEpwWpFdISDb9nLiFx65wsEo Y2G2RQISLat3nu25K1QHyFjkzhCQXIfdLE6IK8zZd67N9ROQitDVdRexh6Cj eljUt56AFMvKSR2ZfQik73T7zEgC0qTq09Ab8QgQqQwqJZyAvLpd9dS74BHY +3hlW4cSkJ4wO25V+iNgHFbokwwgIDnL21pZfz+Cxw/TrxS5E5AaKsED/c8d RoiekvWmBKTh2qzGlYse8OGq3NS4NAEx91Dg/LDLE0wz+NhRSQKyf9l0o1jR E3CrE/sKJLDxYmpPtut5gnVyyg2HAwSklN4+/99zTxCZ5WWuCRIQ+V1WfhO8 XuBHHc/h+oNHQtO3y+tyPAHduhcWRxvwyA+1q5IP8T5wsH1sgMnAI9+FjRI4 FX1gbUzG2LoOj1hbCVlX3fSBRM46nawqPDLym/wsNssHhjRnT+99i0c2Zoaf +u7xhfvfVIUIMXjk/b8yNdsSX6D2933ZuI1Hstd5FeNXn4Ln/Gn756MCCK64 Pc/6AwWSzU5OkfsFkBZfUpQISoGqNjnLxU4BxKhp2nS4nwJbpeImug0CiE+T dEceTwD4+fJoCb4XQB58knAQNg+AEEKHVIK3AJKZWZOWuDMQXijYz6YJCyCc Z4sf3w0PgrJHL2zfXuNH6vgdtdIqQ0DM0jnn+yV+RMLASunl9xB4pnNpiPUc P/JSjtrQsBoC5kfXDPRP8COJM0PSt+VCga/3+tlNIX7EeCWdWpYbCnfO8Aid H9mOxCvpNxgmhME2Dnd6p+t2BM7kSiZFhIN2lMH+rUQcoqK/HE+3iYTH8gKa GtE4xGNQNML6cSTktqLOz8NwiFWs7fsdYZGwRVSrE/PBIQJnNqJS30bC62gx aw1LHFIiFRNyaz0ScLHzr57L4JDdyIHL1OAoaIgPPilex4coPbOl9JVFg0ZK tfalH7yIRl5Mz8iFOFh41veHfYIXYewvw7cZxcEL798FnwZ5ES/1EO4W+zj4 YXqKS7WNFwmQkLu+FhMHUWIlNOkKXsS2JKRlYjwOBvIK5UhUXkSm8nSfRUg8 uH1IIg6I8yKliHXXfH8C5DI9Oh/c4kFKFMvOXn+XBHcoMTuaX3IhZr/VFaa1 M8D77rY3fCROZGQpiqKGzwEW6X208wHsSI8oVYcX8qEnNDHoVQcb0kIVXdO+ 8Qb28Nrkr5xjRYxCZA9mN74HO0VJjt49/2gP4GzC5nAxWJwceFlX95u2TGWr VN9bBpLuKv8csjdor6dFt105WwkZ/Xr1HmdXabhTy3OxFTUw+XSHmobQEm1P k/x89i8EKmKPqE8Z/qQ15msuhhXWgtx094psygSNNvRT21a1Hi5U9PL8NRyi sUutuGWE0uFNQc4ppuoQzeVC39n153QQSnK8F7l/iEavcSvTjKND5zpn1JX2 Qdqd4qvJY+l0OORpiE/5NUDjNU+dXCyhQ+3TVRxZo5920cak579BOvwJV+AM HOqmRaeY/3glywCn/LcbBFIbban8rOBCPQPk+B38zw210nDido/5PzNg0eUY /4PXrTTz12I3jjYxwEUtX7xdo5WWsRZgp9/BgIfNmdpxXi20805edT7jDFie kdJU/NJMYznzVOcoBxM4/TfSL7p8pnXm8aqUn2VCkNbDj3m4z7SSO7tvmqsz gXvnUiN3HkrbOni6kEuTCbz5s2sNvUzabp6eiYs6TBBoHtC6ps6gpUXMusXf YYLQbvrGDaE62njsPn2fx0wwtBbPaPUqpzUec18xecuEEOcH1KiSMtqDnU3b PD4wodqrzlF3rpSm+1riRGQJEw5GW5xpNf1Is2V1WSypZMISLau35VwRzfeY +ftvTCaIKlw6lkkooH2Jlx7XHGTCQkKi5WKiOU0ky8mNzIeCF1sM/aKyJsiJ TOf2b0dB5oUFU1DJEZZvqaFueBT0FL5XBZ6lQGjNclfyDhScre2m67G4TihJ 5ijbhwILS8k/i5o8OCVm7HRUAQXml+4QBb0yeN05lDNviIKNew/zllQ5ZKoO fFa8iQL3wV52yrYKkNMrXXe7hcJlzz7v9qJKeCOrbzdjisKXo4MuDwVpYPdP IzTWBrv/vMvr3plaaPFO9v3tjoJy4lLjvGEdxHnOpi4+xsabd5nZVlcHF8q6 3o94oZD/4oHEsaR6mKNkvyvxRWFm0TXD6woDZIIDF0SpKNinP4rdW/gZRB1c H/2NRUFtbb3ouFADiC476mXGo4DTcm9VpzQApWWScC4Rhdfr7gIOJo3gfk1B 3iUZhTntx8E1uCbIvq86FpOJQk32r7xW9yZQDuMow2ejEP7rMWNirAlGquyt g3JQkM313CZQ/RX0GabXrF6iUOZdU/NW6RvIBL1SHn2NQnr+VlO5/Tegl4ug im9RoLaf6a/L/AYmLDul/N+hYCRJ+93F3wKyS1Y2/EUobHbQlFkmW2CKb2fB RCkKKtKfPujEt8GXWkZGCoKCYntnXM3nNijvspUI+4SCnOePx8f+tMFMmd8B t1oUDn/edZ7brB2yL/A6q9WjQLJyaKNJdoBs9qxjFBMFfhylVPp2BwxXRISa oCjwFiUmJUV0AEfm8C6xz9h6s9ItHq10QGN2r29aAwo/knevyNR0wo/5r1SL JhQmzx//nrzQCStmbqI8X1EYmblYxSveBVYVuQcKMHcru1AmgrrgXTY4DjSj 0D4YZKNf0QXNWn/LnL+h8C0wRav2Rxf4c885sLSgwGhHBVOvf4eTtTKi+FYU PnkObPBRvsMhkamdkZirxFb6PD5+B16VvMfb21D44LQvx2B3N7TaH/LbwPx6 l2Jw3dVu+HXI/NB/7Si8rLl8/7hvN+xbSZNvwZyGc1PcPt4NyHalkPgOFF4U hQp77uoBc7397cuY44wz/k5p9kBJpmzQlU4UIllLhw29eiBLXyErFXPYyy/0 +jc9EHb1r8RPzEHXRvLlh3vA9a/ZjpNdKPitrT9LJ/XCobvKdl6Y3S+IG3q5 98LgVOa1TcwPZpVVZgp64WPtYr/cdxQcorRFjfp7QaFUot0Cs+0pSzaGQB8I +xyRj8JsNeQxoXCuD0pMe9YrMd8NimjIcO2DFcnDh4Yxm8jkvBHI6wNPWC9n 7UbhRkdF1JPuPiijqn7ci1nX65vbLF8/rHiPCitivio+YXzzTD+YS4yMaWC+ 1PD7DNOpHyQEpXcZYj7vTBBXzOoHG8uqd6aYzwhJcGV19MP1+pD3lphP0dRm 8dwDIHQ/VtgK8wlr3WZvlQHYOtg3dRez3Haboh/2A2AAZvuMMEsVP4k3ThsA j+Sj1ZcxH74V7Ym2DEBjvlqtMmYxtnxTJfZBeGuWLSOGeW9+zflspUHwvnKf jQuzkE67BPHeIHh55p6exN6XtD7N55s0CI1RZkO1mPlT/83/bBoEY9qHmUTM lEzeGWmWIWirfGdij5nNbUefpfAQPG12VVLBbHy3oLXsxBD4xuwo3MLW48Nl +IzTGQKmlkFVNWZexXbaXbsh0Lty579HmM333ftYHDgE3P/deS2FuYJnq5A7 cwgCfgWG92DrT1yJyjKpHoIfozg+CuZatOo5+8oQKH/a0cXA4kmk6HqQkcAw DLAIStzF7JIy8aRQchgspa1JK1g8irng7fTNhkHZR7yWD/Njkxyzl17DcIDt cEAEFs+tF1WM/sQPg8+xV+P/i3f/3Zbq2V+HoZoW5fsL2y99HJuqG9PD0Pzs ZaUN5hMLz+S1OEZg80tebAu2v8bqS/etqI5AxPi8RDS2/y448P06nz8Cygc0 Wjq+oJBslL4QXz8CvYlyAsKYV84pTs4OjkDPgPu8YSMK2btM26N3jsJWtVhi LZYP2D99eDPqPwoW8sFpNxlY/L3SyDmZNgpaPFtbznQUimP7kkIrRqFi7hBH AJZvLG05gxUWR+HMyi+uJCwf0UnGFv53xoCJd9oMrEFBdGvuZpfHGDxX253u Wo2C25S/jlTsGLg8eLVkUoXFS/Xr022NY5BFNUjdW4FCoDWrkPipcbBwCjlo WoLCgE4c/yP9cRBd/XdGrBgFJVUpjkbHcShos+Eb+oDChIDBkkvuOFA7TKqv YPn1YvnLL7WkCQi0CUwZLUCBC6fz1HxuAgzvNezamYblXwljRIlnEsJe1IuE paBQcM7yH+/BSai/sMT/NwkFbQ/3J0U3J4EvqflrcwKWLybSPdjpk9BHjUWV o7Dn/bTonJs0BQ65z8OFKdj+7/v97vHHKfBx19kPfig0rHMsaLdMwcr4pWJT rF45yIg4rHNOw4crzycjsXr2Memc7SWXafjm2pdc4YqCulu0+cylGdgcdLgh aonNF5mSUWMxA2JcKmkrZihMFeYNRXnPwNys9l86Vk/DRivvqBbPAH6hltUY q7ftOmPGYftmgeHiqquhi62HlKKezNosfArOua4MWDwNdZ53yfoJ0eGt+t5Y vR8ov3LfveonUJb0uGaIWL2JRuK8O36C+Xbx1OtYf7CgXjAdwjUH9udVvAWx fuLOqycRWXZzoBL5TvYeC3a928HedoV58IrKS7w2w4RNjlPlu80XwHzrGPtu rF/JdVluSnVYgOLZUSHOMiboD74eOeC5ANlKV879LGbCuzIx3JGYBeCSrep+ +4YJ1nY40xOMBQglhmlyZjKh/dsg+1XJRVi6dy53Mwi7PilQx3tpEVoEm305 rzOhkRQ4KcCyBCMK/OaSV5kwERrgnbF9CQSOBk5rYv3ZHi9KYf2RJShcKFzx xPo5qokfN5/pEnzrOw6Fx5lwd683Et+4BLtKsGaMwAR82kO599nLwJPirHAB 6x8dMy3xY4arsG+n+obBKQb2fZ6YHG6xCs7TX9IaTjDgjc7XI6ecVmE2Ogmv JseAua2TZ8ODV8F7zOfGDgkG2N/ic1GuWoXY0K9VGYIMsBX80BZ2YA3SD7L/ FZ+ng3XgvzjFH2vwXltKZzCDDndsX+wNeroBxVur7VVb9RB83e2UQvJv8OD/ 1b2RUQfsgrETPr+2QDMoBCfFWQtdjQELFAFWcqNbqyOLCwIGnuZKL+rYyGIc AhkSVtVgzzcr9tWYnbzXXYDue6gC9r1ixHHOcJCdTXPiE/lKwbPsvJ5AEhf5 8rmAGNGuInDKtf+oJMtDvtoy/miI7z3g2E6ay4zzkgmKJ49XhhaC+n39WMlo HPna2QNPkPw8ECrf66h+kJ/cfTKn1yojC6JcqJFyXQJkT00epxu5aaAbeE06 5SOe7JvVajoSmQi5Nxc0y8vx5FR0Nm3eMxE2j0Vad1Thya717Af5rBMhva01 bXsdntwymj9hr5IIP/cbEr2b8WSus/ientEEoFaarN+ZwpMXj1yKMDmVADUL 9z7tFyGQozVvi3fNxYHkLYpB9hMCeU38r1uKXwzcdP5IZH9KID9ISXlHcYgB atBUswWFQK73RS97GsfAeJHWZfFQArkxSDcwTj4G0nE7IDOBQD6cGnuXMhoN O2pyjqQXEchvZakNJy9FA8sB5u+kaQKZJyhl/9c9UdA5wZMZbUAkxxb93LIb iQCGfnByuRGRHP5Oj/dDXQRW97njB28RyYTloh6BnAiIS+UKkzInkr9LdyYR bSLAwJDDrc6BSC61vHNTYT4c2uksl5eDiGSXY3XBXazh0Jq9vqhbQSR/+ful 2Eg5DL6aj58l7iORR9jGYgsmqTDMnrcRK0YiX35FPfCikQoruTZvhQ+TyJor D9Ky3lJBeHZ2zwFpEnmr21aO3Z0Klg+W1mVVSeTy7Xt6N3mo8Mv/3+urN0jk 9dSSjZfyQXA4R1gkOIJEdnXa+SkrLgBOafR+w0WTyKnD+V3vnwSA1nRy0PM4 EplwULujyzIAnKX3r8ankMi+zb0X7BQCoKrk8LfcVyQybWCH7JsWCugyFALr mSSyjyDCHUekgJXNqtqlRhLZM7lpU+S3P7jzli43fiWRp3wtmj+O+kOKtopZ WweJ7EednpQv8YepTrLayCiJvBZouF31pj/8cmdbtpokkXPbgs0envOH7bvr 86dnSOSiChERhpQ/yJtq7FpcxM5XersXbPmBOivPV9dVElnxqOPW6Sk/MMpq oGxskMj5P9dfTrb4ga16mKrXHxJZkiJnk1fpB///P5McwHri2JMcP/g/Nqtm UA== "]]}, Annotation[#, "Charting`Private`Tag$27465#2"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-5., 5.}, {-0.08425583307710079, 0.5502174204086208}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.761380868104947*^9, {3.7613817399396772`*^9, 3.761381790341543*^9}, 3.7613818478170385`*^9, 3.7613819159725747`*^9, {3.7613819568842163`*^9, 3.761381965596519*^9}, 3.761586116413907*^9, 3.762090246775468*^9, 3.7621501849312935`*^9, 3.7621540646908846`*^9, 3.7640488719753923`*^9, 3.7640495026041613`*^9, 3.764049778120584*^9, 3.765606620233165*^9, 3.810466863199518*^9, 3.8106652289711423`*^9, 3.81066546310494*^9}, CellLabel->"Out[96]=", CellID->160609625] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Options", "Subsection", CellID->776923543], Cell[CellGroupData[{ Cell["Weights", "Subsubsection", CellChangeTimes->{{3.764048323807058*^9, 3.7640483246148973`*^9}}, CellID->580999632], Cell[TextData[{ "The ", Cell[BoxData[ FormBox[ TagBox[ ButtonBox[ StyleBox["Weights", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Weights", ContentPadding->False], MouseAppearanceTag["LinkHand"]], TraditionalForm]]], " option can be specified in a number of ways. First generate datasets with \ an unequal number of points and offset them slightly:" }], "Text", CellChangeTimes->{{3.762151085129057*^9, 3.7621510920176077`*^9}, { 3.762151226041622*^9, 3.762151257360838*^9}, {3.8049545638798847`*^9, 3.804954564285943*^9}, {3.804954711049575*^9, 3.80495471433482*^9}, { 3.8116837316164083`*^9, 3.8116837316164503`*^9}}, CellID->362362948], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"gauss", "[", "x_", "]"}], " ", ":=", RowBox[{"Evaluate", "@", RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", "]"}], ",", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"amp1", "=", "1.2"}], ",", RowBox[{"amp2", "=", "0.5"}], ",", RowBox[{"width1", "=", "1"}], ",", RowBox[{"width2", "=", "2"}], ",", RowBox[{"sharedOffset", "=", "0.5"}], ",", RowBox[{"eps", "=", "0.025"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"dat1", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"amp1", " ", RowBox[{"gauss", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "sharedOffset"}], ")"}], "/", "width1"}], "]"}]}], "+", RowBox[{"eps", " ", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", "]"}], "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5", ",", "0.1"}], "}"}]}], "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"dat2", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"amp2", " ", RowBox[{"gauss", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "sharedOffset", "+", "1"}], ")"}], "/", "width2"}], "]"}]}], "+", RowBox[{"eps", " ", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", "]"}], "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5", ",", "0.2"}], "}"}]}], "\[IndentingNewLine]", "]"}]}]}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fitfuns", " ", "=", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"amp1", " ", RowBox[{"gauss", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "sharedOffset"}], ")"}], "/", "width1"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"amp2", " ", RowBox[{"gauss", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "sharedOffset"}], ")"}], "/", "width2"}], "]"}]}]}], "\[IndentingNewLine]", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fitParams", " ", "=", " ", RowBox[{"{", RowBox[{ "amp1", ",", "amp2", ",", "width1", ",", "width2", ",", "sharedOffset"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"variables", " ", "=", " ", RowBox[{"{", "x", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"plot", "=", RowBox[{"ListPlot", "[", RowBox[{"{", RowBox[{"dat1", ",", "dat2"}], "}"}], "]"}]}]}], "Input", CellChangeTimes->{{3.7621511546591406`*^9, 3.762151189154236*^9}, { 3.7621512197055492`*^9, 3.762151219922967*^9}, {3.76215141159744*^9, 3.7621514124501877`*^9}, 3.7621514939652367`*^9, {3.7621523708356485`*^9, 3.7621524281463594`*^9}, {3.7621524989420652`*^9, 3.7621525005228415`*^9}, {3.7621527433012486`*^9, 3.7621527436991563`*^9}}, CellLabel->"In[97]:=", CellID->609432066], Cell[BoxData[ GraphicsBox[{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw11QtMk0ccAPBCAXkUKa3KymTTIYuvKrMKKro75wTFaDY2hvIQlLWpkuEG A4ZQ4zbngPKwDjva8AYZEKbEIoKM3CEqQzrDQ0ChiERFFLO2wpgg4ma//3dJ 0zR3/9//0X7XpYeOBkmtORyO9P/Xm3dmLaDyhjS7TRPniFbzZgnptlHdmCBJ SSSWJaQ7M/RKn9JS9Jf+zRJQbXH4Rdt+FZFZloAOhgXaBhsqEOMJqO6UT9n8 99TguVJD8lsrOt7VIMZzpQP17u71Z5MJ4/HpHpFPwJOpXPD49Gl37rRXZi5h PD5d9kPm5zfXXIR6XGhoSenB17UKxJyfT597Ri8ZohGIyedMr8WeabvdqyIW Xs+jHW7OWqfEE1Afj1bdCxauHsoDz4k2JC+2j7mgAs+Rqj64sSpVVgH1O1BD mjnjmK4cPHuqbXfrqfVTQX32dMWuW2t5WSXQ3zzaEO9feokbC/3Y0T17rEPK PpMiC6expd+lyoQBMVrEeDaUNy6SOiWVg2dD79T2Sf7tOAn1cenu8eYvjxgU 4FnT2/mOVnuDCwjjWdFrhTG+opYj4HGoaDtfcXKDBvrlUOuo9ddDsyuhvzni 5em48uySMjg/S6ojH7eqMkvROku+l6R6YlFa5YfnUZ7FnyaSrtWFG2kpeC/I 3nZ9Q1d0PXhThPOFlFOwuRm8SbK5dvuos18jeBMkYPSS6dHTJvDMJP2o+V6M lIJnIj9tDthVH38V/WmJf0Y85rrDf3zUBuefkOFO+fWk6JtIbsk3SqiJcMul Xcjb4j8gLqI7I86KbvDuk7ALnSb55U502hJ/l0xtWxD/Yn8PnO8h+x/NVj6c 14tOWPbbibzpXvAh6QB8biTtOQPPi3Yb2PlxelvUXP2zAUSZfdQ3+UtFeuAg KmbiUdqOmrFPfjYgzPhoJNVrX97YEOzfRR6eI97eDsNsfWiiddW6Gt0w2sjU j+IC72v1L4bZ/tAGtyZJ+lU2/glyWl6l5LgNoU5mPqhi4UeL/m4cYueHutp2 XhB7DaJ8Zr7IFBKaldDfi9Yz80ezxyNqTk33Qfwkan1Z7KIc6YV8Uyho8jet a04f+/0ivfx38dvVPeBNo9eSOJ+g/JvgvURkwqf/K3EHeLOosa6l/0FBO3hz 6I7xj4xlB26w88MVVYnThz9uQ7eY3yc2hbw/Ht1F4Xm1wtkFMxk9vIsQb42P h702fh97BfJxMcqdi4oPvwyeDfY190ZtMdSBZ4PXNXoE1x1Ug2eLDUtnFBph NXh22H+xZm2WOBe8efiSD7fZGKEDzx4bk1qPZJ9nnwd7vGVg4PjMsRTo3wGP GYyJQrUSPEd8wte0yW6tN3hOOHDrjq8V6iz2fsHW/ov1CbYl4PEw752M1qI1 +eA54wOxkn39JQmE8eZjqkt9NZcoA88Fe6fx+pO5avD4OM7d+KvuG/b55eOV URGFZn8l9M/Hk63dLqa9+RDvije1iSNFy79l71/sqU351FOeAveLAMvCHl9x iDwH+QX4Qc3h0By/WvAEmBS7d2zlZIInxPvDxeK4kSL2/wFXHnp4WmqWgbcA v8orHvxn4RnyH35k4m4= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBmIQDQEiBw5raC9amdlkbwwGwgc6tLJ06nZ22aeBgdCB 7hvyn8zTu+1nzQQBwQMz1vznOBCfvf/sGRAQONBzNeUNU9sme4h5AgduSTjd CzXcCtXPd6DCT+UNZ2qrPVj5GZ4DHV1RLj23t0Ht4z5QzOfQ/MFkA9R8zgMX bPwmBWpvg5rHcUDwt6Ld9DcHoOaxHbi5ceWSZwr7oeaxHCiZ05I7Z/sBqHnM B24WdrpN6TxsDzZuJuOBXzv6VoZ9OQA1j+EAy4p++9rpB6H6/+yXWCDwmDf4 iP0MsPqf+6tilnU37z8Ote/b/mrByopZTMftjcDmf94v0OfYdrH1CNS8D/uf +R5J3HriNFT/y/3PQ22L5B4etzcAq3+8/6va4Wv5s07ZTwDL39wv5qC0peHl EfsGMP/k/s96lvf6eM7A3MewbfVOP7PTR+0XQOTtv+vuCTvWcgLKv2k/uZzN b2nYMXsLiPn2M/LzCyxEj0DlX9r/uWHewde3C+Y++xb2fbxPDh+yN4G4335C MtOL7CO77TMg/rOfo+2/8bPBDvs5EP/bH9gw58OllgP2FyDhYz9xzeYHBw3g 4eewySBO2fonLL4YHdQWLGne/Gor1Hxmh0/vpFcELV5pfw4SPw7HDOdYHbRY AbWPzeFNRsGCWWdWweLXga113tmyn1Oh9nM6BATVXyzunAc1j9vhzV9BZc3J W2DpxyHqerTK5PfToObxOejIbH3/9MF8WPpzcDi75Fxy/3Ko/QIOjBMe9uQq rISlXwdNV88LdWeXQPULObCKvJ2/Vn4F1D5hB6aJjsuDrJv3Q/OHg1/W4qT7 02v3AwCeA2/j "]]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-5., 5.}, {-0.0710264641206853, 0.4995605003797784}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7621512215017166`*^9, 3.762151413010661*^9, 3.7621514943691254`*^9, 3.762152402826072*^9, {3.762152501026464*^9, 3.7621525288919783`*^9}, 3.7621526707455063`*^9, 3.762152747209807*^9, 3.7621529026372695`*^9, 3.762154067883232*^9, 3.764048873807681*^9, 3.764049504468176*^9, 3.764049536998213*^9, 3.7640497799845223`*^9, 3.7656066228731747`*^9, 3.76560679963132*^9, 3.8104668700295663`*^9, 3.8106652319730864`*^9, 3.810665465451666*^9}, CellLabel->"Out[102]=", CellID->752107164] }, Open ]], Cell["\<\ Fit the data normally. In this case, each individual data point has equal \ weights in the fit, so the first dataset gets more weight overall since it \ has more points:\ \>", "Text", CellChangeTimes->{{3.7621512694654903`*^9, 3.7621512705376062`*^9}, { 3.7621513304334855`*^9, 3.762151352024725*^9}, {3.762151502344801*^9, 3.7621515216253643`*^9}, {3.76215167313754*^9, 3.762151676209327*^9}}, CellID->859859095], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"fit1", "=", RowBox[{"MultiNonlinearModelFit", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"dat1", ",", "dat2"}], "}"}], ",", "\[IndentingNewLine]", "fitfuns", ",", "fitParams", ",", "variables"}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"fit1", "[", "\"\\"", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7621512910977154`*^9, 3.7621513234421797`*^9}, { 3.762151420371978*^9, 3.7621514335138683`*^9}, {3.7621524078935213`*^9, 3.7621524133389597`*^9}, {3.7621525049150653`*^9, 3.762152509177695*^9}, 3.765606795564859*^9}, CellLabel->"In[103]:=", CellID->35789943], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"amp1", "\[Rule]", "1.2016518030559733`"}], ",", RowBox[{"amp2", "\[Rule]", "0.408583802144339`"}], ",", RowBox[{"width1", "\[Rule]", "1.0029149057043876`"}], ",", RowBox[{"width2", "\[Rule]", "2.5760918968401425`"}], ",", RowBox[{"sharedOffset", "\[Rule]", "0.4525024123917745`"}]}], "}"}]], "Output", CellChangeTimes->{3.7656068012833767`*^9, 3.810466874356631*^9, 3.810665234473113*^9, 3.810665467748566*^9}, CellLabel->"Out[104]=", CellID->49731182] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"plot", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fit1", "[", RowBox[{"1", ",", "x"}], "]"}], ",", RowBox[{"fit1", "[", RowBox[{"2", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7621512910977154`*^9, 3.7621513234421797`*^9}, { 3.762151420371978*^9, 3.7621514335138683`*^9}, {3.7621524078935213`*^9, 3.7621524133389597`*^9}, {3.7621525049150653`*^9, 3.762152509177695*^9}, 3.765606795564859*^9, {3.8104668887402477`*^9, 3.810466898117798*^9}}, CellLabel->"In[105]:=", CellID->88631686], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw11QtMk0ccAPBCAXkUKa3KymTTIYuvKrMKKro75wTFaDY2hvIQlLWpkuEG A4ZQ4zbngPKwDjva8AYZEKbEIoKM3CEqQzrDQ0ChiERFFLO2wpgg4ma//3dJ 0zR3/9//0X7XpYeOBkmtORyO9P/Xm3dmLaDyhjS7TRPniFbzZgnptlHdmCBJ SSSWJaQ7M/RKn9JS9Jf+zRJQbXH4Rdt+FZFZloAOhgXaBhsqEOMJqO6UT9n8 99TguVJD8lsrOt7VIMZzpQP17u71Z5MJ4/HpHpFPwJOpXPD49Gl37rRXZi5h PD5d9kPm5zfXXIR6XGhoSenB17UKxJyfT597Ri8ZohGIyedMr8WeabvdqyIW Xs+jHW7OWqfEE1Afj1bdCxauHsoDz4k2JC+2j7mgAs+Rqj64sSpVVgH1O1BD mjnjmK4cPHuqbXfrqfVTQX32dMWuW2t5WSXQ3zzaEO9feokbC/3Y0T17rEPK PpMiC6expd+lyoQBMVrEeDaUNy6SOiWVg2dD79T2Sf7tOAn1cenu8eYvjxgU 4FnT2/mOVnuDCwjjWdFrhTG+opYj4HGoaDtfcXKDBvrlUOuo9ddDsyuhvzni 5em48uySMjg/S6ojH7eqMkvROku+l6R6YlFa5YfnUZ7FnyaSrtWFG2kpeC/I 3nZ9Q1d0PXhThPOFlFOwuRm8SbK5dvuos18jeBMkYPSS6dHTJvDMJP2o+V6M lIJnIj9tDthVH38V/WmJf0Y85rrDf3zUBuefkOFO+fWk6JtIbsk3SqiJcMul Xcjb4j8gLqI7I86KbvDuk7ALnSb55U502hJ/l0xtWxD/Yn8PnO8h+x/NVj6c 14tOWPbbibzpXvAh6QB8biTtOQPPi3Yb2PlxelvUXP2zAUSZfdQ3+UtFeuAg KmbiUdqOmrFPfjYgzPhoJNVrX97YEOzfRR6eI97eDsNsfWiiddW6Gt0w2sjU j+IC72v1L4bZ/tAGtyZJ+lU2/glyWl6l5LgNoU5mPqhi4UeL/m4cYueHutp2 XhB7DaJ8Zr7IFBKaldDfi9Yz80ezxyNqTk33Qfwkan1Z7KIc6YV8Uyho8jet a04f+/0ivfx38dvVPeBNo9eSOJ+g/JvgvURkwqf/K3EHeLOosa6l/0FBO3hz 6I7xj4xlB26w88MVVYnThz9uQ7eY3yc2hbw/Ht1F4Xm1wtkFMxk9vIsQb42P h702fh97BfJxMcqdi4oPvwyeDfY190ZtMdSBZ4PXNXoE1x1Ug2eLDUtnFBph NXh22H+xZm2WOBe8efiSD7fZGKEDzx4bk1qPZJ9nnwd7vGVg4PjMsRTo3wGP GYyJQrUSPEd8wte0yW6tN3hOOHDrjq8V6iz2fsHW/ov1CbYl4PEw752M1qI1 +eA54wOxkn39JQmE8eZjqkt9NZcoA88Fe6fx+pO5avD4OM7d+KvuG/b55eOV URGFZn8l9M/Hk63dLqa9+RDvije1iSNFy79l71/sqU351FOeAveLAMvCHl9x iDwH+QX4Qc3h0By/WvAEmBS7d2zlZIInxPvDxeK4kSL2/wFXHnp4WmqWgbcA v8orHvxn4RnyH35k4m4= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBmIQDQEiBw5raC9amdlkbwwGwgc6tLJ06nZ22aeBgdCB 7hvyn8zTu+1nzQQBwQMz1vznOBCfvf/sGRAQONBzNeUNU9sme4h5AgduSTjd CzXcCtXPd6DCT+UNZ2qrPVj5GZ4DHV1RLj23t0Ht4z5QzOfQ/MFkA9R8zgMX bPwmBWpvg5rHcUDwt6Ld9DcHoOaxHbi5ceWSZwr7oeaxHCiZ05I7Z/sBqHnM B24WdrpN6TxsDzZuJuOBXzv6VoZ9OQA1j+EAy4p++9rpB6H6/+yXWCDwmDf4 iP0MsPqf+6tilnU37z8Ote/b/mrByopZTMftjcDmf94v0OfYdrH1CNS8D/uf +R5J3HriNFT/y/3PQ22L5B4etzcAq3+8/6va4Wv5s07ZTwDL39wv5qC0peHl EfsGMP/k/s96lvf6eM7A3MewbfVOP7PTR+0XQOTtv+vuCTvWcgLKv2k/uZzN b2nYMXsLiPn2M/LzCyxEj0DlX9r/uWHewde3C+Y++xb2fbxPDh+yN4G4335C MtOL7CO77TMg/rOfo+2/8bPBDvs5EP/bH9gw58OllgP2FyDhYz9xzeYHBw3g 4eewySBO2fonLL4YHdQWLGne/Gor1Hxmh0/vpFcELV5pfw4SPw7HDOdYHbRY AbWPzeFNRsGCWWdWweLXga113tmyn1Oh9nM6BATVXyzunAc1j9vhzV9BZc3J W2DpxyHqerTK5PfToObxOejIbH3/9MF8WPpzcDi75Fxy/3Ko/QIOjBMe9uQq rISlXwdNV88LdWeXQPULObCKvJ2/Vn4F1D5hB6aJjsuDrJv3Q/OHg1/W4qT7 02v3AwCeA2/j "]]}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtmnc4V+//x+093qNIKopUlD0SndcpKyVJGUnIykpGiYwUSZKRlVVWdiUJ Ce9bZghlr3dEsj/2Hl+/6/r9c871uF6vc+779Xw97+s+93Wdg+Z3dK3oaGho GnYu/3f3/ndxbnubjJK3biRahgZiI548i70bZHT7TWtj1Uogpk34vVy0SkYL y0+Dui2eYYKKTpt35smIw+rQqhIEYd+CXrIMjJCRe3WkSRZ7MCYmcJ29dIiM JN0vsrv4BWORn4S4Xg2Q0XIjS8jRzWDMqq+ArNNDRhGtNXXeSy8wFvHOA+gH GTXuDZNtpQnDnL+9OZhQT0bTRupi/aphWI++jbB7LRk95+9X3XoWhuU8XD0m WUFGihreQjG84Zj2T365pAIy8uXtXXuDv8Qi75pd8I0nI4WRw/3HmiKxTZZj 2savyEg324zQfDgKs06c1TkZRUbpYx3aXT5RmELNY/2ZEDIyOvP683G5aKyH 9+1Ns8dkdEqlWODBpxhMJfe2pfJDMvIPstnTx/MKy8Xlb+3xIqOfvKfrmz1f Yd62tQ4t98io9d50vf/5WEzw69h93JaM3rHqGLevx2HPLuU/2GdNRt2Xg5Pu OsRjc0MPvFfMyWhzr2J/FzUeq+Tg8MszJiNjO7cs9u8JmLWJeIigDhlxp2zR D3x6jeXQuqbRKJDRCx0t26G7ydjJK9lMsTJk9FDUNEqyMhmrSRu0kZIko8ED oovNpBRsQEPnhPmxnX4U1KvzF6ZgPCEnCiv5yWhUYaH0MWcalvbbco/xHjIS 85zz2bZOw6SkEh4s7NrRfznq7UZFGqbVxgaHucio6sP52TCvt9jjvaO1ATQ7 4z28FN3GkIERHAREBTZJ6GBZyySTfQaWWKYfXLRKQmslP35N/crAis2qdUbn SIjuKegsZmRiU+kp3Zp/SWhx6P6Jz7eyMUOZGxMc9SQkz1JPm6n6Hhvxj7z4 toaEuoOMatK/v8dcOxo+nK4koeFhXqNOnQ9YiMepu46lJJTIGVG9Ip2HVVJ4 N5vfk9CpgVeujPofMR3iJVObHBLqRbEsjckfMap5QAVNJgmdbh0ba5n+iK0w Lj6RSiahBMzydVZwPiau9YsrIoKEsLOWFke6PmGliazOYmEkJOWxeNtJvADT /A9vrQwmoaMD+v0HAwowy5cfYhaekNCXMrkHbYqfsbiuYEF9dxKyuaB2hf9T IcZopSHNd4OEeEe9G0PmvmC/TKQMJq6R0Fikh1yZUQn22pDfq0yfhC5mU/d6 V5Vg8lr/Vd/U2dGjNcSvLuErZi0Tcy1bhYRSZ3JMZG+WYdInHvl44SRElB39 FNlRhm2J2KdqnyahB7++zRReLMdi9sLUnDwJZdBmThmdoWB1tP98lURJiCL7 S/n2G4RFrre85TxCQhWqhV6PBhFmtlhS/1uIhE4c004PF67AVkdDdvnvJ6HM GB9SwbsKTLRFPrORsFMvv3uwTeM3LPh1QPONZSL6UGgZvIBVY4avnBYkFohI YO7gj7CX1ZjwSyM+ulkiUppr0rP5V42VPRG3SB8nog4WbZreyBps2qFjabqf iHQb6Ay0t2sxHSWRA75VRHSE33swkacB2ydHUNGtIKLM9d1IyLcBGxVfuyVc TkQV/nMiMhMN2KNDTR/riohI2PiPM0NNI5bP6qZGzCEi+vuGGlyhTRi5q9oh JZyIQhbdJRcUf2JILDnQP4SIVnRZErk9f2IOD73SrJ8TUe4K1y2esp9YjYhM n+gTIjI6EYzmVH5hD+4lXfjkTkQf5QUCz9xoxf6QPEWrTIlIj/9wqnRFOxZq ra+ebkzc6Z++cjSpA1MukTIPvEZEA+G+zfusOrDom6OxWleIKNFJ0ySFsxM7 n6fH2q6+ow/nZakthy4s/6Lk6N8TRLSbe09xvE0vZprMzlAnSkRFX/908jX1 YhyLIwLZR4joqINZ5ZZsH2adkGjgeHDn/bPfOriZ+7G9E2y1S7uIKPbx7OGO Uir2OPDvW+YNAhKgsaHNUxzEJPpQxdgKARm/LeRpcR/E+iQS+hsWCWj7KHNz Y/EgJt+puzvsPwI6POwed0vpDzZ+GPnvGSIgJh3b93cvDGG6lXEWx+oJSK2D 43t87F9MuG2YWltDQJoR/s5J03+xpWFxI+tKAlJonh0fUh3BYpkqdVJLCWhi UJ1VcXEEG9CcOL3/w06cZIvFW41it1uU9hAjCeh317Ctw7MJDBt8EvEhjIDO uLeYhi9MYIS5Zi7tFwQ0n3uIpHJzEisgWzI+D9jhXQm25jCFrekHzzF4EJAc 95XN49z/YYH9fY0rNwjIIInpK/OjWcxoWuRcjBEB5Xm5ql2rmsWObztVyhkQ UIU48V8SyxzWLMhY4qJDQB+HY0oEIucwHssTGZNnCchjVpVFqWgeSx33fjRw hIDu3kpgYpFawu6u1274CBPQpFXoO7MnS5g6B8l9/8Gdemh/vh/rWcLGT6Q7 Gu0loM8f980nPFvGJJ2brrdxEFCamEfxxuIK5vnfaYewIW604fGu0JFrA0u4 qTCK93OjtX0FgSVOG1hpq6TlbAc3eiLJ8k+rbQPbKhIy1q3nRprJrGf03mxi j31ZtXZ95EaX71hVWKttY0HEdrFXPtzozLJheKodLeT4NWWcc+dG/KHxNavp tNC4WCu06ryT/+DM7O5hWuDqKeE3suJGNRlYfpYZHbxMSWLfp8WNlrKbpf0s 6CFOxmHiDR83csTWehReMsLXt1a3dMjc6K5puOrePkbo4zUdouHkRlSxcLZJ ESY4sHG59yYNN0p+TMdhS2GClCqFBqF/XIjlBovG3g1myNKjz8ko4EKmWQOt 2+lsUF+7IWL4ngs5vKU5j9Gyw7jiUgpLJhfKDWawSDRmh+MHxuJs47lQsaYi XQMPB+SNNAWJPeZCk/emk1RjOaH4fpzdh0tcqM1PSWbCgQCHLJ3fdp3jQgRn M7WATAK80Dk3QHuWC/U9PWsyNUwA82NLeldludCsqXb3MTMisPdePrO6hwvJ QQDnWzMSmGCse1T+cCL5G3u+MgXvgjrRAV2HXk70KyfMPq19F0jzFr2IauNE clRpv1OCu4F5xpJ+tIYT+T6TP2hcvBvyktF0cA4nCjWixjQu8AA9o3t1x11O RM6PNVJO5gPHWW0aGkdOtE9pfXZwnQ+6+g8rHbvFiXQ6/bYKDPZCbmFrnuc1 TkQ6Jsw5R+IHfRuJBEGME32V/XlD8tU+yGwYcbFj5kRPTBJyhAYFgFRc9i6C hhOtfT3FKn9UELzTIkdLVzlQHIN6eJiZIOh6nzXhnuRA9CFiF5xbBWFd/LVm QQsHyrz7wk7g20HQfqknuBXLgT4ISzRLVwvBA2luTY0IDhSmHaTGySIM6b/q nMOCOdD7f9NRXy8IwxZJufLQQw4U2V7ildguDO8iDllrWHIg3Vr+tq/zh4Ej 6r+cMHEOJHfyDint+lE4KZfV1n2EA73ozrGZyj0Klu3mm4cOciATs5RHsttH oXR3h/ZnMgfi+VpsX5t+DOyjS2e7V9hRWEDez8t0YlAf80xBqJIdpXedDX8z dQKWFFTMHErZkfunpAUxHXE41LUR+PkzO2qivWH475M4PNjj1KORyY4yp9KD Vnwk4FisvrfDC3aUYWMnPhcuCYFxQpWfDdjRm4Tk81t60lBwqn9iS4cdVTF9 KAoJl4aBnuhd586zI+NvZPfWH9Jwkp/NukeZHTlL8Xx/dE4GRuNnWLYPsqPL U9avstRlQSOxTPvcJBsKN48tWbwlDzMv+jYYRtjQW4pp90i2PMT5rGdX/GZD tz+vboVPy8OkqSKzUisbcp66WbXfXQFeHvpMOVHChr6JxI1D5EmgZuRKkgPZ 0GJp0HnzuVMQ+KqB2vyIDU3KLkT1nFECqWfjwcGebEjxI8Xl+Esl8Lc7OsZ4 hw0xKrSZWskpg+iJtOQVPTa0NuMXZBNwGtzy40lUITZ0xEp564ooDoKpJShu PxtKzj+95+Y1HL5HdDsa8LKhKJEC4lQgDvvu8Ta0sLGhH+p2vgFjOHxTiPCr nGVF5NtzU4N5Z4CrLGghk8KKbCPGfxteU4H0Wo8O1+usaE1yo6ZurwbESrup ZF1lRc/YLSObbmpAcKJLHvUiK1JdqKEkZmmAi6t9kCbOij5ci8KTlM7BaYEb mMBhVqTgC/p3bDWhzQ1Pr59mQZmPL50mTF+A2kFlMs0oC1JwVoKMs1pQoqXo KzfIgiaj6xaPvdKCpEPSRkmtLChtwr9sXe0i2DcJcbkVs6BYgoY76Z020Ikw ux18zILe+bK8i2rXgcUw+iF9TxYUOSua0sR8GUbXty8F32VBnXKT5PBTl6Hp 58qxZWsWxE16ml+UfBlivcf7Gy+woEtX7lz/6KYLku0/1Nx3s6Co3pbI58pX wcQ/cndzJjMa6rZaPHDWEJpgidk9hRmNeI5NxvsZAqwbrAkmMCNNsyCFkmpD EHTh/+0SupMPfJoDF67BH9OUTB43ZnRH88HDVVMjsFbKUzJRYUaPi9MKkjON oWOJKM58mhll1Qs/oi4Yg0a+q2CePDPaytnf2XrmBhw9psBIJ8qMnD1CNKf7 b8A4T3nTWwIzAu7/mLkETMFxruHmVD8TKlVa2ZYYMgPquxNXozuZkPSEMaML 9024ZBuqDj+ZkGzQvOp+5ZsgOaArFl7FhA7oLA3mR9+EuR/dC7I5TGj/V+OZ OR1zcMv699TLnQnddBsTDemxAB8z+vfsZCakITPbTDl3C/KaNULaOJjQ77lw 0arHt+APFuyYyMSEqKol7efLboH6/t0SEmuMiGPcjmdIxmZn/xHJ0x1kRFL9 F6yuH7GF11fO58d+YERPuM54XD5qDy3fQl6aZzGiTe+004t29kAn3eoilsqI tG9pT4i9twdrgrFMWTQjelnkaqYv7wDiP24XDHgzonrquTflF28DRT288IgW I8oRGMe7Y+/A3Of26Bk1RnSyxJJBeuQOCB/ee/8LMCL7BvWFGD4nCKRPVbgg w4g+pnydCr3lBDqooNhx7874WxlCHszOMKDYVfJ5lAGVq9VTSwxcgOaEAEXl CQOaFgzL88TugRfPGZMnPgzo8zmrGue792B523yz5j4DOt6k+How+x5M/0pX Om/HgH7ZFMhI87lBr7t4sc4lBrQ/RjYhb90NCqtOf7zBx4AkO9Qa57vcQfq9 qc4bEgOST31gucjjAe9iHv03wM6AvpbtbX2o5wFpdtUnLLfoUbrNARGZNg94 SbiYbTdEjxrZD4ZIdD2A28bGqfff0SOTjhAui3UvGFXzOfslnR4d9paTsj/r DZYSSYNrb+iRk89mMEeQNxjRDQv4vKRHGf4z8gL8PnAu0z7B/z49+uDSH5qi +hCEFx5EhZ+hR+ejPevYe32h53ns05x2OqT3/fe1ay/8oLVaMNesmQ5d+TpQ 61DsB43bGS27v9MhYtvAwK8hPyh3LeTzLaVDF38n7o5V8oeU6605V1PpENlC NZ//P3+wE+Ns2XSiQ2K6xxMcrANgvd53jw4HHVrIiZKajn0GCwwspxmZ6JA5 E730tZZnMI2F3izZpkV985W9R5iDYCA/MVt4nhaV0evYz90Lgqq4EuXVblp0 tZ2kp2X4HILtFsxSMmjRa13+7AjJF7CPzSZr4Swten7t1uXq2DAwKW8MPqRM i3qNhwtTysMg2UXKSUeOFjGd4q6uHgoDkd41+dwjtMhJkdWRKh4OErkvqiw4 aJGwGZHBqi4czmp/+v2rnQZZ4mM5gqwRYPtya/dHGxrkKFd+X7QqCnLVLVap N2lQp057u/9cFEyv1fZxXKdBJQKck1IHo8HFIjzV5iINOupTNfvkYTR4yQpL CUrToLmt/SoH8Rg48C7i1YHlbUp0et4r/5+vwF5OlLF33zZFvvwpkf5kArgw fslw496mbHXN7fd0SoAH7RrnSXTblJ4X2zI6WQkQdM8qVPPfFkX7RacIeV8i ZH9O4iv+uEU5equnmZnpNYzJ8YpHqW9RBKI+xLJOvoFb8gwGl5w2KUR785J3 tCngyBSxOm6+SXHRevjjoHAKuHUcTAjQ26R8450jNqinQIAbDJad2qT4J3vS lwenQHrhA/vjjJsUmtH9BmL8qfBXfvYha9wGhf8PDaPu2TSwUKBmVlauU1ST ztNjX9PBOlNBX71onWJ57MqZmcF0sOMLp/+evU5pnS+y62DJAKd1FZOm8HVK mbW5EBhkgBcli9xtuk7hOiecHLCUAZEa93ym19co8XRFe4mQBTUGHFf5ZNco f+/7bh1ZzYHvdVa0CUfWKAPjA81pIrnQqEh5f4B/jTL+I+iO0dVc+MXvwipM t0YZStPIdcrLhd+/O8vFW1Yp+wzsyBft38HKrdRjqg6rlMV48/Lhifcg6n5q 2zFtheJKzjpE4fgIqF9bdCh6hfIjz4Nqe+wj6KtY6Bk8W6EIik57n1T/CI+5 gnPAcYXyJa3u0xnfj9Cd1m9AOLlCOXvPkZFp6SME/vTN+9iwTHHte75kNZoP I6K1Nxfmlij1JF2rpdEC8ArrDbb5u0RhyD3SgLF9BtLSf0V9nUuUR6eqdr0T +wxYxR6u6tIlSteVQv91x88QZWBXEhWwRHkunyx0c/kzqPpzkhX2LlFaM6Sn DLmLILn/SpXHmUVKodaF24rGX0B6WHqtTXaRcvGt7b2ah1+gapwoKXl0kWJz tcHmXuoXGFlujh/hWqRoq6nuV5z4AqIkLdcrfQsU+eUH9IZeJZCvrnroxP0F SrtYutRi2leo+iDrO5A7T1HTvP86h7sc/j3arayxZ45y9LXqCuFtBbB5f/gv gm2Ool1/7cFQaQWIu2umDmzMUt5LPBP53lYBbo7ebA8GZynXG150/WD4BkzX /3blZs9SnCezo79afQNh2c/3SKdnKZPt3eYCYpVgPnL1Q//NGYq35fj2p8oq KIk6qjaqP0UJ4lpwyj9aB5Jj3QsSiSMUHtutpHS3ZlAt6WXd1B+ghAQYLzcZ toJT1ocVIrmV8pj/ahqbZCdIcjn6nR34RcEoD1YrT3fCrMtxLtd3vyhh9/e0 u13oBBflLKE2jV8U7t6ChjrrTrjXnKId7fWTEnjIxI4/sRPmx8U05RqbKZx4 OrctSxcw+a0kqbt8pzjOxXuRu7vgqda9wgyO7xS+30Hs7X+7gIVnroElo47S crjV/8VcF7BlTSzV99ZSwhwIw3/Yu4G7map1Sa2Gkul0lGc/1g17+KtXDPZU UuiLT9uWJXWDvrVQ8i+vLxSjD6fTBU16IMjZNfDl52LKSHTuexPbHijzqryj O11ECTpzLiL8bg8IR1hgv0wLKXsOnchsD+qBOUpq78+znyiMZkGM7YU9cEDm 3PEUYjZlIsx4MImjF2ZexVrOxppTmhXwD3Pve8GLLrJa/aQmqG9abWQV94J4 nEXtLvk7oH8wYu3Kt164ItNVGnDGH/Zy/Ff3sL0XnK3tx6oio2E/l9y47Hov 0NB83rYoz4BQRRtzZtU+qG3sDpK5UgzdLmSnP/V9YOPeU3td7AsM8ul7eLf2 AYtwL4M/fQmYtV5IYurrg/OefT5tn77C3aY22qHJPmg89tvl3i4KLCWoyH7j 7AcbFZd3vePfIEnu1g92rX44GTvX8J9+JdTtc2j1vdIPLP+5jNNXVsJU5PuZ P0b9kBXneuR4fBVcrjgk62jbD+Ozd5O9LtRAuu2l02+e9IND0v2o/bnfgU0p ttakpB+Ul5Y/Se2pB60zE46vUT9waLn/UvOvBw8a3Qv1Nf3wbtmd29G4AeoI vE4jv/phWvvBs3KOH7BgepZdYrwfytPWMn65/4CDvuPrTf/1Q8jag5qR4R/g ee4oxWixHyTSPem5y5qg3lw4VI6GCsU+5eUf5FtgcUhv7/IuKiRlbf344tAC XNdrLBb4qBDYhvVXprSAg7jnkf4DVDAUpax3cv0Ev7k3C05HqbDaTjlJ8+8n iI5EhCadosKpExX5OjGtMCG4lsx7nQpybR3R5d9bQZB2MOOZCRUkPScfHN9o haLgGp2xm1QQ+c6rwnKzDSYv9rk421CBbOXYShFtBxPBbN20u1Tg4vAvOnGj Hc4Y765/fJ8KbJ9i4+ND26FL279Q+wEVaGirLe4vtEOi8Uz3+4dUmEzgXxAv 74Bj3xgqQ59R4Z+KVFfCTAcUVaRd635OhT/j6qVsQp3wKKgSCCFU6D7p4j/y tBMkIlXH1V5Soe33U5urJZ3QpzOQrhpJhZaARK1vk51wfuR2qmQ0FWra6na9 vtwFkK6l3RJLhQpP6gq7fxcUyk0s+sVTofTQQp9HYRdYe/G0CCdSId9J4K0e fzfspooSxJOo8I5X7lnlxW44Ge7mFJ1Mhczy87elfLtB4vSulYkUKrzhcJPj /NsNrPufuZq8pULcp+d8nrw9ICbVbe6ZToVoo+TNUc0eiOK47fQkgwrhtEWD +l49kHDJMM4rkwrBmY3VVe97oPLJT6pZFhWeXvqTJT3YA2fFpJWls6nweGn5 RRK5F3blL+XN7LB3IqcLl3ovvA8oV0rIoYK7qpC+l3svKO7S6pXNpYLrxMlT 49m9YFXnH1Kyw44vtQ8Y9vdCC4/z1RPvqGCnaElXw90HbF7Kx1/ssNWAx4jM 2T7Y7yu3u2eHzZ6G1iff7YO84h9cu95TwVj87XvujJ11WR+7R2mHDdpLXnp3 9wG9w2XpSzus69XiNsHeD88tmq/r7PBFoRGja1g/3AsiRmE7fK5+Hat16ofe hpNUvh1WcSYKyaX2g5XwM4U/O+Nhe44wp7b3Q0CybXLMDitSlCcILFQQN7Pc d2qHZa11m312fCr+XCTr+049kpw2nyYdqHDgmu859R0WK/COMXpDhXZWq/UP O3qIXI/wrPtJBd+h8W9MO3yILstUnuE3qElcSDq/o9/+rHKVNPnf4CX3J9Jz R+89Om1HSLa/wVtRIiV2px/k5TF23/jfQHuv7XvaTr+4Xm//N/XjNxwgx3Am 7vSTzm13nyXfAAwVK8xeTaOCkVn2r2LZAbjZeGpgZccP+efhO4fOAJQojmYG 7PjFXMC2sCBgALY4GdpMX1OhhHUrlyVlABqNL5zOSaACaeFlqnHZADiUTr8Y iKPCt7rSMIaFAbhxnG2RJYYKez9dfmrIPQhKo93kjR1/uySOeOeKDkL7VIFo 947/D7kQ7K/eHIQg/XNXLu+sDz9+S7W0pkGQ/HVr/yl/KvQxriqtjA3CZ/na QO9HO3rOvJDWYvwDTnwePDk+VBiuKhJYUPoDlg/dP1a5U0HVkX1NJesPBH9P Tpizp0KCYdJMTNUfCL/A3PJ0Z70vnJX7N/F7hyNrrjNbUSGN17QtgmcIWti+ x1XfoAJDRf77Ib8hcPE5EQ3aO/7J0Xir8GYI3oU42B09T4WCqL745yVDYMeZ 0LWuRgVLO6ZnMrNDkDC4mm5+mgrVZCMLP5NhsPvbQJISo0KANe0eIcW/kDC9 b66bjgpUnWiu+1f/gvCi0bbTZj/IK4kxNtz5C2//OF6YX+6HEW69OZf0nXjc xeYvk/2g/iWz8Rt5BO5f+9h9acdnzBw6j8ynR+CNaN7BnJR+MDxihORZ/4Hc aK81f0I/ZJ+13GYT/geGfRKu7lH9oO3h7v3p2j/g96nlXX3aD9EjSR4M1f/A mYOdh8ehH0QqZp3T40fBJpIS2CDZD2puEebj58bhPfYzMCy3D6LDE5PLLcYh szO7sDC1D0ZzMwZe+oxDEcEopSGuD4KHvpooFYxDi2vOWkVgH7TpDBsFC0zA nt+tWX8s+sBSTO6K+NIEnHHOOsnA2wd+Ax0qLqlTQEdNCrjk3AvULxduu5dO AaOMLOXErV44FYGifdqnAGn4kbaNd/ZrteyxIOZpePWIU9vzXC+Y5HiHptpP wyHH4M3eAzv5bsK9bTL/gbm/UOzF7z2wyqj4hd98BtL2hLy7s7sH8uIDdHzm ZqHpF+1wbUgX3EmxJAzrL8KNtkURYm8bmNjF7X/6aAW26xR6oqV/wrPLbooy CetgRb7dxmTXAAy7okYerm2BHsm2TPF5FZCmfbhIzNtw93XZaRfXKjhYZyOf Rt6GPNXK6i/XqwDzUg6oO74Nap8l+N2OV4HH8NBhouk2FGnm8bxtqoTpAmmr lMptaP5unfp3dyVMio46m6vT4JvWerYyeRXQ2fBkxp+bFtd0XaYcFSuHSCxR TY+HFufxfE57maYcdD8WxB3eT4tzWhCik9rLoCl6SLVGlBZ/8/PGj8++ZVBz 80wsszotfnX//FJxVykULm+cCfKixY+NVfEfDvsK0UJ3I0LHaPGEdpHe2H1f 4Gr081HTGVq8ccxHM2+pGEisqacll2lxXZNhrumWYgiZ/vmvhYEOVy8qe/b7 STEEfJFQJgnS4ZF8WHzsbBG4XZoYjtSnw0dY0C7LlkLQ8zSXj6ukw4l0KbOk nAKITtzFtPydDl9zTByWCS6ADkpN+5UWOpzD4A6/2+0C0GcQu8fZT4drVQUd MZEsAMMX8598l+jwnjCLu1+LPoHRG3+pW8fo8bBGWpGkxnwwq0w/LhtKj5+x y/H7xPURkv4aboRF0eNvZzMXh+bzYJCZvXEqnh5Pstabl+nOA3OtO/YZmfT4 5p0mHem0PLBoV8je+40eP6HoU5OulAfW/+qO0C7S49FLHkGUgffgwD5xqMmI AW9/yG8uOpgDEx4lDOw3GfDSetttQkEO2I0+G9G4xYDXJd2YkniaA7eqj2ZX uDLgm4H3RHjEc8D8obXU52AGnPeu8vxDn2y4Nj8ICeUM+EnxD+kZx7JAvbfL 2O4QI35NZRLJZaZDtWYmlnGUEf89+/Nd76N0UC2+LzgszohbskvQfb6eDmei eIZvKDHivndClWkJ6aB86ar95auM+OKreuf1B29BurLZ42QAI+7w8oetrlEa COTURDONM+L9WRdMLU6nwNU3xV/qZxjxtLgxRoe9KRAUkd0XssyIV1P0prKX k2HBM+QQLyMTflN6OqU+PxnqtfTfHxFkwqt8Q98+F0sGt+m/1ef0mXCnh087 hkSS4IcU42LQNyb8Yijj6/aABKATWea99J0JZ/7dl558MQFO7h07RW5hwjmx MfvGXQmQQvfDN76fCdd4T3VVTosH99ZIjtwVJvzUl6e+D2rjQPiesPAPcWa8 BySZuQViwbNY5Qp3PDOeNa7Yl8odDdLGLTOmycz4r+2svwHDUTC+bRySl8GM F0v1lOR9iQIjDbfvlwuY8dZLdC6dllFwqiMTIn8w44t2tuW3yiNhZZ7zOB8N C24z+jNT0ycC3CS6GISsWPCE+Kvq9eLhIN5qmeJqz4KXSGpMDrGHw4jbLFQ5 s+BSnT1rimNhoFfO5mnlw4KHDXUQ49LCQPbi6dmMGBY8eP8Bl4MHwmDeLqX/ eD0Lvu/3KQbCyRBwSncolJdgxfXec5dKPA4CajN/FJc8K+5/iW8mXS0ILq7W u44o73DQ2TtRrEEgqnVMKvo8Kz5j+dqm/eUzGJ79m7NoxYrfu/BH4Ed2IBic Nk0uSGDFjzN9Ddv4LwBqrLl8g1NZ8Wtr0p0vSwJANqzMxDKbFb/03Xtf1JMA IAzx79tVzIrnh5NHe/YFQH1gV7RrKysu/fjGM0OdJ4C1XQ6WZmPDO63YbQPq /SB3k8aejciGs/pUE4Pj/YD/SJ7mH142vJUxjH/ewQ9WPLiYXx5mw+msNSr/ EPwgX6Dh0SzOhr/pEk+Wv/EYDtur3s+7z4b/YCF3CDM/Ag46BXPxv2z4c547 9lUK3vDlPv2VkQk2/EqA61OeWS+wnmpWeT3HhjN0a/ltZ3sB6rI5zEXDjp/V j54KF/QC1w9xo1N72fGNpsvx8SRP6DHecnynw44/Ci3kNSV6wNNf9aZWBuy4 wOijpLRWd5A9F6Oz34Qdz81wnXSKdocQGUnpF/bseDLd8Hzsfnc4w2a+6BDA jr/ldyWTpe9DZlG15/FSdnzB9JJhi8s90Dvx0mH4GztOXBWTIJ6+B3SpJjcS vrPjVix6i9+Z74FxyDLG0cmO/0dbXvPm9V3gtjpGNznLjl8fXmWs+ukKbqQX gTlHOPC0uS+qEhddQO321SjRCA78/hOXC+mH78Ddl19p7sRy4I/unpLQ6nGE tKJDDp/ecOAHH4YWR4U6Ah3d7FnlXA686bDzMtfGbUDRL2YuVnPgen/Hj3j0 OcApVHPBeZkDH83ppRUtsQPbvyeKPm9y4IxWmbU+7nbwii3q0Bo9J077LuWf pYIdLF+1WH1M4MRZZgSpA4W2UDC2nR55jBNnv2QY61FqA+JkRbri6zvxiT5M ZdAabpxMur1xkxO/eOVRkXimNQTfYO7GbTjxFTqfkbg71jCR0f7h+11OPPOt stvsthVkKrvc6H3Bibtpde71ErECIeuc4i0KJz4XxugkHWQBe77sv6MmzIWP 2nYGfH9rBlsWGfxEMS48vYsh0+a+GQxzSdX1SXHh5Zsx2t6aZpBnqXrwLnDh YRv0okxUU9Ag2LemGHHhJsZlr+t8TMDtVrECTTgXXuGVFKMydh2MSWeHG2K4 cD866V+qcdfhbFlDWMxrLjxJt52NpHUduMi/x8RzufDGaCdJ1nwjSC9nTLhR y4UbP7tw+OTTa9C++wrN100u3Ip5I4GkZwAlqC83gIEbv3+mJoaGZABJ9tbX dNm5cbFvVbRvmvXBocIjf2wPN35H5Uv+iJY+MNxOstwjy43bgMThe5f0QLZq qu6eHTe+lFJnIed6BV66BIZLdnLjHl7qN/nEdGCtMbc4sJ8bb1npsv68cQnM j/z8PTDEjbc+ejjOn3YJZPr4xMNnuPHMzPk7wYvaMJ6i93eFgYD/9nBwqUy5 CMEc/x5dO0DADWqndnUIXwCk6BH15CAB35V/nz2n6zwsWLNnfRQm4FyrfUJq L86DcYVEC6sYAZ86bBhSsaIJJ9zcD5QoEPCO+1EDWV3noOk369e9lwk4H+VD ZXGJOtBxJjSpXyXgY1yv2QkP1EH+lPgfFwMCfsmm+QbxlDq8jtRlbbhBwPP+ En6xl6rBHc14A087Au4dUv+0oFYVCJ+OL/T6EfDTNkms/htnQTfg0onEQgLO 5ue+bpW2c2y9NqP55QsBb15+Y0PRBFg9Hm7dXkrAD6lKzLHOYJDU+usNZyUB j67dxmwBgylBfZJPMwGnqyzmJI0pQ+BX42WTUQI+55bhIWJ9CvpCNsmeEwT8 VV70xSC+UyBh/loyZpqAu2wGzpX+UIQOlgHb5gUCrvzE72vASUUQ0t/5CKUl 4k1G2mH3eE9C+YxtheBeIu529IDBnlU5IFWxUZX3E/G1Z3ud/YrlwComZ81Q kIi3F1jefeMuBxzYlEy4CBF/dCH1/NCaLFx77pROK0PEPxTGxdgxy8LC4fvP /1wg4iY//HiZQRrOrfJmbmkTcUm1svFiFmmIbyyu2qtLxBUfG2fStkrBWde1 TV1DIm77amzgsq0UhCJvp0pLIh5qfXy1MkESRK/766V5E3GxiwefmiiJwzXn QhLDIyKO+/O8j+g6AYFPR5st/Im44/lrrUtuJ+DvJ63zQs935lOq1alYdByS OHZDyisiTpJ8+sNATQx2l789mvSJiOu0sBnKRx0F1bbOv9uFRLw8k5LUpHIU XMZZU01LiPhojXKQxfyRnXO2436BCiJ+bmx98b7eEQi6I0963UTEjx3brNwU FgGag7Xr8WNE3J70aPPof0IgobBavD5JxBcs/Gw1coXA5KKY2/WZnXpDNX1O 2gnBV4/Qmb3LRJxfy47r2eghcPtl8DeWgYTfLtcWSJk+CBN+o00xAiS87aBA VckBQdgbtzd4+RAJP9v9UP9PswCcy9PSNBAh4ceP/DB6ZyEA6X15lTwndp4v 7Wu9GHoAzOQ8iqNOkfDsJPVgzaV90DHCmhKhR8Jlzof87Njmg5qrzxK+GJLw 9zNNyudz+aDwG0vM7+sk/MAtjacl1/gg+jVzsJg5CfdMdk0KKNoDevqMbpWO JDyge6rc14cX2qppzs8/JeHjhs1C+Qq7oUrGV5XvOQmXmg4fKZjbBQXJ2xiE kPCV7wew5+93QaT3lszzSBJecjPzdNbRXXBFbmO/UDIJjyZEt9mKkOFX2vKs bgkJD52mJLGrE+Eb6f6kexkJ1/zkrKTISYR836WR14iED+8vMedtJ8BL48Xe 8RoSLtnkYdRvTYDLu+arH7eScKPwnhv5wtzQ4jcdmz9Jwp/c//qig4sD0Ozt yK7/duYboRLi8ZEd8kynQrbmSDjzhy2Ls3rsEKY06Xd+lYSLe0wRTyaxwaX5 sdt/GMn4taptFgMVVmgy/3uGJEDGmxsfURO+MsEgQ8ZK1CEyvnL82LKqNRMs pNt84BMh44bnb/rvIzEB38TEvoMnyLgjRUjx/G1GsHSdW5ZQIuM+fqIGslIM sOa3/e6iARl//CVwmn2SFjhFKix/GpFxxX/8xeMZtCBY95hfz4SMm4VtHaZY 0oIaB9MzYysyPvVSYkVpkAbCIjks7V3J+BWx1d5r9duYyFu+vc9CyfjCkcD0 0OMbmKJGbwtHBBm/O3P1nSBax7TGEp6GRZPxr0/jOTG9dcz5hOBiTCIZP3Y5 NIHFfw0r/SzSkp5Dxj9k8M5emF/BdGtkAqpqybizRcTbk7uWMCubReVzDWT8 SVXxhEz5IubOVjTf0ETGD/Bc+HPbdhFL1D51s7WdvHMeU38WXLmAjXbgyn+G yPh7Y2m7rSfz2Jo73bzVPzLeqbLh4a44j3HyV2WNjZNxA+KVOe7pOUzaVIN3 dpaM036ZcntqNIep0bI23V0k436FVi2mpDnMMLXef2WFjJcWPjmu3jCL2akF K3lt7OjTeeGn/JNZ7P//T8YZommI4vgs9j9hbkTn "]]}, Annotation[#, "Charting`Private`Tag$27563#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwt13c8Vf8fB3CE7HUUbUUpomFk5X3li5IQra98U9ZXEnXtnYjQV9lZZVwr UVJWODf3oMje+1rXzF4tfp8ej9/55zyej/M5+/N+vc/Zb+5gZMXChBZmJqY/ a+/xC4ubmxhVzq9HXaoqHBie21d6f2FUJ52kyrSmcNAXGFwr+o5RIcKbXbwv HMSU7/12WMKoxwzobSeXwqEyJIKDzsCo7RoCxbH7I4BDtnMvtR6jcvlIrbj6 RkCU083zDxIwalFJpmASREIOsyOF6RRGjfqt2FbfHAVsVjond/wjRKWzNT+v CnsOWFeVXWq4INVFKPp1o3siGNHiLY7UClCXVt7pTv+TDJ5zp+2ejfBT/ZbV OdWnUqHYNd72jQEftd5yC9EQkA76EZfFNuJ4qOYMY16L6CzQSSrXPzvDRX2c a0WxacuBjBr3DsfrnNRvhae4g/jewI2AqG2NWVupYRormtdv5oPPzS153Bg7 VVm6YiZQtgCYZPbhmo9Yqe7b2voVtnyAntC4oJx2Fuq1MOmCf3mKYDeXTfby GWYq34UMH9fvxXBHQYqtd/cmfqfnv48tAh/B4tRAFo32E3+gMiuvIFoOUm4q m/aUdXw61FHGfL4CUvqNCXeNFZx9RUKv7S4Vxv22qemILuK3txlYN2l9gtLo w1oTV77hoo9t1X33VMLxye7lY0kM/MOI+fRiTyU4zcscEQlg4PNvDnsF9VdC 8ZrfPxu2DNzPxzlzJ70SNNilqr8qMfAYs/VatbFKMBL3iL3dNoZDErPcvblK cP5np0oa9xg+9h5bithCg9JmE9/tHiP46QdsaTQpGvxV2sv5+wodD47YaZjn RIO8V+nKNap0XIrbgFfYlQaiCQ63w8XoeG7/8qqrOw061tgjzrcN4rtm4vRU fGhw0POKQNKPAXwhI3QmK4gGlX4rPCSdfjxY66uJTDwNfoXJsQfSu/GnXfun 6stp0ORQY7XzVTd+8ftQ/RpOgzTD61V5jt240aJazb5KGugK+Qd0snfjEok8 67eraRAX3cJyRKYLJx06CeMNNFBMvL9Z596BBxlYNwQM0uBe9pt1QawV16ov t9TZpMFxPnv/M/QWfGvISVkhZgIWyEf5HHNbcBVxRZVeFgLIatnibTot+MqW eREbdgKcG1P1Y7ya8Ymn5D47XgKWpqTPKXxtxKtdjfYc2EUAu/96sjb5C84S 8l5OSYGAID3nwkyeL3gFM8W8VpEAju2LdRyZn3F7GfkqEyUCuLKnV2t7a3Bm UzdxF1UC+BsH9Ay0qvFOEVelWA0CRHdVrV8VpeGSLrusHl4g4Iq1eEqLVwn+ +T+mye8WBITcd3wc8aEYt+veznzeioByL5qD0WwR/nOvvFG8NQESkRbqLWaF uKnOzhdytwlYxNN6m88U4KNj9S2G9gTslTt7NFXwFc7stt9CwY2A+edxlgtx 5nglLbuFEkKAF0tUlbbSOQjTcrMqCyVANt6iRljRAY4PThxqeUKAsVxXWaBG AMy99pdfDyPgvvWdSSIqBjLZH5JlIwlgYvqwaVGRCd/jzqtoJhBQ87U7RM64 GLaHbYjwvCLAxq2n5rp0CXAcf/biJzKHRC9rwJZS+NXjuDaRQ4CuZ59PW8FH mJ5g3leeS8DXI4NkZ2EcjrZgp8/no/01ybm9U5UAFtIuG0UEKMUt1s1doQFh WbFZW4yON0ee2kKjQYyM4tXoEgKy4x0lj6LrGNrRbC/+kYCpBacUr/PV4Jla rXywggC7ZNfoPa+/QNeup5w4jQC11bWCE6K18Ej58SUbggAePbcWrYBaiPTJ uc1fRUDumhu/vWkdVDvHL1ypJmBW3yO4gqce3Gz/Jdd9JqCC8iOzxa0eNA7+ 4LD4QkDYD49qxmg9OF/dY7OOfCzDcwt/eQOkVFz23V1HQLFPRcUbxSaoe+nB o1tPQHL2Rn2JXRNQJN2GG5Eft6n301KbwK4zzte4gYBrUvjPTr5meMyVwnep kYDv7bgS03gzhEvpeqo0E6Ai8+mdYWwrKKqW3k1sI0ChrSOm4ksraP2ePLiO fNxzxuPor1aI9C6YudhOwKEvIpoct9rgXuSb9E1kzMq+FZdqh4iA3ErNTgL4 eAKKZP5pB8Fejm9PkbkK4hISnrYDS53mwR5kJuYqC9fldlgsZ8NtugiYSdy1 LFvRAav/RkfbdxMwrnmiK3G+A+JPVB3NQR6e0i7jEu8ED8PTzWPI3UrkAEZQ J/jqVmlc7iGgbTDI5lJpJ/gPfeANQW4KTNKrnOmEp1pvGWXI1W2fhV9c7AK1 uWB8dy8BnzwH1rkDumDdQB8/h1x2YLnPvbALfhUw6pyQ393bl355Vzcs4Bbc Vci5IgrBtAvdwDRyQn0KOatC9+6JB92QspnhzdtHwEseFwXeMWQxswP6yPEF oTs8RXrgK9OzoDvIMSYpvyfO9YBUhOb3QORw5qKhK1498EOM7JqM/CTraxWR 1wMZj4RZipGDDIazTw71QJWERFw98sPVtf+SsV4Qm4tXG0L2TuIl82n3wrtb jjOLyG5/iV/xcuuFN4+yslj6CXCcVlKZetUL/vMK9wWQ7SP0917r74Vmmoj2 bmRbZUuWav4+8MrVlTyEbEV3Z8id6YPM8TphWeSbQU9rU5z6IFcpjk8e2VQ2 PY8/sw/klt4KKyFfbS+N8O7uA5FVQUkVZCOvJpdp7n7wev1R648viDNM/lbv hxrevHt/xp+t/alec68fXiZNZv45nuZ9QXGFtH6YveMw/ed86qKSW9Pa+6FX WENVElkZV5sW4BiAFurN2D3I8tZGjT4qA+Ap0bwpiHyc16Zgxm4APj2IdmJF ln7vHWvycgCqUvNXltHzOHQ90vNz8wBMjBzxH0E+wJJtpsg6CLQjW/Y0Ie/J rtCkKA7CQcYZWimyqGGbpNDtQeAXmXNOQ8bWJrkfJAxCkTafQggy34vNuW/1 g+AbmsnkgMzisq3Pcgcdam3/LT+JbHLzVUuxPB3oTqktfMjvdOELjyEdhhka SRNovpjvu134PpAO3geHjKKRSzk3XnOk0iHP+tdpG2Sh5Yg003I6zK6/G1BC rvxc9ox1mQ7KOic0WtH83VlwMega/xCQ/XZuSUImJzG8X0sNATvnsIcl8gGy wJ1Lt4bA9+zVJzOoPvx3WWpRGoZgoBhTHkL11cf2XXV9cgistcVfP0eWn//v pB7bMJSf+9h+AXmUKNq3rDoMMtsm9PJRff5lz/1DM3sYDsRubzDtICDxWvJ8 LDEMg1ba68zIy2cUxqcHhyFwo6ubguqfImLWFrl9BG5spNBGUF6wfnqXN+I/ Ai1GFxS0W9H8ydFJP/USbT8nure7hYD30X0JoaUjkHTHEL+NbGnLHiy3MALh yQnSASiPqjATC/8boyCU2/gmCeXV3o3ZvzvdR2Ei7fjNvcguE/6G0tGjcEtQ uTYR5duh8tzTrXWjQE+frotA+RdozSwqrjwGxOe3IRYoLwcMY/hcL40BQ38/ b0stgXJOmq3OYQwol9J01ZEZ/JcXyRljcJ3t5Ro/ylvtkqyvlRgDVJ4v732O 8norj6Gf+SwDpLP9m1U/oTyVNKEqco6D+ucmx2AqAa/OWG5ySYyDwpDzZBtO gL67m3fB3+OwfinXwAr1ixhGsjtr1TjUflHjs0P95NCnhfsZCRNwSdwlWPAD qt++n289Ciegoy/UW+09AbVrbPP6zRMg29F/1qoA1a/sTvs19kkIuaRj/Rb1 s8KEM7ZnyZMQ1FVHO5pHgJZLpPnU2SngzX91tiIDnS88KaXCYgqymIaaq9MJ mHidSY/wmQLhklHFegrKm5GPN1TfT0Gf6LPo1lSUn4ajJk/2TcNo+em86hfo fUgrGMuuToPmc5No7Rg0n+gdmuS0b5AcaZr8xh89z5Lzd93KvkFSZ+mz4Ieo f0RSY3zav0FYbXvuLT/0faD1ajJk6ywMZD5y4PEl4EaO99O0O7NA76ft0PNA 410ketvk5uBZOpux0z3Uj9iUS3aZz8Ny6/Ey2+sEZJCX6l/Yz0Onz8EpLhMC Lg3mDu/3nAf2GLpB9jUC3hYf4DkcNQ/Wm1IE/TIB1nd4zOSr50EmPN9ExRDd T9Mg6wWpBTAbEYx5/hcanxBo6LO4AKKNyUKsRwmowwLH+ZkWIVDL6/45KfT+ Qx/5pPAuQtRb9ponhwnY7RXwmji8CLlCN67xHkT91PQhB7fZIsRsyxdf3YPy cY8PNbZuEZZHi3qt+QkQeOl8PJ+yBN7CJuOf52ngkGopMHplBcRC+zjf5dIg zD0uMcxiBZrq72S9zEHfw4YNh5XvrYDId4+00GwazG6c0ggLXoFj4ab5N9Jp YHedm6xUtgIFXLvVFhJpYCv8rvXJ/lUIo14O+xxKA+vAzRiFmVUwlqCQ/rKh wQ3b+D1BfuswJkleCt9Ng+CLLspyiT8hZsavQs61EliFoxm+PzagJX9cd+n1 J+isezQfwM9M8uH7dfN7PxUue5orxtNYSNlMPyLaenCw454+0GDCSroG7s5a LBWwL6c6hn2KjaTPbbz0RbwMPIs1jfkTtpIkcg+68mOlcC/DrlDxGCcJy4rV 2ThQDDwsp8xlx7hIRu4XWex5C0Hr7qVoqUgeUqdYEmWK+z2Iluxx0JLgI41/ e3GFX/UdRJAfhx/v5Cclc1kM8V99C0aBBjJJhQIkclRxJJdxLkhdD7hM8RYk neXTF+449Qo6GJypkZeFSE2mJb6TgpnQYD6mIbQPIwXfLCxr+ZsCQ6yZ69EH MJJNvHqutD4FljNs3uw4hJHuennNPj5DgR3T07v3y2CkdTtWS0NpClg6Lq4d U8VI92au7sd+p8EP/83cC1cxkujOiwI2KWlwKH3HzuCnGIlx2L/K8FsqyuXe Jp5IjHTqq6KY/HAq6E0mBj2LwUjLx6Ybd3Wmwn0ZsZXYJIzEF+kiu05NhbIP h5oycjDSzy+UidGoVDCqlgskajBSgWuDYdjpVLCyWVE7W4eRqszkfxWeTAU3 rqKlugaMFLZq92tEMhWS9FVutbZjJJlb23/qCqXCRAdJbXgEI5GPKc/pjafA DzeWJatxjHR7Tgae96UA7y4ie3IKI4mlGYyMN6fASTMdkYUFjPTbNEcyqiwF tJg5G5xWMFLzw1c18/kpcC2tNmB9HSMl99/8eDEzBWy1nqh6/cJIIVa5LEWJ KfD//32SGeVuklhECvwPPq8mrQ== "]]}, Annotation[#, "Charting`Private`Tag$27563#2"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-5., 5.}, {-0.0710264641206853, 0.4995605003797784}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7621513251140103`*^9, {3.7621514165736074`*^9, 3.7621514343758793`*^9}, 3.762151522768193*^9, 3.7621525302034388`*^9, 3.762152904240949*^9, 3.7621540695898976`*^9, 3.7640488754702034`*^9, 3.7640495061127806`*^9, 3.76404953875156*^9, 3.76404978154086*^9, 3.765606624591506*^9, 3.765606802829892*^9, 3.810466898633253*^9, 3.8106652364239273`*^9, 3.8106654692525206`*^9}, CellLabel->"Out[105]=", CellID->442736] }, Open ]], Cell["Assign more weight to the second dataset:", "Text", CellChangeTimes->{{3.7621512694654903`*^9, 3.7621512705376062`*^9}, { 3.7621513304334855`*^9, 3.7621513760016155`*^9}, {3.7621515305613823`*^9, 3.762151540808982*^9}}, CellID->149635715], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"fit2", "=", RowBox[{"MultiNonlinearModelFit", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"dat1", ",", "dat2"}], "}"}], ",", "\[IndentingNewLine]", "fitfuns", ",", "fitParams", ",", "variables", ",", "\[IndentingNewLine]", RowBox[{"Weights", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"1", ",", "20"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\n", RowBox[{"fit2", "[", "\"\\"", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7621512910977154`*^9, 3.7621513234421797`*^9}, { 3.7621513783962407`*^9, 3.762151389186391*^9}, {3.762151439700328*^9, 3.762151471746642*^9}, 3.7621525171590204`*^9, {3.76404978840899*^9, 3.764049797278269*^9}, {3.7656068084569283`*^9, 3.7656068156258144`*^9}}, CellLabel->"In[106]:=", CellID->129487404], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"amp1", "\[Rule]", "1.0682715363579496`"}], ",", RowBox[{"amp2", "\[Rule]", "0.45079016992327126`"}], ",", RowBox[{"width1", "\[Rule]", "1.1291107334108332`"}], ",", RowBox[{"width2", "\[Rule]", "2.2659526123549214`"}], ",", RowBox[{"sharedOffset", "\[Rule]", RowBox[{"-", "0.02081299805408696`"}]}]}], "}"}]], "Output", CellChangeTimes->{3.7656068172994423`*^9, 3.810466904835408*^9, 3.810665237703508*^9, 3.8106654710397773`*^9}, CellLabel->"Out[107]=", CellID->306254510] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"plot", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fit2", "[", RowBox[{"1", ",", "x"}], "]"}], ",", RowBox[{"fit2", "[", RowBox[{"2", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7621512910977154`*^9, 3.7621513234421797`*^9}, { 3.7621513783962407`*^9, 3.762151389186391*^9}, {3.762151439700328*^9, 3.762151471746642*^9}, 3.7621525171590204`*^9, {3.76404978840899*^9, 3.764049797278269*^9}, {3.7656068084569283`*^9, 3.7656068136262846`*^9}, { 3.810466908850629*^9, 3.8104669127096763`*^9}}, CellLabel->"In[108]:=", CellID->52953065], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw11QtMk0ccAPBCAXkUKa3KymTTIYuvKrMKKro75wTFaDY2hvIQlLWpkuEG A4ZQ4zbngPKwDjva8AYZEKbEIoKM3CEqQzrDQ0ChiERFFLO2wpgg4ma//3dJ 0zR3/9//0X7XpYeOBkmtORyO9P/Xm3dmLaDyhjS7TRPniFbzZgnptlHdmCBJ SSSWJaQ7M/RKn9JS9Jf+zRJQbXH4Rdt+FZFZloAOhgXaBhsqEOMJqO6UT9n8 99TguVJD8lsrOt7VIMZzpQP17u71Z5MJ4/HpHpFPwJOpXPD49Gl37rRXZi5h PD5d9kPm5zfXXIR6XGhoSenB17UKxJyfT597Ri8ZohGIyedMr8WeabvdqyIW Xs+jHW7OWqfEE1Afj1bdCxauHsoDz4k2JC+2j7mgAs+Rqj64sSpVVgH1O1BD mjnjmK4cPHuqbXfrqfVTQX32dMWuW2t5WSXQ3zzaEO9feokbC/3Y0T17rEPK PpMiC6expd+lyoQBMVrEeDaUNy6SOiWVg2dD79T2Sf7tOAn1cenu8eYvjxgU 4FnT2/mOVnuDCwjjWdFrhTG+opYj4HGoaDtfcXKDBvrlUOuo9ddDsyuhvzni 5em48uySMjg/S6ojH7eqMkvROku+l6R6YlFa5YfnUZ7FnyaSrtWFG2kpeC/I 3nZ9Q1d0PXhThPOFlFOwuRm8SbK5dvuos18jeBMkYPSS6dHTJvDMJP2o+V6M lIJnIj9tDthVH38V/WmJf0Y85rrDf3zUBuefkOFO+fWk6JtIbsk3SqiJcMul Xcjb4j8gLqI7I86KbvDuk7ALnSb55U502hJ/l0xtWxD/Yn8PnO8h+x/NVj6c 14tOWPbbibzpXvAh6QB8biTtOQPPi3Yb2PlxelvUXP2zAUSZfdQ3+UtFeuAg KmbiUdqOmrFPfjYgzPhoJNVrX97YEOzfRR6eI97eDsNsfWiiddW6Gt0w2sjU j+IC72v1L4bZ/tAGtyZJ+lU2/glyWl6l5LgNoU5mPqhi4UeL/m4cYueHutp2 XhB7DaJ8Zr7IFBKaldDfi9Yz80ezxyNqTk33Qfwkan1Z7KIc6YV8Uyho8jet a04f+/0ivfx38dvVPeBNo9eSOJ+g/JvgvURkwqf/K3EHeLOosa6l/0FBO3hz 6I7xj4xlB26w88MVVYnThz9uQ7eY3yc2hbw/Ht1F4Xm1wtkFMxk9vIsQb42P h702fh97BfJxMcqdi4oPvwyeDfY190ZtMdSBZ4PXNXoE1x1Ug2eLDUtnFBph NXh22H+xZm2WOBe8efiSD7fZGKEDzx4bk1qPZJ9nnwd7vGVg4PjMsRTo3wGP GYyJQrUSPEd8wte0yW6tN3hOOHDrjq8V6iz2fsHW/ov1CbYl4PEw752M1qI1 +eA54wOxkn39JQmE8eZjqkt9NZcoA88Fe6fx+pO5avD4OM7d+KvuG/b55eOV URGFZn8l9M/Hk63dLqa9+RDvije1iSNFy79l71/sqU351FOeAveLAMvCHl9x iDwH+QX4Qc3h0By/WvAEmBS7d2zlZIInxPvDxeK4kSL2/wFXHnp4WmqWgbcA v8orHvxn4RnyH35k4m4= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBmIQDQEiBw5raC9amdlkbwwGwgc6tLJ06nZ22aeBgdCB 7hvyn8zTu+1nzQQBwQMz1vznOBCfvf/sGRAQONBzNeUNU9sme4h5AgduSTjd CzXcCtXPd6DCT+UNZ2qrPVj5GZ4DHV1RLj23t0Ht4z5QzOfQ/MFkA9R8zgMX bPwmBWpvg5rHcUDwt6Ld9DcHoOaxHbi5ceWSZwr7oeaxHCiZ05I7Z/sBqHnM B24WdrpN6TxsDzZuJuOBXzv6VoZ9OQA1j+EAy4p++9rpB6H6/+yXWCDwmDf4 iP0MsPqf+6tilnU37z8Ote/b/mrByopZTMftjcDmf94v0OfYdrH1CNS8D/uf +R5J3HriNFT/y/3PQ22L5B4etzcAq3+8/6va4Wv5s07ZTwDL39wv5qC0peHl EfsGMP/k/s96lvf6eM7A3MewbfVOP7PTR+0XQOTtv+vuCTvWcgLKv2k/uZzN b2nYMXsLiPn2M/LzCyxEj0DlX9r/uWHewde3C+Y++xb2fbxPDh+yN4G4335C MtOL7CO77TMg/rOfo+2/8bPBDvs5EP/bH9gw58OllgP2FyDhYz9xzeYHBw3g 4eewySBO2fonLL4YHdQWLGne/Gor1Hxmh0/vpFcELV5pfw4SPw7HDOdYHbRY AbWPzeFNRsGCWWdWweLXga113tmyn1Oh9nM6BATVXyzunAc1j9vhzV9BZc3J W2DpxyHqerTK5PfToObxOejIbH3/9MF8WPpzcDi75Fxy/3Ko/QIOjBMe9uQq rISlXwdNV88LdWeXQPULObCKvJ2/Vn4F1D5hB6aJjsuDrJv3Q/OHg1/W4qT7 02v3AwCeA2/j "]]}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtmnc8V+/7x+093gNFwwofRKI0yHUjoZCVEZHZoDLKiJZdIrusMopQ9k6d W0YZpbK9rTKyKkQI+fk+Hr9/znk8H+c+93Vf43Vd548jan/F2ImBjo7Oe/Py v/uN7/rzGxtUPLBzt7577V+1cT+BRdoaFYuK2AcsUFfVDEhDSxUrVBx07vuP 8+dW1UQOua1f+U3FCxY27/aQ19Te3othGx6n4lLd43G33NbV2OS7d+IPVMzZ 6q6hrUAH7m+fiKY0U/G4Y518mR0d9Jmd3+XzjoqX2H8yFsfSQd6tFWmFWiqu vO583WaFDgw+b9ufVrq53+Gzky9b6CHu6tkTt5OpWHbR6VhkBCOss0kbWD+i YmtifuL5e0ZwTp0zPBhPxcE3eUJcmZjgQGOA2WwkFYcZJDcs3mCCvi3P7M4G bO7Pyj+h4csMIq8mvdEFKk4nDBldYljh7sni69udqTiZYVbydw8rzI9cv7Fs T8X+PJF5GiJsUMfFFVhoTcUWxTu2oiI2cLaRjxQxpOIT2+5a/epnhzx6z6d0 B6hYe99lb9YzXHDQJJclUYmKmyMt7cQruaDx6dfzexWo+G5yxyUTPm4Y1jaU s5emYliQlVlr4waBSLnyum1ULNadF/3OlBcChCbehdBRca6GHDnyBBlIrsIy wusU/LKwkudGABlSX5vdr1ihYA994iqpmgyVZxsMJ+YpOM9zLFtWlgI/sjJ6 dcco2G9KbMaZnwoWSmemuZop+HeNenASJz+MB8XpP2vcXC/DI16kzw+eXS0F R+ooOPFMG1t4FD9E+h6+ermGgifTuynRWwWgjtiy3pZPwYxXdmwVU9wC8npf eGJjKVils9NfN0IQalLZ3WWjKFhEaKU9uV8QdH+h9rr7FGwU/SKsc7cQOMYU PFwIpuBo45Ietk9CkNRzX8TMh4LljMLZykS3A7OTtqLgGQqmBPM3nFvYCV9s 9ppPW1Lw7B1baV59YXhssc3/tdmm/T7dxqdZwqCs96vBzpCCLx3OWTaSFwFn pYeWuZoUPE1aoAhNicB7+u+3VWQouNspUGPIVwziVj8945ai4GRe8NyfLwZn F6ubh8Qp+GMj812BETFYmYjkC9pBweFmsZU3DcRB5pPy81YSBe86/UuYe/cu uP84pO3MEhk3WJo3WzFKgsUjt4U9C2Q8vO57i0VdEnbFnBZkmCNjJkvrNuNb kvA6WN4ha4qMJ2X/WXWtS8JP164/PwfI+IEX3YtShv/AUEVy5+16Ms7t5/LZ LycD1J4G14xoMj655/CfI+Q9gGXTw4Iiybg4zPlpluMecL3l/9Q5nIwdZq0k hyv3QKOkUr9MMBkrqq7Gju9VgOvX0k6U+JCxi4y71revCvCN4idTb0vGe3qk w2bNFOGBs9mxLGsy3h3Yp5gWqgiq1XvtwyzJuG/8nOL7SkVIsJtI1DMhY4aU fo/g7UpwvPAUe+cxMq7SIWu1TypBsb7CxJjcpv8nj9aXpewH23ROpvcyZCyb sypwpXM/cC2OC+dKkXFTVVFTMY8yOKekml8W3bTH8010MEAZhKY53v3hI+MS /YDxcfcDEBA29ox1jYRftOiz01wOgXFdkoN0MwmvU6q4nvUcgV0do4PvGkm4 QOpmQqmsGvwZlT/tXEfC//FfVki6pQaJLHWGmTUknPbvpcsvaYBh3ekjOwpI WNRmZtj/KIJLn1S2kuNIuIiD+nZ3lTqofQ2OLYgi4eauQ4ODk+pAmm/jMYgg 4R4JtTSubRpQSnVkDg8h4fx4zbChmxrw1+z+PJMvCTNwyoYE6GlC2EB/6/IZ Ej5bJPm0lk4LTv+U1Hl4moSvur89WHlIC3ZvuNXtNydhzTybY0c8taBNhLna w3DTH5pCx9J3LRBwlMue0SDh30W+vsY9xyBz6sadYSkS5mdvEq/v1AG/X0dc o0Z48Y1b27NM9PUhxe7ABBrgxQ5qDeZ34/Whpl3Bca6LF995vO28/aA+/KsQ tzZu5sX+u2y+MHoYQMBtdj2+Il7sHt1/97/0k3CP3Cn76CYvPpnV4UklGUFe 4MdsHR9erBfDppN4yAhaF9+Jr7jz4hD60Dw/ByPg6avedtqJF5/pj6C3rDSC mIw0zu16vLh3gWR2z9kYkpRcp58I8mIm/nvkK50m8OqZ0zlDKi+u06ZvFmA2 hf4ttiN03LyYbKEqKbXfFHauGdHs6Hhx51zaalCCKWTUH2gR/86DR9J2ESds TkHOKca87FIe/Jq5RYFgMIdK76SLBSd5sNKdoGWjZ6dBzNH9WY8OD3Y65N06 P3EaIgx1huk1eLB2i3DRHjkrsJf+c8p0Hw/+LCybGVBhBZw0I/WVrTy4e/Hw mcJ2a7BRY9+q+Y0bHx47VHpC1hbeywwbu9K4cUXX2+5jvraguKUiIr6DG9eT 8vrn39kC66wj40QjN/71/HxwkdJZKEzHP+/ncWOp4VQ/p+6zwMjs09B1lRuj qd0q/gr2cHnOgI7uMjcO9aEVnTpjDz0DEirS57jxxKsrO2Lv2cOL8vZCP0tu HMP4p1913B7Mzu9JEVHjxi7Ns4F2GQ7wvGXc4yIrN66bKkh6Iu8EBjGnRP4l cmFbv9j1wpTzcF2RV1c7lgtz3BvLDeo6D1lf3rtH3efC/oMx1l9IF+AfRbVO 7BYXrrdl1BoKuQAvY8WctR258MRQbEW3z0Xgiv+VFyXPhcVC0rM4r7nCwf05 Hb1SXDhTQURtqtwVHDvt18VEubBSBN8JoxVXqOHvMiijcuFtFnyRNbcugUtC zVzvMieuGOq5IRZ7GZof3j0gXseJd1YmqgRedIM/BzTPutZw4oj+RwazD9xA rGctrKyME4u9u+WbU+YG17e69Wk/58TrcT4SDAzuIJ1odsM1ghN3oNGzVo/d ISxJvK7MnBMj6dQF8XEP0E59baAzw4HfTM3RjZddg9mI/jWmcQ4ctsR74dm3 a5B0czW3dogDN+0cdSvn9YIZ20OsKu0c+M71EOO2i14QI1ZGyFVzYCW7CuGp Xd4wmP1CgRrGgeWvQYVSjg94FSdTBsU5sNxlTZbiRT8QyazGSTs48GvtNbV0 OX9oiu29bL6FAx8pGSyfd/KH7de2tHzi4MBqRi9T3nT7w9sDsYF1c+yYpkOe Zsc3gOf1vYXnBDs2YQwp+5F5C7Le+XZ5WrFjMTrDhVuDdyBR0Uszx5Qdn46Y LRVkCoD7qR6Fg/rsWNTz3cll6QDw8HS5p4vY8d4a17xgrwA4InxGTViCHZf3 tyvOUAKhwwtlNf9kwyPLOf6alkHAIMnqJRrAhj+03JJkEQ6FxSjGETM/Nryn QMCH1SAUJlY3Tt6/yoaDpMUoVjdC4ePnZeklZzb8PsRr7G9/KCTemBpoPcG2 Ge+cYOm0MFDo/KDlw8+G1Re9i7KV74FNUBx/23NWrNm028cuOwI+wh9WnwxW vPwkJ+zlQATAqvlfkRRWfPO3oJIBXySIeGwb8njAirkSliciAyLhm23GcwEv VvxM89j0VocH4KxSqGKjyYoHqJJ6pklRcHm+xe7HAAt2XGbkOhYZA4Mv5UwT ulkwIvhtBQti4OSFB8fgMwue//HfrR2fYkBh2Fg2up4FF+97v1ZJiYX5D70L +/JYsEdGX5tGUix45XwP9fdhwSUce6U/F8fBzbOM+ZxUFnwwdtdec86HUNim HdnBxYLz1nx6xvc+hG9q9y+nsrDgApve5TyLh3BsB/+ePX+ZcW/IX6/urIeb /U+y0PgrM26+3CpTpfUIHpscL04sYMZdO96kd0YkAnEsulxKjxnbc7yfG9NJ gfmyzoRZLWa8ZNapHO6VArskhLyrgBl3Bw/Guz5NgTDGzAMnlJjx+Aa/9yhd Khji0srLQsy4Ot0yKb8mFYYP9VSXTTDhoPFrdDR4AnRywoRmMBOWKp7YxaSS Dv4C6jbBN5nwnO0HVT6LdFjasF9v9GbCZ4KnH5+4lg4/v2SpHL/IhKnz7e8U CtOB5iNfaXiSCX9hETbtkcqA8vojRWcEmbC3BI9b1c5MuGRtnen9khGrLFOr c2SfwYTWTY2qLEYcEd7DP6L/DBz3pH39+4QRn38g+kXb7RmcZhgVvhnDiEUo blOxZc9A57lLSpA3I7bvsmU7rJEFuxaux0erM2Ivizs7ex2yoS88MTSvkwH7 JRRdUW7KgfYGkRdn2xhwwOtfYRd/5kDrRvYn/iYGbC/Ulv2OmgtvPMsFb9cw YLtmA6N1m1zIsGrPM81kwLEbp5oslnLhoiz3p3U3BvzGLPvJyJ4XsNp8e6sh FwMOomuRGcD5sMDEdoSZhQFbuC80WU3nw0+1B3bVG/S4L1iLk0WgAIaLU3N3 /abHjwv+vhlwKYD6pGrVlV563Gql8+cDVyHcv7hwNiObHhPNP7yK3hTCdo7z OQsa9JjlPWeZtlIx2LxpvS+mSo9TCj9eN9cvhnSPvW6G++lxFUM+NeBcMUjS /iq/kKLHgpNmw1IpxbDnRUS9Axc9nokZfV/OUgIaBiVDXzrp8M9jqrcnhkvg Qsw//qLzdPjCLINOU04ZuOyXYaZt3yA8/Q9sXIysAg/mqmwv3g2iVWfWjMiv guud2scpDBuEmFORk3xbFdy75vRA9/s/Ak2KplmTqiG3LE2wsugfoSJlpLUS Ww2T+7fIxx/7R8RbJCYqpL2Cc8pM5ifd1gkW2Q8vvVtfg8OBwed1dauEVIbJ 6NlDtSDjc3jj8tNl4gDr1+w03kZIHzCp91VfJLSLYtUcx1rg+x1+Ve2t8wQ9 nrI5/eUTVMf/pzVh9oNAIhf1TSbagc3quwO96g+iNP7XLb6FdjATyQoQEv1B iJ7jjPi80Q7zueJYb3qGuMC5a0VtSwdI450qRbdmiP6sI+fGtDrg0RTf3uvP p4kbx+XYTTI64BrQ7+D6O0nEqrkVHDXvBIXJ3oU9qeNEnGcVp3B+F1ydlZPe EjROPDo+eeZlRRdULt058+/iOBHVY1mzr7YL1FlkGlsPjhPdsncvyXd0gbH4 9YcXOsaInQ8ETraudMG1M0KHMznHCFeh5KhszW6o/nz6lsD1EWIli9nq7udu +NeTX7J+doTQb/0iI9bXDRrDDBOj2iPEtx1dkcXfuqHlZ65hCf8IEX/Varzq dzf0c66KGhZ9I3JrDyTa8ffAhlZy/d2Jr8SirbIlp3kPHK2msa+bDRMq26tu +Lf3QH7us0PvVIYJLqFCllhaD2xNvnIhWmSYeOmfwPd4pAe6llhiTnQMESnT w+HRv3tAws+MlPp3kLB4lhk0Q+mFt3cWuZD2ABG+eqTs3MleSLC/69pBGiAe JNTkYrNeuKC5o/V8Xz/BWaZsy23TCyRmrfDoS/2E3veZzjuuvWAbFsc+Eksj NEqmSjrDemEtUoklZLiXSNZ8fUiY6IVPV945CeX2EpY/r9XkN/RCpqFVQ75n L0GKfaK7t7UXjlMCg7pZeomjcqUWvL29kBj/hUFaroeY+yy/S36+F5RT3Dda fLuI/y5JBP0Q7QO3nIJlMrWdaPE9pabg3QcKPJcDNYa/ED9Ozta88uuDOY/d PJ4vvxD3vTQnD9/uAw/VHPEO7S/ECvuqAt/dPrjWlmGQ4P+ZoGf/3LQ3qQ9+ T8nq7m9tI9SUveqo1X1wtfS5TYJzG1H0aFix+3Uf/LkhcXWJro2YLov5FVHb B8sk4SdV+z8Sv0VEVTrf98GaMmXxyJNWItZQIrS5qw9YApfTjnk0EVUGo1En ZvsgVO9aeTZXE7HX2t5N/XcfsAnMt7Blvyfq7zYYyPzpA46c6T/NtHfEeL3c UsdqH/C2Deqd1GokgkJ1AyNYaBD1yMq+cKiBuDatMC7ETgOKfY83+XoDkbX4 USqZkwZ8i58z2vPribLUOwevkmiwdVvDsvnWOmLhobJcmCANEkfVeaqK3xK+ Q2/FXmyjgVD+G3Eh/bfENYkntLc7aLBDvdKg/04tsebBGP5elAaPOfY7Htle SwjPJfpViNNAuKPI93E5JgIvpIonStBA86OZbm0XQZhGDkbuk6bBMTvDq4Gc BOFR0aj3U4YGOgu6T7TQG8Lsq1tF0m4a6AkdWWzKqSFsCw7cbdlDAzNn8fQv /lVEDAd18P5+Gtxz9wyLKaskeC76GXQq0+C1f90V458VhIXn2SHSQRrsinVQ +2JbTnxmz7eyO0wDi8clEjGPyoh1aoumlwoNwnMYuY0/lxLvmj5o3VSlwTyR SfusUUJwl5dHn1OjgWTL77fRfsXEb/bRHh2ggWWXZq5RaRFRezx43w5Eg/tf Y6PJPwqJr79dMkc3Gc+M+HyWKCRyRv12PVGnwcSvc1jsdT7xzz6vXE+DBidZ 2B5kyL8k3uxgtPyxyeXbn58RS8sjdux5zHFHkwY7lXR2Z5Bziaqduc2sR2kQ rDvxVzTwORE14vzozibP2IY1pS9kEU1jkp4/N9nE679Hos7PCHO6k6cNtGhQ ff+9c3p3JmEeYKafvsmimef3i+pmEC4K70583+SwKjam9Oo04r3WkVMix2gw +MTombrFY2L7tXMX9Db5ZWu0hrpKMmEzyRLmssl+K5+H0M5HhMWxX4U3NllX knID0ccTQjksowGbvMXEWAiNRhMyz7VE/Ta5ZWPXlVuREcQzk4rzzpt83vJZ zk3TUEJwv2/10U1mKpEYvSF0h9A8+UpAYJORoN6Rv/ga8WQHvtG3eb7ZR4mO c4n2xPvY/l/Rm+zPENdw7KAuvNzuc0l1k+WTHN7xKV+B1ESupd5N/wcFi35y 8vqDpJ1kxMX/xUOppyZEPQgajjgq/NyMZ3mveUCo3z1wc/X+6rjJ3HhavP50 FMwmiad/3Iy/u7PLZH1cAiR0F53028xXxiFZvYaiRDjs6I3ebOazg2s6v+Fj CshOpmgubOY/xXL/YYegdNDXSww+tFkf+zXjXUYomXCkZ7xR5wgNPu5eTHFI fwoSxXeET2zWEx1d2YbDm2xozjDbLr1Zf4mTfHtH9XJg7WBSHdMhGii2X7V3 pOXCRz61sPYDNHDM2tfguPwSfqwEuB3frO/1B3F/RkMKgOMr8XBeaTO+qn9j i+8VwiCOG4lQ3FwvebpBUbAYHFpZ5lI39aGwjWPQY7gYDPI+l1PkN9/nrf5T nF0Ct4Ye5Fzf1FPCiuB/Sspl8Pcmu/CuTf29a+29p2RSCfOqgxEDm/o979P3 zkq2Cs6fu6RQK0wDtl00piDGajhkJNQev6n34379NztKXkHkV2cpymZ/aJUe 8rjGR4C6wUVvc14auHYOFaTOEHDCoCe4josGIcjtj709hvJkoVIRDhpIzbgp hR+uBbWrLXfymTbtaXq8pE29hW2CDA5bV/rgYOJ8yy+zOlg5c2+We7O/sf3y mGKsq4PQUKJuYb4PcpI8pXYn10O0y+TJhJk+mJq7mu5/ohEiL96Llx7qA9c0 7/gdL5pgnPtpV/xmv1X9s1Syd2szzH/hscnY7Mdcej5ftIKawTbuU1haVR+8 XPLhvWzdAhrTS9/ci/rgp8H1u2+4PoCAyb4LF9L6oPLmmzcFyp8gsX2GoXhz PqTl/PtQ5foJAqxjuPu9+iCsQ22gLuMTjAkaKSy794GFDLHazfMZ1itODbKc 74OVTuIg3ffPwJjV9/amSR8clqstNnzYDpGCLFLDUn2wv6Mr4U1TO4wzKNpE i23OI7+Z67vX2kGW3mZOeUcfSDZt0WSz64BU9f+O21L6gOp0uZ2Q6QQn9n+p Emu9MJOybUH+TRe0zC/WPfjQC0+4vPZzj/UCXZFNCd/5XkgqCRf029IHPfc0 NOzsNufz6fT1Cd2+ze++x6qZp3vh/vPWhvr8PgD1E4ms+r3gc1TczN+HBh/2 CK4Z7+0FY/9PXtOcA6DIVz2wttQDDF78/Y6Cw/A7dvvBkRs9cPps7pfKfcPw 93a0sda1Hig+Dk1chsNgbnLIP8W1B+yFL5SXhgyDoLrOPhmrHnj7viaKaWEY lNgu1dQf6IHAbY5aTz9+hdsi1rcZfnUDU21x/kjgCJyb8l5iNusGVi7DO/Y/ x4GP5dKIN3sXBA53aXpk/gDG1JYnq3vaoTA5xPDm/ByUy3Y867D4BFcyHEmj ZovwPqJgm3tUM9hcTNoRemcZog9uhLYrNsBdI69DSimrcNxjHEvcxBDTKuP6 ImcVCjZMMiVcMKRoDz2WqFiF7w+FjRUtMBQe0WHa+mUV+kSxnIcihh5pobY1 1jU48WKSQ7CNgP8Y3jg2eq4BV9vHg3bP30BjMXOU5Yl12EHotxRcrgEmvvjx W3//wXdWxW/5JyqB8vMmD4V1A8LeKYRfkq8E0ffnlZ9SN2DfwJZ3muRKUPNX DXm/ewMoJ7z/KHdXgO/oiATZdgO+W7HsOuhYAT9LFZ0y6jZgVXfm89OAcpiR mXC3P0aHrgn9TRX8XAoLWwaC8/ToUPZRrxfvykthlelL4oIxHdoYO84akVIK HEOvakNs6ZD0+MHoM+dLQSr2ATnPhw5dMnx4nZ++FOxXlYt+59KhH3P9Lv3K JdDdEjwbxEuPHh29E/+kpAji1FK1TgnQo70hf0P3JxWBcVFpksQOesRt4ks/ frsIPiaMHG2UoUe0w1UOCQZF0Ginnsh6jB4lxzR2Kk0XQvnSmvo9f3rkpXQ6 ykK6EBLEr8Y+mKRHRFf27LL7SzBNCJ+wnaVHom2/HqVqvQQKe+YRhSV6lMKn EnRV8CVE/vz8/RMTA1LV+FBTWfsCQqr2qFJEGFDZwIW+h3wvwOvk9GicGQOi jdCfTqzLhVN+9spJdQzoScpSwJjWc0hI5WNZamJAJB0Kp4TYc+giGjtNPjEg lWdHTSP+ZYMZk+w17gEGtP3Q8cbuimywiPhdcvsPA1Lz3H/RaHc2nH4StPec NCOSbvXzrN2eBWfrsnbve8CIStJMrw4KPYW0MYu1qHhG1P/a4DjTWiZ8ZeVs /ZHMiMKPnk89OZAJ9npXXLKfM6IH8qwGZmmZ4NB5IFfoLSPaevsCTeS/THD+ /l6KfpERHdpSER2jlgGunNNiH08zoXOhzPESIWkw7VvNxGnHhB4f/euj65oG FyfujmufY0KtkklckcZpcK7hv9xaTyY0otvX7SOcBva3nPeW3WdC88caRZ5e ewKWv79Cyhsm9O8e0/aln6lwjNZjfVGMGeUf/fupnzcZGnSfq2X/x4xuTE+6 TowkwdFKb5FReWY0E40K5CuTQD1eYPSMCjPSEvpz8qJdEqieNHUxMmVGSlt0 RB6VJ4JiXZvvwRBm9PRtMPMTl0cgnNeYwDLFjJRHV5pG/sWD6ZPKquZZZvRl Zufqq654uBeb2x+5xIwauV4Yfs6PhwW/SLEtzCyIZzjButg2Hpr1zPKlRFhQ 0L1rz47Vx4HXz7EGHTMW9NFaueTGo1j4sJd58d5bFvThR1iKhUs0MEgubTnZ xIL2KA1uPXU8Gg4KTR6mfmJBSpFZwSHS0ZDB8OF28gAL2tecujd0Igp82uO4 XiyzoFs8NV+Xz0fBrmu7dn2QZ0U19F+4P4xHgl+lpglvMivyv6hX7mEZDorW n2Zt01lRU4PiYx2pcJjasI4szGZFPzoErS8t3oPT2l5NRqWsyKvToTc95h4c 7noOcR9YUZf8sMOLT3dh+Tf3bkE6NuRdSnQvnA4Drz09TOJObMjyZ+bNpmfB IN/umOHpwrap58XH9f7BMO41B/XubCg5zoyL0TQYTr3h8HO6yYZsZMsv6zAG wz79I3PZD9mQ/i+6+mnHIPh9MWNgdzMbCrK3ktTdFwhuWa7lynvYkdqH5BkS /R0YbNsWz6PMjj6KCy1wDNwG/ZVmz3FVdqTeuK1Eu+o2yOhJ7004zo5knzxp CPW4DaNzY3mLTuyoqdrvufynW2B+xDa9NIUd6VkJHFJ9cwManXlu389kRxfx 9hSZmzdgX9RrG8dcdqSUefNgjNoNII1s285XyY4KbA1km7E/NIf1JHi2s6MH 91tD3jf7gVqH0X1FDg4k7aHFZ7PgCy/W6Vw4yByIVVDm5N1XvrBNqlD32xYO NBoqYCYW6AvLvjysMRIcKLmElS2Z6gvFwi135hAHOi08+j32kA9IuBz1LvTm QMuvpG9zJ3oBF8MBe/kxDqRTQup8mO4JVd6MJuPTHGhkKtGTycsTnH+0aT6e 50Axvi+F3x33BNxzXoKHjhO9vz1qr7foAZ4FSRM/hDhR/8RNbm0DD+iz/nf5 pSEn2tk9uRjA6w6hX5ptncw5UbiTylOeSTfYp/PQcIcNJ8I1VVXf37pBpJKC YoQLJyqMu8F229sN1DnsF11DONHSKsPra++vwPOKBr/dNZzIaiP/4+eES3BK LsZ19C0nktbvy9tucgkYMm3OpDRt7s/f7DDPewmsI5fUuLo50eMS7vjD4a7A 6yTNMDPHiWQPkVLFw1zAixIRlifFhZjdvK7dTboAWpdM42ViudCz/AfDV7Y5 w9WYV3RXErnQiwNKSl+mnOBphZhryRMuNJdjuhJX7QQMDHMaqi+4kN/fZp1D Vk6AEyJm9Ru4UNwXbcbpNEc4jBtPuC9xIZnnsmrORxzgwphcRdk6F8qG5eFA igM84ogX+8vIjS48+7ix9N0elkwdVgJI3GhWbMDoa6w9lE5uZMVJc6Pkfd49 2b/sQJ56iKHSihuVxbQXBZafhTMH0y6t2XGj34f/e1gXdRbun2HtRee50RSp q9fQ5SxMZ3cWNF3lRjYc3HpGomfhuarHGVoEN1rfyVlfJmoL4s55lf8IbvRc fTFfedUatlbtuKK1iwdlRMTYJPNZwj+H7G1kWR60Xvv3RVynBYzy7H3fv5cH 1cwqeux8aAGFjkdFrwIPmvXmbBvcZgHaJJf2jNM8aKvxPPyWNQevc5UH6KJ5 kIwm3dOrTqfAmqIx2vKQB83wCinNyp8CjdctUQ8f8yATvLd1atkUeKhDk/Iv eNArv6f0lpGmkPWGOeXMOx60xu4gtv7GBDr5TeherfMg3b4EjVBlY6jG/S9C mHhRZ4vUoh+rMaS5OFsac/Ki2d2Z5OEeI3Ct9S2e3MqLXAsGafP+RsB0Kc1x 6z5e1OP+z1K62RD21f94f+0iL1Ldtt7336wBxHiERSt08yJzs/JvpIPH4W/r i8qwAV4UfZqtTWhJF+ylPg8Nj/Ai1g6zjcpyXVDqF5SPnuVFgYzmri8P6MJU xqmxZSYSmjPlLTyFdOA+1/c7ljtJqHB1zuapyzHAh3zjg0VJyG9N3+a80jFY cObMKdpFQqyFAtH5q1pgXbvnE7ssCSX2uhm/jtACOS+fndUHSKh8cfvfxoqj 8HGI/ZWQEQkJDHFXZolpAgN3ysdjpiRUcaoniDKvAcqH5b95mJOQkXi442yt BjyOM2ZvOUNCbuMycf/sNeCKbrK530USavpTnHQ8Vx1IJbsXaIEkdDZVZ2uX HgLjkJNyqeUkdLBB6apbhQpkWc7qVlWRkGZUI3+Lmwqs7I527qwhIcd84++t MiqQ1v7lCXcdCW09Z+eH0w7DDxEzys02Eqp7FZWJ4g5B2CvrJZsJEhJStHf0 fnQA+iPXqX7TJFTzw/1zutUB2GP/WOHhTxI6QKwL2wgfgC624QttCySU/WfA KfS5MoibOfQDPRnR7es4dL12P7yZvVArIkRGHpdEJjq59gGlnmNQdQcZLWgM d0X0KIHTw7y/FiJkxCA7877+qRJwqf1QipYkozO72gzy1JTAMtwti16JjFbz sgJUfRRhQcI7/NsJMvKKqwgPpN8LMlZBp57eIKPdLCb5Ni27wdK9nMJ0h4w+ 8Erd3e6zG8JCJ9ocgsjo17U1l1cSu2GsRO+4eDgZuc2lPYgNlIU0Ln7IeERG g52N2u66MsD/5tl/aSVkdOxc8DvymhQc7ege2ygno/JbavKjZVLgMcWeaVtN RtnlQ11eblLwSeDyDuFaMhKpjTzd+V0S7l1Rpjz+SEb2wq/4NIckgE703Wry JBkl8khYGPwShz0HVipXZ8goc+G50fFScbDRl/WymiWjzvPs4lO+4vDK98Gs 0BIZHb5T8oaHVRy8vpiPJTJRkAz7ZOOb/8RgOnDi40NhCmpkjUo7EyYCQklC 95fEKOjo41TePjMR0CnU0zWXpKAtav0NXyVEIKu/sE5AjoIGEvteC4ULw9n9 vpXxhynIa+jxa2uBndA1zp4Re4qCnij6yXZZb4NG07spVRYUdKGi4c413m1Q /pbt4ZAVBdkssGR/eysECY9Z78vaU1DYU0f3nbuF4JQZs1fdZQoqeRsaMMYq CB0NdMd/h1KQLN2pfM4RAahXun1UMJyClmoT5DPTBaA0fUMNIjfP4zBaM3VW AOJu/FMKj6Mgz9oB8cCv/GCyf22HeDoFtcg2dedM8cGXp0tzxtUUdEOlTtVu GxXeUrxnfF5TUL4kwymlUQoU3/4z/hhTEOmOXGnySwrEWC/SphopSHex2FRa gwJGfL8bAtop6DXzgCqvBxk+Bf5MLJ6hIDdVrv2x3byA5y7F9fyioB5+5jM5 13mh0PZH5L95CmK56x1I7OSFKJWZwOMrFNTcbhD69QIPnPw9eekbMxVJaG0d KOPkho/2Y+oUYSpSytd/dNOPA74yZS/Hi1FRl3RvofMuDljIOl8gKElFzHZS CWc+soPg9PR2UTkqUvcNuO0iwQ6OnvNLe1SoaC2suKBkiBX+Bm681DenIh5b cZPLAczALVnr+Pk0FWVSGK6PHGYGkfcB207ZUBGbs+3YoQUm0OJiuWvtREUv tJPkbl9ggqg4LkcXz83n5LwwWRtGkHwmKHT3ARVpPyvto12ih0PatE9csVTk 0q1SoKpED3qTKaFRCVR0bHTXeYsVOnCXE1l8mEpFukOP2ypC6aCmTPJTVh4V aQ6Q7pRZbqgZNyqF1L+jorArVNkPcmtqTucXVXVaqChdISF1+cOqmg9Hxe+W j1QUnsxpaXllVS3V4LBdeycVzRabcrwo+6s20YVUv41QkWB4wR5FwxW1vz4M v52+U5FJmo1v5sqyGve2+pzJKSoSmBz8LPd0WU3RVnvL3BwVqWzZq397bUlN i57949VFKirKy+1Sz11Ss8hsDlpepqKxt1RVXssltYta91X816gIvnHojLEt qf3//3UoSdX0I676o/Z/HsKDEg== "]]}, Annotation[#, "Charting`Private`Tag$28592#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwt2Hk01O37B3AkIUWmspWSpS+lxVa2rg+aLEmoR6mn5RkqlaWQ7D1libQM QtYsRUYUSqjcg/l8ZN8GWSplX7NmafG7n3N+f815nflj7nPf1/W+rjNyDBfr c3w8PDzLeHl4/vv0Gzg0tbREY8cwF8o1PJnQ77N+tvMXjb1e1b24LJAJFmJf 5t4s0NjhJjn04+FM2Kx95bfLNI3d6ndGMY7FhLI7EYLd/TT25pFgG69PTBDc 0SbLrqWxbZ10ezP2h8ND97MH/42nsfsZy1kfJSMgi9ftCc8eGpujXLRBtj0S lp8zVpM6Jc4uVf90oVHiEdA+ko6p4WvYx85L7yKfJIB1eZydcpUYW7GC+Fzb lgw+3/UdmT2i7IviLyV0h9Og8HrcpReHV7P5zcIk/aQzwCLir81/YkXYlrfE 38gOssA48b2FyagwW5MKJlsWcyC9wqvV7aQQu2p24mbz7Vw4HfhwXf2zFeza A08K6V/zwf/sspyVNAG2c9AVA+UdBcCjugkZBfGz1zy9ZNl0qxA6wmJvZ7Xw scWP9fi5SryFDcIOmTOGvGz7iLy7JgHv4bKmyvLODUtIfbBGo3UVG+z2fH5W Xv4TgfKK1VJmpaDiqbPk/GQeLau08UhhlEHKpyMcL4NZ9CFEJlnArxwGbq7T M5acQvqkDsm8xAFhvxffI4WnkBlPouExZw7s8DRN6/41ieTCDt6WceWAh7Of sPfXSUTrSzib6MUBgZN9H5+zJhGPTapycAgHFDReXxPXn0SGc6trhp9ygNF/ 9MWnfybQTebsjh+fOVAc9T/6oM0Ychp7w6VMSRA8OWDHqzeGaj1UtvSZk2Cz Of2WtNwYSi+/N8tjScIUS55tPjKKIspNlHfbkKDMltXNvTGKeMpzUt0YJDwa Xrvb+9kI2tnO03jDm4RrwLtRZHEIKehLDT5/RkIZP1tX8csQcs6Oe+aVRYJY lf+JfZwh1OFdVWmUQ8Lzo79irtwfQuc+Vyo35JPQe3FOvGXLEGqOvmdQWUKC 9cMxwaSDg2hRz+uTLpeEXUPtMzsT+xF/xmV7md8kuE+oKksE9iPRmYDRC0sk FM7dPPXnUj/aetlANI+XAgMBFapmbz/KuOwjBwIUWMt7x1zk9iHtAA5DT5SC a6ekddJW9qGgUAFW2WYKihtP3Fjv3YOYM4I8CwYU/PmYk//7bA8KsD14ds6I AsNuvsFe4x7ESdEwmqZTUD3Ossxf14OqC9Tu95hS0LXyp5xl7jdUWhCmmG5F wRI9nhM6+BUd1RgqzTtLwf7iTqHfNt3I6Fj+pj5fCnJYT7UrdLsR/b5zdIE/ BZLxLhfDN3ej4FdxK4L+paB1TiDiIPcL8v+X3ioZSIGij41Y4uJntN5wq9iG MArKbs6KEMafUHCT2lHmIwqiGaGOXLFPaFe/r/TuOAouGm2scejoQspryPq6 eArEltPDwp260BbTJH7exxScCXko1BPZiQzudQcSTyn4dV9dILi7HTUtKR7e lktBg0vFOWlWO+L0bH4Tl0dBmuVJMsetHV3f2r9sxSsKzMQDAtsE2pGwhotp awEFsVFNfMqqH5F2saz74XcUaCVcXar2akVUp1FlFkXh+l5+5qxRK4qf1tYe qqDg06nYkhmRVnRtXCRIvpKCwE2lfhuTW5DBOd2c+9UUNKeK/XKmuKhEMXkv NFBwJfPF/BpaM1oM5ikVbKdg12rnAMPuJiTN+1iCr4OCSdftq92ym9C+7cms eWxXvUx5rnET0pVlBH7qwu9dn2oR7duI1FwMfgd1UzA9vM1Us6Ye+b1JK7Ya oMD91bPT0efrkXvx/heygxT88FN0n+OpRxvcZDoHsefFNj0u0qxDPjsN29yH 8X1pic/qP65BDYPRtpfHKBAImE8+4FqJrr0lzZqmKLhtfq0gQ6QS3XiuFuE6 TYHg+qlqwYwPaJ/acxGxGXwfmSM/qjor0Gbfz7GGsxSI1n82P0yn0MSy7aLB cxQwH51kvPxCogaHb4Oi8xSIMz5eX+NNojfrpqejsdfONqY253CQO+tUYsIC rh8Zcv6YZDnaqaCyN/gnfo9eg9VFeWVIetEvZgFbOqdEXvpQGZrMfKt06RcF Gw0KLbpulqK1Pw9zDX9TkCSsaa+/oRTd6rGZYmFv4uZ6JRWw0SGNZyD2hwKj OhvT0laEBn9FXWjCPvCPpXvASoS+8I4Y7FyiwGTG9DGdKEHZoT/NQrHNpfVn KzPfofjH1YMaPBVgc14+pcm3CF04WXn4Em8F3LnqFhLxuhCZUrKGL7Df+5a7 WI+/QZpLtv6T2AqRdvuazhSgKnFFrhNfBRxPyleMePQa/RgPGcvADstctsq6 8RUySfC2/II9hdI6Gw3zUe5i0RR9WQUoVU+XhfvkIZkTPbuvYdu2GrGsXuUi +wGr4hTsu18jw9eMvURi3bNh1djs0R7PRsWX6Mp1dvoU9uD3C+wt73NQVmua sAR/BRwWEHyQuiMbVW2IfLMXu2DDs1NbkrNQ8elb2cewZdVNtqeuYSHbjPOj bthBpoOLcgHP0PU5Tfd72KNnQipTZtJRN31g/xPsIx7/eyR3/in654br6ULs 4rsfzqe0paGq4AZ2JbZcmoOmnGkqmtT4efkjdkiRIH9KcTJCx8fO9GJ/fmz1 1OB4ElJ6k5owhp1dE25ooBuPVFdKbpnB9llo/ELIPkLjyw9OzGGbKon7EbxR KM5CZ8UCtsQRa2miNxx53Oo7/9/31UsKLjfu30OfNQ6JTmM72D7N9D96G+3/ 7sozis2fr9jrJ30Tqe621fmGTUiZ6y+yryGtK8vet2BPPIq1n4xlICFJjxAK 25fvIXlgrykw7hQkvMLeEWdXsVbLBVZsql54/N/5pXLHV4r6Akf+7eOQ/+5D /eO7YINAcO66f9/5v/ttP3brts8d4N46TFlhr2KPyHNO4D3kwApjNeyr5y8P cR5GA+1VqPwIfq9U7W3mZG4s5N5xulGOzRUZySHrEkC33VshFjvBVlPHLjAF Rj5YmOlhaxpFXe4RT4NZula1EHbd9tkEu5QnkDQVEsXF9cTD83rJriQDGHLv BBjYsUNrd/eaZ0LzdjJbAVut2Z1h38kCb+87Sb24Xu3TNUj7+Wzo8Xl66m/s 3w8e/ugNfgGT9tu2r8Wu1luMzLvzEl4u1u6vxP1gr3SCVJPKA2M57tFt2Ltk hD+7dudBTLiL+UfcP79Fi3/kZeSDk1PM/VvY0QtS/1PXeg1EjsB0He6/ipr2 O+pHCqGweQKMcb86eHZUnNxWBDo6gfdacH8LKnTyBy4rhkmDvc/PYpv5dPlz 89+ClSR1ygnnQY3yF9draxGcXicbcxbnh2PLlxeJowguXrd2a8H5Ekxc+cFg sGF7jNUWY+yto1fUw3RKYUY1aWEzzicHI9fszuEyYO7Xf5iD82xv7FT1d5ty YPXdWSWMLfjddXhZeTnsLkg5ycD5lxnntnV7PAfWrzO6LoTzcXjSPcX3ID7X v8avdn/Hv598PWrj80rwL90TOozzVu/HXP5uySq8h6S50rBFzD2b6IFVEKTV qKmN8zp7zlPU+e9q4I51mfn0UTBu4R1aIlILJyIni9q/UlDoX1LyQqsBkncr 8PHgeZCc+ae2yLEB/DfMv/rxkYIQ7r5P5akNwH3QZDzcRsFxFfSzbXUjHDxu K/qhhYKFFrSXZ6ARZmkqaqcbKdBRLc2zjGkGufHeHbN4fmlyW6NLKpuhL8N8 Xz2eb7t8Rr23/2oG4YLo+HSSAqVKCSPBf7hAl/M3OFROAe2cczNSaYHXQ0EH vEsoGE2QmdlR0gpWp3/EHMHz9LGIh+aqvnZwOP0tUSCJgrj8MCkfiQ64WDdr FpaA3/9Eyu9B0w5IcpD5axWe53ef1ZCcnA6oTyq9JYTnv+d+eRtfz06Y25Bt /S0c7zu+DR4jKz+B0MZYg/VBFPB5rOuyl+oGmqf8lbCLFJw4y2oq1OgGHxOZ uagLFOSZQaWIZTd4NPv7JJ6jgLHpYsGr4G4wiWy9kfYP3jc+vGPyz3SDY7zK /TBbCgJk7OlP6r6CKYfxb40JBfyleTk9AT3Q06I6KaFIwd9Zxk/3PO6B9RNp LeVbKHgV1RUfVtwDHxPUuY5437K/JBCqPtkD9wUC5AtkKCBpJ+wCTveCBeu4 kpI4rr/zvJLy2n0QlAYJvn9IWCFieZMx3g8d57v8hFtIOL71BFtLaACc0ter OjSRwDK0XxJWGIC2P/q7y+tJsPDy9Mu3HYBU6yC9q1UkRPcne/GTA2A1FuSb jUhQKp28mh4/CFlxo+EZmSTQPSIZwybDcHfOl53pQ0JAd6uRa9oYrDwJD5Uk SfhcdNDJ890YBF5zZEmvI0Enkh3t3zIGF2/U5oiIkzBBZw3dWTEO8t+Mg4dX knA6y+9B2uVxaAaBe/eWOKDjodDJVf8OfXVN3672c2BhuXaRDGMC3HNT1r/N 48DL+GBL/6lJONVyOPYunQMuqfZivTazwLB0qqsiyuH0pbiNt2/OQ7N+h4CB RhmEWnloqyf8BFbNOsiSLgX+tVH9Nxb/QFWyeq34awRt1UETgaK8RNzdqbHj h9/DXz4MrbhyPsJN2ape6mUxOK4c2VJ3gp/YtVzFd8ygEDZlUdECw8sJiU2j Md2jr8Gn0OiIaPwKYuvlX1prfPPhSrpjgdZOIaL+jvSFbstcEOHbw9jRJ0xM 3ZTXEt6TA3Sno1EqkSJEUvgwzKuxQLJoowtdYTXx4pKdDpSlQ4RrSPiuNlHC Zj4nyvFMGlgHH1ZNLBAj4jom3OihyaByMvCvJ35rCN34nynvZBKgtV8oNfIv ccJLtNbsw6kYqGP0GYhvohFfHOaDjAMi4St/xnzUFhpx44psyn63SJhJd3gh pUQjajvsZg/aRYLUyMgGOVUa0SDbp+NlFAn2blNzO3VpxD59JvcQfyQsBixl HzpGI5aRtbSu2xGg9FRKOvQBjdC9avPbNToctI07G0QiacSlmXWKL2+Hg/lQ wm1mNI0YSW4XnfMMh6uqm2djEmmExjeLTaknw+Hda6WG9CwaoZ3b9tZRLhys KfVgTgWNUG35EN2Qw4RzDrN6JtU0ImVPpdKzZCZ4Cr+Zrq6jEWpFtXqhEUxI tND5p7mFRpjI+I1c8GDCYCuh962HRrx3cBuI3seERU++6XMDNKKLFqdbvIsJ q2Q4mUPD+LwGX370b2GC2hljiclJGnFEl4j8ewUT6LxCde6zNEIicUe72fQD OJ5WFTg/TyMejAvofm97AJfod3V9f9EIAUNif/q7B/D//w8QRvmiYy4pD+D/ AONhKpg= "]]}, Annotation[#, "Charting`Private`Tag$28592#2"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-5., 5.}, {-0.0710264641206853, 0.4995605003797784}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7621513903452635`*^9, {3.762151449217883*^9, 3.762151472296692*^9}, 3.7621515420406775`*^9, 3.7621525329109793`*^9, 3.7621529058695993`*^9, 3.7621540713860326`*^9, 3.764048877141733*^9, 3.7640495079807725`*^9, 3.7640495439994273`*^9, {3.7640497832916503`*^9, 3.764049797709101*^9}, 3.7656066272377214`*^9, 3.7656068183812795`*^9, {3.8104669064826374`*^9, 3.810466913080074*^9}, 3.8106652402057943`*^9, 3.8106654736009283`*^9}, CellLabel->"Out[108]=", CellID->105135350] }, Open ]], Cell["\<\ Assign weights inversely proportional to the number of points in the dataset. \ This asserts that each dataset is equally important:\ \>", "Text", CellChangeTimes->{{3.7621512694654903`*^9, 3.7621512705376062`*^9}, { 3.7621513304334855`*^9, 3.7621513760016155`*^9}, {3.7621515305613823`*^9, 3.762151540808982*^9}, {3.762151592897088*^9, 3.762151651352761*^9}}, CellID->19082755], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"fit3", "=", RowBox[{"MultiNonlinearModelFit", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"dat1", ",", "dat2"}], "}"}], ",", "\[IndentingNewLine]", "fitfuns", ",", "fitParams", ",", "variables", ",", "\[IndentingNewLine]", RowBox[{ "Weights", " ", "\[Rule]", " ", "\"\\""}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"fit3", "[", "\"\\"", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7621512910977154`*^9, 3.7621513234421797`*^9}, { 3.7621513783962407`*^9, 3.762151389186391*^9}, {3.762151439700328*^9, 3.762151471746642*^9}, {3.762151561915925*^9, 3.762151585010174*^9}, 3.7621525208933363`*^9, {3.764049860154256*^9, 3.764049864536381*^9}, 3.765606821298794*^9}, CellLabel->"In[109]:=", CellID->231661], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"amp1", "\[Rule]", "1.2005653115228045`"}], ",", RowBox[{"amp2", "\[Rule]", "0.41124355566202153`"}], ",", RowBox[{"width1", "\[Rule]", "1.0037156605203115`"}], ",", RowBox[{"width2", "\[Rule]", "2.5530403708523415`"}], ",", RowBox[{"sharedOffset", "\[Rule]", "0.4266879498519529`"}]}], "}"}]], "Output", CellChangeTimes->{3.765606822454652*^9, 3.8104669174951057`*^9, 3.8106652424587755`*^9, 3.810665475243513*^9}, CellLabel->"Out[110]=", CellID->135172226] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"plot", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fit3", "[", RowBox[{"1", ",", "x"}], "]"}], ",", RowBox[{"fit3", "[", RowBox[{"2", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7621512910977154`*^9, 3.7621513234421797`*^9}, { 3.7621513783962407`*^9, 3.762151389186391*^9}, {3.762151439700328*^9, 3.762151471746642*^9}, {3.762151561915925*^9, 3.762151585010174*^9}, 3.7621525208933363`*^9, {3.764049860154256*^9, 3.764049864536381*^9}, 3.765606821298794*^9, {3.810466920489697*^9, 3.8104669250186253`*^9}}, CellLabel->"In[111]:=", CellID->130313828], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw11QtMk0ccAPBCAXkUKa3KymTTIYuvKrMKKro75wTFaDY2hvIQlLWpkuEG A4ZQ4zbngPKwDjva8AYZEKbEIoKM3CEqQzrDQ0ChiERFFLO2wpgg4ma//3dJ 0zR3/9//0X7XpYeOBkmtORyO9P/Xm3dmLaDyhjS7TRPniFbzZgnptlHdmCBJ SSSWJaQ7M/RKn9JS9Jf+zRJQbXH4Rdt+FZFZloAOhgXaBhsqEOMJqO6UT9n8 99TguVJD8lsrOt7VIMZzpQP17u71Z5MJ4/HpHpFPwJOpXPD49Gl37rRXZi5h PD5d9kPm5zfXXIR6XGhoSenB17UKxJyfT597Ri8ZohGIyedMr8WeabvdqyIW Xs+jHW7OWqfEE1Afj1bdCxauHsoDz4k2JC+2j7mgAs+Rqj64sSpVVgH1O1BD mjnjmK4cPHuqbXfrqfVTQX32dMWuW2t5WSXQ3zzaEO9feokbC/3Y0T17rEPK PpMiC6expd+lyoQBMVrEeDaUNy6SOiWVg2dD79T2Sf7tOAn1cenu8eYvjxgU 4FnT2/mOVnuDCwjjWdFrhTG+opYj4HGoaDtfcXKDBvrlUOuo9ddDsyuhvzni 5em48uySMjg/S6ojH7eqMkvROku+l6R6YlFa5YfnUZ7FnyaSrtWFG2kpeC/I 3nZ9Q1d0PXhThPOFlFOwuRm8SbK5dvuos18jeBMkYPSS6dHTJvDMJP2o+V6M lIJnIj9tDthVH38V/WmJf0Y85rrDf3zUBuefkOFO+fWk6JtIbsk3SqiJcMul Xcjb4j8gLqI7I86KbvDuk7ALnSb55U502hJ/l0xtWxD/Yn8PnO8h+x/NVj6c 14tOWPbbibzpXvAh6QB8biTtOQPPi3Yb2PlxelvUXP2zAUSZfdQ3+UtFeuAg KmbiUdqOmrFPfjYgzPhoJNVrX97YEOzfRR6eI97eDsNsfWiiddW6Gt0w2sjU j+IC72v1L4bZ/tAGtyZJ+lU2/glyWl6l5LgNoU5mPqhi4UeL/m4cYueHutp2 XhB7DaJ8Zr7IFBKaldDfi9Yz80ezxyNqTk33Qfwkan1Z7KIc6YV8Uyho8jet a04f+/0ivfx38dvVPeBNo9eSOJ+g/JvgvURkwqf/K3EHeLOosa6l/0FBO3hz 6I7xj4xlB26w88MVVYnThz9uQ7eY3yc2hbw/Ht1F4Xm1wtkFMxk9vIsQb42P h702fh97BfJxMcqdi4oPvwyeDfY190ZtMdSBZ4PXNXoE1x1Ug2eLDUtnFBph NXh22H+xZm2WOBe8efiSD7fZGKEDzx4bk1qPZJ9nnwd7vGVg4PjMsRTo3wGP GYyJQrUSPEd8wte0yW6tN3hOOHDrjq8V6iz2fsHW/ov1CbYl4PEw752M1qI1 +eA54wOxkn39JQmE8eZjqkt9NZcoA88Fe6fx+pO5avD4OM7d+KvuG/b55eOV URGFZn8l9M/Hk63dLqa9+RDvije1iSNFy79l71/sqU351FOeAveLAMvCHl9x iDwH+QX4Qc3h0By/WvAEmBS7d2zlZIInxPvDxeK4kSL2/wFXHnp4WmqWgbcA v8orHvxn4RnyH35k4m4= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBmIQDQEiBw5raC9amdlkbwwGwgc6tLJ06nZ22aeBgdCB 7hvyn8zTu+1nzQQBwQMz1vznOBCfvf/sGRAQONBzNeUNU9sme4h5AgduSTjd CzXcCtXPd6DCT+UNZ2qrPVj5GZ4DHV1RLj23t0Ht4z5QzOfQ/MFkA9R8zgMX bPwmBWpvg5rHcUDwt6Ld9DcHoOaxHbi5ceWSZwr7oeaxHCiZ05I7Z/sBqHnM B24WdrpN6TxsDzZuJuOBXzv6VoZ9OQA1j+EAy4p++9rpB6H6/+yXWCDwmDf4 iP0MsPqf+6tilnU37z8Ote/b/mrByopZTMftjcDmf94v0OfYdrH1CNS8D/uf +R5J3HriNFT/y/3PQ22L5B4etzcAq3+8/6va4Wv5s07ZTwDL39wv5qC0peHl EfsGMP/k/s96lvf6eM7A3MewbfVOP7PTR+0XQOTtv+vuCTvWcgLKv2k/uZzN b2nYMXsLiPn2M/LzCyxEj0DlX9r/uWHewde3C+Y++xb2fbxPDh+yN4G4335C MtOL7CO77TMg/rOfo+2/8bPBDvs5EP/bH9gw58OllgP2FyDhYz9xzeYHBw3g 4eewySBO2fonLL4YHdQWLGne/Gor1Hxmh0/vpFcELV5pfw4SPw7HDOdYHbRY AbWPzeFNRsGCWWdWweLXga113tmyn1Oh9nM6BATVXyzunAc1j9vhzV9BZc3J W2DpxyHqerTK5PfToObxOejIbH3/9MF8WPpzcDi75Fxy/3Ko/QIOjBMe9uQq rISlXwdNV88LdWeXQPULObCKvJ2/Vn4F1D5hB6aJjsuDrJv3Q/OHg1/W4qT7 02v3AwCeA2/j "]]}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtmnc4l9//x+3t7T1kJGVFUbIpdb/uiEhGMhoiW/hQlMwiI5VkRVnZZGSW kXofIzu7Mt+pkCiZmeXrd12/f+5zPa7rnOd9v17P5znnn1vUxt3YnoGOju79 9uP/xoDv+gtbWxTUnZq078aXCGzSj295eJOCMmtyS+MsHmIGxM8rlWsUdKsH Db8YfIiJHL76132RgjQtSoIWBiOx+vsxbGOTFMT+OOtjh08UJrPnImftNwoa uMXJWkWNwuLKxQlPxijoGFdccB1LNGY/UkExGqIgWw0S1/En0Rib7Kfd6D0F cUmpVVxrjcGu1T8TTW6joCHlGNlOgVhsyMxJwruZgg4QWljcrsRiBbfX9svV UdCKiWz+A0IcZtAjpJxWQUE6P4Za3js9xuKuX9YLTKKgtj/AL2nzBPvLtt/A 4gkFfV7fvUOp5QnmkDJvpPaYgmRLS96PHnqKqTbdMZuLpKCWcht3YaZEbIg/ 2/ryHQoaMdGIpa9LwjQL/7M7epuC0m3NptKUkrFCXMVRwJ+CjkQ/tCbmJ2MB V5pdu29s65e7tPglpmAir3/cxK9QEOFGppFBzDPsnmGZ7y4HCmoQ8KFL5kjD Fr75BqzabNc/rXyKTz8Na+DiCi6xoKBE34BJ6Q9pmIOlbKSIEQVVr+Sd11pI xwroPbPoVCnIbv508JptFqZ2Np/lqSIFjU+yHvj4NgtryvriJC+3PT/B/b6a UDY2dtLooM1+Cqr97RuWO5CN8UUefNUgREFxHb/ffHPIxbI+2wlYCFDQA5JS SUZnLiYvn+y7xEtB9d743l1qedjpfg7YS6Ag6c908xeIz7E7O6eaw+i2/aTF J/R/zMeIrnuk9/wloyMp/G6K+gVYyhuziMo1MlrUJF4If1eAVV1+ZzS1QEY/ nDOdlWoLsV85GYO6E2Rk3+rM4V//AjuneGmGq42MAugiU5VSSrHJkDj97CYy Si1kLNkxXYp5fmwvPtZARnjVjOJhtTIs0ufIdbdaMgr2eDl0caAMa6Dy/+16 QUZszGa09H0VmBHJ0MqpgIyOiVYc2RdYgdFswuro8sjIxc4xWWiwAltlXg6V TycjFeSAX370EpM93UuIjSWjsK1XwcyESqw2hf2aTBQZ9Yb5zidcq8R0f+N9 DRFkNFVRo9X8sRKziylOWAolo6xz5JN8OVVY4kCEiJk3Gfm3XgqVPV+DMduf VBC8REbeGddEbfjfYr2W8uYz58koTuN6u82jt1jqOSH/N2ZkpBrCESXLTsVU Tv9+Z21ERtX9Lp9E6BHmoJhwPl+TjCbrZhLuMddhCgeDbvnjZLQaEhzIq1uH /ZN0yTQ4Rka8zAXOaQ/rsISd8GtBhYw6+Sy/tgrWYy303wPVpclINh75dWAN WNxGdza3FBlJyfxWbbnfgF1ermn7LE5GfYxGQd8+NWBrU5G8IcJkFJ/K/S/8 RiMm3a2S10EkI33tn7eZqO+wiNSwrksrJFSGj1yLi2zBzj25unRoiYSmHMrz ImdbMImYC4IM8yT042iT8JxhK/YmVNY2Z5qEWC9969vka8NmXT/+mR0lIR33 4Yz3r9oxI3XJ3YGNJBQSzxPKptGF7VImahrXkdCVD5/+LdV0YVOy644Sb0no TSLd/e6d3ViQWGdpSyUJJT90t973pBsrY/fSIhWQkPfF4o7PKT0YZeCda0Y0 CTkebXQ3G+jDkEx6eEgkCQl9KnvfI9aPud72z3J4QEJztCcO59z6sSZJxRHp UBKK4FB69JjtA+Z7I02v3JuEjGn3ZFROfcS+kv2kG61IqOOktLUL8yD2yMFM O8eChGaVSGpWNoPY0Rp5m/DzJES4fnEoGQ1i8dZTT0+fJSGyYcUkS9AQdqrE lP2DNgmVFsfOkskjWJm+3NTEQRK6aBzsKeLzGbNK52RqkSYh+nPzHgM/P2Nc y5N78qVIyI+eV5EiP4Y5JKeYu4mSUGZzUk5H3hi2c4aj+Q8vCe1NbbE5nPEF uxM+kc26SUQdb5zJN6jfsEMjqO7HKhH1r554ZMg6jo0cSh5tXyYimR2mIG40 jql8Mt4R9ZuIom162BvGx7HpvShE4BsRnWEW3Y/vnMSMGxJt97cREWfCeVP5 6ilMon+c1ty0rZ/9Yvm94A/sz7jsBYcGInozFM7Z6/cDe8rSYJRZS0Qsm2cc JE5MY2O6M8eEi4no+otXvIGTM9h/3eoCpDgi8u3KEnnj9RvDvoTGFkcR0dWD gSe0535jxIUugsFDItoqWfzdpDyHVVDsmB+EEVHfTWRZVT6HrZtFLDD5EFGj fUns05p5LHx0pGP1EhG9YN6nd2hlEbswK6mTcIGIqi/vcHDSXMIObF1tUDYn Io+/2jMvo5awLhHmGg8jIgqYsKRLkV3G+OwO5v7UIKINN8dAZu8/WOZ0QNCY FBF5xiwFVZ9Yw65vNG/ekiCigpf+lwlZa5g2F9lbWHS7PwacN6qY1rHpgzlu F3YSUewtBdjdto7JXeu82M9FRBdUn18ptd/E/H4fc436xoNenGLokh3fwpKt VafwUR6kdupv0P39dFDbJ2c3/5EHlcQ6G1VY08G/SnEL4zYedOJG1Delfjq4 E8h+mreUB4lP9xzfX08P90kfZJ7c4kHqK9jN3w2MUBDcmavjzYNuDpuvjLMy Qcdys/jaNR7k/goSKk8zAWGoRuiCPQ/iUn/Q9G+ACWIy0jh3neZBvU96vS5v MkOiouvMM0EetKVbIfD9Khu8zrZ3NKLwID+FD+c3GthghN/qGx03D1I08Aja KcAOuzfPDFvT8SDXIzW8YQ3skNGo2i7+nYA6DGb3u0pxwnNTxoLcCgKS6zHI vCxJgLbmTclzLwiIHnd//+IBAaYP/8lgyyOgFv0YDFsgwIHdPxKvJBEQO13r yKEGHiiZ7Lwvc4eAOC01TtnVEKHqZqJzsSEB3ctydBB/SAYxu2vZAzoExLW3 T26uiwwPjXTG6DUIqN05uOgZhQI2+/+YmigRkBalZ7U0hQKcw2eOrwkQ0Bi3 OyzV8oIlxi6g+ZUbKd3ZFxEpzQ8t0mPGrsPcyOhlUPOUPz8o8Fc+fNzPjUxU yvzNuvmBdc6OcaqJG+2iC0U+vgJQko5mIwq4UdsZnRoYEQRGZu93H69zI8Xa Jv3pgV3gNm9AR+fGjThlE0XEMWEYGN2rvt+RG+WXVT97niUMha/6SvzOc6Mw Y/PU4hu7wczpULIIxo2iOxpW2HhFIK990sOZlRs5VueKL02JArnqTVEsHTcS rbMMWZMUg4CsuKnaNS700GrYuMVeDIwDNCx5fnKh0F3XK9onxGBDNlW3opsL rVJHTYp+i4NBjKnIv6dcqEDa5QzxoCT4KvDonozlQnojvT0eNyUhp7flWlQE F1LbrTX9tl4S/pGPNojd5kLdpoMBuy2koChWzOGkHRfyo/DNaSfuA67Hvwui ZLmQOjH6fpm2DKgpP+8flOJCQ67tjhtpMmD3weavmCgXuuj68cHFTRmo3fHR 4CWFCx35cX2X26sD4BJfOz+4yonu1nScVlaThbaEe6riDZxoR6/PvoQaOfij qnnZtZYTLXhbkw7Py4HYwGb4y5ecSDyv2j5onzz4ClwdOpnHifis5RK5nsrD /qdmAa4POVHDu0al43cUIDxRvOGlOSfiDlYv7fVSgoojozP/jLZ5KOsJtUoJ xobieXVOcaLsEl9ljw0lUBPicBg6yokSCwsI8sHKMJU0x7YlyolupzeOnklW gZMpbwx0fnKgdjk9d74VNZh7OLLJNMmBrsj+ust1/DAk3trIr/vMgVzp3ih2 PjgMP60Os6r3caAdrTStWvEjECP2knqwhgPtr+Qx9b+kDrTcQjlKOAfK9OuV sF0/BuFP2mldQRyIKGr6h9MYA/l70xERfhyomXrVMyMfgxDnfT+Y3TnQ5B63 lHRLAOmDWemrptt6LIX0O67g4FWWRKaJcyBy8uPD1KXjIJJZgxKFOZCym8HE o30a0Bo76GbOz4FaY6Knpy00YNcN/vZuDg5UsPEBtJo1oF41Nrhhnh0p2Wja lWRoAuHN/aU8Kjv6z/eebdwNLchp9vnoeZEdreraOb5/rAtPFbw0n5uwI75U CrX+my5EpHiU0PTZkWha9rcYhVPg4elyXxdnRy+rao509J6CY3suYXv2siPF qJ+1Y8Knod8Lz2mbZUPszW19D8cMoPnLUQrdFBsy+EB9cOyYIdScPhyo/IUN 0WtafPmZaAhpYgoX0vrYEBF+SOQfMAKXTnGCVxUb2ju4eFh73ggYJFm9RO+w oTmOXx6eccawHMX4zcyPDZ0vNhazaTeGqY0tw4jrbMhLziB9guEsdPas7l9x YENii7HFJZ5n4WnA9GiHHhuSNri/87aFCch9eK/lvYMNferW0zp52gwsQ+J2 dOWxol+Gb5K8ii9AJ/xh9c5gRQu7i1Q+/bkAsGG+LpLMitrbjNAEdhFEPIQ+ ezxiRbdJJ/3JPRfhq1VGHp8XKxqXsFTo/2sBDuol6paarChz/zU1A18r+PiH JMt6jBVN/kwV0nxvBSfLPEVKVFgRn8lVvdvEy7BvvyozgzQrEonZM+dofxmm +d52ZhO39S6NUZh5rcFtod361ygLMuGTkjgYagO0ooMm8Z9Y0INTLm7HX9qA 4ZVH2tDDgmon79Q1TdiA3JixTHQjC9pYENm7T8cWFt4PLikVsCAXQ0KhFdkO vJ5/v+vvzYIWgp8K3HhjD7cuM77gpLCgj2x2t6RuXIGSrpOR/VwsaGIlXHWt /Ap8xSLcUlhYUK9ZuqPZ4hXQFt5x6NA6M6roMLOo9HTevn8kS4y/MCN9Mx9M 3s8FUs+eKntazIxC9tdarWT/B931kTE2z5mRtSCHO/3sf8Cg0Ochk8mMXjxO cctTcQMHooXim3hm9Pys4seeVjeQff9fxVgAM/JVZ2orW3EHqnb0K6nTzGh5 CPO4ePgaLLz8ED+nxYyaVc4nR9pcA4m9O29WAzNy9uvrEoy4BuGMmap6isxI JfvwhyNj18AIVVS57WRGvPt+7qyO8ICxwwM1L6eY0J9nvwJUVzyB7uAeqmYo E4pXnhme57sJ/nzHLUNvMSHehhWWLaObsLJl87fpJhNSDVO7//DBTZjtzVE/ 5cyE/EZ+WysweMOwt2yVkSETypIq3flq2RteNR4rvSTIhHRMSPyBf3xB4YWV 0TMyE/KZ4f7Dd9gPihKCfo9xMqHlgaOTmL8fZDm/O2j3jxGVrCvxaTP5QwxR P9/5GyM6v+lWbyAUAP9ZWGTeLGJEHBndRBWH2zCldUujOocR3arhYrUouw12 h9K+rD/bXv+9j19i6zZcYBjfcyuGEX2/OeZvqB8IOnkuySE3GdEvx/OPin8G gsSS7+Po44zIj+2YeIj6HRh68PRuwQcGdGfoq8Yz4VDoeydSeLmLAdVtLMRn 6oVCx1Zu945WBiS4Q4dxyycU3nq+EgysZUBahB8qbz6FQsbFvgKTTAZUJZOe ZZ8QBs4y3N1/rzKgsT9E9lGpcNhoCxQw4mJAtNbhGoXoB7DExHaMmYUB3arU 4JRofwCz2CPrmi16dH19/1wAcwSMlaXkSyzSo44Yk6b//CKgMbHm6NogPfK4 Lzuh7/oQIpyXLmfk0iPp38lOsTaPYBeH0/MlDXq0Mjo2W9YbDZZvOyLEjtKj 8NxSn961aEj3kL9qpEyP4rQKu4+IxoDk8LpKoRQ9enLpVMD3qzFwqPBhoy0X PfpnEspXS4kFDYPyz70f6JDZnvbjRY5xcCXm345SJzp03FpEO1YvAQq1bddo 1nSI7lWib4J/AsyuN49wXaRDXM/0aueLEsDDNjrTSZ8Onbd9tSuf9AT8lSTk RRTo0HrFeSOV0Sewuyj2ye6VLSo1cHJxV2giuChLMw/v2qKGKQ4qHBRKBQ/m 6lwvni1qCfXNx0KzVPD9cPIUmWGLWn1BvTMiJhXu37B/pPv9H/XNvh027pzP IP9lmmBV6T/qC6cEmwm6NPihzC/7WPsflfllwVgSXTo4qjCZG179S9UJn1v4 IZkJbiyxa9M2f6n2NY8l+PQyweujaHKY6V8qThSR8HHPhDAv+PLmyF+qVIaA 1XhVJuS88nU5wPyXGh9+MdDUIAsmVOZvsyduUuulK3i6g7PBVpWW19CwQW1O ZbsfuTMPHPJUzbQrN6h2ZyJa2TXzwFkwmrE1f4OaLhCF17jkwdUNTcvO6A3q 71yP66/f5IE/9Tll0GqD2nD3oo6m3XOIO3nj1uzGOnWH8Y+h+6/zocmcy0RQ aZ1azL+fgSmuCFpb7OmTpdap9wz7eq42FEHHYeqL3ULr1M9eoZH8i0XQK+TB LsGwTh146neBcvYFfP786a1s9xr1zMMN+pYdxbDqmLn/hOsaNehtfpjo2RKQ 9j6y5Za1Sh10XFSWWy8FNGog/S1+lSr9w/L0Gn8ZmGnamprfW6XuK77cPKlc BncIEQXgtkq1PTAgd8ijDAazRs2JaqvUjanIFzd/lkF4T2BJafsKNbTTIm75 ezlMSjdbLy38oR5UdOvn3HgJ6aNnG32OL1M/LT9PIsbVgMK4wnq/0jLVhzuI sbqqBhqnSXJy+5apDuwJZ4NHa2BypStpkrBMHUonlgRIvQZp8mnPsyNLVNv4 GHv2N6+hTPuE2MGbS1T29gZ9/9laaCxWChwrXKTSao4xUJ2p8D1ox9GTAgvU Sf/Pgjm29cARUPw7lmOB6mxG/MnqXw+y3rqZY5vz1H+VARH+cfXg5RbA4ftl ntpPSuJKfVcPLBcnBgrz56l9qvHv0b4GkFB6eYN8bJ56kORT5bvQADaTJsWj 1nPU0EVCpVXsO6h5vE9ryuwXlY/F5pgMayvI/RhcOpQySU2zN3zIrtQNJ2qG 2f+ajVEDBqZcmXv74Orz4lUSpY9a+1SY717qJ5AjuAVrjPVS4z3v9zAUfoJ5 jwMEz6Je6p9oU/sb1Z/A4+hz8f6TvVStFrv6E/2f4EZXhkG8fw91vciR/T77 ACxOy+gqd3RRXx179iDZYwBYglfTtD1aqSc25ZWMsEG4e/rGq1yuVuo88+3K 2lODwMa30M6W20K98Sw4YI/5IHA8n/nTNtxM7fyaGNjsPgg8XbTThlpNVAkf OPgsbRAEhN6tmgs0UCObT0ZfpBsCMwfx9F7/aqpu3Av8VuUQ3L/mGR7zsorK x/ROyLR+CN74N7gbz1ZSv8iuYyLvh0Ai1hbrtXpF5b08xxf7dQgWqJnDPRrl VCdCgMgPrmHYrahzIIOUT3VqyHY4aTUMc0+e2s0/taGmNOpdNVsfBn+GuHfa aroQm98r9ZhxBGQTbZt5VdzB9sFdniauETirOFAbdjwEuOXk5f/tHoFrDi4/ GuPigY5vnLtJYwTo6F5u2b7NhfyrUYs5d0eguWPwvuLZKgh2CRHQYRkFJ++h 5osy1XAp+oGDEWEU2CSGmUIYa6DkJ8s5bb5ROOU3cqu//DU8qtQaX987Ch37 P3vc4KVC6PM/X0JObK/X9Cganq4HdVLQd8KtUVB7utD+26wB0NfKHdMh23q/ PaYZGxpgfARbLH0wCs8TPaUOJDWCGPFoCOvTUZiev57ur9cEL8uP32opGwXX tJuPhQtbwfv5z7PxX0fh6J+VcnmBNjjb80lFZWoUuE5792qFtMF/8lnrdb9G oWjFm8fNoh2Wksv/JK+OwqyB7723XO9hes46zIqbBm+z1nN7vd+DzMSc0iUy DSLXfZsmx9/DVLu8qzY/DQ7l+DHyvOmErKlGvWERGlTdevu2WKUb/tUcr+ZW pEHa83/vq127wdLYIN5BlQbh/dhoQ0Y3rBuffpGvToNz0tSNT4QeaNC3c1nS pMHaB6oa3fce8F222//wLA2+0tHpcAj3gt47hZ+YOQ3aZHBz3rO9UHVgPGf4 Ag0Sg9CNfdReKCJmT3ywpsGRg3VlRgl9EHpO7G2HGw2U+z/Gv23tA5rTqyMZ 12gg5/fT98BmHxBmtpTtr9NAspVfk826H/S+344r96GB6NWDUl6x/aChMf8L 86fBLn5NzvF3/fBl9mFZ5S0aUOzd+qjSH0DNSMnlWjANCFwhlQcvfYCgF+Fm ZaE04Ch/mpT06AOc7UhJGrtLAzr6d7Y3lz5Aiwa/OHMEDX4mCy3Jvv0IM2Gi 1P9iafBdU34gee4jpJxy5BF8vF3vtHYth/gneHKKKaU0ngaDah4hk3c/gfLj FLv8pzTo/3zXyaTmE6QJCj/lSKJBd1jK6fqfn6DHcn3LPJkGTf0tvKlnBkDk 2ZmLNak0qPOjrXKGDEASyU6v6xkNasWWRnxeDYDwcWb7njQaVLay132fGoCM E+dyUDoNyq7uyTYVGgS6zQzulAwaFPEr32vQHwTYYfDUIZMGeW9P/ScfOAg+ pImTwlk0yLK/fOZZ2SBc1uUTqNvmZ1xeytwT2/Pny9iMs7f9KX8g6Mc/BEW7 igW6tzn+QvrfKd0heFsnelI9hwbR9JVfzPyHoP/1idjYbY7I63jX+GII6Duv bw5s813Dr88VvgzBZpb8Hc5cGtz5s/IwjTIMpQPCEjLbHJDC7UHQHoZLv/59 Ud1m7xPiZv7ew6Bp8ua1/DZ7zqgdmc4fhjUXu1KBbXaLMdh9bnQY1ALFGn5u 6zsftmNo4hkBy1ad+aJtth/zmVTc3vcuLnpHLbb58t1HbenXRyDxel3Wyvb3 W8hmv+DJHYHoYTuZwG02/1ATEzA4ApIB5J7l7fqN/bu9ZjhHoUqwLf7cNuuL T144j40Cr/GLgLzt/um0bWDNV0dhM5Pp7sR2fzWvkcSVM0fhsINyBc82YwJS rJkfRuFkYzuL1LYfh6lHZ4hsNIitvhEos+2XkoNx160jNDDkYhIX3vZTpiIg 4cL2iF69nW7e9l/yYqxfS8/2eyyO8AZt50OM4bmVCtNnePZLzV0qkQYCRv1S 5CufYXV5qEE9YTvPKz84A5M+gxP3t/rn2/kjpG79/vX+M8zhqv+Y4mjA4LVj xE5wDA7asKsER9HgwuX83iqlMVjcHLILiNzOyylo5TIaA/UD959Yb+fbZs+V VxVhY/D12YrI1Hb+a9j/FbJljMGci+Pt+9v7g7wUk2nxZgyGqvj/8G3vn/qW 2iimpTEolc46PhtAg53lZ+6e4/kC88IFoof9aOCRMhlQKP0FXFh05Ny8t+vx ILqYWH+BVeWU+XgPGgQL2WlldX4BR8VL1d/saTDCvKa++uMLXDzrWRdos92v uYcKp5m/Qprww4NsVjQYb6zcs6T+FYQcFww/bp8nJ9w41zWff4Un/MmJV3Vo wFRX9uJb8DeovB72Lmvvtt8FJ7NVn32DbErL0sz2+VbxeCTpQc030JDCduze RQM7Z5Z7ivPfQM5L4azm9vn4jnLBNthyHBguv5mN+TsKYQ70AuKHJyB3b3Kk Ufco0IziCTdNJkD2RArz6bZRUFGXYW53nwCPR7xSio2jMMljuuCRMwGM2YEp jZWjoF2d11FPmYQ6Y+7O5ZRRYOUyCrKZnQSnv9zXUhxG4ZzUBaTC/h1+fcgV 9rcahXwNuy0Oie/AnXeGU+fcKBj4eAeUn/8Ok3kR47m6oxA/mebD9O47tDyw kL8nMwqSdfPXcpKmYDl54/XnmRHQ8oq1mdaZhpQG6+eGViMQH52S/tZ2Gq7t DXJeNh2BqcLcsZhb07BTj+fO/dMjEPHttaV6xTRkVGpu3Tk8Av1G4xci9szA uzcdmsXkEbCTUT4r+2cGvK86jzLXD0Pw2EdNj8xfkLPl9FV1xzDQqvX+8679 BV+5d90s5RiGI7Eo/taHX+DyVJ66m277PtfK/3GfdRZItcIl/dNDYFkQ8CjT ZRau3wxgKaEOwREvieF+xd+gQxU/ruQ4BGvMh6uFbOZg1w1i+GLRIJQkhRnd WpiHG6aDUzd2D4B7hh1x3GwZmEYDGNMv94Olc6Lw3aBVcMkQ1DhU3Q33zngd VkzeAMKdbD3he23AxPt48vb6P7C40W30rLUByLO3CGTWLbi8al19sawBRFuc VLIoW+BFueYtldQAmP/RsJYDW+CjzSv+y7UBfMa/7SVZbcHuG8u4AqkBZisU 7DMatuC/JLXuAot6+Ck9dc1Gmw636CRXPN5CsMQ/Glpwmg5vfpv5RX8awQZT 79MlYzrcynKHLd8HBByfX9eFWdHhQU26NwfyEUjFPiIVeNPhs13V10XNEdhs qJQu5tPhihL3Hz+2p8Kn9tC5EB56vG52V6nUr1qIw1K0TPnocX2jqKjghlow Lq1I3CtMj3NyuLayJNZCZ/y3E03S9HjCBUPj4JO10GR9/CmrNj2uFkBZN8l6 Da9WNo/f96fH8SdMhhftayBe/Hrsox/0eC9Ltu4UUxWYxD+YspqjxwW0Dp2X HasEMnvmMbkVelwvuckn6XUlRM72fO9mYsAjOoO6pz0qIaz60FGyCAPuKiS8 bPHtFXgZzozHmTHg+kdeHrnb/hJM/WxUEhsY8OjFX+M5VeUQn8LLstLKgM+N zWV/SiyHj9SmD2e7GXC6EsfD+wPKwYxJ5gb3KAPudM8hW1ajHM49XCwP/MOA P1ix31f3vgwuPAuRd9zPiMtbDrKvTZfC5YacA0qPGHFfS7EW/WMlkDZxbjPq MSN+LEo1IkC8BL6wcnb8SmLE517c1+5gLwGb0+4uuXmM+KmeR2URRcVg+0E1 f2c9I05i5BYxG38BDt9bpOiXGfHni7/PGlwqAlfOGbHOC0z4E8fK211++TDj U8PEac2E32F6yhJslA/OU/cmTzoy4QHnLkX9tzcfHN/ty6/zZMLPKPlSvnc9 B5vbDvIvI5jwXRw5aY5Sz+H84hdIfsuEp/OlFvqP5YL28ICFsxgzzifIzPDZ Jxve6eZhufuYcUK5no2kaTacqLopMi7LjMeWlNc/k8uG44/5xi+pM+NPisRH paay4KihicsZE2b8qaDKRPj5LFBo6PJRC2PG/TbWrl3RyoQ9BU3xLNPMeHHX l+N+eDqYPKuqbptjxs9MBirw70mH+7H5I5ErzDhvkXz5979psOQXKcbPzIL7 OrHf21ubBm2nzV5IibDg/wRvBxPU08BrduKdjhkL3qUbtL89JBXeyzMv369n wRc+xu4znEkEBskVfsNWFvxKQLfsx4pEUNv54wilmwXv/33nWdWtRMhgeB+Y NMqCM5amckdSEsG7L46rcJUF75g5jLsffwoSNyQk3suy4nGecKewKAH8qjTP 8iSx4pVvT8tIvosDBYvuOat0Vvyo0YdhpeQ4mN6yiCzJZcVzck4m3fWMgwsn vVrPVLDiYTHaf1bE4uDIxzyIe8+KK+cbza+HxMLqIvcBQTo2/N4pcdnjpjHg dWiASdyeDWf/XEqNlogC2T67DE8XNjyBz/7uHcYomPSah8ZrbHjY7IrVhXeP wPQth5/9LTZ8aMX04yXNR6Ckf2w+N4ENP2D+jFR5IhIWnTNGD7Sx4cYlbaIH LCLgao7rK5VD7LjRi3ouxqFwoHUJPSaosON5sVh9V1o46K+1eU4eZceHMlvt CU7hIH16v3z8KXZ89GVnNm3lLozPTxQs27PjiWW6XpW77oL5Mav0imR2XGX1 zVKxbyg0ORACIzLZ8Xfi4KyjEwpKUW8s7fK39Wp2fjrJFwrEb0K7eKvYcfdR oXnv8hBoCx+I9+xjxzvN0hqjF4IB6z8TocDBgesGWUlwB9+Bwr90LhwkDty/ 2ILcbHYHhKRKdL/yc+D7N06VjkrfgVUfAmvMXg5cyXckfHd/EJTtaQ+axznw A2WXvUalg2Cvy4mbJTc5cEbxl0UxPbeBi0HVRnaCA88nFZAfnvCD6puMZydn OPCYiou9uxj8wOFXl2bqAgdezVZUpY58AQ047SXQceLzahtLYpgveBYnTv3a yYm7dO4y98N9YMjin1uRESfuwPnVyMfyJtztbbOyN+fEyQovc0IlboKSToKR sCUnjrM65pJmvCBSUU7hoQsnHiEitJLl4wXHOWyWXcM48d/nz6k8S74BeZXv /A7UcuL6RWxhgmueYHowxnW8nhPv6HTGKpo8gSHT8lJyKyd+MfftFbQdSovI FYzrEyd+3Pnpq/0KnsBjv5/h5zwnvjm4XrPPwwO8yA/DC6S4cFv6uWURlmug 9Z/JY+lYLjzfTuPL2pwrXI95Tef+lAs/uKC4cSvfFbIqxVzLn3HhHDejXVPt XIGBYV7jaCEX3n7zRGvukAug+Idz+u+4cNX0yoXG985wBDXpXVvhwiVTXN4q dDnBlYmDlS//cuFWo2pnB6Kd4AnHY7F1Rm68vZ/UxWLqBCsmtmt3iNz4tSML 59ZHHKHix1ZO3H5u3Lf1n+CeRQeQpRxmqLrIjQfUqKTfVrWHS2pp/21ac+NB cfZ9RxjsIeIS6yDuxI2f/7qH3/29Hczkfihuvc6NB9+ro4C9HeQd9bg0/JAb HzsQumaTaAviDgVV/6jcuNprR9KcoA0IVAu7a0kQ8KTPjLvkui3hn22uEEmG gLvFVIX2+FjCOEG+ZUSegH+D4quGEpZQYndC9DoQ8InSuxyDfpfgJNGlL+MC AVcf7Bv4pWQBXo5VqnTRBJx3YXwo4P15sCBrjLcnEPBcdf+jLCHnQeNNe1RC KgH/PsBdo69+HgiUzz9kCwn4rK7EPkrhOch5y5x8qZmA65j22ujEm8OHHWfp Xv8l4GIvpRNmHphCDRopDGPiwXdzComk6ptCmovDeWNOHvx8dVj1Mo8puNb5 lP0Q4MEfLEizR8abANN/aXYCSjw4D1uF0uGCs6DU+KvlhjMPvtUQrqU0fwZi PMKj5T7x4Om/lH8YdujDekdhVfgoD65w99Rhax99sJHq+Tz2jQc/vqkneVJK HxRHBGWj53hwruMV8vdCT8N0hunEKhMRd/RTsCjV04MIru9B53cTcbdPeUmr mzqADvs8DhUl4qvnx3i8XunAkgPn81IJIn4qlkut4KoOWNQd6maXIeLql/Z8 V/5+Eg56ee+uUSXiAuTps6kj2tD5mf31zjNEfNfRFNaz308AA3dyp7YJEdd4 /OhBeMEJUDki+9XDnIivGPsbW1w9Aalxxuztl4i40u+tNwMbmuCum2Tu50zE 19YTdDcFNYFYfmBpOJiIiw3VcpZdOw7GYYYHU14R8Yq/fTq7OY9Bzvk53epq Im6Ve3jdu/IorB2IdvhQS8RlBNzuldsdhbS+3mfcDURcOOrza2qdOvwSMSPf 6iLicw1a7WuhRyD8tcWK5RQRt/Wxo8gqq8FI5F+K38x2fdyshlGzqnDIJlUu YZaIhz9zMi/LU4WPbGNXupaI+F+Dg5dl96iCuJntCNCTcF7dWIU+XhV4O3el TmQnCXe0qF3WFFUCciMH7agwCY8ymbTsmFAE+4SC9XMiJHy6VDlvNV8RuLBf itGSJHzozXN7FVVFOP/gag69Igk/p1S8Z6e5Aiztvfngqx4JV9nwbpculwOd Nf68fwYkXMm98L1KkBwkdVQ17jQm4YKseh6dhnKg4bn+1/gcCd/ZfJ+iMnoI HqGAqw12JPx2VuxPZntZkL4YYpoVQML/06u63JIlA+evvSIzBZHwXNfzdnSn ZCD87lSXbQgJr9DYF2Q4Jw0T5adPiT/Ynp/pXiKJS0Ma1w7IeLKtzzylYfdz H+x4m70vrZyEZ8WMCEddl4QT/Z8mtl6RcOurusGf9kuCxzR7plUNCZ+XFhRk G9sL3XxuwnvqSDjUvzq303Av3HdXIad2kvBsm2K116oSQCfavJH0g4R3tx8r b5QTg0Oqa1UbP0m4Oav1UY9FUbDUl/G6OEfCneK5Nr+8EoXXPo/mdq6QcI5L Y+pbIApeveYTT5nIeOBek57FCyIwEzzVmbCHjHOExDl+sRWGnYk7I1bEyDhp B/v30K1doFNyWtdckox3Ct374pq8C3JGShr4DpLx5p/jWouDQnBZ2afq8REy LstSueJruxM+TrJnxJqS8am7Xc+tivihyeRecvU5Mi5Jv/7o92V+eFXPlvD5 IhmfDL3N5rSDH+JTWSNkbMi44QlmF7YgPjA1Y/ZqcCPjcPhYELLZAf3v6E4t 3iXjtmQmm9/6FGhUDDwh+ICMZ7gzFX4hUKAifQuDSDL+u8baPL6bDHEB/xQf xJHxYQ1mIcyMDGeVN4XF07ffp1kQq+dMgt6slXnjGjL+ILhnQMKRB+rJN396 vyHjsVus7623CFAW+GcyFZHxI73BbV+fECDGYnl4uomM/zpqLZbRxQ1neBff 3ekj43saTiuV6nFBd/Ds07KfZNz8wHAeqx87oPn/4gZ+k/G3j3Vf0/ayQ4nV r8h/C2Q8NP32voYeNohS/xl8am27niL7zNwDbGC4+OO/r8wU/Gv00Pi9WRbo tJk4Tt5DwYuCEJJIY4IvTLmrj8UoeKlPk+VlYyZYynEqFpSk4PcLd42UMjOB 4MzMLtGDFHyvSfTcXXdGsPNcWDmkTsEtFBRMUwwZYD14q0jfnIKv7qXy3cTo gFuyzq7nAgVP3aop96SjA5GWO0KmlhRcMZphOT1sC9PiYrlnYU/BXYzpFDUT /mFRcVx2Lp4U/P2J486xHZuYZLbgznuPKPjxju8uj+6sYYdPDndzxVJwYzn9 o6t71rDTP5LvRsVTcGRntbv97Sp27aDIckIKBU+6shyXRLeK1b6U7M4poOCD QsWiNnF/MOMmxbDGZgoe8i4w6+HqImbvtHxUp52CD2suJf2Xv4h5c1Qutndu 62fmXLx6aRFLMThi3feBgisPFep1Ni1gUx/xo1+/UfBeynun2znz2Lo3w6L9 dwr+8oA8lc16HuMWanz+Y5qCM537dS5+1zymYHWSf36ego+nhv0rjp/DtOjZ O68vU/Dgu4ybSqZz2LnMtpDV1e3+23XvKeGdw5y1ItT9Nyk4Xma1pZ7/G/v/ /5dxdnlPnz8HfmP/AwvcHcE= "]]}, Annotation[#, "Charting`Private`Tag$29540#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwt13k4VO/7B3DKbiw5ytIiSxJJJSHqnpK1SJL6aCHUp5BlpBRJJUqLnWxl bGXtg6zJmcyxFCHGlm1sgyHZifB7vtf1++Nc53pd88ycOc9z7vdzH1k7V4ur 6zg4ONbQ8b/z/WHT6bU1jJb6sCrhwItQYHlvmuv8i9Gwzj18/0WHgplo70LR H4w2PjJusi85FLZru624zmC0E95/bfRLQ6EiKIyPycJoQl+N5vNHQoFvT9s2 2neMNkWLIGcZhEHELdsTfnEYjaowGibOGw6ZnB4pHJoY7djfEJUtsRHAfdVw v9QlMZrUmMo6H+vXgLVXOieFbqCddJLoZZvEgwU91n7XN1Haw76hQiOTRPD+ fdg5ZECE5jNSVrS7KwmK78Q6fjglTJPZsdx0+X4qmIWd3b4aQ6I9dd6sXBH1 HgwTPpsZjQvQzmmJHhZnZkJa9d1Wjwv8tICImGc6Oz7AZf+IjQ3veWnuGuo5 Nyi54Gu7PkcQ46EZWDuuuBjmA4eqDK73hItmaoaJGsoXwM/nMYGZLetozTpy KZEHimCLwPX02WOcNCsajePSrhJw0lDm7tyyhue12LtzG38Ce82e93T6Mm78 2nPu8PnPoOx1aM0lZRHnio/t0NDEgdp9hrh7dA53TgwqfBxBg+GHG3UNJadx F9lbFiTXL1AaqaQ/YvULl8iLtfhhVAF7Rztm1RJYeG6zFf0JLx1uTarukvBn 4UukGLutAnQoXnh4adWRhTeShEPySXQ4yqNcVafFwrfkNYd1bqCDhfy96BuM IfwptVBBegsdPC9JH0oWHMJlB/f1m++lQ+kP6web7g3gHxWXJRLP0eF4aSf/ ihUTV7PB1KhUOuRkpGpX6zDxHo9uOk8KHSTjXG+Ebmfi9rzPPR3T6NC6wBN2 gtGL18oH7t6dSYcd3laiCUs9uPa7nubXH+lQ8XCORDbsxmdWc2w3VdPh7yt1 ngBmB67CuWqZwKZDo2v1VemMDrzUc16icpwOyeYXKnM8OvCVpnAme4IOJmKP /dt4OvDul8sP9s7QISayad0u1XZ8qObMYPIyHQ7Gu6/V3m3FfWc/ZyqTCHBL /7C4AWvGV7gzY/JVCNgr7PL4GLMJ3xxQ8eSeKgFTlN3CHtlNeFY3OQ3UCKDo psszDJvwhRzKI2I/AZ4NSWZRPj/w++yvMcXaBMywVYw16hrwkMrmVmNDAnge LyYaUL7i1oKntISuEBB40rPwHekrbu+VXxFjRwDfpulavnc1+FMld4qCAwEC 6WPz3zqrcYtOTfKBfwkQaeg5eUq/CudPqX16+CYBkpsrF89J0nGPfj+XeS8C rK7JU5t8SvBbr0oyVl8REOTu8TSsoBjH7Y7dMwoh4LMP3dViogg3sRL3DAkl QCHc/kiTTSH++qrKmHQEAdN4cuePY/n4E+nrDVIxBGxTN9qdtCEDD31ao4In ETD5OsZhKsYOv1rzYiz1IwE+6yIqDbSMoSpY7MHHAgL2xNpXix90hR63UPUv hQScUW8vCzjqD1abLFYZxQS4X3MaJSKi4LE3U4xVRgAHR8Gaffk7UNrJ/pNN EFBd1xGkfqYY4OXlkaYmAq57/ay+oFICOWHbGYXNaH4UOrn815fCp6fnHr1m EGDi3eXLyP8EnxxWFc62ElC3q5fiKY7DRZ1T3vkd6Pt6lOxOdgWoqlqrcTEJ 0IqZrv1tRYcII29ZApnvN4W9nk6HYKH6Hw/7CEiP9di5O46AA8YbnOf7CWBP 3aL6nKiC7Ce3/IghApwT70RuzfoKbwQM52fYBOjOL+Tvk/wGysJC/wWPEUA6 6dWk7/8N/qnzUdg1TkD2gpeIy8VaUDwRqnv2FwETZveelZO+w6ZnRxTCfhNQ nrL0rsnrOzQ7rWRvniTg1dK9KtbgdyicHJlMQlZL814v8rkefjhHUjOmCCj2 LS//cLARHJJi09/MEJCYvvq9xLkRlNpFFjfOEvCUcaSbntQIF7c5rAYhn1fG l9uEf4CD9ob9LnME/GnBtTiGf8C11Xv7pBYI6OfgMBLY2gQtDOYhX+RvKuRz 4meawLSHd5mJHPuQ5qmENwH7u+Tbt4sEHFL9kmce3QwMJpvCuUSABqM1qvxr Mxhttyo1Q97rPX5v999mWCw0Xh+LrPhVQo/vCgOCfW7FKC8TIOumuvN2OAMq bR+xXJG3SOgJDlYygM1TdSAfGbvq0owrt4C+QRJD/S8BwiT/ItVLLRAkt0nR HVkgPyYuLrgFRgxue2Uhc3BW2t+ZbYGj+4tltq4QMB6/eXZPeStk8by4zUIe 1tvXHj/ZCiax775jq+h+2QZlAvJtcKxbcwcgd2hR/FmBbXDS+0lLMDKjN/C6 ZWkbpNeo7ClAbgxIOFkx3gacGZKB7chVjBrxN6fbod/yjbbUGgFfvHsWBf3b YX2SQvhB5DK52a67he1wLqhu/DRy0Vf+L8Mj7aB1+JWBE3Kem0zq2c0doOtj l/gIOVtC4xndtAMOxx1bikZ+X25yc59fB1z0U7LMRE65anv6bV4HcKYI55Qh vyXd1hAa6oAe0UneOuTY/OdS3hI/Yd6+5koHcpQ1dWXE+CfE1oV/GkQO5Szq s/L5CU6kUxsnkF+8r6skcn6C3Z0FlznkwFP96fv7fgIxE1SzhPxofuFlItYJ Gku8cqvI9xOEKMIGnfA+8qb3GrLXcXkrH69OcLb/xPjf5x5jWofYGZ2wPXxK 9S+yS5jZtvPdnYCzRAMXkB21HdZViXRBbJ40cxL5KvMuS/1YF5ztFtUeQbYN DP5GvdUFY71zod3IF/ek5oi864KMyjp2I/K5ltKw+x1dsG93jF4FsoVP4+0x wW5w17OJz0U2lWdZ/3OkG959l597g2z0bflItVs3XJEZNw1C1nPfIK+R3A0U mfI0D+Qjkjt5k1u6YcYgcc0aWRvXHRPl6wEDasx5MvKBaxYNvod6gL8uN1ce WeXj/Wjrtz0QNGjjMIjWX/FCuHfNjx5IG+Et/4Isty7d5iBXLwyPTkskIEua M3aK3eiFsPNldabI2MKooF9cLxTczN0pjyz8Zu33r++9YN+w6fE8ej7X3d7Y 5SDFhF/C13Sika1tM5qKDzChT7zgmC1yngl8JZkzQezgpSlFZDuZG4UfA5jQ +ohHPxs9/6X8q1l8SUxQfbSX7YwsNhuWfPEzE9SOc2sqI1fUlIVwzTKh7hJ/ TQKqL+n804HnRfpgR/O/JEtkSgLrfpZyH7w0aFjkRZajiDpZXukDJs/2b9dR /T7e7KCfUt8H3CvEaeE/BHRx/9FZHO0Dv+krHbkoDw5Mvtx/krsfxATZ/GeQ B4kimVmdfpBK0Ln2CuXHcRfBJb30fphgBouMovzh+pKXM/B4AA5Fso/vmUbr nWmYqvl2APwM2pyyUL59jOyKe146ADvS+I8oITs48jxTnxqAaJupQUmUh5WY tf3jy4NAr2852oPyNOAap6S89hA8gmq7PyME9JhHCd+xHAKXf/0tLZAP6qhw 17oOQc/y+9n3wwSwRM5OU9KGwP2X4NFTLAIMSt7XVWAsaMqJF/UbIICXZP7Q boIFEedf0ijdKD93WtMO8g/DP/eGPDK6CMg45rAmoDAMii+ZE72dBJjd9bqf /88w8O6s1D3+E9UfK/EuV+UwCGhEwzTajxS/TLmnxY0AaW7ntsEGVD9dy//d KxyBu1fqnRbrUd4ucE+a/RiB89J+TwSQXfZIuyzwjMLXrVrblOoIKIw75mhE GQVOXf9fRjUE6N8Ot2MbsWFFXsFEloauF5pALbdnQ10l874YTsBI1jtmmC8b jKSJR5zlqN4HPl3W+ciGVxOXODs+oXwzH7R+ITMGN43fdN4sQvOronFmz/wY mNmEWqrloPVmtupRkn/B6u/ZFSwWzWfJiZteZb+gKsR3pfU1yv9wWpRvyy/g e/1A9nU06gf0M0aDeCdgW7ZJu3gkAZcz7wcnO01AbgVDYDEYjb+t0MlQ/w2a 2M/mq0/Q/sOtXbLZbhIcj2SH9LkQkEaZ+f7GZRJSb9ozbqB+xrI3u1/WexJe CMUYTToR8F+xHEkpYhKkTRSIhesEXHMi2RyomgTL/UexKdQvMRp7uUyVpyC3 +7zrSys0Pi7A3Hd6Cu7+HdzhpktALRYwLMIxDf/EYxmxh9D6P3/iSxWahtmW hK10LbT/+PhnEUrToOas2CKkgfbPi4/4BG2mQSGeERWE+j3brb606Npp2KAs /kt2GwGibz335qbMgP67AaO6FTq4JjmIDlrNAU0juulAER1e3Y2Jf2U/B1v/ dfrLW4D6X/N6JW23OTDe0uzbkUeHiVXNo6+ezQHdsyr4Tg4dnC8IUrTK5kDJ V2PmbSodHMXzml/IzoNqralxUjgdrgWsRWmMz0OYm3iIuwsdLjvGbg18uAhR 61eKLsvQ4dnp29rq8cuQ5qLOOONRAVzikawHS6vA1Xj2yCD1C7TVPpn0F+Ek Hz7pNu1YR4Oz3nYHY+nryItJ73scMnBwFhyTq7fmIm/Qppy0qfoMMplVUTxs brLng3Gl6u5P4F2sd0YkjpcsVihnGkgvAbc058KDavxkxeWkOZG6IiCt07Tb MyRAvrb9Ssne/wpA/6ZlpHI4ibyQeXo/ZOSDZMlWV30FYTIvkzelsTUXwihP Q/e2iZB/LTgkmw98AIuAU6oJhaLkE2WfBn8/zQLlC/5nU+5vIHfz5kT2uqVD K4s/KfysGLlFrqGixjwN6u2GjorJYGRbj0RRicRk6ON6txgph5G36Jz9GhGR DLNp1z9IKWLk8Qq/qU3PkkFqbGyLrCpGviSeG6JESQYHj+kFNR2MPLfeTOjh 8WRYeryWbXoOI1837xLlZSeBYqqU9LNgjGyYL+f1r1YSaBt2NpLCMTJxoU3b QzUJTo7GB4ZEYWRNvTinx3JJ4K66fS46ASN/HFnalktKgrICxca0TIzMEnKq ONpHBYsq9QCiGiPbN6f1aT6nwtXrc7pGtej/DG+JDvKjgpdA0UxtPUbOaYgr 7fOkQoLZoSvNLRiZ5rVqkmBLhZFWsm7/AEYu6hZ6YXyQCkte62auDmNkzojn WbgKFYQ2E+mjbIzsu+CnfUiWCvttDCWmptDvFU9E65KooM/JX39rDiMP35u6 TnBS4XzyN//FRYxsV+CXar6QCI76L3R8/mLkjQKXTfvGE+H/3+/J9R+MbW/3 J8L/AbGxLVQ= "]]}, Annotation[#, "Charting`Private`Tag$29540#2"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-5., 5.}, {-0.0710264641206853, 0.4995605003797784}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.762151585505855*^9, 3.762152534527875*^9, 3.7621529087290545`*^9, 3.7621540783459487`*^9, 3.7640488788092985`*^9, {3.764049510039469*^9, 3.764049517348702*^9}, 3.764049550855111*^9, 3.764049809639182*^9, 3.7640498441908035`*^9, {3.7640498768155117`*^9, 3.764049893890875*^9}, 3.765606630070722*^9, 3.7656068233279657`*^9, 3.8104669253860855`*^9, 3.8106652437802744`*^9, 3.810665476769433*^9}, CellLabel->"Out[111]=", CellID->74178432] }, Open ]], Cell["\<\ To assign weights for each individual data point, you can pass a list of \ vectors matching the input data:\ \>", "Text", CellChangeTimes->{{3.7621521839293776`*^9, 3.7621522365446258`*^9}}, CellID->492233590], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"fit4", "=", RowBox[{"MultiNonlinearModelFit", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"dat1", ",", "dat2"}], "}"}], ",", "\[IndentingNewLine]", "fitfuns", ",", "fitParams", ",", "variables", ",", "\[IndentingNewLine]", RowBox[{"Weights", " ", "\[Rule]", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"Length", "[", "dat1", "]"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"Length", "[", "dat2", "]"}]}], "]"}]}], "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"fit4", "[", "\"\\"", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7621521142906313`*^9, 3.7621521651705484`*^9}, { 3.762152256629904*^9, 3.7621522694745784`*^9}, 3.7621525251898737`*^9, 3.7656068272197123`*^9}, CellLabel->"In[112]:=", CellID->105305656], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"amp1", "\[Rule]", "1.1954200469234961`"}], ",", RowBox[{"amp2", "\[Rule]", "0.40745284221341393`"}], ",", RowBox[{"width1", "\[Rule]", "1.004875498500223`"}], ",", RowBox[{"width2", "\[Rule]", "2.4899338063344745`"}], ",", RowBox[{"sharedOffset", "\[Rule]", "0.4466183039391758`"}]}], "}"}]], "Output", CellChangeTimes->{3.765606828163822*^9, 3.8104669295459337`*^9, 3.8106652447028093`*^9, 3.8106654793784904`*^9}, CellLabel->"Out[113]=", CellID->525667469] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"plot", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fit4", "[", RowBox[{"1", ",", "x"}], "]"}], ",", RowBox[{"fit4", "[", RowBox[{"2", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7621521142906313`*^9, 3.7621521651705484`*^9}, { 3.762152256629904*^9, 3.7621522694745784`*^9}, 3.7621525251898737`*^9, 3.7656068272197123`*^9, {3.8104669320595016`*^9, 3.810466935634844*^9}}, CellLabel->"In[114]:=", CellID->106129790], Cell[BoxData[ GraphicsBox[{{{}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw11QtMk0ccAPBCAXkUKa3KymTTIYuvKrMKKro75wTFaDY2hvIQlLWpkuEG A4ZQ4zbngPKwDjva8AYZEKbEIoKM3CEqQzrDQ0ChiERFFLO2wpgg4ma//3dJ 0zR3/9//0X7XpYeOBkmtORyO9P/Xm3dmLaDyhjS7TRPniFbzZgnptlHdmCBJ SSSWJaQ7M/RKn9JS9Jf+zRJQbXH4Rdt+FZFZloAOhgXaBhsqEOMJqO6UT9n8 99TguVJD8lsrOt7VIMZzpQP17u71Z5MJ4/HpHpFPwJOpXPD49Gl37rRXZi5h PD5d9kPm5zfXXIR6XGhoSenB17UKxJyfT597Ri8ZohGIyedMr8WeabvdqyIW Xs+jHW7OWqfEE1Afj1bdCxauHsoDz4k2JC+2j7mgAs+Rqj64sSpVVgH1O1BD mjnjmK4cPHuqbXfrqfVTQX32dMWuW2t5WSXQ3zzaEO9feokbC/3Y0T17rEPK PpMiC6expd+lyoQBMVrEeDaUNy6SOiWVg2dD79T2Sf7tOAn1cenu8eYvjxgU 4FnT2/mOVnuDCwjjWdFrhTG+opYj4HGoaDtfcXKDBvrlUOuo9ddDsyuhvzni 5em48uySMjg/S6ojH7eqMkvROku+l6R6YlFa5YfnUZ7FnyaSrtWFG2kpeC/I 3nZ9Q1d0PXhThPOFlFOwuRm8SbK5dvuos18jeBMkYPSS6dHTJvDMJP2o+V6M lIJnIj9tDthVH38V/WmJf0Y85rrDf3zUBuefkOFO+fWk6JtIbsk3SqiJcMul Xcjb4j8gLqI7I86KbvDuk7ALnSb55U502hJ/l0xtWxD/Yn8PnO8h+x/NVj6c 14tOWPbbibzpXvAh6QB8biTtOQPPi3Yb2PlxelvUXP2zAUSZfdQ3+UtFeuAg KmbiUdqOmrFPfjYgzPhoJNVrX97YEOzfRR6eI97eDsNsfWiiddW6Gt0w2sjU j+IC72v1L4bZ/tAGtyZJ+lU2/glyWl6l5LgNoU5mPqhi4UeL/m4cYueHutp2 XhB7DaJ8Zr7IFBKaldDfi9Yz80ezxyNqTk33Qfwkan1Z7KIc6YV8Uyho8jet a04f+/0ivfx38dvVPeBNo9eSOJ+g/JvgvURkwqf/K3EHeLOosa6l/0FBO3hz 6I7xj4xlB26w88MVVYnThz9uQ7eY3yc2hbw/Ht1F4Xm1wtkFMxk9vIsQb42P h702fh97BfJxMcqdi4oPvwyeDfY190ZtMdSBZ4PXNXoE1x1Ug2eLDUtnFBph NXh22H+xZm2WOBe8efiSD7fZGKEDzx4bk1qPZJ9nnwd7vGVg4PjMsRTo3wGP GYyJQrUSPEd8wte0yW6tN3hOOHDrjq8V6iz2fsHW/ov1CbYl4PEw752M1qI1 +eA54wOxkn39JQmE8eZjqkt9NZcoA88Fe6fx+pO5avD4OM7d+KvuG/b55eOV URGFZn8l9M/Hk63dLqa9+RDvije1iSNFy79l71/sqU351FOeAveLAMvCHl9x iDwH+QX4Qc3h0By/WvAEmBS7d2zlZIInxPvDxeK4kSL2/wFXHnp4WmqWgbcA v8orHvxn4RnyH35k4m4= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAwBmIQDQEiBw5raC9amdlkbwwGwgc6tLJ06nZ22aeBgdCB 7hvyn8zTu+1nzQQBwQMz1vznOBCfvf/sGRAQONBzNeUNU9sme4h5AgduSTjd CzXcCtXPd6DCT+UNZ2qrPVj5GZ4DHV1RLj23t0Ht4z5QzOfQ/MFkA9R8zgMX bPwmBWpvg5rHcUDwt6Ld9DcHoOaxHbi5ceWSZwr7oeaxHCiZ05I7Z/sBqHnM B24WdrpN6TxsDzZuJuOBXzv6VoZ9OQA1j+EAy4p++9rpB6H6/+yXWCDwmDf4 iP0MsPqf+6tilnU37z8Ote/b/mrByopZTMftjcDmf94v0OfYdrH1CNS8D/uf +R5J3HriNFT/y/3PQ22L5B4etzcAq3+8/6va4Wv5s07ZTwDL39wv5qC0peHl EfsGMP/k/s96lvf6eM7A3MewbfVOP7PTR+0XQOTtv+vuCTvWcgLKv2k/uZzN b2nYMXsLiPn2M/LzCyxEj0DlX9r/uWHewde3C+Y++xb2fbxPDh+yN4G4335C MtOL7CO77TMg/rOfo+2/8bPBDvs5EP/bH9gw58OllgP2FyDhYz9xzeYHBw3g 4eewySBO2fonLL4YHdQWLGne/Gor1Hxmh0/vpFcELV5pfw4SPw7HDOdYHbRY AbWPzeFNRsGCWWdWweLXga113tmyn1Oh9nM6BATVXyzunAc1j9vhzV9BZc3J W2DpxyHqerTK5PfToObxOejIbH3/9MF8WPpzcDi75Fxy/3Ko/QIOjBMe9uQq rISlXwdNV88LdWeXQPULObCKvJ2/Vn4F1D5hB6aJjsuDrJv3Q/OHg1/W4qT7 02v3AwCeA2/j "]]}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtmnc4V+//x+35xntERiKUssrO6LxOSMv6ZJVCZooksjKS0FLZysrKVrKi 4n1baQgZ2e/sTVaRyM/3un7/nHM9rvuc57lf+7qv6+yxvXbGgYGOju7T9uV/ 94AJ/aWtLQqaLHLfGfTmATbux/erb4OCorMTFh8deIgZEH+svvlDQbdHCzuv Jz/ERNXcNq8tU9A/Ff2l7gfhWO2DKLbBcQqyvhUvtOr/GJMWOc/5foSCcJ4i ybv/HmMxJeLcTwcpiP3T68dSwU8wh/5SilEvBTU/fSQ+fjwCY5Pr2o2+UpDY syi+UttI7Hrt8z1JnynIV08xFAoisV4zJwmfRgpSUz7Nv/o7Esu/9efAoRoK Wg9bEt18EoUZfBNSTi2lIM8U+dqp1mgs5sbF00GJFPS9NssxNyoO22Q7YHDh KQX1TKfr6C7GYY7Ji0aHYynoWlKgl81/8Zjqh2CzhccUdGenDb8U31Osd+cL m4vBFJTIdXoqv/gZpl1w1V7zFgUJ7Ch3GhZOwApwlUv8/hRkhi1tNT5IwAIu N7q0em7rGyQ8fHs5ERN9N+WNX6Ygh17835pmMnbfsPjmLsdt/zz6c8uuPBlb GrkZsGZLQZfGyhtK5FOwOgLhTtEFChpmXOgWk3uOOVrJPRY1oiAncnFH2PNU LJ/eI5NOdVt/aqcb42g6dtg4j+WZIgUdoLv04r/DGdiHzCEn+UMUFDK7i8jx OAMbPG4ka3uAgrZMGaZbj2RifI9ly+uEtu3rXbtl/eoFlvnDnv8CPwUxP3sS m82ThcnLJ91c2bH9fXcB7ofXszC9Dg7Yy01BN9VdIzD1bCxYcLIxjI6CyMyz 9nyDORjRRURKZJOMlKW/ua7q52LJVWbhb/6QkbZz0/n8qlys4mKD0eQSGZlw Mefmpudhc1npPSfHyGjl2edf3+8UYGcVLWcIn8nI+WnHB1bTImw8JEb/xQcy Qh4VnleTijCP719eHakjo/P3U8S3Rouwx77qN1zfk9EllUr7St/XWB1152bL SzK6fNipnVRcjBmRDK2d8sko1dPS3JqxBKPZhtXQ5ZCR4YOOcDqzEmyN+Veo fBoZfXkva2y8VYLJ6bVxR0eTkVCNREm7bRn2Ppn9unQEGbFm86WaU8uwkz/x 9rpwMtqf2z1+Xrgcs496Fb8Suq3fdMl1c6AcS+gOFzXzISPTjlPdRu4VGLPD cQUBSzLqNKopn559h7VZyZvPnCOjvUG7mr0vvMdSzgr5V5mRkYwyo1/R1/eY it7PBhsjMro95yN0pKwKc1SMP5enTUaM9T5tHs+omILs7UB/nIx6hJOLwjgR 9m+fc4bBETKip3wa0TqNsHhBmFtSIaM7gauK8V8R9pF+IkhDiox2RZHSSLQa LOZv6wsuSTJqXDZKeidRi1389fbzD3EyCiyWuX/dpRb7M/l4R4jwdnx4RC8R t2oxqVaVnCYiGb1uL7C8K1+PhaeEtViuktDqc3+dheYP2NmnbisHV0io6KXI sOb+RkwiykKAYZGEiKo3r3QHN2JVoXJ2WdMk9FJh4S+35kds3uX77/kBEhIU 4R2lo37CjDT27Q6qJ6GLFR/M7Dm/YruUidpnakjIPzVba8XvKzYpt35JopqE 6o4Uv947/xW7Ldb8+uMbEiK31h8K6WrGitm9jpHySehg2+3PV6xbMUp3g0t6 JAmdeKAcnezehiHptHshj0moRPlb7/qbNszlln+m40MSKtM8ePe/f23Yh32K /VKhJCR6NtNp7VE7dtMz9XSJDwkN8KjtC6/swIbJflL11iR0vlL/0E+dLuyJ o5lu1gUSSvrM7f4gsQvTfCtve+8cCS3Vb2SeW+7C4mwmn+kZkxDp0FXJzKxu 7FSRKXunLgk1+ft5W+3qxYr1D02OyZJQmGGNrcaJAcw6jZPpoxQJJbj7MAmW DmCEX+MieZIklHxHfsJjDw1zTEo2d91DQjd3CWGFdD8wwRmOxt87SOhf8xvR YadBLPje2AvWDSK6d/ZjcozNMHawH9VMrRGRwkvRl/GZw1j/waSBL7+IiE2N /uWdyWFMpesMb8RPIjKkk7kl5jGCTe9FIfwjRDT6NyD0W/QodqYuwe7AZyIK V9JpaWCewCQ6RmmNH4jI70+r+oz1BPZ7VM7CsY6I+g2ZOi++m8CesdQZZbwn ImGBxP2GXpPY4MmZI8KviCijv6WkamMKu9qqwU+KISIW8Ul5LaM5DBsKjX4V QUQk8rHXFTVzGHGphdvgERFt6K7/a1Wax0op9swPw4jIiu9u46bIT2zdLHyJ yZeIzHdPlnuGLmD3Bvqb1iyJSMSJteJw0hJmMb/vRLwFEUn3khOdR5YwmS23 OmVzItJh4juTJr2MtYgyv3U3IiLKA9094tRljM9eNntWi4j2EvPXR5ZWsIzp gNuDkkR0ttDOICViFbvxt3EjUGL7eSl7vjdTq5gugewjvIeIQn9gkTw6a9i0 bJarhSARnRNjuh+xsYYdut58voNARDXvEltOB6xjfj+PuESM8KDPGZSU5zWb WJKN6iQ+wINkqoPGjQ/8w963H7Jf/M6DhjPH6qyi/mH/3ohfOPOZB7XFRI7e c9rCgoPY9Xa85kG2d/LW2qLo4AGpU/ppIA8qv/Oxx92DAfLvNGef8OFBAVcc 1dhKGKDpV6P4n+s86LbLQ7arywzA3ftWyMKBB018khl/6cUIUempnLv0eNDH RWNkcZcJEhRdZp4L8KDTG7+WM9pZ4N0Lh0tGFB4UJWkdenkPK/TvtB6h4+JB M7sVUg64scLujf/6bOh4UPvWKY0XRDZIr1f9Ij7Bjfh9zRtpluyQa8qYn13K jd5La+nvkiHA58aNfWdfcqNuDfkf/x4QYFrtdzpbDjfiLXRW4JkhgMzuqYTL idzIiWlNsvElFxSNNz+QDuZG5C3/t2s6PFDhnXDllSE3KvuvGms3J4GY/fUX 3Se4UWRY4o6rcSR4ZHRikF6LGxXUGq71dZLA9sBvUxMlbnQ1CwVpm5OBs++/ o3/4t/Vtc1xC7SlghbHzaw9zIep67Sv9fF74KDV4xqWPC70gVD0LW+MFhZ1v HsV2cKFPw2Nxtbp8wLpgzzj5gQuZ81M9jcb5oCgNzYfncyHNsZBruxX4gZHZ p+H7DS50SE7a2XtLEFwXDejoXLkQ0wHpHjcrIege2Ktx4BIXilcL1c+sFoKC 8vYiv3Nc6IS4hO3H4F1g5nQwSRTjQmVidhrXBXdDzpdx9yusXKiviqPJvkEU yBVVhdF0XAgz6bz8fEsUAjJjJt//ISDjzP3v4tX3wJkALSueWQJilpa99rl4 D/yVSzlZ2kpAfB9vKvsUiIFBlKnov2cE1GhW3MfRKAE3FXhOHo8mIMs7/07O EvZCVtvH6xHhBPRuZJmWa7wX/pE168RuEVA4n0Vo3cheKIwWczxuT0DH7467 V3BLAiH2Z36EHAE533iauxF5AA4r53b0SBLQzZCpe33jB8C+03ZTbA8BXXOu aarRlIL3vN8NyigEdKhNRL9oRgqc494v9qxxouJ3Kpcvm8nA5/j7quJ1nOja xO/7rLYH4beq9kWX95xooWlPcvPHgyDWvXGvrIwTccq+mLrEfwhu8rv1Hs/h RL+JDprHgw/BgWdmAS6PONGTrxfSXlnKw70E8boyc060ecwrDCkpQqn6wMw/ I07k9CYs+qu7Igz2xu04cYoTfZqVtox9rQiHhTgcezU5UaFWrbKlvBJMJi6w be3hRHtvP7zFqq4Mx5OrDE7McqAduqpGGddVYeFR/wbTOAeKcCce0nujCgmB f/NqfnCgW+FP/co2VWHWWo1Vo50D6bOq/GwNPwxRYmVU2bcc6LTzris2pWpA yy44RLm3rUcfxZ0jpQn3nn6htdzmQM3dJpk6AZogf386PNyPA/m5VLLVtmpC yJX9U8zXOJA97dWvSzePgJRsZtqaKQearuTzSunGwKs4kUwT50BuDJcczg/h IJrxFiUIb+9P7uW6KvkofIrucTXfyYGYg1BIvPZR2OW580srBwfa0uryGM0+ CrWq0XfqFtnRXf3DGj1eWsBd9WAlh8qOviWM6hkf1IGsRt/vHufZ0Whn6Itj O07AMwUv7VwTdrTXI0VhyPIEhCe7F9H02ZHvsScH9HJOgLuH84OTODtSPzcR /RROwhERS0xkLztqakgh6fqcgg4vPOvzPBsqny7O7aboQ+OQJoVukg19qbL/ 4OysD2/11IKUh9hQqsRvh8U6fUgVU7BIbWdDce3SyQPeBuDcLM7tVcGGlHX/ kANmDIFhH6vXnmA2dFybS5Q++D/4FcE4YubHhp6+Z0leLPsPJv9uGYbfYENy 888dr03/B83f1g6sOrIhnktyOL/pGXgWMD3QdJoNZc7c0DsmbwyHOr8e8+Fl QwJ/u4RPsJiCVUgMb0sOKyK/MznhKHsOmuE3q086K6KwdO7dcDsH8Nd8XTSJ FbVdjXRXLTsHou5CP9yfsKJTNuW/MsAChq3Tc/i8WFHKz4Eb/hfOg6NGkYaV Niu6Badt3d9YwvffJDnWI6xorxm1mcBiBceLPUSLVFjRr84FXXtTK9h/QJWZ QYoVzXs1pBj9toJpvurmF0RW5F/e+vqF6EVwXfpiMzfAgtzejZASA22AVihr EtfFgsaaKkLlC2zA8PITXfjGgl71E/MUe23g0OAZ6ch6FjSQz3s7UNUWlr72 rCjlsyCZ4QKJ46u24JU7cdffhwUpHR8lXAu3h8CLjC85KSxIQOWjKaI4QVHL 8ccdBBbEepZdxtHQCYaxcNdkFhZ0+ZGYUORDJ9AV5j14cJ0ZdXGtnLzJfHl7 /uwrOjPEjKyETzuXb12GFONTxc9eMSOLY18mqrldoLX2cZRtLjNyzc3WVDB2 AQaFdnfpDGZ0RM3DR+OpCzgSLyhWxTGj76ZyxB0SV0Hu69XSwQBm5Dn+nWNT yxWoupHlknrMyNBHecXM0A2WyjrjFo4xo1PfdNvveLmBxF5B70pgRs6Xd/Uz pbjBPcYM1dOKzEhf/1cn87wbGKHSCldBZmT2TC9sR9R1GFTrfls2yYR6Byof Lky7A52sCFU7lAl913wfJzfqCf58R61CA5nQxvTpf55CXrC6Zbv5wZsJBaZ7 6aoZe8F8W5bGqStMKJtDV1S13gv6fOQqjAyZUDC68f1AgTeU1x95bSnAhH7O frOpjvEFhZfWRs/JTCiaQLdLqcMXCuNv/xzkZEL9+WFTSjtuQuaVBln7f4xo J+f5ir7YmxBF1M+7MsKIJs8QtXqf+8HVCxcyvAsZkY6ipFJQSwBMHgvUqsxi RA+CrQT38AeC/cHUofXnjOj4kHSUpU0gWDCMigRGMSKen4t3Cn8Fwokc56QQ b0YkF9E3M0IOAomVm7GRRxnR7XDDCdczt6H34bO7+Z0MaL5W4cQJSgi0N4gW XGxhQBtu5BIMQqBpK7uV9xMDEkzdHLznHALVHuUCQe8ZkI+MxX3BhhBIP9+e b5LBgBZjHOCofyhckeZq3XRjQPIsAp48f8Pg7+cgfiMCA2olZbLaYg9ghYnt CDMLA3rjWpXZ7vkA5rEnNm+36NGDykzOvMIHMFicnCexTI8Uv2h53939EOoT 3mr+6aFH67I/03Ywh0P4lZWL6dn0aECI//na2CPYxeGUu6JFj0p3fvUK2owA q+qmcDFNerSv26RiSywS0tzl3YyU6dH1pNGTDSciYV/fukqBJD0qSGqfl4iN hIMFj+rtCPTovE/mqaPyUaBlUPKjrZMOuceyex33jobLUf94XzvRoaukiljr I3FQoGv3h2ZDhxz2l+10c4mD+fXGfsJ5OmT3Ln62PTEO3O0iM5z06dASa9SR +L9x4K8kIS+qQIfEtBtP81PjYXdh9NPdq1vUbEe73XZmz8BZWYq5b9cWVWrZ 5LDQpyRwZ67M9uLZohry/H5lzpAMNzuPnyIzbFFZ6EoKFzWS4YGnw5OTE/+o bbwuQ1CUDHllqQIVr/9RJy5Mlxklp8CU8k65WN1/VCndhuOtOqlwSYXJ3NBt k/rQyi5l3iwdXFmi/0zbblKvRHU9/eKbDl7f9ySFmW5SPcLyfg4kpUOYFwxV qW9SteWkQjJG0iGr/KazDPMm1dxrmL7CIwPGVBZvsSdsUO+Ff5pUTMkEO1Va Tl3dX6rR7cl9g8LZ4Jijaqb75i/1eYPC11WdbLgiEMn4Ke8vVcV62UXbJRvc /mpbNUf+pbJMBKp5v8sGf2oupcf6LzWSz9jB9EIOxBz3DJz/u061aShM4s7J hQ/mBBMBpXXqi64tr2CnAvj00YE+SXKd6qbx/pt9XAE0qVFf7hZap1Ku9s3e qi+ANiF3dgmGdWp23czSxT2F8ONHV7Vc6x9qgsU3wbaBQli7lHFAx+UPdXfK 591PbF6BlI/6lmvmGjXNbu114anXgAYMpEbi1qj1cu+8H116DWbadqbm99eo BBcW5siQ1xDMHZ4PrmtUgSVDKiP1NfRkDpgTD69RQ0IVcp4pF8O9b0FFr7+s Ui93yZ2LO1AC41KNNitLv6kGrnOiR2XLIG3AuN736C/qoGLzFe6sSlAYVVjv UPpFbb6VH4k+VUL9NOnQof2/qPnutyxj5iphfLUlcZz7F5UtmjCXqvwWpMh6 Hsb9K9R90iXCBo1voVhXR0zWe4UqJmD+6M/CO6h/pRQ0WLBMPWlgQP/Yshom bvNqHudforrcuWht8LUGOAJe/YzmWKKK3hDX3z9WA3I+JzMGNxapmi3DIryb NeDlGsBxc2iRulunU19SthZYzo91F+QtUnmH9xXLPK4FCaUyT/KRRSrfOmF3 sXEd2I6bvBqwWaCqDW9JGs3Ww9vY/ccmzeaobJzfI22NPsKhqZ6Vg8njVJPm CX3epy2g87aPfdNskKqmY/z1pV07uOW+WiNR2qn5yxkmIfJdcIjb9Y7WYBs1 +92+U7zQBYvuMtwehW1URfnljOd6XeCumSvecbyNukkwlk+91AWeLekGcf7f qHXXK68aJHfB8rT0SeWmFqpZXdsxfdZuYLmzlqrr/onqZvmhRruzG+7qeZZn Ez5R+feHS/YMdQMb39IXtuyPVDJPi6XDfDdw5M78/tzXSA2djZ62Ye0Bnhaa nuGxD9QWaRmDqcM9wC/UsGbOX0cVaLufKpLQA2aO4mlt/pXUW5r5N56b9MKD 6x73osoqqA0Mc89eWfdClX/dtTPzb6i9mWzhpVd6QSLaDmuzLqfu6lV6khTU C0vUjL5vWiXUlg0ukZH8XtiteEImnZRH7e758U+drg8Wnj6zX3xmS11uzolP ft4H/gwxDbqHT8LzuxPle3P7QC7BrnGHyjUw2KkfnFrcB8aK3e/DjoYAu2f7 wNWGPrju6DxVHxMHuQZ9cw7TfUBHV7ZlV50N+bumhqrk+6GxqeeBonEFKNyw +JJZ1g9OPr2N56UrYb/C2zJCdT+wSfQxhTC+hVQ9oQbbD/1wyq8/sKPkHcRv yvH0fO+HpgM/3D13UCHvOmPg7O/t97XdC/uma0HkpnxaquIAHH629OWnWR1c I31UGFEfALaf7tOMdXXw4SXXNFlrAHITPCRlEutBnJrxWM1oAKYXb6T5n/4A PkoLgunOA+CS6h0rXPAJuJ+ukzpSBkDz92qJPP9nSGDYaTOcOQAEPZ+2YyGf gcvs03p/3gAUrvrwuF74AmG0S/1x5QMwb3DzfjXhK4j3+rHs+joA1Znr2W0+ X2Eucq/5w7YBeLx+88P46FfIcbeKHu8agINZfow8Vc2wfPpX2sXhAagIrK5+ pdIKgkenJm1+D0Bq7r+vlS6tsCtT3PHg3wG414EN1KW3wpA/883JrQE4K0X9 28X9DRKNLTFhdhr86aQeppv4Bk9O9chFCNJgmI7uBIdwG5hdyDGt3E2Dz9K4 +Q7jNtgrnPrxqxgNEm4jz/3UNgiY++lWIUUDddmaYqP4dtgarB6LVqOBcsf3 uOpP7aB0a3uUadLgkN/sTZmNdsh1kN9PxGmw79NObTabDoi2ZD6nrUsDioNr O1WqE1K7V759/Y8G3ISQN7KWndA5+Two2IQGHCXPEhOfdELUD5MGCXMa0NE3 2HmvdIKsa8am/AUazCYJrchVf4cfnc/zXB1oMKEt35208B0Cff3vP7m0bc+0 7nsO8S7QNbLsS75Mg57D7iHjd7vgS6f0p+CrNOj4cdfJ5G0XaL2ctzx3jQat Ycl6tbNdcEb8ornwdRp86Pi4I+W/bqjSd3O+eoMGNX60Nc6QbiBL/7r1x5MG 78VW+n3LuyGX9desuzcNit1EXpgK9cCfprwG2Zs0KNypfL9OvweCWM/JXPOj QU71qavyQT1gvOI+lOxPg+cEL2WusR5QzDKRqwvc9m/JQwG/nb3ASJOsrbxF gziLtM3Jk73wuTIgKTmIBpH0b4bM/HshWaT4nettGoTnNDXUv+yFc97au2WD aXDXcDhXYagXtF611XZvc/Dv1UeplD5Qx8Vzrt+hQUAylzu3bh+Eywt9Xd1m Hx1xM3+fPjDZVXfIOYQGHjOH1afz+uCanG7bl212jTLYfXagD3hll4oEQmlw Rc2e4QNPP/z0Um0y2WaHQd9xRa1+GGDOFQ/Y5ot3n3xOu9EPmNtGedQ2X5B7 8ZInux86p9jDYrfZvPNtVEBPP5zQaYoI3eYz/q1eM5wDIPPzYpftNuuLj1uc w7brbpXVQnabT3z+izW6DUAlq4TA2PZ+tK+TxJUzBmDNXp33wTZj/JKsGZ0D wP5zyWDXNqtRNWeIbDSIEuZvTNy2T8nxTEugOg1aNuMC2bb5EJdTyawLDcoP 3vKy3faPdGlAvMVzGlQOMxTlbvtz3/lov4/faLCjzUuGtu1vMYZcaxWmH/Ae PzO3tR0P4dxq7UyVH9C1IrfCvc38Rh2S5Ms/oE3hkxbndvwoq1OcQYk/gFSx 1buyHV/ulK2fc19/gFxZe/WX7fgzePH22wsMAv0Kk/tRXxpYXMxrq1AahGEP 8faa/+XPKfhEMBqEIbY2XRkvGtiKXC4vDRuEaqzBg+pOg7fs/wrY0gfh6C93 pUk3GpBXojIuVA2Cx7dgvr+uNKj9+D6CaWUQ3tKnG/64QgPBkv/unuUZgre+ 0a+KnGjgnjweUCA1BOqQr+XiuG2fO9HZxGYIbPfz8aXb0OCOkP2xzOYhSFB7 zMK+XW/9zH801qaGgF94d7TMdj0qLTxS0GMeBh91sVvq2/U6Wv9GZEVjGBQ8 RJ/wnqaBjivnunbuMDR6qet9OkKDpLOpC/H1wyChfDUC347DipbyxMyPYUhY WXROV6FB5k7rjmi+EdhK02Hbd5AGTDXFL0fujID0QY13siLb+ZN//IXq8xGQ VJ9JXt/uT6Wx/YkP345Ac+3+88V8NLC/wnJfcXEEGrAjD4a5aNBAsbC7YzUK xDlSo+52/wtzpOcXVxuD9xHXCyW3+ynNKI7b22QMAoNkJ7OaBkBFQ5r5y7Ux aPIlvCA1DsA4j+mSe9YYHDu41pH7bgB0K3OaainjUP+Nx2F8O+9YCUa3befH IcJX4EHidl6elbRAKuwTcDjLO3Ht8gDkadlvcUhMwOvdOeVadgNg4OsTUHJu Aqh5ekdTTAcgbjzVl6lhAkKf7T14Q20A9tUsXs9KnIT3lI/COZv9cMwr2nb6 xDRUa335nuTTD3GRyWnVdtOg0LSCV1zrh8mC7MGowGk4PPGtoNaxH8JH3llp lE7DBQbCt0yTfugwGrUIF5mBeuOyY6kH+8FeWtlY7vcM8MQV84QM98Gdwe/a 7hlz4JvFqxam2Qe0ytNXfd7Pbc8jZk1bhe0+EY3iAjvnYMNXOlp+//Z8P5Y3 9YB1HgL33AzO2+4jVvkBTzKc50H2qfNx1uleUPeS6OtQ/AllMlpFfjG98IdZ rVLIdgH0XnNLfB3sgaLEMKPApUWYsx6+JX6+G66l2xNHzX6Bwqnlco6CDrC6 kiB89/YaXFbNTeHh+Ab3//NSU0z6CwdGj9LKJL8A047Y8Vvr/8CqqOf41tl6 IM8HcpNZt2DDpyTt+tF62PPRSSWTsgWZR0Nmlg7UA+avGfZRZgsUew/7i/2t A9/Rkb0k6y3gTDRpUEmpg/lSBYf0ui2Y9gjlOjJRC7NSk9dtdenwBA8xAn1o DXR9CV0I4aHHmaaGf/cOVUEMlnzMlI8etx/o/HLtTRWceV2asFeYHk/qKUuS flQFzXEjOh+k6PEUEVNdfrUq+GBz9BmrLj1u0Tkm/yHqPZSvbhx94E+P3847 S/DWfwdx4jein0zR49HWLnKHBivAJO7hpPUCPb5WLN2Q/bYCyOwZRw6t0uOH L7Ca6MZWwOP5bxOtTAx4mMIFnbVTFRBWeVCTLMqA+29yNMpVvAEvw5nRGDMG XPz0psjgs3Iw9bNVSahjwNd5DvHuuFkKcck7WFY/MeD7A3bdCjlfCt+pHzqN WxnwHve5Lt4jpWDGJO3JNcCA+w7KH0ikK4Wzj5ZLgn4z4HtbNJkP3i8Bi+ch 8pcOMOJxKUJzbqnFcLEuS0bpCSMu+Z+M3dZ4EaSOnd2IiGXERXbdrrrRVARD rJxNc4mMeMKSkBF7cRHY6l1zzs5hxHPUnw08CSgCu07VPMFaRnzUuK6ZyFcE jhMfJel/MeLaOT9js569BBfOGbFmCyZ8rDvGtiotH2Z83zJx2jDhou3Se3Z6 5sOVyfvjxy8x4Q6rMk9zTuTDpYb9eTUeTDh/5oKQ+0Ie2N5ylC8LZ8Jn585f TtTKg3PLQ5BUzYQ37jzDt28xB3T7ui9cEWPGxbpbQgleWdBwMgfL3s+MR3+6 c5hilAU6Fd6io3LM+C0Lrg96UllwNJZv1FKDGadyBTeb/3gBmoYmzv+ZMONx amcFP51+AQp1Lb6Hw5hxBmOtuyuymSCS/yGOZZoZl3DNfnSKLx1MnldUfl5g xk/6BK7nLqfBg+i8/serzPh4gggFvqXBit9jsZ3MLDijvZsr+6M0+Kxn9lJS lAW/maTXy8+aBl7zYw0nzFhwzmsxvUtMqfBVnvnXg1oWvPLtXm1pvSRg2Le6 0/ATCz40ZThzm5IEhwWn1CmtLHh7qbOeSl8ipDN8DUocYMH1XF7cLXdOBJ/2 GELBGgte1UnHwR6ZABKeEhJf5VjxcQ3vr/GzT8GvQtuYJ5EV5767m+naaCwo XGhdsE5jxTW9x9zeVMbC9NaFx0XZrLhfUOvUsSexYHHc69N/paz4WvyjQkWN WFD/vn1G/sqKxyrLa5+Mi4G1ZS4ZATo2XFp66DzlXDR4HexmEndgw3fyzz0c 4o4EuXb7dA9nNnxa8lLIqdkIGPdahPrrbHg9/3udn58iwLSaw88hkA2fmEob nA6NACX9I4vZ8Wz4Bkl/Oo0uApavpA/IfGbDr51akI+jfwxuWS7lKgfZcYX8 2xYTxg+A1iIUy63Cji8m9r0c3vkA9P989hjXZMeFDTj5Tfrvg5TeAfm4U+z4 2deqp+Mc78Po4lj+Lwd2XFBL5GRI0D0wP2KdVprEjqcGM7tc/hQGHxy5g8Iz 2PHwofcu12PCQCmiyso+jx1XO/vIfNQ6DIgjQrt2VLDjdUkCh9nWQuHzve44 j3Z2fMNQxk5ZNhSwjv/CFTg4cNrRv08i8+5AwSadMweJA+cci4td87sDQpJF J4d3cuD19BMsSP8OrPlys0bt5cCTnwi/uLoUDMUiX24v4hz4rTh2LQU8GPY6 63gXeXPg2vsku77PBgGBQdVWbowDT3HPLqghBEClN6Px+AwHbnz0Z3TyB39w nGvRTlniwAMiYue4b/sD6nbay03HiTcN7ukqXPUDj1cJk3OCnLhq/KUx6sxN 6L3wz7XQaHudsUnVZN4H7rZ9tnYw58RzLCZ2cL/2AaUT8UbCVpx41+05T/0b PvBY8ZDCI2dO/JZe08rZDW84ymH7yyWME/c/Lx1yj+wNOW8a/GTec+LDl302 b5p5gqlslMtoLSd+VV7bU3iPJzBkWFkmfeLE18P5GlVmb8CFx6sYoYsTfyC7 4vv5zg3gcTjAMLvIiQ8o752yrPAAL/Kje/mSBDx6ee2Mt4o7HLtqEisVTcDr TTUOP6K/Bjei3tFde0bA1x9sEl6Xu0LmGzGXkucEfOjluT3eLq7AwLCopVlA wKuOnv9vrOcqoLhHC/oNBDzP5smBA+9dQB19OH19lYDvCdYUNUy+ApfHZN+U bRJwG6fvPwkXrsBTjlixdUYuHBPrGLUQugKrJnZ/golceL3KvaX0xMtQOrWV FXOAC7fMjx5sSHcCOYoaQ8V5LpztSu5l18+OYHk49eqGDRf+7fuOn0WRjhBu ydqDO3Hh4u9H9nicc4SZ7M5Xn25w4Xhhfo77tAPkaLpb9j3iwvOKX4E22QHE HfMr/lG58Opw1dfmPnbAXyl87ZgENz5UMMHP9PQi/LPLFiJJc+P3d5gWDl++ CKPc8h/75bnxu9zNY8qaF6HIXmfPDeDGyx+ruLjUW8NxonN7ugU3LhDwoZ7p khV4XapQpYvkxpOu1RbSOs7DBbLW6Jd4bvwo8/SsTth50Kr6EhGfwo2rDwWX eB4+D9yUH1NyBdz4jq2X6QefW0BWNXOSZeO2/qvCc+2e56CT15ju3SY33qgR UmKuaw5vUX9BGBMP/vSS99FYRnNIdXY8d4aTB6+Zu8UeXGMGLjW+xVP8PLjq kNK4LZgB09VUe34lHtyKQv7Oq20KSvVzHz2v8OCSVVW1007GEOV+L/JQFw/+ RkVx44iEEaw3FVTcG+DBhURKvcx/GoKt5LcfgyM8+O/Jxqu88Yag2C8gF7nA g9+3pK84NGUA0+mmY2tMRDx4sUupMF4fwgkTt8/tJuJ+X0eUuHedBqTmGxu6 h4jv2C8bL9l6ClYcOXNfSxDxdb0bv5lCT8GFmoOt7NJE3Jhz1xOmxZMg6+Wz +60qERd7cnjf+LcT0PyD/Z3gf0Q84r9yvfIyXWDgSmrWNSHir+ZLLh711AUV dblhd3Mijn1pjPRU1oWUmDPsXyyJuG/cMlv7m2Nw7WSiud8VIm7ye+Sgar0O EEtkVvruEPHYUI9+03UtOBNmKJtcTsRbDKyX5TIBss4tnKysJOJlOfvzqk8C /JGJdOx8T8Q15HsssAUMUtvbnnPVEXG12/zPmXAM5kTNyIEtRJz3aJCH67Qm 3Ht3YdVqkoiLnI4o6nBSh/7HmxS/GSL+OIwr2GqXOhy0TTkUP0/E7zb5Q3mr GnxnG7zcskLEn8nwPm3UUANxM7t+oCfh78p1HDSEDkP1wuUaUUESzvNKxLR2 UxnI9Rw0TWESHlpZ+kK3Shkc4vPXz4qS8G4wkfULUAYCNqcYuY+EH6nsppvf UoJzD92y6BVJ+Gp/vNMXghKs7PV+OHyahEtEkxd/6yjAiT87c/4ZkHD7Jz6C FdwKkNhUUS94hoQrk1+94OmRBy2P9c0zZ0l46fzapN81eXiCAtzq7Em49JLD DtGMQyB1PsQ0M4CEv5mery4+IQfnrpeTmW6TcP81ud61MVm4d3eyxS6EhF++ bsvgEiILYyV6p8QfkvAwF4vTTfUykErghfSnJLz3c9opQWNp4K1+sT+1hIT3 ebRXK2TsB52OrrGtchI+S1FmaPlvP7hPs2dYvyXhWB6v+iX6/dDK5yosUkPC C/906AXZScKDayrklGYSfvAW/xqr4j6g29P4N3FqW28wT3bXpjgcVP1T8XeW hNs2vPZSfisOVvrSXucXSHibt/SSqI84vPN9siC4SsIXNdzX7H+LgVeb+dgz JjLeQu2dsN7YAzN3JpvjRch4IHuQo5SMKAgmCIavipFx9t13+fOnReBEkd5J 831kvPRUGp11oAhk9RfV8cmScVbdqrCW3N1wUdm3IladjNfIfp6wJwrD93H2 9GhTMq5zeAPnERCEDyb3kyrPkvECwdb7jg0CUF7LFv/jPBmXyhi3fesuAHEp rOHStmQ8KMbsjV4rP5iaMXvVuZJx2TIp7ta4ndDRQHdq+S4ZP9PATWE35IV6 xSAdgYdkPKpQenmGnRdK07YweEzGLW9HQXrDDogJ+Kf4MGbbPn3fN7dgBxgr bwiLp5Fx2qW2oipNCrRlri6eeUvGd97LTjc9T4JasvesTxUZv8FmWGojRoLi oN/jKYiMPzv+RHf3NBGiLvzqm/5Axvu+afxO9SPCfzuWG4LbyXhP9q5OaX0e aL0z/6x4lowPq5w3VVImAFq8GtP9k4wb+ApwxnRxQpH13ON/S2ScX3t/toAf J0RozN459YeMp6MQ4fsNHGC4PHV1mJmCb5+hm5IusUOz7dhRsggFH3a5qN82 wAJDTNlrsWLb3HjPT/4eC6xkOb0S2EfByzj+M0eKLCAwM7NrjywFr+M/csHy MTPYeyytHtSg4N/3PhQ88B8TrN/ZKtQ3p+BX/jnYfWNnAK59NfbfLCh4L93+ dOcGehD9GCxkakXBmUxDu/7epodjBJb7FxwoeEKEjNLiJh1ExBDsnT0ouDh9 16kuOjrY90JA8P4TCk5IpPzotd7A1I73tRKiKXj3kULG+aW/mN5U0t2IOAqe cklY6/Hdv9h1WdFf8cnb+wteaLtYto69L9vXmpVPwdMH5S2rxP5gZz4ohtU3 UnClGJFlevw35uD0S/PEFwo+exLVPZz6hflwvFn+0kzB9ze5Ek1jfmHJBuo2 7Z0UfIdQVGPM3Ao2+R3XHB6h4CYPAyzPvFzG1n0Ylh0mtt9/w2VhY7OMcQnV 505NU3Dr1OaHj3mXMQXr4zsXF7fXtWYmFW8vYcfo2Ztv/KLgSyrHbDIPL2Fn Mz6HrK1RcMfMWznii4vYlWPhGv4bFHwu/xLTy7xF7P//P8bZ7AiN4LCI/R8X uwO4 "]]}, Annotation[#, "Charting`Private`Tag$30570#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwt2Hk0lO0bB3CEbCGjCCUU4qXFFso1CPWGREkURVSITLIT8RJFRfLasu9L hWzJM8yDsiX7buz7NtZU/O73nN9fcz7nPPPMue/rvr7XfUbE0tHQmoGOjm4X PR3df5/ek3q0nR0Cmf/iolnigzCY8Ny/1vebQK4KDhNIeRoG+txDGyU/CeTx n14GH6PC4LDywz+OKwRy+5jEyaWqMKgOCWehThDIWuaZMpv7XwKLbNchchOB nHhu/ZI85SW8cb510TeWQJ6vCnFRDX8FOfSPUumUCGSL4zLdrkzhwGStc+rA TR6yhEKI1DXfSCB019gnv95LthC85XXyRDQYUmKsjtVzk13VDNr2nokHz8Wz 9q9GuchZuyK5WLiToNQ1xvb9JU7y6dBXjUWRKaAffvXwdjQHubKe8fHzN+mg E/9F//wcG9lsoFx7ri4L0uvcOx+ZsZKTUgfsVn/ngnnAm33fM3eTdU0Oriqa fACfW7vy2QnM5AOcGTGGUgVAJyOMaf7DSL6ulWfNzFwEvc+jg3I6GMh8t3dK zgsUgxDbvaxVDXry2Wnz/kLeUrBTkGLqE9rByE85bNzPloOV0mAmhfIL6535 6WxrUgFSbio7DqmbWK+wDdHlXCUkDRjh7uprmI4aP6uMGBkm/fad0eGnYRJT euE9TFVQHimpNWU8j2lYl9W2T1XBieme1ePxE5iiWc9c2odqcF6SOcYXMIGZ mA6CRWE1lG743dy2ncDo8s8f5CuuBnVmqdrG0xPYhc2Lzk8/V4OhmEfU/fZx THdjn49ObTU8vimgksI+jj2w2Gca0lcN5T9Mn+z3GMV66p5zLzBS4Fx5H+sf YyqWOsMbzGREgfzsNOU6VSpWP+zIFXaVAvyxjvdfH6ZiCgd1snhNKNC5wRx+ sX0ISxfn5BW6SYGjnsbc8VuDWFXGv/mEuxSo9lvjIOoMYNKXL6uleVDgd5gc cyC1B/M+9lRIN5ECLY511gLZPdi0YZpXZDIFUgzMavIf9WDx95909qdS4G8e /4Au5h5si+G8s3UWBaIjWxmOyXRjzmf7NMwLKKAY57TT4N6JcQ/E+s9TKPAw 6/3mXkIblssb4eQ9ToETnA7+GtRWbJzrkLLlJAWWSX9xPsprxWL930pqTVOA dCZLrF2nFasK4PVmmqfA4+/J+m+9fmDrVtVzjqsUWJmRvqDQ+B0L+uJnP8uA A7P/ZqI26RvW7Nes4H4IhyDdx8UZHN+wjzN8SyKHcWDZT2tgyfiKrYSSqr6K 4MCWNbte31eHsbyzyuA+igPX90HdS1q1WPXeF6RgaRz4BWs2r/FTsAYmz5hD p3EwthFLavUqw7i4fy63XcIhxOnRs/BPpdholWKI0mUcvnhRHA0XSrCMbTu1 aEMcjkRYqbVaFGMKD4/+NL6KAw1L6fuhUYipyDbmfjbF4ZDc+b+S92ZjTa02 xcescVj6N/rOcrQlRh/XXR7phoMXw5sa7dMXgLQ/dX+FOw6yMVZ1vIqOsDif /5TqgYORXHdFoHoAzDGeCBHzxsHJxm4af/MW6Ho/64X74UBH92nHqjIDUtWy LXhCcKhr7AmRMyqFStPw1zHRONxz660zky4DbX3bxcgYtD9H+hgDdpXD0uLr rbBYHP727PdpL/wMCm88+TzicWg8NkR6zIuBXUuEpXwS+r4mKa9vphoYYv7e OJ2Jw+loWsOiMQXkY9t2cWWh9y2SZnahuv+BT6UjyFkxjyT+Qu/1crkl4J+D w8yyc5LXxVoIuBL5KSMfB/tE18iDud9A/19Obt8iHM6sbxSe5K8HUnmT34lP OHDourVqBdRDsGl51CBy3oYbl8ONBrhwT+a9XAkOC/oewZUcTUCTFwmsKsOh MnUro9WtCSQPzfNYlOMQtuVROzHWBN3ShzS2kI+ne+7i+tIMFyZ6A49V4FDq U1n5XrEFbsUKpNpV4pCYtd1UZt8CmVXWauvIz9rVBijJLSD1zM/dB8PBRAr7 1cX5A2hiD38EkXH42YGdppv8AeEk1V0+1TiM0NGdZzvYCsk1fAlryPXSxGu8 Rq0wrXmn15aCQ4wf+bEk1gr2u/Nk9XEcVGSqCgyi2iDEqPbCZg0OCu2dbyu/ tYGO4ISScS0OJzznPP763QbYNTZCAbL4Nz5NltvtMB9Ie2lVhwPB2qENk+qA r+t3kvK+4sDJEVAic7MD5jXrVreQ2QqjY2NfdsDxYUt57W/ofNDXWLmudoCA 3pxrJ/JcnOCqbGUncEat7xmsx2FS82R33FInUD81kQUa0HpmtCvYxLqgsE/F 4ipyz2lSwERQF7xyem2OI7cPBd27Ut4FFc+vY5vILYHxutVzXaBM/5hduhGH 2vavvO8ud8P8CVvrYOQqz8FN9oBuuPZG4tEn5ArR1X734m4ISduxG0IueCic dlWwB0i7mg/JNKF68ykEU/R6wPBnbrcBcmbl3w9O+vaA2aKrNwk5gcNFYc94 D7BwZQe9R44pfH7Ak68Xgke25+qR35om/Zm60As0VsGzY8iv6UuGjb164eXM uusv5BeZjTV4fi90BT+P525G+XFpJOvUcC88Cm3NE0N+ur4RmkjoAzXV2kx5 ZO/4PSRO7T644H47TBPZ7ZyYsZdbHww1JZgbID+aPa0yk90H/hbeB8yQHcL1 D5kM9MHG6nqlFbKt8h2GWq5+OLvGeskW2ZrqPiGn0Q/hd4u+OSDfCnpZn+Tc D24rq7JOyDdk0/K5MvqhgFrv85+vdZSHe/f0gwafYpkjsqFXi8ss+wA4CCsN 2iHriU2YXlcbAEzk+7w18vn6X2p1Dwdga2Jn8iayptNeMYWUATjW3dBohKzG L7E7pWMAIrYV4nSQlbEzs9wsg/B5l4axMrK8jeF3H5VBsDy5uiWJfGLPvcI5 +0Hwdbocsh9Zusg7yjRhEHT0LRgZkMXNIjy//hgEAZrY/Vm0v6IMWRaKjEMQ KpFe2op8MKtSM1VxCGyuz9NKkPkN2iV47g/By3B6/lhkwsY0u2/sEAj6zEp4 IXO+21mcbxoC9btFombIDC77+u8coML7J+w9PMimt7JbS+WpoNm6fHLqv/Pz N3zjMKCCgkMz/2dkS+H7xUWBVBBiynl1HbmcdTuXJZkKd+83iRxF5lkNT7nx hQqZ01LqC+j8Vn+teMW4SgWRF+NS7sgChZeDTLiGoe+33ZoKMil+wjtXahic xX31t1C/iJK47a7cHoas8rxcJ2R/wTtaqc3D4FrSKqiJ+quf6afq5vQwDJY8 vrmM+lF+KfSULtMI6Pxxlo1HHsNLhFdVR+DJyo7PPOrncw7sW5pZIyAzWzHw EPV7nEniUhQ+Akv2H+PZkVc1FCZnh0ZArHL3QgrKi1Q+i/aI/aPwZsie2ITy hLGqIH/UfxSigvQ/MKC8uZGjk6aUMAoe874bwSiPiiL7Y5+XjwLfP5dbOJHv 2DIHyy2Pwp9ST6W9VTjUEEyt/M3HwI91mrqJ8u/Q9sL1LvcxaO36VWaP7DLl byAdOQaho8Lig19Qvb/knW1rGIPpu9alZShPA23o+cWUx4GQF11vhPJ20OAt p+uVcVj7OapehPJZUVWaqcFxHKgM03o8yBNcV2mk9HHgOcpytA7luXZZZmM1 YQIsuTk6CSjvd3MY+FkuTIBbt4e78nuUvxKmZEXWSXgR7/rbBc2PbI07O2xH JuE6s41sQR4O+u5u3oXXJ8FdSSxRJBf1/0SiO2PNJKw2xlSPoXklXrXslB47 BaOfJtV/o3nm1v/rg0fxFCT7L7fzItdvMC3p/5iC4mxnQelE1L+yAg4bzNPg tSKGG7zDoThWw/Y8aRosZn698EXzU8slwnLm/Az8LsS0SOHo917HJ1VazYBN Pr+SzWscpnIzqOE+M3DKRmn42iuUN6OfzVWLZkAFl7stH4by02DM9IXwLJT6 Ggq0BqN6SCsYya7PQoIlDU/0ReeJ2qlJSpmH3xK6VaH2aD/LLj5wq5iHNGsJ XwM7ND8iyG99Oubh9bta/b226D6hlT0dsnsB6mJrhULv4mCe4/0yxW4BpnDR wAeW6HmXI33tcotgyPp15Mc1NL+YlMsELZcgQkU2QFodh3TSStM7hyU4uadp 6wPgcGUob0TEcwkku8dD5dVw+FAqyiH5ZgmY1oBdURUHGzsOC/naJRjiaHYQ VUDraRli1JNahhvSdWeSJNHzsYEGPrRlWAIWaRVOHBoIgZNcdDSQ66T9MudA 9X/+j0/SHhpoKxWm+bHhIOQVkItL0mDj59lAMjOavzeesrBb0ED+rnnokR0K 3DroQ45qoIE522GtwEUKcCc8PvExdQXMh4tZPjVTwDH5DveY8RrkSPq5TgZS IMw9Oi7Mag1euIhZfAhA92eDZknlh2uQf5YY5vqUAgvbSuphwWvwVdSnhs6H AvZm7KTTFWsgWqCYve1MAVvegrYXIuswnn9/KNOSAjaBO28V5tZByPdg+ucz FDC3jTkY5LcJnYc/OtDPVUPwZRdlubhfYNW15i5wphoYeSMnnmxtA/Ozedsq 6yroavhnKYCLnjju+TJC4zkZrnpaKsZQGIjcjGbyDUIY2LPPijabMhLXfjyM NZf9AsI5tW+ZZ5iIz5PK28XPfAbPUk0jrtjdRD4b9mdh/GXwMN2+WPE4K7Hy wO1l8oES4GBQspQdZyP+451XUL1RBFoPrkRKRXAQM7457B+dLwD+soOOWkc4 iVzjhS0U/o/o3vLs9YkuLuKt/QIJC3fzwTDwkkx8MTfxT9XqfSJPDkiZBVxN 9d5L3Ll2eMuMIRM6J1iTI67yEOeOdV+oXUiFZstxdR5hAjGbS7u5UjcZhhkz NiNFCUQpnVdUf/VkWE2/9/6AOIF4uS8qXE8xGQ7MzgqJyCDLZHUsCCfDnUe0 jeOqBCJu9bvj3koSbPnv5OldIxAtnI7kqMQmgXjaAYHglwSirHVH/pWFRFDW 6WvhiCAQ7/See5I3mgi603FBr94SiGbJcTNsPYngJHN4LSqeQIzd3H7VRkmE ik/iLek5BGLgXY59cdGJYFgrF4jXEYgFH6XKWLUTwfre2pnzDQTiRZrc/lzV RHBjK1lpaCYQdQNMWY1OJkK8vsrttg4CkX4y6kO+UCJMdRLPjIwSiM7nri4r TybAlhvDivUkWm/NzmZdawLsEcSzpmcIxHTFn+IWlQlwykKHb3mZQKw3y6Fl RiaAFj1rs/MagZjKXBtm5pcAJin1AZubBKJ25Ioe34MEsNV6oer1m0AcaLx5 vN8kAf7//wCR/o30qexzCfA/47o1bA== "]]}, Annotation[#, "Charting`Private`Tag$30570#2"]& ]}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{-5., 5.}, {-0.0710264641206853, 0.4995605003797784}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7621521667344832`*^9, {3.7621522578336844`*^9, 3.762152270626469*^9}, 3.7621525362821836`*^9, 3.76215291044137*^9, 3.762154080459778*^9, 3.7640488805795636`*^9, 3.764049559357547*^9, 3.7640498202977004`*^9, 3.7656066350387344`*^9, 3.7656068291167235`*^9, 3.8104669360369205`*^9, 3.8106652468351107`*^9, 3.8106654813637714`*^9}, CellLabel->"Out[114]=", CellID->1646334] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["DatasetIndexSymbol", "Subsubsection", TaggingRules->{}, CellChangeTimes->{3.7640483450214305`*^9}, CellID->95065455], Cell["Use a different symbol to index the datasets:", "Text", CellChangeTimes->{{3.764048476678384*^9, 3.764048483550004*^9}}, CellID->370056950], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"fit", "=", RowBox[{"MultiNonlinearModelFit", "[", RowBox[{ RowBox[{"RandomVariate", "[", RowBox[{ RowBox[{"BinormalDistribution", "[", "0.7", "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "100"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"a", " ", "x"}], "+", " ", "b1"}], ",", RowBox[{ RowBox[{"a", " ", "x"}], " ", "+", " ", "b2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b1", ",", "b2"}], "}"}], ",", RowBox[{"{", "x", "}"}], ",", RowBox[{"\"\\"", "\[Rule]", " ", "mySymbol"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Normal", "[", "fit", "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7640483704473147`*^9, 3.764048378943623*^9}, { 3.764048459073496*^9, 3.7640484960965424`*^9}, {3.764048641181155*^9, 3.764048652400202*^9}, {3.7640488225067024`*^9, 3.764048846334972*^9}, { 3.7656066780241156`*^9, 3.7656066933372154`*^9}, {3.7656068330807095`*^9, 3.765606855751132*^9}}, CellLabel->"In[115]:=", CellID->926064], Cell[BoxData[ RowBox[{"Switch", "[", RowBox[{ RowBox[{"Round", "[", "mySymbol", "]"}], ",", "1", ",", RowBox[{"0.0010209858426106777`", "\[VeryThinSpace]", "+", RowBox[{"0.5914329654640931`", " ", "x"}]}], ",", "2", ",", RowBox[{"0.05766616825977944`", "\[VeryThinSpace]", "+", RowBox[{"0.5914329654640931`", " ", "x"}]}]}], "]"}]], "Output", CellChangeTimes->{{3.765606834111722*^9, 3.7656068562665195`*^9}, 3.8104669409084063`*^9, 3.810665483457153*^9}, CellLabel->"Out[116]=", CellID->97774886] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"Normal", "[", "fit", "]"}], ",", RowBox[{"{", RowBox[{"mySymbol", ",", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], "}"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7640483704473147`*^9, 3.764048378943623*^9}, { 3.764048459073496*^9, 3.7640484960965424`*^9}, {3.764048641181155*^9, 3.764048652400202*^9}, {3.7640488225067024`*^9, 3.764048846334972*^9}, { 3.7656066780241156`*^9, 3.7656066933372154`*^9}, 3.7656068330807095`*^9}, CellLabel->"In[117]:=", CellID->131044922], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"0.0010209858426106777`", "\[VeryThinSpace]", "+", RowBox[{"0.5914329654640931`", " ", "x"}]}], ",", RowBox[{"0.05766616825977944`", "\[VeryThinSpace]", "+", RowBox[{"0.5914329654640931`", " ", "x"}]}]}], "}"}]], "Output", CellChangeTimes->{ 3.7640483837009745`*^9, 3.764048434009511*^9, {3.764048470045123*^9, 3.7640484963836794`*^9}, 3.7640486556296067`*^9, {3.7640488245581884`*^9, 3.764048846991204*^9}, 3.764048883235462*^9, 3.7640495636368976`*^9, 3.7640498227092366`*^9, 3.765606640835056*^9, 3.7656066939775467`*^9, 3.765606835158371*^9, 3.8106654854508*^9}, CellLabel->"Out[117]=", CellID->85363488] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", CellTags->"Source & Additional Information", CellID->348526984], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318], Cell["Sjoerd Smit", "Text"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024], Cell["NonlinearModelFit", "Item"], Cell["FindFit", "Item"], Cell["Nonlinear", "Item"], Cell["non linear", "Item"], Cell["fit", "Item"], Cell["fitting", "Item"] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210], Cell[BoxData[ TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Data Manipulation & Analysis", { False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound"}], "\" \"", "\"Sound\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[ "Symbolic & Numeric Computation", { False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12], StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12], "\<\"\"\>"} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, ColumnsEqual->True, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{}, RowsEqual->True], "Grid"]], "Output", Editable->False, Deletable->False, CellTags->"CategoriesCell"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732], Cell["NonlinearModelFit", "Item"], Cell["FindFit", "Item"], Cell["FittedModel", "Item"], Cell["Fit", "Item"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204], Cell["Resource Name (resources from any Wolfram repository)", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096], Cell["Source, reference or citation information", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ TemplateBox[{"Tests", Cell[ BoxData[ FrameBox[ Cell[ "Specify an optional list of tests for verifying that the function is \ working properly in any environment. Tests can be specified as Input/Output \ cell pairs or as symbolic VerificationTest expressions for including \ additional options.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Subsection", Editable->False, Deletable->False, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellLabel->"In[3]:=", CellID->667877521], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellLabel->"Out[3]=", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Author Notes", "Section", DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]]] }], "Section", Editable->False, Deletable->False, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->"TabNext", CellID->920818074] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"MultiNonlinearModelFit | Definition Notebook", TaggingRules->{ "CreationTimestamp" -> 3.811700485636562`16.333693756638905*^9, "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.811700485815922`16.33369375665934*^9, "TemplateVersion" -> "1.3.1"}, CreateCellID->True, FrontEndVersion->"12.1 for Linux x86 (64-bit) (September 9, 2020)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.9216, 0.3412, 0.1059], CellTags -> {"MainDockedCell"}], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{39, 5}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, AutoQuoteCharacters -> {}], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.4588, 0.4588, 0.4588]], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.0909], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], RGBColor[0.6274, 0.6274, 0.6274, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[0.6274, 0.6274, 0.6274, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.0909], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.0458], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4oSnF5RuVyo58OlumvteXcQBxj//Pfjx0tkS Dp8u+SYJzFB0MORYIxP1RMZhgZT+XRU2BTgNE4epg+nDZe6cIwobijL44Xyg 7hTr+2xw/f2HvmrE9DPAzQcp+1n3xR5mz8MqkXXuD1/Zw+yB8WH2wPgwe2D6 YfbAzIfRMHGYOpg+XOai2wtzF0w/zN0w82H+gtmDKxxg9gAARU63WA== "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ3b48/JRRi4jD3qBpin2m0g5n6j32194VhvNZnvdo vPUVdoh2sntxM0faQfiT4/m0q0IOQNnSwtvSDmxCIvbHYoQcLjHcY+L0knGQ 5n2gO0FByEEnVfJRxHUEvyM59o5bsyycz+jbwuuvLwfXrzL9/4S63XJw86+F vdHfrS4Pt38x4x5WoSnycPe9e33AUvmUvAPM/TD+46WzjygYiML5+R9aT4Yc FIXr/7QhIHuWuRjc/LJCoIvWisHt14zpP/T1hRjcfTA+zP0wPsx/MP0w/8PM h4UPzH5Y+MHcBwtf9PAHAM3Qoi4= "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQXTFnkfJOGwmHsNp125Lq2R1g/G8aMf2HvrI4KP39 VvrgjgAGH6b+c19wicp0IQf5LzlhtXoccL6BzzIut6WcaPLccP5W0d+n353k gfM99tfKWqTzwflL9x4UV7vMD+c3FbtN+dYmAOd/2hCQPeu7IJz/KEJ8+8UD QnC+Jsi5GcJw/uOls48ofEDw571ffsy7XATO/xEMVMEiCudffZ6l/W26qMPh y9qpkosEHN7Os9G5cgvBXwY0bsMnMQfN0wLHd1mIOQTtkGt9fVHCAehKtvgZ Yg5XK16qGXYg+DWJRqEGWSJwPsw/MD7MvzD+oi3mPw6l8MH5ORVVS3UO88D5 /1K/P0lU5EaYDw4QTjgfFh/o8QsASQbXkQ== "]}]}, { FaceForm[ RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ParentCell[ EvaluationCell[]], { TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ParentCell[ EvaluationCell[]], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ParentCell[ EvaluationCell[]], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ ButtonBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], ButtonFunction :> (NotebookDelete[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}]]; If[ And[ MatchQ[ CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}], Blank[CellObject]], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] === #], CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = Inherited; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = Inherited; Null, CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoTag"}] = #; CurrentValue[ ReleaseHold[#3], {TaggingRules, "AttachedMoreInfoCell"}] = MathLink`CallFrontEnd[ FrontEnd`AttachCell[ ReleaseHold[#3], #2, "Inline", "ClosingActions" -> {"ParentChanged", "EvaluatorQuit"}]]]), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.0444]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$ = 0., ResourceSystemClientTools`BuildDefinitionNotebook`Private`timeout$\ $ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[ AbsoluteTime[] - ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$ > ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ timeout$$, (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Mouseover[ Graphics[{ GrayLevel[0.65], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], Graphics[{ RGBColor[0.9882, 0.4196, 0.2039], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]], "Click to copy to the clipboard"], (RawBoxes[ TemplateBox[{ ToBoxes[#], ToBoxes[#2]}, "PrettyTooltipTemplate"]]& )[ Graphics[{ RGBColor[0, 2/3, 0], Thickness[2/45], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "Copied"]], UpdateInterval -> 1, TrackedSymbols :> { ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> ( ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`$$tooltip, "Text", FontColor -> RGBColor[0.5373, 0.5373, 0.5373], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.9608, 0.9608, 0.9608], FrameStyle -> RGBColor[0.898, 0.898, 0.898], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TemplateInput[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ LiteralInput[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ DelimiterInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ SubscriptInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], ActionMenuBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Tables\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, Null]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], { "\"Insert table with two columns\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableInsert[2]]; Null]]], "\"Insert table with three columns\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableInsert[3]]; Null]]], "\"Add a row to the selected table\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableRowInsert[]]; Null]]], "\"Sort the selected table\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableSort[]]; Null]]], "\"Merge selected tables\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ TableMerge[]]; Null]]]}, Appearance -> None, Method -> "Queued"], ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Comment\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert comment for reviewer\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$\ , ResourceSystemClient`DefinitionNotebook`DocumentationTools`\ CommentInsert[]]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], {FontColor -> GrayLevel[1]}, { FontColor -> RGBColor[0.8275, 0.2078, 0.]}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCj08dhCBkQWRlQKmbsSY3g9WhKNYErhiu7NGRXTeC 1b5ePg63AsgGigDFEcoe3LsZZ/L95nk0xwBFgOJAWYhrgVpuReljdTZQHCjL AAbEKCPSNOLdRqxPiQ43YmIBDWCNUwCVRq3x "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCd04cgiBkQWRlQKltPjqbbcQhCMiGK4Yru3Vo92Y7 qZexWn+yTSAIyAaKAMXhyp48uLfNW+tNvDZcDQQBRYDiQFmIa4FattlJoqmB IKA4UJYBDIhRRqRpxLuNSJ8SH27ExAIxcQoAZdNqHw== "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQPEUCL2EAWRBZGVDqx7vXP18+gSAgG64YruzVq1c/3zy/ m2hx2ZQBgoBsoAhQHK7s2bNnP968uB1tAFcDQUARoDhQFuJaoJYfj++gqYEg oDhQlgEMiFFGpGnEu41InxIfbsTEAjFxCgDlLITg "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "ColumnsIndexed" -> {1 -> 0, -1 -> 0}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.9882, 0.4196, 0.2039], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> GrayLevel[1]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> GrayLevel[1], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", ItemBox[ TemplateBox[{ StyleBox[ "\"Function Repository \[RightGuillemet] \"", "Text", FontColor -> GrayLevel[1], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"], Alignment -> {Right, Bottom}, StripOnInput -> False]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`ViewExampleNotebook[ ButtonNotebook[]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`ViewStyleGuidelines[ ButtonNotebook[]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{0., 0.65}, {0., -0.65}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 10, PlotRangePadding -> None, Background -> None], True -> GraphicsBox[{ GrayLevel[1], AbsoluteThickness[1], LineBox[{{-1, -1}, {-1, 1}, {1, 1}, {1, -1}, {-1, -1}}], LineBox[{{-0.65, 0.}, {0.65, 0.}}]}, ImageSize -> 10, PlotRangePadding -> None, Background -> None]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0.1]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`ToggleToolbar[ ButtonNotebook[]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.9941, 0.7098, 0.602]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], ResourceSystemClient`DefinitionNotebook`CheckDefinitionNotebook[ ButtonNotebook[]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ "\"Preview \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"In a notebook\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`PreviewResource[ ButtonNotebook[], "Notebook"]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"On the cloud\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`PreviewResource[ ButtonNotebook[], "Cloud"]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ TemplateBox[{ "\"Deploy \[FilledDownTriangle]\"", Null& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "Local"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"For my cloud account\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"Publicly in the cloud\"" :> With[{ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "CloudPublic"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]], "\"In this session only (without documentation)\"" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$ = InputNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$\ = $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$\ cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ButtonNotebook[], ResourceSystemClient`DefinitionNotebook`DeployResource[ ButtonNotebook[], "KernelSession"]]]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb$, {TaggingRules, "StatusMessage"}] = ""; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Evaluator -> "System", Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0635], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[0.9608, 0.7059, 0.498, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], With[{ResourceSystemClientTools`BuildDefinitionNotebook`\ Private`nb = ButtonNotebook[]}, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, ResourceSystemClient`DefinitionNotebook`\ SubmitRepositoryUpdate[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb], "ShowProgress" -> True]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.0635], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[0.9608, 0.7059, 0.498, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function Repository\ \""}, "PrettyTooltipTemplate"], With[{ResourceSystemClientTools`BuildDefinitionNotebook`\ Private`nb = ButtonNotebook[]}, ResourceSystemClient`DefinitionNotebook`DisplayStripe[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, ResourceSystemClient`DefinitionNotebook`SubmitRepository[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb], "ShowProgress" -> True]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.9882, 0.4196, 0.2039], RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.9882, 0.4196, 0.2039], 2 -> RGBColor[0.9216, 0.3412, 0.1059]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 1.55}}, FrameStyle -> RGBColor[0.9882, 0.4196, 0.2039]], "Grid"]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.0222], { FaceForm[{ RGBColor[0.8745, 0.2784, 0.0314], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.074}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.074}, {0., 22.5}, {0., 34.926}, { 10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, { 45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLckSxqe7SdlhmnN3zvPblg4w/smyffOl/K0cEp5e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcLUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzAHLC+HjtHICGz32fruGQC1Zo57BASv+uCpsW RP9Me4g9YjoQe3gcHICqlx/z1nNgAAEFB4j6Y/oOQMvOfVd2gLhjlgGEz+zg oBnTf+irhiFEfw/UvDJDiP2+9g7qhhxrZGYZQtS9sHP48vdKxcs2Q4i72u0c pEHOSTSEuxfsTiFDiPhCWwcXoHd+rzRwWOS67fPfEFuHx0tnH1EoMHDYUJQx 8a2MrUPQDrnW14IGUPfaOnzTAFq0VR8aXrYOoFA6V64HcccvWwfTuF2ePEy6 UPPtHIC+CH68VBvOP70QaNFeLTg/X6j5wKlELYdPl3yTBCLsIP7U0YK49y3U PR80HQJ6p+cJHbaB88HqZ1jD1QNdUyWSZwWJH2stiHtuWcLdC+ND4lvfwbzT MeHpBEt4+IPld1lA4p9DH+LuVgu4eeh8sH18hnA+2J6velB3aUHSyxE9iP8U 9aDpBMH3A/rWskQHYt8JBQw+TD0kPpTh5sHSMzgd/0TwYe6B8WHulY1Ksb7f rwDng+PHSQES31csIPF7UREePgCOg02w "], {{19.051, 14.242}, { 19.051, 27.594}, {23.828, 27.594}, {23.828, 26.543}, { 21.426, 26.309}, {21.375, 26.258}, {21.375, 24.219}, { 21.375, 17.535}, {21.375, 15.602}, {21.426, 15.547}, { 23.828, 15.316}, {23.828, 14.242}}, {{24.578, 18.75}, { 24.578, 23.078}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078}, {30.578, 18.75}, {30.582, 18.289}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.316}, {33.684, 15.539}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> -0.9, FontSize -> 13, FontColor -> GrayLevel[1], StripOnInput -> False], ButtonFunction :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$ = ButtonNotebook[], ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$ = \ $ContextPath}, Quiet[ Block[{$ContextPath = ResourceSystemClientTools`BuildDefinitionNotebook`Private`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False}, Needs["ResourceSystemClient`DefinitionNotebook`"]; ResourceSystemClient`DefinitionNotebook`CheckForUpdates[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb$, If[ TrueQ[#4], With[{ResourceSystemClientTools`BuildDefinitionNotebook`\ Private`nb = ButtonNotebook[]}, CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; #2[]; CurrentValue[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`\ nb, {TaggingRules, "StatusMessage"}] = ""; Null], #2[]]]; Null]]], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqPnQeIQhCyIrAwodd2K5Yo5IwQB2XDFcGXPAsWu mjNdNmVARkARoDhc2aswqWtWLGhqIAgoDpSFuBao5QqGURB0BWwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAMJyEaA= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqMHARIQhCyIrAwotcmIc7UuOwQB2XDFcGX3/MXX 6LEv12ZDRkARoDhc2cswqY2GnGhqIAgoDpSFuBaoZTWGURC0GmwgAxgQo4xI 04h3G5E+JT7ciIkFYuIUAJxlBG4= "], "Byte", ColorSpace -> "RGB", Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UJAXikHs/xgAqyAQvA6XhqN3hfYQhCyIrAwo9e36ma8PbkIQkA1XDFf2vtzt 28Obu6Jsl2uzQRCQDRQBisOVvYlR+nb99I5gU7gaCAKKAMWBshDXArV8unUR TQ0EAcWBsgxgQIwyIk0j3m1E+pT4cCMmFoiJUwBBtDmK "], "Byte", ColorSpace -> "RGB", Interleaving -> True]}, Background -> RGBColor[0.9216, 0.3412, 0.1059], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.3]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -1.}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.0556], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh8qXaoYcOfoO m+a+X37stKZDTP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4Pw5RxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA/Dn+d "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.1753, 7.4169}, { 7.7969, 11.3084}, {7.7969, 13.38}, {10.12, 13.38}, {10.12, 11.3084}, {9.7415, 7.4169}, {8.1753, 7.4169}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQDQFKDg+rRNa5P+RzKPOXE8vSVYTz8z+0ngxpVHCA qBNwmPd++THv7/IO8q2vA3fICTpUvlQz5Hgj52DLdX1xga2QQxoYyDmcYLed HTpfGM6/k8GQ3+giCue7M1dwq7wQg+vnmbyyKdBTAm6+tsTUK5wZknD7Pec2 qB1qk4K772Y8iCXtAHM/jP/bquBcxyUEfyJ/ldnqOmW4/sWTrBh9WVTg5rt0 5zz/3akCt//sGRBQgbsPxoe5H8aH+Q+mH+Z/mPmw8IHZDws/mPtg4Yse/gBw FJLS "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> { "ReturnKeyDown" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Cell["", "UsageDescription"], All]; SelectionMove[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> { "ReturnKeyDown" :> With[{ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[ ResourceSystemClientTools`BuildDefinitionNotebook`Private`nb, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell[ StyleData["Hyperlink"], FontColor -> RGBColor[0.9216, 0.3412, 0.1059]], Cell[ StyleData["HyperlinkActive"], FontColor -> RGBColor[0.6144, 0.2275, 0.0706]], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.8549, 0.3961, 0.1451], RGBColor[0.0196, 0.2863, 0.651]]]], Cell[ StyleData["StringTypeLink"], TemplateBoxOptions -> {DisplayFunction :> (TagBox[ DynamicBox[ If[ CurrentValue["MouseOver"], ButtonBox[ StyleBox[#, FontColor -> RGBColor[0.9686, 0.4667, 0.]], ButtonData -> #2], ButtonBox[#, ButtonData -> #2]]], MouseAppearanceTag["LinkHand"]]& )}, ButtonBoxOptions -> { BaseStyle -> {FontColor -> GrayLevel[0.4667], "Link"}}], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.9059]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, CellFrameColor -> RGBColor[0.8807, 0.611, 0.1421], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.9821, 0.9417, 0.8713]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.3684, 0.5068, 0.7098], Background -> RGBColor[0.9053, 0.926, 0.9565]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], CellFrameColor -> RGBColor[0.5602, 0.6916, 0.1949], Background -> RGBColor[0.934, 0.9537, 0.8792]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "12.1 for Linux x86 (64-bit) (September 9, 2020)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[616, 21, 85, 1, 70, "Title",ExpressionUUID->"27576f04-e4f7-48dc-8394-d3e72892161f", CellTags->{"Name", "TemplateCell", "Title"}]}, "TemplateCell"->{ Cell[616, 21, 85, 1, 70, "Title",ExpressionUUID->"27576f04-e4f7-48dc-8394-d3e72892161f", CellTags->{"Name", "TemplateCell", "Title"}], Cell[704, 24, 137, 3, 70, "Text",ExpressionUUID->"e11b5f06-936e-4ddf-9e36-2b4df398d66b", CellTags->{"Description", "TemplateCell"}]}, "Title"->{ Cell[616, 21, 85, 1, 70, "Title",ExpressionUUID->"27576f04-e4f7-48dc-8394-d3e72892161f", CellTags->{"Name", "TemplateCell", "Title"}]}, "Description"->{ Cell[704, 24, 137, 3, 70, "Text",ExpressionUUID->"e11b5f06-936e-4ddf-9e36-2b4df398d66b", CellTags->{"Description", "TemplateCell"}]}, "Definition"->{ Cell[866, 31, 946, 23, 70, "Section",ExpressionUUID->"7b48b598-f8ab-43cf-93c1-c5504cef798d", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301]}, "Function"->{ Cell[866, 31, 946, 23, 70, "Section",ExpressionUUID->"7b48b598-f8ab-43cf-93c1-c5504cef798d", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301]}, "TemplateCellGroup"->{ Cell[866, 31, 946, 23, 70, "Section",ExpressionUUID->"7b48b598-f8ab-43cf-93c1-c5504cef798d", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301], Cell[11975, 290, 1697, 44, 70, "Subsection",ExpressionUUID->"b3d96f58-69ea-47f5-9148-0d2f7bdb9370", CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351], Cell[16957, 460, 1187, 26, 70, "Subsection",ExpressionUUID->"039e4464-e959-4e4a-84f9-11d6992709f0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349], Cell[26832, 771, 6634, 145, 70, "Section",ExpressionUUID->"aa642249-24ae-40dd-a5cb-ac1eb2cbdba4", CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095], Cell[263143, 5508, 756, 20, 70, "Subsection",ExpressionUUID->"e3d76a28-6c57-42a0-bbb9-a6d45f6bba3d", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318], Cell[263966, 5535, 731, 20, 70, "Subsection",ExpressionUUID->"c7d2ae56-e8d8-44a1-901a-70d1df0c1f63", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024], Cell[264901, 5572, 130, 3, 70, "Subsection",ExpressionUUID->"56f00fbc-ed40-4301-b06c-9c14cdb6e764", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210], Cell[271518, 5800, 708, 20, 70, "Subsection",ExpressionUUID->"5be87fd8-adf2-414f-a24d-934893e69aa1", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732], Cell[272377, 5833, 758, 20, 70, "Subsection",ExpressionUUID->"beddd638-853d-41fb-a6c7-4a9cda07691f", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204], Cell[273683, 5868, 809, 21, 70, "Subsection",ExpressionUUID->"dc78a21d-c632-4be1-8c2a-684ffe6f2542", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096], Cell[275028, 5904, 661, 20, 70, "Subsection",ExpressionUUID->"d5573a11-fcf2-40ac-a1b9-c6c3b5b891d6", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713], Cell[276214, 5939, 836, 22, 70, "Subsection",ExpressionUUID->"23f73330-2c57-4318-92db-52ac21a5bc0d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658], Cell[277361, 5981, 131, 3, 70, "Section",ExpressionUUID->"ecf9a7f0-557f-4845-b7cf-f921b7fb61bd", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409], Cell[278041, 5999, 766, 21, 70, "Section",ExpressionUUID->"de38341e-ab8a-41f2-8e4d-ae5be0406669", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912]}, "Documentation"->{ Cell[11870, 284, 80, 2, 70, "Section",ExpressionUUID->"9d239b55-b019-4c88-a412-a0d69a72b1a5", CellTags->"Documentation", CellID->363488142]}, "Usage"->{ Cell[11975, 290, 1697, 44, 70, "Subsection",ExpressionUUID->"b3d96f58-69ea-47f5-9148-0d2f7bdb9370", CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351]}, "Details & Options"->{ Cell[16957, 460, 1187, 26, 70, "Subsection",ExpressionUUID->"039e4464-e959-4e4a-84f9-11d6992709f0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349]}, "Notes"->{ Cell[16957, 460, 1187, 26, 70, "Subsection",ExpressionUUID->"039e4464-e959-4e4a-84f9-11d6992709f0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349]}, "TabNext"->{ Cell[18147, 488, 1041, 31, 70, "Notes",ExpressionUUID->"5b825cf0-d6c7-4ee1-94eb-f86a19981375", CellTags->"TabNext", CellID->107622986], Cell[19191, 521, 238, 10, 70, "Notes",ExpressionUUID->"be49e083-0b95-411c-82db-b6b06e896863", CellTags->"TabNext", CellID->95135932], Cell[19953, 552, 2013, 63, 70, "Notes",ExpressionUUID->"3ce1cb14-0ee7-4ed7-95ed-ecd8b244e201", CellTags->"TabNext", CellID->412379553], Cell[273138, 5855, 508, 8, 70, "Item",ExpressionUUID->"156c2c8f-3cfb-48db-bad7-1583a5fceed6", CellTags->"TabNext", CellID->960273585], Cell[274495, 5891, 496, 8, 70, "Text",ExpressionUUID->"4f88d6ed-83a1-43ec-a35f-a86792bab74f", CellTags->"TabNext", CellID->343081869], Cell[275692, 5926, 485, 8, 70, "Item",ExpressionUUID->"2830f4b3-a1f1-486c-8092-d95b3d0dc4c3", CellTags->"TabNext", CellID->485448166], Cell[277495, 5986, 509, 8, 70, "Text",ExpressionUUID->"63a39742-bf21-4ee2-9386-958967a9d903", CellTags->"TabNext", CellID->567921317], Cell[278810, 6022, 495, 8, 70, "Text",ExpressionUUID->"70e3088e-a734-428a-84d2-bb219489b4f5", CellTags->"TabNext", CellID->920818074]}, "Examples"->{ Cell[26832, 771, 6634, 145, 70, "Section",ExpressionUUID->"aa642249-24ae-40dd-a5cb-ac1eb2cbdba4", CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095]}, "Source & Additional Information"->{ Cell[263002, 5502, 116, 2, 70, "Section",ExpressionUUID->"1cf83a13-38ae-4a25-95ef-3a6331afc3ff", CellTags->"Source & Additional Information", CellID->348526984]}, "Contributed By"->{ Cell[263143, 5508, 756, 20, 70, "Subsection",ExpressionUUID->"e3d76a28-6c57-42a0-bbb9-a6d45f6bba3d", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318]}, "ContributorInformation"->{ Cell[263143, 5508, 756, 20, 70, "Subsection",ExpressionUUID->"e3d76a28-6c57-42a0-bbb9-a6d45f6bba3d", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318]}, "Keywords"->{ Cell[263966, 5535, 731, 20, 70, "Subsection",ExpressionUUID->"c7d2ae56-e8d8-44a1-901a-70d1df0c1f63", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024]}, "Categories"->{ Cell[264901, 5572, 130, 3, 70, "Subsection",ExpressionUUID->"56f00fbc-ed40-4301-b06c-9c14cdb6e764", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210]}, "CategoriesCell"->{ Cell[265034, 5577, 6447, 218, 70, "Output",ExpressionUUID->"ea3d3e36-dd3d-4c82-8931-90839955ec44", CellTags->"CategoriesCell"]}, "Related Symbols"->{ Cell[271518, 5800, 708, 20, 70, "Subsection",ExpressionUUID->"5be87fd8-adf2-414f-a24d-934893e69aa1", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732]}, "Related Resource Objects"->{ Cell[272377, 5833, 758, 20, 70, "Subsection",ExpressionUUID->"beddd638-853d-41fb-a6c7-4a9cda07691f", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204]}, "Source/Reference Citation"->{ Cell[273683, 5868, 809, 21, 70, "Subsection",ExpressionUUID->"dc78a21d-c632-4be1-8c2a-684ffe6f2542", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096]}, "Links"->{ Cell[275028, 5904, 661, 20, 70, "Subsection",ExpressionUUID->"d5573a11-fcf2-40ac-a1b9-c6c3b5b891d6", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713]}, "Tests"->{ Cell[276214, 5939, 836, 22, 70, "Subsection",ExpressionUUID->"23f73330-2c57-4318-92db-52ac21a5bc0d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658]}, "VerificationTests"->{ Cell[276214, 5939, 836, 22, 70, "Subsection",ExpressionUUID->"23f73330-2c57-4318-92db-52ac21a5bc0d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658]}, "Author Notes"->{ Cell[277361, 5981, 131, 3, 70, "Section",ExpressionUUID->"ecf9a7f0-557f-4845-b7cf-f921b7fb61bd", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409]}, "Submission Notes"->{ Cell[278041, 5999, 766, 21, 70, "Section",ExpressionUUID->"de38341e-ab8a-41f2-8e4d-ae5be0406669", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 365873, 7711}, {"TemplateCell", 366033, 7714}, {"Title", 366324, 7719}, {"Description", 366483, 7722}, {"Definition", 366639, 7725}, {"Function", 366835, 7729}, {"TemplateCellGroup", 367040, 7733}, {"Documentation", 369604, 7776}, {"Usage", 369766, 7780}, {"Details & Options", 369961, 7784}, {"Notes", 370164, 7788}, {"TabNext", 370369, 7792}, {"Examples", 371530, 7817}, {"Source & Additional Information", 371740, 7821}, {"Contributed By", 371932, 7825}, {"ContributorInformation", 372168, 7829}, {"Keywords", 372390, 7833}, {"Categories", 372582, 7837}, {"CategoriesCell", 372779, 7841}, {"Related Symbols", 372935, 7844}, {"Related Resource Objects", 373148, 7848}, {"Source/Reference Citation", 373371, 7852}, {"Links", 373575, 7856}, {"Tests", 373759, 7860}, {"VerificationTests", 373976, 7864}, {"Author Notes", 374188, 7868}, {"Submission Notes", 374386, 7872} } *) (*NotebookFileOutline Notebook[{ Cell[616, 21, 85, 1, 70, "Title",ExpressionUUID->"27576f04-e4f7-48dc-8394-d3e72892161f", CellTags->{"Name", "TemplateCell", "Title"}], Cell[704, 24, 137, 3, 70, "Text",ExpressionUUID->"e11b5f06-936e-4ddf-9e36-2b4df398d66b", CellTags->{"Description", "TemplateCell"}], Cell[CellGroupData[{ Cell[866, 31, 946, 23, 70, "Section",ExpressionUUID->"7b48b598-f8ab-43cf-93c1-c5504cef798d", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->271561301], Cell[1815, 56, 10040, 225, 70, "Code",ExpressionUUID->"51384c06-cbc8-4447-97a6-e822358bb548", CellID->31404727] }, Open ]], Cell[11870, 284, 80, 2, 70, "Section",ExpressionUUID->"9d239b55-b019-4c88-a412-a0d69a72b1a5", CellTags->"Documentation", CellID->363488142], Cell[CellGroupData[{ Cell[11975, 290, 1697, 44, 70, "Subsection",ExpressionUUID->"b3d96f58-69ea-47f5-9148-0d2f7bdb9370", CellTags->{"TemplateCellGroup", "Usage"}, CellID->657272351], Cell[CellGroupData[{ Cell[13697, 338, 857, 30, 70, "UsageInputs",ExpressionUUID->"4ce88324-852e-489c-a274-fdb7f1f72467"], Cell[14557, 370, 1058, 36, 70, "UsageDescription",ExpressionUUID->"e1177f7a-30f1-4482-9d85-0e58fe67a10e"] }, Open ]], Cell[CellGroupData[{ Cell[15652, 411, 1083, 35, 70, "UsageInputs",ExpressionUUID->"5cc446cb-de65-4c1a-bad7-4b6b2b06d298"], Cell[16738, 448, 170, 6, 70, "UsageDescription",ExpressionUUID->"f996f277-746d-4f5d-b5be-0c6ebc42b1a5"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16957, 460, 1187, 26, 70, "Subsection",ExpressionUUID->"039e4464-e959-4e4a-84f9-11d6992709f0", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->25317349], Cell[18147, 488, 1041, 31, 70, "Notes",ExpressionUUID->"5b825cf0-d6c7-4ee1-94eb-f86a19981375", CellTags->"TabNext", CellID->107622986], Cell[19191, 521, 238, 10, 70, "Notes",ExpressionUUID->"be49e083-0b95-411c-82db-b6b06e896863", CellTags->"TabNext", CellID->95135932], Cell[19432, 533, 518, 17, 70, "Notes",ExpressionUUID->"747174b1-7e07-4774-bab2-168f05c3d30a", CellID->117308948], Cell[19953, 552, 2013, 63, 70, "Notes",ExpressionUUID->"3ce1cb14-0ee7-4ed7-95ed-ecd8b244e201", CellTags->"TabNext", CellID->412379553], Cell[21969, 617, 3646, 110, 70, "Notes",ExpressionUUID->"667a502e-b838-40a7-98e2-6b7a5a38d967", CellID->740375827], Cell[25618, 729, 1177, 37, 70, "Notes",ExpressionUUID->"a4a1e829-7928-4ed7-8545-4faf1ebe3db1", CellID->338723645] }, Open ]], Cell[CellGroupData[{ Cell[26832, 771, 6634, 145, 70, "Section",ExpressionUUID->"aa642249-24ae-40dd-a5cb-ac1eb2cbdba4", CellTags->{"Examples", "TemplateCellGroup"}, CellID->487306095], Cell[CellGroupData[{ Cell[33491, 920, 56, 1, 70, "Subsection",ExpressionUUID->"ed47b833-10df-4e5e-8d82-0ec0da01d182", CellID->462042388], Cell[33550, 923, 339, 6, 70, "Text",ExpressionUUID->"d05baaf4-3168-436b-a907-60a5a2c6bea9", CellID->271879374], Cell[CellGroupData[{ Cell[33914, 933, 1828, 46, 70, "Input",ExpressionUUID->"8302e33c-bdd6-44f2-91a6-d0334f004aca", CellID->161500924], Cell[35745, 981, 6058, 114, 70, "Output",ExpressionUUID->"8f6a9d88-110e-4b49-ab0d-140361825356", CellID->55084629] }, Open ]], Cell[CellGroupData[{ Cell[41840, 1100, 1263, 28, 70, "Input",ExpressionUUID->"943ed4bf-10d3-4d19-9766-0cfa42121f52", CellID->671103164], Cell[43106, 1130, 10750, 197, 70, "Output",ExpressionUUID->"3881196a-ff44-42a5-b904-199145f2d676", CellID->329708566] }, Open ]], Cell[53871, 1330, 1733, 49, 70, "Text",ExpressionUUID->"06c61313-a7c2-4a60-bcf2-6f786bf5ab6a", CellID->196825297], Cell[CellGroupData[{ Cell[55629, 1383, 1384, 33, 70, "Input",ExpressionUUID->"692a833c-fe27-441a-833b-94b8b204e1b2", CellID->78453074], Cell[57016, 1418, 6468, 120, 70, "Output",ExpressionUUID->"02595f4c-443b-4224-b5ff-3d769d03a243", CellID->714980295] }, Open ]], Cell[CellGroupData[{ Cell[63521, 1543, 602, 18, 70, "Input",ExpressionUUID->"0a31083b-eca5-455b-8fc5-070b1b9648bc", CellID->74343381], Cell[64126, 1563, 9972, 186, 70, "Output",ExpressionUUID->"261d7079-8f3c-44fd-a061-1434d3ade4d6", CellID->370776675] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[74147, 1755, 115, 2, 70, "Subsection",ExpressionUUID->"a7db0801-7e97-4a1c-96da-b9001949cf01", CellID->154212933], Cell[74265, 1759, 371, 8, 70, "Text",ExpressionUUID->"4d15d3b1-9eea-4330-b8d6-e5055810af27", CellID->119078020], Cell[74639, 1769, 1302, 41, 70, "Input",ExpressionUUID->"14ba880b-572e-40d5-ba87-dbd989cd9942", CellID->3842048], Cell[75944, 1812, 229, 5, 70, "Text",ExpressionUUID->"ba0d6a3b-81fe-4dbb-97bc-caed27531fa2", CellID->315801539], Cell[CellGroupData[{ Cell[76198, 1821, 255, 7, 70, "Input",ExpressionUUID->"fea1be4c-3845-4346-8bdd-267223dbe6a5", CellID->26770659], Cell[76456, 1830, 233, 7, 70, "Output",ExpressionUUID->"ff086f96-33b9-4113-8ebe-17ef6de23a9c", CellID->224915703] }, Open ]], Cell[CellGroupData[{ Cell[76726, 1842, 277, 8, 70, "Input",ExpressionUUID->"c6fe093b-4c31-417c-8829-6525a4439efe", CellID->246798801], Cell[77006, 1852, 162, 5, 70, "Output",ExpressionUUID->"5e26e76b-de20-4b4f-9081-1cc2ff90c838", CellID->754514990] }, Open ]], Cell[77183, 1860, 134, 2, 70, "Text",ExpressionUUID->"ef342086-4b6c-4806-8f64-29bcb4d091b4", CellID->107243424], Cell[CellGroupData[{ Cell[77342, 1866, 655, 15, 70, "Input",ExpressionUUID->"98b76371-a35b-44ff-ac35-185c710923e8", CellID->90161446], Cell[78000, 1883, 6425, 129, 70, "Output",ExpressionUUID->"0910252d-04af-4fd6-af86-f908ea12e7be", CellID->203019342] }, Open ]], Cell[CellGroupData[{ Cell[84462, 2017, 559, 17, 70, "Input",ExpressionUUID->"040e2876-08f8-4091-a472-2e41d0622cb7", CellID->21031294], Cell[85024, 2036, 9692, 182, 70, "Output",ExpressionUUID->"483705cd-ec53-45be-845c-2717baad40c0", CellID->62565212] }, Open ]], Cell[CellGroupData[{ Cell[94753, 2223, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"16dc3581-d5e5-4011-a43f-da4b8c504010", CellID->138026538], Cell[94881, 2228, 160, 2, 70, "Text",ExpressionUUID->"f07c24bf-c7e1-46fb-89b2-b94753cda9c9", CellID->221583938], Cell[CellGroupData[{ Cell[95066, 2234, 2475, 74, 70, "Input",ExpressionUUID->"6283651a-a538-4430-a8f8-1b1e53b0b61e", CellID->200638283], Cell[97544, 2310, 5035, 100, 70, "Output",ExpressionUUID->"0fb18f7b-bb18-49be-bbe0-649b92139e40", CellID->479709532] }, Open ]], Cell[102594, 2413, 162, 2, 70, "Text",ExpressionUUID->"e7e309ef-a5bf-43c9-a8d4-0b04554a41bd", CellID->270044035], Cell[CellGroupData[{ Cell[102781, 2419, 1106, 28, 70, "Input",ExpressionUUID->"8e9ae982-c08b-4ed8-8743-ee3444ab3216", CellID->268841069], Cell[103890, 2449, 6211, 128, 70, "Output",ExpressionUUID->"27aeb78d-390c-46e4-b555-cdf00e5e49e9", CellID->547888939] }, Open ]], Cell[CellGroupData[{ Cell[110138, 2582, 242, 5, 70, "Input",ExpressionUUID->"a17afbc5-6636-4f1b-87d5-40791088cf26", CellID->54891852], Cell[110383, 2589, 1032, 19, 70, "Output",ExpressionUUID->"ac55b5f5-2d51-4336-b7fd-026531c29be1", CellID->957744636] }, Open ]], Cell[111430, 2611, 146, 2, 70, "Text",ExpressionUUID->"2e11c180-6069-416f-8594-5d209008bc8c", CellID->202197304], Cell[CellGroupData[{ Cell[111601, 2617, 467, 12, 70, "Input",ExpressionUUID->"15c08c0f-293c-48d0-8b1b-50f378488702", CellID->90361347], Cell[112071, 2631, 1205, 30, 70, "Output",ExpressionUUID->"fb169698-347b-45bb-ae22-12e53796d4d2", CellID->817401215] }, Open ]], Cell[113291, 2664, 134, 2, 70, "Text",ExpressionUUID->"228b889a-42da-4e77-b9fb-774a5385cc24", CellID->16828894], Cell[CellGroupData[{ Cell[113450, 2670, 564, 13, 70, "Input",ExpressionUUID->"47530ea7-5dca-4911-ad59-c31477bc4ca8", CellID->127239248], Cell[114017, 2685, 27119, 466, 70, "Output",ExpressionUUID->"ec2c8409-e58a-412e-8ad4-1bbd95a34a95", CellID->160609625] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[141197, 3158, 49, 1, 70, "Subsection",ExpressionUUID->"c0f7fe1c-dea1-4188-9608-24c3803a217c", CellID->776923543], Cell[CellGroupData[{ Cell[141271, 3163, 120, 2, 70, "Subsubsection",ExpressionUUID->"64777960-ebdf-4a55-bedf-fc6cf50b27ca", CellID->580999632], Cell[141394, 3167, 922, 24, 70, "Text",ExpressionUUID->"448e2900-3673-4901-a3eb-08d0f9d55e19", CellID->362362948], Cell[CellGroupData[{ Cell[142341, 3195, 3595, 99, 70, "Input",ExpressionUUID->"7959eb58-b351-43a0-a604-71a0871c23ed", CellID->609432066], Cell[145939, 3296, 4321, 89, 70, "Output",ExpressionUUID->"49759c16-9974-4180-9e8a-e14f12b43115", CellID->752107164] }, Open ]], Cell[150275, 3388, 430, 8, 70, "Text",ExpressionUUID->"66aac0a7-8f6d-4fc3-8e16-5872dcf5c4b9", CellID->859859095], Cell[CellGroupData[{ Cell[150730, 3400, 723, 16, 70, "Input",ExpressionUUID->"e8394e44-6108-45eb-b574-9d6715f622ad", CellID->35789943], Cell[151456, 3418, 529, 12, 70, "Output",ExpressionUUID->"df5e5bf3-dbed-49da-bc7b-1cd55b85b9cf", CellID->49731182] }, Open ]], Cell[CellGroupData[{ Cell[152022, 3435, 821, 22, 70, "Input",ExpressionUUID->"4051661c-6e75-4877-9846-d5d3f272e317", CellID->88631686], Cell[152846, 3459, 24999, 432, 70, "Output",ExpressionUUID->"ddd588bb-c9d6-4b47-bdc0-b7c9b344fd60", CellID->442736] }, Open ]], Cell[177860, 3894, 251, 4, 70, "Text",ExpressionUUID->"8eeb8614-1e5d-4fbb-8f0a-0965381c2c9f", CellID->149635715], Cell[CellGroupData[{ Cell[178136, 3902, 893, 20, 70, "Input",ExpressionUUID->"9174a079-97aa-4da6-95ca-c22a884b08a6", CellID->129487404], Cell[179032, 3924, 552, 12, 70, "Output",ExpressionUUID->"f11f3e01-aded-446e-8ed3-2ea10b80d473", CellID->306254510] }, Open ]], Cell[CellGroupData[{ Cell[179621, 3941, 870, 23, 70, "Input",ExpressionUUID->"519c9de3-8558-489b-a5ae-02504c2c292f", CellID->52953065], Cell[180494, 3966, 23381, 405, 70, "Output",ExpressionUUID->"8ae15f34-d6e6-4634-b87d-72470f28188b", CellID->105135350] }, Open ]], Cell[203890, 4374, 395, 7, 70, "Text",ExpressionUUID->"c7c2c9e9-9c16-43e9-95d0-1280d1723cda", CellID->19082755], Cell[CellGroupData[{ Cell[204310, 4385, 909, 20, 70, "Input",ExpressionUUID->"c5af71f7-e717-4ca0-8ed5-bc7976996eaf", CellID->231661], Cell[205222, 4407, 534, 12, 70, "Output",ExpressionUUID->"f34897f5-b461-48d8-bb08-23d77dc058a1", CellID->135172226] }, Open ]], Cell[CellGroupData[{ Cell[205793, 4424, 890, 23, 70, "Input",ExpressionUUID->"49f6d234-49a6-4506-ac2e-4e1f11413a91", CellID->130313828], Cell[206686, 4449, 25054, 433, 70, "Output",ExpressionUUID->"d8325163-451a-41a8-9123-77997f73a84f", CellID->74178432] }, Open ]], Cell[231755, 4885, 221, 5, 70, "Text",ExpressionUUID->"efb0b43c-0a18-412b-a276-d373a38af2c5", CellID->492233590], Cell[CellGroupData[{ Cell[232001, 4894, 1234, 31, 70, "Input",ExpressionUUID->"78f69035-bca5-4df5-a65a-64b6b7cec46d", CellID->105305656], Cell[233238, 4927, 535, 12, 70, "Output",ExpressionUUID->"a694fb0e-60f7-4f78-955c-02b5e6a984f6", CellID->525667469] }, Open ]], Cell[CellGroupData[{ Cell[233810, 4944, 746, 21, 70, "Input",ExpressionUUID->"b3bc857f-5878-4387-8eaa-0868db9ae7d8", CellID->106129790], Cell[234559, 4967, 24984, 432, 70, "Output",ExpressionUUID->"cc6f9b42-85b7-41cc-82dd-12aa5cc55b7a", CellID->1646334] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[259592, 5405, 125, 3, 70, "Subsubsection",ExpressionUUID->"8a7dbd96-d46c-4197-b314-e2029aa56620", CellID->95065455], Cell[259720, 5410, 147, 2, 70, "Text",ExpressionUUID->"f009eedb-b2ce-4063-bae9-4dbea7bc3fdf", CellID->370056950], Cell[CellGroupData[{ Cell[259892, 5416, 1185, 30, 70, "Input",ExpressionUUID->"81078ecd-03eb-44c5-8f53-024b2440282d", CellID->926064], Cell[261080, 5448, 529, 11, 70, "Output",ExpressionUUID->"d6bbf5aa-673f-4c71-9087-fa00d945f6f2", CellID->97774886] }, Open ]], Cell[CellGroupData[{ Cell[261646, 5464, 586, 14, 70, "Input",ExpressionUUID->"877144c0-a3f1-41e5-ad0a-18180ec3cf16", CellID->131044922], Cell[262235, 5480, 694, 14, 70, "Output",ExpressionUUID->"5383fafd-b5ef-465b-95bd-74d81d670967", CellID->85363488] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[263002, 5502, 116, 2, 70, "Section",ExpressionUUID->"1cf83a13-38ae-4a25-95ef-3a6331afc3ff", CellTags->"Source & Additional Information", CellID->348526984], Cell[CellGroupData[{ Cell[263143, 5508, 756, 20, 70, "Subsection",ExpressionUUID->"e3d76a28-6c57-42a0-bbb9-a6d45f6bba3d", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->581484318], Cell[263902, 5530, 27, 0, 70, "Text",ExpressionUUID->"94106f70-f54a-4de3-8da9-51b80b69333a"] }, Open ]], Cell[CellGroupData[{ Cell[263966, 5535, 731, 20, 70, "Subsection",ExpressionUUID->"c7d2ae56-e8d8-44a1-901a-70d1df0c1f63", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->234953024], Cell[264700, 5557, 33, 0, 70, "Item",ExpressionUUID->"22205cd5-4a80-42e6-af1f-a9272e3cea0a"], Cell[264736, 5559, 23, 0, 70, "Item",ExpressionUUID->"27609c88-883d-4fd5-90af-a91503b2a30e"], Cell[264762, 5561, 25, 0, 70, "Item",ExpressionUUID->"2b125b4d-9acf-4e07-b140-f6b6c93f6995"], Cell[264790, 5563, 26, 0, 70, "Item",ExpressionUUID->"a5fa101a-c66a-45ed-8e92-c5a150513943"], Cell[264819, 5565, 19, 0, 70, "Item",ExpressionUUID->"fd87b3ac-2ffd-4293-a169-0ee765f4d34c"], Cell[264841, 5567, 23, 0, 70, "Item",ExpressionUUID->"21935792-94bc-4bfa-b0fa-16030b733967"] }, Open ]], Cell[CellGroupData[{ Cell[264901, 5572, 130, 3, 70, "Subsection",ExpressionUUID->"56f00fbc-ed40-4301-b06c-9c14cdb6e764", CellTags->{"Categories", "TemplateCellGroup"}, CellID->360699210], Cell[265034, 5577, 6447, 218, 70, "Output",ExpressionUUID->"ea3d3e36-dd3d-4c82-8931-90839955ec44", CellTags->"CategoriesCell"] }, Open ]], Cell[CellGroupData[{ Cell[271518, 5800, 708, 20, 70, "Subsection",ExpressionUUID->"5be87fd8-adf2-414f-a24d-934893e69aa1", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->787980732], Cell[272229, 5822, 33, 0, 70, "Item",ExpressionUUID->"feeeaff6-932f-41dc-8f8d-0e7a2a19754a"], Cell[272265, 5824, 23, 0, 70, "Item",ExpressionUUID->"f6e4b47c-3d4b-4af5-92c9-68fa669a7202"], Cell[272291, 5826, 27, 0, 70, "Item",ExpressionUUID->"d94869b3-52f6-489b-9180-3ee711396d46"], Cell[272321, 5828, 19, 0, 70, "Item",ExpressionUUID->"768432e1-85be-4c70-878f-defc89153c08"] }, Open ]], Cell[CellGroupData[{ Cell[272377, 5833, 758, 20, 70, "Subsection",ExpressionUUID->"beddd638-853d-41fb-a6c7-4a9cda07691f", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->202501204], Cell[273138, 5855, 508, 8, 70, "Item",ExpressionUUID->"156c2c8f-3cfb-48db-bad7-1583a5fceed6", CellTags->"TabNext", CellID->960273585] }, Open ]], Cell[CellGroupData[{ Cell[273683, 5868, 809, 21, 70, "Subsection",ExpressionUUID->"dc78a21d-c632-4be1-8c2a-684ffe6f2542", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->720896096], Cell[274495, 5891, 496, 8, 70, "Text",ExpressionUUID->"4f88d6ed-83a1-43ec-a35f-a86792bab74f", CellTags->"TabNext", CellID->343081869] }, Open ]], Cell[CellGroupData[{ Cell[275028, 5904, 661, 20, 70, "Subsection",ExpressionUUID->"d5573a11-fcf2-40ac-a1b9-c6c3b5b891d6", CellTags->{"Links", "TemplateCellGroup"}, CellID->282884713], Cell[275692, 5926, 485, 8, 70, "Item",ExpressionUUID->"2830f4b3-a1f1-486c-8092-d95b3d0dc4c3", CellTags->"TabNext", CellID->485448166] }, Open ]], Cell[CellGroupData[{ Cell[276214, 5939, 836, 22, 70, "Subsection",ExpressionUUID->"23f73330-2c57-4318-92db-52ac21a5bc0d", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->899735658], Cell[CellGroupData[{ Cell[277075, 5965, 129, 4, 70, "Input",ExpressionUUID->"50cb8c20-daed-474b-9799-a540d209300e", CellID->667877521], Cell[277207, 5971, 93, 3, 70, "Output",ExpressionUUID->"c61a16fc-fb4f-43c9-a13f-4178217e5908", CellID->993233288] }, Open ]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[277361, 5981, 131, 3, 70, "Section",ExpressionUUID->"ecf9a7f0-557f-4845-b7cf-f921b7fb61bd", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->871584409], Cell[277495, 5986, 509, 8, 70, "Text",ExpressionUUID->"63a39742-bf21-4ee2-9386-958967a9d903", CellTags->"TabNext", CellID->567921317] }, Open ]], Cell[CellGroupData[{ Cell[278041, 5999, 766, 21, 70, "Section",ExpressionUUID->"de38341e-ab8a-41f2-8e4d-ae5be0406669", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->22658912], Cell[278810, 6022, 495, 8, 70, "Text",ExpressionUUID->"70e3088e-a734-428a-84d2-bb219489b4f5", CellTags->"TabNext", CellID->920818074] }, Open ]] } ] *) (* End of internal cache information *)