Skip to content
Snippets Groups Projects
Select Git revision
  • 36f40a68e1c7a8cf82a53e0a910eaa135d148716
  • master default protected
2 results

Analytical_Attempt.nb

Blame
    • Forked from Xisco Jimenez Forteza / RDStackingProject
    17 commits behind the upstream repository.
    Rayne Liu's avatar
    This first attempt looks a bit messy and bleak if you download and try to look...
    Rayne Liu authored 
    This first attempt looks a bit messy and bleak if you download and try to look at the complete expression of the solution
    cb4f9e9f
    History
    Rayne Liu's avatar cb4f9e9f
    History
    Analytical_Attempt.nb 27.31 KiB 
    (* 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  ]]
}
]
*)

    AEI Privacy Policy Imprint