diff --git a/Analytical_Attempt.nb b/Analytical_Attempt.nb
new file mode 100644
index 0000000000000000000000000000000000000000..54cf77bf72a4cbe9ccd09a121374fdbb54f4daa6
--- /dev/null
+++ b/Analytical_Attempt.nb
@@ -0,0 +1,755 @@
+(* Content-type: application/vnd.wolfram.mathematica *)
+
+(*** Wolfram Notebook File ***)
+(* http://www.wolfram.com/nb *)
+
+(* CreatedBy='Mathematica 11.0' *)
+
+(*CacheID: 234*)
+(* Internal cache information:
+NotebookFileLineBreakTest
+NotebookFileLineBreakTest
+NotebookDataPosition[ 158, 7]
+NotebookDataLength[ 27809, 747]
+NotebookOptionsPosition[ 26793, 705]
+NotebookOutlinePosition[ 27167, 722]
+CellTagsIndexPosition[ 27124, 719]
+WindowFrame->Normal*)
+
+(* Beginning of Notebook Content *)
+Notebook[{
+
+Cell[CellGroupData[{
+Cell[BoxData[
+ RowBox[{"mode0", " ", "=", " ",
+ RowBox[{"A0", "*",
+ RowBox[{"Exp", "[",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"t", "/", "\[Tau]0"}], ")"}]}], "]"}], "*",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Omega]0", " ", "t"}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.822356881147951*^9, 3.822356881964858*^9},
+ 3.822357070101618*^9, 3.822358244328022*^9, {3.822358317940413*^9,
+ 3.8223583996954603`*^9}}],
+
+Cell[BoxData[
+ RowBox[{"A0", " ",
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{"-",
+ FractionBox["t", "\[Tau]0"]}]], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"t", " ", "\[Omega]0"}], "]"}]}]], "Output",
+ CellChangeTimes->{3.822358404133419*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"mode1", " ", "=", " ",
+ RowBox[{"A1", "*",
+ RowBox[{"Exp", "[",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"t", "/", "\[Tau]1"}], ")"}]}], "]"}], "*",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"\[Omega]1", " ", "t"}], " ", "+", " ", "\[Phi]1"}],
+ "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.822358664420115*^9, 3.8223586825090322`*^9}}],
+
+Cell[BoxData[
+ RowBox[{"A1", " ",
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{"-",
+ FractionBox["t", "\[Tau]1"]}]], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]1", "+",
+ RowBox[{"t", " ", "\[Omega]1"}]}], "]"}]}]], "Output",
+ CellChangeTimes->{3.822358689649417*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"modeEff", " ", "=", " ",
+ RowBox[{"Aeff", "*",
+ RowBox[{"Exp", "[",
+ RowBox[{"-",
+ RowBox[{"(",
+ RowBox[{"t", "/", "\[Tau]eff"}], ")"}]}], "]"}], "*",
+ RowBox[{"Cos", "[",
+ RowBox[{
+ RowBox[{"\[Omega]eff", " ", "t"}], " ", "+", " ", "\[Phi]eff"}],
+ "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.822358697310649*^9, 3.822358717401741*^9}}],
+
+Cell[BoxData[
+ RowBox[{"Aeff", " ",
+ SuperscriptBox["\[ExponentialE]",
+ RowBox[{"-",
+ FractionBox["t", "\[Tau]eff"]}]], " ",
+ RowBox[{"Cos", "[",
+ RowBox[{"\[Phi]eff", "+",
+ RowBox[{"t", " ", "\[Omega]eff"}]}], "]"}]}]], "Output",
+ CellChangeTimes->{3.822358719831192*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"mode04s", " ", "=", " ",
+ RowBox[{"Series", "[",
+ RowBox[{"mode0", ",", " ",
+ RowBox[{"{",
+ RowBox[{"t", ",", " ", "0", ",", " ", "3"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.822358479348702*^9, 3.822358506944668*^9}, {
+ 3.822358543914188*^9, 3.822358560267785*^9}, {3.822359398773378*^9,
+ 3.822359401241465*^9}}],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{"A0", "-",
+ FractionBox[
+ RowBox[{"A0", " ", "t"}], "\[Tau]0"], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ FractionBox["A0",
+ RowBox[{"2", " ",
+ SuperscriptBox["\[Tau]0", "2"]}]], "-",
+ FractionBox[
+ RowBox[{"A0", " ",
+ SuperscriptBox["\[Omega]0", "2"]}], "2"]}], ")"}], " ",
+ SuperscriptBox["t", "2"]}], "+",
+ FractionBox[
+ RowBox[{"A0", " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-", "1"}], "+",
+ RowBox[{"3", " ",
+ SuperscriptBox["\[Tau]0", "2"], " ",
+ SuperscriptBox["\[Omega]0", "2"]}]}], ")"}], " ",
+ SuperscriptBox["t", "3"]}],
+ RowBox[{"6", " ",
+ SuperscriptBox["\[Tau]0", "3"]}]], "+",
+ InterpretationBox[
+ SuperscriptBox[
+ RowBox[{"O", "[", "t", "]"}], "4"],
+ SeriesData[$CellContext`t, 0, {}, 0, 4, 1],
+ Editable->False]}],
+ SeriesData[$CellContext`t,
+ 0, {$CellContext`A0, -$CellContext`A0/$CellContext`\[Tau]0,
+ Rational[1, 2] $CellContext`A0 $CellContext`\[Tau]0^(-2) +
+ Rational[-1, 2] $CellContext`A0 $CellContext`\[Omega]0^2,
+ Rational[1, 6] $CellContext`A0 $CellContext`\[Tau]0^(-3) (-1 +
+ 3 $CellContext`\[Tau]0^2 $CellContext`\[Omega]0^2)}, 0, 4, 1],
+ Editable->False]], "Output",
+ CellChangeTimes->{{3.822358501661491*^9, 3.8223585072712717`*^9},
+ 3.8223585614802303`*^9, 3.822359405056877*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"mode14s", " ", "=", " ",
+ RowBox[{"Series", "[",
+ RowBox[{"mode1", ",", " ",
+ RowBox[{"{",
+ RowBox[{"t", ",", " ", "0", ",", " ", "3"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.8223587326328382`*^9, 3.822358734986991*^9}, {
+ 3.822359407944277*^9, 3.822359411042738*^9}}],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{
+ RowBox[{"A1", " ",
+ RowBox[{"Cos", "[", "\[Phi]1", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"A1", " ",
+ RowBox[{"Cos", "[", "\[Phi]1", "]"}]}], "\[Tau]1"]}], "-",
+ RowBox[{"A1", " ", "\[Omega]1", " ",
+ RowBox[{"Sin", "[", "\[Phi]1", "]"}]}]}], ")"}], " ", "t"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"A1", " ",
+ RowBox[{"Cos", "[", "\[Phi]1", "]"}]}],
+ RowBox[{"2", " ",
+ SuperscriptBox["\[Tau]1", "2"]}]], "-",
+ RowBox[{
+ FractionBox["1", "2"], " ", "A1", " ",
+ SuperscriptBox["\[Omega]1", "2"], " ",
+ RowBox[{"Cos", "[", "\[Phi]1", "]"}]}], "+",
+ FractionBox[
+ RowBox[{"A1", " ", "\[Omega]1", " ",
+ RowBox[{"Sin", "[", "\[Phi]1", "]"}]}], "\[Tau]1"]}], ")"}], " ",
+ SuperscriptBox["t", "2"]}], "+",
+ FractionBox[
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "A1"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]1", "]"}]}], "+",
+ RowBox[{"3", " ", "A1", " ",
+ SuperscriptBox["\[Tau]1", "2"], " ",
+ SuperscriptBox["\[Omega]1", "2"], " ",
+ RowBox[{"Cos", "[", "\[Phi]1", "]"}]}], "-",
+ RowBox[{"3", " ", "A1", " ", "\[Tau]1", " ", "\[Omega]1", " ",
+ RowBox[{"Sin", "[", "\[Phi]1", "]"}]}], "+",
+ RowBox[{"A1", " ",
+ SuperscriptBox["\[Tau]1", "3"], " ",
+ SuperscriptBox["\[Omega]1", "3"], " ",
+ RowBox[{"Sin", "[", "\[Phi]1", "]"}]}]}], ")"}], " ",
+ SuperscriptBox["t", "3"]}],
+ RowBox[{"6", " ",
+ SuperscriptBox["\[Tau]1", "3"]}]], "+",
+ InterpretationBox[
+ SuperscriptBox[
+ RowBox[{"O", "[", "t", "]"}], "4"],
+ SeriesData[$CellContext`t, 0, {}, 0, 4, 1],
+ Editable->False]}],
+ SeriesData[$CellContext`t,
+ 0, {$CellContext`A1
+ Cos[$CellContext`\[Phi]1], -$CellContext`A1 $CellContext`\[Tau]1^(-1)
+ Cos[$CellContext`\[Phi]1] - $CellContext`A1 $CellContext`\[Omega]1
+ Sin[$CellContext`\[Phi]1],
+ Rational[1, 2] $CellContext`A1 $CellContext`\[Tau]1^(-2)
+ Cos[$CellContext`\[Phi]1] +
+ Rational[-1, 2] $CellContext`A1 $CellContext`\[Omega]1^2
+ Cos[$CellContext`\[Phi]1] + $CellContext`A1 $CellContext`\[Tau]1^(-1) \
+$CellContext`\[Omega]1 Sin[$CellContext`\[Phi]1],
+ Rational[1, 6] $CellContext`\[Tau]1^(-3) (-$CellContext`A1
+ Cos[$CellContext`\[Phi]1] +
+ 3 $CellContext`A1 $CellContext`\[Tau]1^2 $CellContext`\[Omega]1^2
+ Cos[$CellContext`\[Phi]1] -
+ 3 $CellContext`A1 $CellContext`\[Tau]1 $CellContext`\[Omega]1
+ Sin[$CellContext`\[Phi]1] + $CellContext`A1 $CellContext`\[Tau]1^3 \
+$CellContext`\[Omega]1^3 Sin[$CellContext`\[Phi]1])}, 0, 4, 1],
+ Editable->False]], "Output",
+ CellChangeTimes->{3.822358735504743*^9, 3.822359411609585*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"modeEff4s", " ", "=", " ",
+ RowBox[{"Series", "[",
+ RowBox[{"modeEff", ",", " ",
+ RowBox[{"{",
+ RowBox[{"t", ",", " ", "0", ",", " ", "3"}], "}"}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.822358753087944*^9, 3.822358756895288*^9}, {
+ 3.82235941578246*^9, 3.822359418344737*^9}}],
+
+Cell[BoxData[
+ InterpretationBox[
+ RowBox[{
+ RowBox[{"Aeff", " ",
+ RowBox[{"Cos", "[", "\[Phi]eff", "]"}]}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"Aeff", " ",
+ RowBox[{"Cos", "[", "\[Phi]eff", "]"}]}], "\[Tau]eff"]}], "-",
+ RowBox[{"Aeff", " ", "\[Omega]eff", " ",
+ RowBox[{"Sin", "[", "\[Phi]eff", "]"}]}]}], ")"}], " ", "t"}], "+",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ FractionBox[
+ RowBox[{"Aeff", " ",
+ RowBox[{"Cos", "[", "\[Phi]eff", "]"}]}],
+ RowBox[{"2", " ",
+ SuperscriptBox["\[Tau]eff", "2"]}]], "-",
+ RowBox[{
+ FractionBox["1", "2"], " ", "Aeff", " ",
+ SuperscriptBox["\[Omega]eff", "2"], " ",
+ RowBox[{"Cos", "[", "\[Phi]eff", "]"}]}], "+",
+ FractionBox[
+ RowBox[{"Aeff", " ", "\[Omega]eff", " ",
+ RowBox[{"Sin", "[", "\[Phi]eff", "]"}]}], "\[Tau]eff"]}], ")"}], " ",
+
+ SuperscriptBox["t", "2"]}], "+",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"6", " ",
+ SuperscriptBox["\[Tau]eff", "3"]}]],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "Aeff"}], " ",
+ RowBox[{"Cos", "[", "\[Phi]eff", "]"}]}], "+",
+ RowBox[{"3", " ", "Aeff", " ",
+ SuperscriptBox["\[Tau]eff", "2"], " ",
+ SuperscriptBox["\[Omega]eff", "2"], " ",
+ RowBox[{"Cos", "[", "\[Phi]eff", "]"}]}], "-",
+ RowBox[{"3", " ", "Aeff", " ", "\[Tau]eff", " ", "\[Omega]eff", " ",
+ RowBox[{"Sin", "[", "\[Phi]eff", "]"}]}], "+",
+ RowBox[{"Aeff", " ",
+ SuperscriptBox["\[Tau]eff", "3"], " ",
+ SuperscriptBox["\[Omega]eff", "3"], " ",
+ RowBox[{"Sin", "[", "\[Phi]eff", "]"}]}]}], ")"}], " ",
+ SuperscriptBox["t", "3"]}]}], "+",
+ InterpretationBox[
+ SuperscriptBox[
+ RowBox[{"O", "[", "t", "]"}], "4"],
+ SeriesData[$CellContext`t, 0, {}, 0, 4, 1],
+ Editable->False]}],
+ SeriesData[$CellContext`t,
+ 0, {$CellContext`Aeff
+ Cos[$CellContext`\[Phi]eff], -$CellContext`Aeff \
+$CellContext`\[Tau]eff^(-1)
+ Cos[$CellContext`\[Phi]eff] - $CellContext`Aeff $CellContext`\[Omega]eff
+ Sin[$CellContext`\[Phi]eff],
+ Rational[1, 2] $CellContext`Aeff $CellContext`\[Tau]eff^(-2)
+ Cos[$CellContext`\[Phi]eff] +
+ Rational[-1, 2] $CellContext`Aeff $CellContext`\[Omega]eff^2
+ Cos[$CellContext`\[Phi]eff] + $CellContext`Aeff \
+$CellContext`\[Tau]eff^(-1) $CellContext`\[Omega]eff
+ Sin[$CellContext`\[Phi]eff],
+ Rational[1, 6] $CellContext`\[Tau]eff^(-3) (-$CellContext`Aeff
+ Cos[$CellContext`\[Phi]eff] +
+ 3 $CellContext`Aeff $CellContext`\[Tau]eff^2 $CellContext`\[Omega]eff^2
+ Cos[$CellContext`\[Phi]eff] -
+ 3 $CellContext`Aeff $CellContext`\[Tau]eff $CellContext`\[Omega]eff
+ Sin[$CellContext`\[Phi]eff] + $CellContext`Aeff $CellContext`\[Tau]eff^3 \
+$CellContext`\[Omega]eff^3 Sin[$CellContext`\[Phi]eff])}, 0, 4, 1],
+ Editable->False]], "Output",
+ CellChangeTimes->{3.822358757768655*^9, 3.8223594197144127`*^9}]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Solve", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ RowBox[{"Coefficient", "[",
+ RowBox[{"mode04s", ",", " ", "t", ",", " ", "0"}], "]"}], " ", "+",
+ " ",
+ RowBox[{"Coefficient", "[",
+ RowBox[{"mode14s", ",", " ", "t", ",", " ", "0"}], "]"}]}], " ",
+ "\[Equal]", " ",
+ RowBox[{"Coefficient", "[",
+ RowBox[{"modeEff4s", ",", " ", "t", ",", " ", "0"}], "]"}]}], " ", "&&",
+ "\[IndentingNewLine]", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Coefficient", "[",
+ RowBox[{"mode04s", ",", " ", "t", ",", " ", "1"}], "]"}], " ", "+",
+ " ",
+ RowBox[{"Coefficient", "[",
+ RowBox[{"mode14s", ",", " ", "t", ",", " ", "1"}], "]"}]}], " ",
+ "\[Equal]", " ",
+ RowBox[{"Coefficient", "[",
+ RowBox[{"modeEff4s", ",", " ", "t", ",", " ", "1"}], "]"}]}], " ", "&&",
+ "\[IndentingNewLine]", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Coefficient", "[",
+ RowBox[{"mode04s", ",", " ", "t", ",", " ", "2"}], "]"}], " ", "+",
+ " ",
+ RowBox[{"Coefficient", "[",
+ RowBox[{"mode14s", ",", " ", "t", ",", " ", "2"}], "]"}]}], " ",
+ "\[Equal]", " ",
+ RowBox[{"Coefficient", "[",
+ RowBox[{"modeEff4s", ",", " ", "t", ",", " ", "2"}], "]"}]}], " ", "&&",
+ "\[IndentingNewLine]", " ",
+ RowBox[{
+ RowBox[{
+ RowBox[{"Coefficient", "[",
+ RowBox[{"mode04s", ",", " ", "t", ",", " ", "3"}], "]"}], " ", "+",
+ " ",
+ RowBox[{"Coefficient", "[",
+ RowBox[{"mode14s", ",", " ", "t", ",", " ", "3"}], "]"}]}], " ",
+ "\[Equal]", " ",
+ RowBox[{"Coefficient", "[",
+ RowBox[{"modeEff4s", ",", " ", "t", ",", " ", "3"}], "]"}]}]}], ",",
+ " ",
+ RowBox[{"{",
+ RowBox[{
+ "Aeff", ",", " ", "\[Tau]eff", ",", " ", "\[Omega]eff", ",", " ",
+ "\[Phi]eff"}], "}"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.8223585366823874`*^9, 3.82235858974128*^9}, {
+ 3.82235864230448*^9, 3.822358658063652*^9}, {3.822358954728043*^9,
+ 3.822358966094593*^9}, {3.822359067784135*^9, 3.822359070255609*^9}, {
+ 3.822359253738838*^9, 3.8223593685489883`*^9}, {3.82235942347016*^9,
+ 3.822359468228745*^9}}],
+
+Cell[BoxData[
+ InterpretationBox[
+ TagBox[
+ FrameBox[GridBox[{
+ {
+ ItemBox[
+ TagBox[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"Aeff", "\[Rule]",
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{"2", " ", "\[ImaginaryI]", " ",
+ SuperscriptBox[
+ RowBox[{"(",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton",
+ DisplayFunction->(FrameBox[
+
+ RowBox[{
+ "\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
+ Background -> GrayLevel[0.75],
+ BaseStyle -> {
+ "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller,
+ ShowStringCharacters -> False}, BaselinePosition ->
+ Baseline, ContentPadding -> False,
+ FrameMargins -> {{1, 1}, {1, 2}}, FrameStyle -> None,
+ RoundingRadius -> 7]& )], ")"}],
+ RowBox[{"3", "/", "2"}]]}],
+ SqrtBox[
+ RowBox[{
+ RowBox[{
+ RowBox[{"-", "4"}], " ",
+ SuperscriptBox["A0", "4"], " ",
+ SuperscriptBox["\[Tau]0", "6"], " ",
+ SuperscriptBox["\[Tau]1", "6"], " ",
+ SuperscriptBox["\[Omega]0", "6"]}], "+",
+ TemplateBox[{"151"},
+ "OutputSizeLimit`Skeleton",
+ DisplayFunction->(FrameBox[
+
+ RowBox[{
+ "\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
+ Background -> GrayLevel[0.75],
+ BaseStyle -> {
+ "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller,
+ ShowStringCharacters -> False}, BaselinePosition ->
+ Baseline, ContentPadding -> False,
+ FrameMargins -> {{1, 1}, {1, 2}}, FrameStyle -> None,
+ RoundingRadius -> 7]& )]}]]]}]}], ",",
+ TemplateBox[{"2"},
+ "OutputSizeLimit`Skeleton",
+ DisplayFunction->(FrameBox[
+
+ RowBox[{
+ "\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
+ Background -> GrayLevel[0.75],
+ BaseStyle -> {
+ "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller,
+ ShowStringCharacters -> False}, BaselinePosition ->
+ Baseline, ContentPadding -> False,
+ FrameMargins -> {{1, 1}, {1, 2}}, FrameStyle -> None,
+ RoundingRadius -> 7]& )], ",",
+ RowBox[{"\[Phi]eff", "\[Rule]",
+ RowBox[{"ConditionalExpression", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"ArcTan", "[",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton",
+ DisplayFunction->(FrameBox[
+
+ RowBox[{
+ "\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
+ Background -> GrayLevel[0.75],
+ BaseStyle -> {
+ "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller,
+ ShowStringCharacters -> False}, BaselinePosition ->
+ Baseline, ContentPadding -> False,
+ FrameMargins -> {{1, 1}, {1, 2}}, FrameStyle -> None,
+ RoundingRadius -> 7]& )], "]"}], "+",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton",
+ DisplayFunction->(FrameBox[
+
+ RowBox[{
+ "\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
+ Background -> GrayLevel[0.75],
+ BaseStyle -> {
+ "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller,
+ ShowStringCharacters -> False}, BaselinePosition ->
+ Baseline, ContentPadding -> False,
+ FrameMargins -> {{1, 1}, {1, 2}}, FrameStyle -> None,
+ RoundingRadius -> 7]& )]}], ",",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton",
+ DisplayFunction->(FrameBox[
+
+ RowBox[{
+ "\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
+ Background -> GrayLevel[0.75],
+ BaseStyle -> {
+ "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller,
+ ShowStringCharacters -> False}, BaselinePosition ->
+ Baseline, ContentPadding -> False,
+ FrameMargins -> {{1, 1}, {1, 2}}, FrameStyle -> None,
+ RoundingRadius -> 7]& )]}], "]"}]}]}], "}"}], ",",
+ TemplateBox[{"2"},
+ "OutputSizeLimit`Skeleton",
+ DisplayFunction->(FrameBox[
+ RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
+ Background -> GrayLevel[0.75],
+ BaseStyle -> {
+ "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller,
+ ShowStringCharacters -> False}, BaselinePosition -> Baseline,
+ ContentPadding -> False, FrameMargins -> {{1, 1}, {1, 2}},
+ FrameStyle -> None, RoundingRadius -> 7]& )], ",",
+ RowBox[{"{",
+ TemplateBox[{"1"},
+ "OutputSizeLimit`Skeleton",
+ DisplayFunction->(FrameBox[
+
+ RowBox[{
+ "\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}],
+ Background -> GrayLevel[0.75],
+ BaseStyle -> {
+ "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller,
+ ShowStringCharacters -> False}, BaselinePosition -> Baseline,
+ ContentPadding -> False, FrameMargins -> {{1, 1}, {1, 2}},
+ FrameStyle -> None, RoundingRadius -> 7]& )], "}"}]}], "}"}],
+ Short[#, 5]& ],
+ BaseStyle->{Deployed -> False},
+ StripOnInput->False]},
+ {GridBox[{
+ {
+ TagBox[
+ TooltipBox[
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource[
+ "FEStrings", "sizeBriefExplanation"], StandardForm],
+ ImageSizeCache->{85., {3., 11.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarCategory",
+ StripOnInput->False],
+ StyleBox[
+ DynamicBox[
+ ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"],
+ StandardForm]], DynamicUpdating -> True, StripOnInput ->
+ False]],
+ Annotation[#,
+ Style[
+ Dynamic[
+ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]],
+ DynamicUpdating -> True], "Tooltip"]& ],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ StandardForm],
+ ImageSizeCache->{74., {1., 11.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"],
+ StandardForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ OutputSizeLimit`Defer, 20, 29051237435191012162, 5/2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ StandardForm],
+ ImageSizeCache->{83., {1., 11.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"],
+ StandardForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ OutputSizeLimit`Defer, 20, 29051237435191012162, 5 2],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ StandardForm],
+ ImageSizeCache->{62., {1., 11.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"],
+ StandardForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+
+ ButtonFunction:>OutputSizeLimit`ButtonFunction[
+ OutputSizeLimit`Defer, 20, 29051237435191012162, Infinity],
+ Enabled->True,
+ Evaluator->Automatic,
+ Method->"Queued"],
+ ButtonBox[
+ PaneSelectorBox[{False->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ StandardForm],
+ ImageSizeCache->{111., {1., 12.}}],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControl",
+ StripOnInput->False], True->
+ StyleBox[
+ StyleBox[
+ DynamicBox[ToBoxes[
+ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"],
+ StandardForm]],
+ StripOnInput->False,
+ DynamicUpdating->True], "SuggestionsBarControlActive",
+ StripOnInput->False]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ Alignment->Center,
+ FrameMargins->0,
+ ImageSize->{Automatic, 25}],
+ Appearance->None,
+ ButtonFunction:>FrontEndExecute[{
+ FrontEnd`SetOptions[
+ FrontEnd`$FrontEnd,
+ FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}],
+ FrontEnd`FrontEndToken["PreferencesDialog"]}],
+ Evaluator->None,
+ Method->"Preemptive"]}
+ },
+ AutoDelete->False,
+ FrameStyle->GrayLevel[0.85],
+ GridBoxDividers->{"Columns" -> {False, {True}}},
+ GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {{2}}}]}
+ },
+ DefaultBaseStyle->"Column",
+ GridBoxAlignment->{
+ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
+ "RowsIndexed" -> {}},
+ GridBoxDividers->{
+ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}},
+ "RowsIndexed" -> {}},
+ GridBoxItemSize->{
+ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}},
+ "RowsIndexed" -> {}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
+ Offset[0.2],
+ Offset[1.2], {
+ Offset[0.4]},
+ Offset[0.2]}, "RowsIndexed" -> {}}],
+ Background->RGBColor[0.9657, 0.9753, 0.9802],
+ FrameMargins->{{12, 12}, {0, 15}},
+ FrameStyle->GrayLevel[0.85],
+ RoundingRadius->5,
+ StripOnInput->False],
+ Deploy,
+ DefaultBaseStyle->"Deploy"],
+ Out[20]]], "Output",
+ CellChangeTimes->{3.822360511326003*^9}]
+}, Open ]]
+},
+WindowSize->{981, 765},
+WindowMargins->{{208, Automatic}, {Automatic, 0}},
+Magnification->1.5,
+FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 28, \
+2016)",
+StyleDefinitions->"Default.nb"
+]
+(* End of Notebook Content *)
+
+(* Internal cache information *)
+(*CellTagsOutline
+CellTagsIndex->{}
+*)
+(*CellTagsIndex
+CellTagsIndex->{}
+*)
+(*NotebookFileOutline
+Notebook[{
+Cell[CellGroupData[{
+Cell[580, 22, 437, 11, 48, "Input"],
+Cell[1020, 35, 251, 7, 56, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[1308, 47, 386, 11, 48, "Input"],
+Cell[1697, 60, 282, 8, 56, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2016, 73, 394, 11, 48, "Input"],
+Cell[2413, 86, 290, 8, 57, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[2740, 99, 366, 8, 48, "Input"],
+Cell[3109, 109, 1414, 39, 75, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[4560, 153, 319, 7, 48, "Input"],
+Cell[4882, 162, 2916, 73, 218, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[7835, 240, 320, 7, 48, "Input"],
+Cell[8158, 249, 3085, 77, 213, "Output"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[11280, 331, 2224, 56, 266, "Input"],
+Cell[13507, 389, 13270, 313, 302, "Output"]
+}, Open ]]
+}
+]
+*)
+