Merge branch 'master' of https://gitlab.aei.uni-hannover.de/xisco/rdstackingproject

Analytical_Attempt.nb

+(* 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  ]]
+}
+]
+*)
+