QuantifyBehavior-Entropy2015.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    384589,       8849]
NotebookOptionsPosition[    373566,       8538]
NotebookOutlinePosition[    374005,       8555]
CellTagsIndexPosition[    373962,       8552]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"SetDirectory", "[", 
  "\"\<C:\\\\Users\\\\olbrich\\\\Dropbox\\\\dimensionality\\\\QuantBeh2015-\
code\>\"", "]"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6134550117950687`*^9, 3.6134550337910213`*^9}, {
  3.6134552278479767`*^9, 3.613455244502541*^9}, {3.644641997897572*^9, 
  3.644642012839314*^9}, {3.644900255184337*^9, 3.6449003198230343`*^9}}],

Cell[BoxData["\<\"C:\\\\Users\\\\olbrich\\\\Dropbox\\\\dimensionality\\\\\
QuantBeh2015-code\"\>"], "Output",
 CellChangeTimes->{3.6449003241342807`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", " ", "ComplexityDecomposition`"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6134550117950687`*^9, 3.6134550337910213`*^9}, {
  3.6134552278479767`*^9, 3.613455244502541*^9}, {3.644641997897572*^9, 
  3.644642012839314*^9}, {3.644900255184337*^9, 3.6449003198230343`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"SetOptions", "::", "optnf"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(PlotTheme\\)\[NoBreak] is not a known \
option for \[NoBreak]\\!\\(Plot\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/SetOptions\\\", ButtonNote -> \
\\\"SetOptions::optnf\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6449002993528633`*^9, 3.644900329380581*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"SetOptions", "::", "optnf"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(PlotTheme\\)\[NoBreak] is not a known \
option for \[NoBreak]\\!\\(ListPlot3D\\)\[NoBreak]. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/SetOptions\\\", ButtonNote -> \
\\\"SetOptions::optnf\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6449002993528633`*^9, 3.644900329381581*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"SetOptions", "::", "optnf"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(PlotTheme\\)\[NoBreak] is not a known \
option for \[NoBreak]\\!\\(ListLogLinearPlot\\)\[NoBreak]. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/SetOptions\\\", ButtonNote -> \
\\\"SetOptions::optnf\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6449002993528633`*^9, 3.6449003293825808`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[\\(SetOptions :: optnf\\), \
\\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this calculation. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/stop\\\", \
ButtonNote -> \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6449002993528633`*^9, 3.644900329384581*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "span"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(1 ;; \\(\\({\\(\\(-1\\)\\), 0, \\(\\(-1\\)\
\\), \\(\\(-1\\)\\)}\\)\\)\\)\[NoBreak] is not a valid Span specification. A \
Span specification should be 1, 2, or 3 integers separated by ;;. (Any of the \
integers can be omitted or replaced with All.) \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::span\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6449002993528633`*^9, 3.6449003294085827`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "span"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(\\(\\({1, 2, 1, 1}\\)\\) ;; All\\)\
\[NoBreak] is not a valid Span specification. A Span specification should be \
1, 2, or 3 integers separated by ;;. (Any of the integers can be omitted or \
replaced with All.) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\
\\\", ButtonNote -> \\\"Part::span\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6449002993528633`*^9, 3.6449003294105825`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "span"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(\\(\\({\\(\\(1 - \\(\\(Span ;; 1 ;; Span \
;; Span\\)\\)\\)\\), \\(\\(2 - \\(\\(Span ;; 1 ;; Span ;; Span\\)\\)\\)\\), \
\\(\\(1 - \\(\\(Span ;; 1 ;; Span ;; Span\\)\\)\\)\\), \\(\\(1 - \\(\\(Span \
;; 1 ;; Span ;; Span\\)\\)\\)\\)}\\)\\) ;; \\(\\({\\(\\(\\(\\(-1\\)\\) + \
\\(\\(\\(\\({0, 1, 0, 0}\\)\\) \[LeftDoubleBracket] \\(\\(\\(\\({1, 2, 1, \
1}\\)\\) ;; All\\)\\) \[RightDoubleBracket]\\)\\)\\)\\), \\(\\(\\(\\({0, 1, \
0, 0}\\)\\) \[LeftDoubleBracket] \\(\\(\\(\\({1, 2, 1, 1}\\)\\) ;; All\\)\\) \
\[RightDoubleBracket]\\)\\), \\(\\(\\(\\(-1\\)\\) + \\(\\(\\(\\({0, 1, 0, \
0}\\)\\) \[LeftDoubleBracket] \\(\\(\\(\\({1, 2, 1, 1}\\)\\) ;; All\\)\\) \
\[RightDoubleBracket]\\)\\)\\)\\), \\(\\(\\(\\(-1\\)\\) + \\(\\(\\(\\({0, 1, \
0, 0}\\)\\) \[LeftDoubleBracket] \\(\\(\\(\\({1, 2, 1, 1}\\)\\) ;; All\\)\\) \
\[RightDoubleBracket]\\)\\)\\)\\)}\\)\\)\\)\[NoBreak] is not a valid Span \
specification. A Span specification should be 1, 2, or 3 integers separated \
by ;;. (Any of the integers can be omitted or replaced with All.) \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::span\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6449002993528633`*^9, 3.644900329412583*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
span\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6449002993528633`*^9, 3.644900329413583*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "pspec"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\({0, 0.1`, 0.2`, 0}\\)\
\[NoBreak] is neither an integer nor a list of integers. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::pspec\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6449002993528633`*^9, 3.6449003294145827`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "pspec"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\({0.4`, 0.6`, 0, 0}\\)\
\[NoBreak] is neither an integer nor a list of integers. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::pspec\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6449002993528633`*^9, 3.6449003294155827`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Part", "::", "pspec"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Part specification \[NoBreak]\\!\\({0.2`, 0.4`, 0.2`, \
0.2`}\\)\[NoBreak] is neither an integer nor a list of integers. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/Part\\\", ButtonNote -> \
\\\"Part::pspec\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6449002993528633`*^9, 3.644900329416583*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \[NoBreak]\\!\\(\\*StyleBox[\\(Part :: \
pspec\\), \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.6449002993528633`*^9, 3.644900329418583*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"TiseanExportDir", "=", "\"\<graphics/\>\""}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.608627810879327*^9, 3.608627825985375*^9}, {
   3.613455282982626*^9, 3.613455283942968*^9}, {3.638266214348249*^9, 
   3.638266216112*^9}, 3.644652842642468*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MIExportDir", "=", "\"\<graphics/\>\""}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.608627810879327*^9, 3.6086278514980783`*^9}, {
   3.613455323647739*^9, 3.6134553239033823`*^9}, 3.644652845793889*^9}],

Cell[BoxData[
 RowBox[{"CalcImgSize", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.629523826577907*^9, 3.629523841590033*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DecomposePlotSize", "=", 
   RowBox[{"CalcImgSize", "[", "0.5", "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.643952158018408*^9, 3.643952168559491*^9}}],

Cell[CellGroupData[{

Cell["Lorenz", "Section",
 CellChangeTimes->{{3.601275139684655*^9, 3.601275143704199*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"MyPlotOpts", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"CalcImgSize", "[", "0.3", "]"}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.643623229569996*^9, 3.643623229778861*^9}, {
   3.6436232666183023`*^9, 3.643623283913538*^9}, 3.643623449853095*^9}],

Cell[CellGroupData[{

Cell["D2 -  delay 10", "Subsection",
 CellChangeTimes->{{3.586717630378311*^9, 3.5867176347382517`*^9}, {
  3.61217219229815*^9, 3.61217219568874*^9}, {3.64465289158457*^9, 
  3.64465289308832*^9}}],

Cell[BoxData[{
 RowBox[{"files", "=", 
  RowBox[{"GetFiles", "[", 
   RowBox[{"\"\<tisean/lorenz/\>\"", ",", "\"\<lorenz_d10.d2\>\""}], 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"basename", "=", "\"\<lorenz\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"plots", ",", "tiseandat"}], "}"}], "=", 
   RowBox[{"TiseanD2PlotsAndData", "[", 
    RowBox[{
     RowBox[{"files", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", "1", ",", 
     RowBox[{"ShowEntropy", "\[Rule]", "True"}], ",", 
     RowBox[{"EpsRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.005", ",", "Infinity"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5733644916972713`*^9, 3.573364497209907*^9}, {
   3.573365083355412*^9, 3.573365096818837*^9}, 3.573365678915278*^9, {
   3.573366603146982*^9, 3.573366607890189*^9}, {3.573367122347197*^9, 
   3.573367173498691*^9}, {3.573367415059449*^9, 3.5733674316028557`*^9}, {
   3.573369197061289*^9, 3.5733691985477552`*^9}, {3.573376939021956*^9, 
   3.573376978446913*^9}, {3.5743981123287363`*^9, 3.574398115215207*^9}, {
   3.5834673127627*^9, 3.583467313810214*^9}, {3.583467359508263*^9, 
   3.5834673820904408`*^9}, {3.583467490650126*^9, 3.583467490697268*^9}, {
   3.584166588374564*^9, 3.584166611885612*^9}, {3.586720067028554*^9, 
   3.58672007413125*^9}, {3.586720197835309*^9, 3.586720198018322*^9}, {
   3.586720289186667*^9, 3.5867202892511253`*^9}, {3.601274236021791*^9, 
   3.601274286205184*^9}, 3.60127525078128*^9, 3.6092185726047707`*^9, 
   3.6092186067717533`*^9, {3.609218659897189*^9, 3.609218670888795*^9}, {
   3.612171317902321*^9, 3.612171318380075*^9}, {3.61217216667985*^9, 
   3.612172166749865*^9}, {3.6121721977516747`*^9, 3.612172198030149*^9}, {
   3.613907173994721*^9, 3.613907203086482*^9}, 3.6436241314660063`*^9}],

Cell[BoxData[{
 RowBox[{"eeFits", "=", 
  RowBox[{"FindAllFits", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"-", "1"}], "]"}], "]"}], ",", "LogLinFitFun", ",", "15"}], 
   "]"}]}], "\n", 
 RowBox[{"dfit", " ", "=", 
  RowBox[{"FitWithAutoCutOff", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<D\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", 
        RowBox[{"-", "2"}], ",", 
        RowBox[{"-", "3"}]}], "}"}], "]"}], "]"}], ",", "ConstFitFun", ",", 
    "0.0005"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "14"}], "}"}]}], "}"}]}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"plots4Export", "=", "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{"PlotFitInLog", "[", "dfit", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "9"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{
        RowBox[{"PlotFitInLog", "[", 
         RowBox[{"dfit", ",", " ", 
          RowBox[{"ShowLabel", "\[Rule]", "False"}], ",", 
          RowBox[{"LabelPosition", "->", 
           RowBox[{"{", 
            RowBox[{"Automatic", ",", 
             RowBox[{"-", "1.0"}]}], "}"}]}]}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6.2"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", ",", 
            RowBox[{"ExtendFit", "\[Rule]", "1"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
      
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "14"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"PlotFitInLog", "[", 
            RowBox[{"#", ",", " ", 
             RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
             RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
             RowBox[{"LabelPosition", "->", 
              RowBox[{"{", 
               RowBox[{".5", ",", 
                RowBox[{"-", "0.3"}]}], "}"}]}]}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}]}], 
      ",", 
      RowBox[{"PlotRangeClipping", "\[Rule]", "False"}]}], "]"}]}], 
   "}"}]}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643622610908888*^9, 
   3.64362261495156*^9}, {3.6436227731856947`*^9, 3.643622836804081*^9}, {
   3.643622909168962*^9, 3.643622965874654*^9}, {3.643622997055337*^9, 
   3.64362307856124*^9}, {3.643623307860715*^9, 3.643623337100409*^9}, {
   3.6436233837455072`*^9, 3.64362340459239*^9}, {3.6436234569161367`*^9, 
   3.643623457605884*^9}, {3.6436243464362803`*^9, 3.643624369629895*^9}, {
   3.643624478197731*^9, 3.64362447845418*^9}, {3.643701249258168*^9, 
   3.643701289850552*^9}, {3.643955309497726*^9, 3.643955331815452*^9}, {
   3.644212955485918*^9, 3.644212957310553*^9}, {3.644642084517922*^9, 
   3.644642110420555*^9}, {3.644642150429721*^9, 3.644642159536786*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tickopts", "=", 
   RowBox[{"ReplacePart", "[", 
    RowBox[{
     RowBox[{"Ticks", " ", "/.", " ", 
      RowBox[{"AbsoluteOptions", "[", 
       RowBox[{"plots", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"2", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1.8", ",", "2", ",", "2.2"}], "}"}]}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"inset", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"plots", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"CalcImgSize", "[", ".18", "]"}]}], ",", 
     RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", "None"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "0.01", "]"}], ",", 
          RowBox[{"Log", "[", "1.5", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.8", ",", "2.3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "Times"}], ",", 
        RowBox[{"FontSize", "\[Rule]", "7"}]}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "4", ",", "6"}], "}"}]}], "}"}]}], ",", " ", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Log", "[", "0.01", "]"}], ",", "1.8"}], "}"}]}], ",", " ", 
     RowBox[{"Ticks", "\[Rule]", "tickopts"}], ",", 
     RowBox[{"Background", "\[Rule]", 
      RowBox[{"GrayLevel", "[", ".98", "]"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "0.5"}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Dotted", ",", 
          RowBox[{"AbsoluteThickness", "[", "1", "]"}], ",", " ", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Log", "[", "0.01", "]"}], ",", "2.06"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Log", "[", "50", "]"}], ",", "2.06"}], "}"}]}], "}"}],
            "]"}]}], "}"}], ",", 
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"StyleLabel", "[", "2.06", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Log", "[", "0.1", "]"}], ",", "2.06"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"-", "1.5"}]}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.634643677197455*^9, 3.634643712375915*^9}, {
   3.634643775171432*^9, 3.634643836420052*^9}, {3.6346502327878847`*^9, 
   3.634650245401518*^9}, {3.634992389285227*^9, 3.634992418281653*^9}, {
   3.63499248188761*^9, 3.634992494777177*^9}, {3.634993237222002*^9, 
   3.63499324574699*^9}, 3.643623103963752*^9, 3.643623486610626*^9}],

Cell[BoxData[
 RowBox[{"d2PlotModified", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"plots4Export", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"Epilog", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"PlotFitInLog", "[", 
         RowBox[{"dfit", ",", 
          RowBox[{"ShowLabel", "\[Rule]", "False"}], ",", 
          RowBox[{"LabelPosition", "->", 
           RowBox[{"{", 
            RowBox[{"Automatic", ",", 
             RowBox[{"-", "1"}]}], "}"}]}]}], "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Inset", "[", 
        RowBox[{"inset", ",", 
         RowBox[{"ImageScaled", "[", 
          RowBox[{"{", 
           RowBox[{".6", ",", ".6"}], "}"}], "]"}], ",", "Automatic"}], 
        "]"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.586795128060131*^9, 3.586795215860057*^9}, {
   3.586795253998082*^9, 3.586795265576254*^9}, {3.5867953611879663`*^9, 
   3.586795376185499*^9}, {3.586795453630591*^9, 3.586795456727901*^9}, 
   3.5867988273990602`*^9, 3.586802841066564*^9, {3.5868029873858624`*^9, 
   3.586802988025272*^9}, 3.608627904780979*^9, {3.608630761783854*^9, 
   3.608630777854834*^9}, {3.608631221390862*^9, 3.608631276176344*^9}, {
   3.612173238936305*^9, 3.612173284976594*^9}, {3.6294527662238083`*^9, 
   3.629453039103732*^9}, {3.629453277818808*^9, 3.629453284665834*^9}, {
   3.629453448779231*^9, 3.629453461203261*^9}, 3.629523204913067*^9, {
   3.6295237404413633`*^9, 3.6295237717604017`*^9}, {3.629523984831843*^9, 
   3.629524003904461*^9}, {3.634991880474328*^9, 3.6349918966853533`*^9}, {
   3.6349925279293537`*^9, 3.63499265952394*^9}, {3.634992753057845*^9, 
   3.634992789955155*^9}, {3.634993034089601*^9, 3.634993087347011*^9}, {
   3.634993120059313*^9, 3.6349931559625463`*^9}, {3.634993270196412*^9, 
   3.6349933398087673`*^9}, {3.634993398436223*^9, 3.634993398791432*^9}, {
   3.635049087485278*^9, 3.635049107937608*^9}, {3.6350501179784937`*^9, 
   3.635050118176716*^9}, 3.635053961581872*^9, {3.639132480393813*^9, 
   3.6391325195621157`*^9}, {3.639132560732843*^9, 3.6391325775031652`*^9}, {
   3.643623146221896*^9, 3.643623196000692*^9}, 3.64362343044845*^9, {
   3.643623648861809*^9, 3.6436236606206827`*^9}, 3.6437013446451797`*^9}],

Cell[BoxData[{
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"TiseanExportDir", "<>", "basename", "<>", "\"\<_D2.pdf\>\""}], 
   ",", "d2PlotModified", ",", 
   RowBox[{"Background", "\[Rule]", "None"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"TiseanExportDir", "<>", "basename", "<>", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
   RowBox[{"Zip", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<_h2.pdf\>\"", ",", "\"\<_excess_entropy.pdf\>\""}], "}"}], 
     ",", 
     RowBox[{"plots4Export", "[", 
      RowBox[{"[", 
       RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, 
   3.613910398602169*^9, {3.627382148098576*^9, 3.6273821513022118`*^9}, {
   3.6434460807617292`*^9, 3.643446147916451*^9}, 3.643446190957446*^9, {
   3.643453180008552*^9, 3.643453230646964*^9}, {3.643623617820712*^9, 
   3.643623626234541*^9}, {3.6436237182675533`*^9, 3.643623718620572*^9}, {
   3.643624544734556*^9, 3.643624544860982*^9}, {3.643952896407178*^9, 
   3.643952898086481*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EEdecompPlot", ",", "EEdecompData", ",", "aux"}], "}"}], "=", 
   RowBox[{"DecomposeAndPlotExcessEntropy", "[", 
    RowBox[{"dat", ",", "fits", ",", 
     RowBox[{"DeltaHFlatThreshold", "\[Rule]", "0.07"}], ",", " ", 
     RowBox[{"DeterminismThreshold", "\[Rule]", "0.5"}], ",", 
     RowBox[{"RemoveNegative", "\[Rule]", "True"}], ",", 
     RowBox[{"ShowNegative", "\[Rule]", "True"}], ",", "  ", 
     RowBox[{"ReplaceEndByFits", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"YPlotRangeMax", "\[Rule]", "15"}], ",", " ", 
     RowBox[{"UseLargerRangePlateaus", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "DecomposePlotSize"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "EEdecompPlot"}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643622610908888*^9, 
   3.64362261495156*^9}, {3.643623783853754*^9, 3.643623788300712*^9}, {
   3.643623909549432*^9, 3.643623910171139*^9}, {3.6436239766064997`*^9, 
   3.643623978570938*^9}, {3.643710078027891*^9, 3.643710078153242*^9}, {
   3.643710493476166*^9, 3.643710494369375*^9}, {3.643735026918228*^9, 
   3.643735081757196*^9}, {3.6437357823482847`*^9, 3.643735815522829*^9}, {
   3.643736283415196*^9, 3.643736283964162*^9}, 3.643736554995059*^9, 
   3.64373786509853*^9, {3.6437379975185013`*^9, 3.643737999718067*^9}, {
   3.643738822082443*^9, 3.643738851712359*^9}, {3.643739008586075*^9, 
   3.643739018571631*^9}, {3.6437391524301767`*^9, 3.643739154049789*^9}, {
   3.643739316591423*^9, 3.643739338464272*^9}, {3.643739600487995*^9, 
   3.6437396008151417`*^9}, {3.643949865634734*^9, 3.6439498657598267`*^9}, {
   3.64395031169837*^9, 3.6439503202105722`*^9}, 3.643952201567348*^9, {
   3.644213019694281*^9, 3.644213019835195*^9}, {3.644213054971341*^9, 
   3.644213055082532*^9}, {3.644217274992437*^9, 3.6442172751509666`*^9}, {
   3.644217629649714*^9, 3.6442176575681877`*^9}}],

Cell[BoxData[{
 RowBox[{"\"\<legend\>\"", "/.", "aux"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{
   "TiseanExportDir", "<>", 
    "\"\<excess-entropy-decomp-legend_with_raw.pdf\>\""}], ",", 
   RowBox[{"\"\<legend\>\"", "/.", "aux"}], ",", 
   RowBox[{"Background", "\[Rule]", "None"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.643735820579664*^9, 3.643735821469595*^9}, {
  3.643735856589404*^9, 3.643735938420594*^9}, {3.643736232267169*^9, 
  3.643736254302491*^9}, {3.643736641751733*^9, 3.643736684421446*^9}, {
  3.643737872198896*^9, 3.643737890272032*^9}, {3.643738006669549*^9, 
  3.643738012257023*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"detInts", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Interval", "[", 
       RowBox[{"{", 
        RowBox[{"0.01", ",", ".3"}], "}"}], "]"}], ",", 
      RowBox[{"-", "1"}], ",", "1"}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", "EEdecompPlot", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"avgDecomp", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"#", ",", 
       RowBox[{"GetAvgDecomp", "[", 
        RowBox[{"EEdecompData", ",", 
         RowBox[{"First", "[", "#", "]"}]}], "]"}]}], "]"}], "&"}], ",", 
    "detInts"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plt", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"EEdecompPlot", ",", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"PlotFitInLog", "[", 
            RowBox[{"#", ",", 
             RowBox[{"ExtendFit", "\[Rule]", ".5"}]}], "]"}], "[", 
           RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
       ","}], "*)"}], 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"PlotFitInLog", "[", 
             RowBox[{"#", ",", 
              RowBox[{"LabelSize", "\[Rule]", "8"}], ",", 
              RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
              RowBox[{"ShowLabel", "\[Rule]", "False"}]}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
        ",", "Black", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"AvgDecompInPlot", "@@", "#"}], "&"}], ",", "avgDecomp"}], 
         "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "plt"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.643443622953369*^9}, {
   3.643443659530727*^9, 3.6434436750339317`*^9}, 3.643444279096521*^9, {
   3.643444884877864*^9, 3.643444926027307*^9}, 3.643444978221141*^9, {
   3.643445438189087*^9, 3.643445438377582*^9}, {3.643445479196732*^9, 
   3.643445500692588*^9}, 3.643445545822229*^9, {3.643446486509884*^9, 
   3.643446487901252*^9}, {3.643452681051773*^9, 3.643452691126462*^9}, {
   3.6434529192484922`*^9, 3.643452935930657*^9}, {3.6434529668297586`*^9, 
   3.6434529678997107`*^9}, {3.643453012916843*^9, 3.643453018577394*^9}, {
   3.643453488931172*^9, 3.643453652659524*^9}, {3.643453747481181*^9, 
   3.6434537565778112`*^9}, {3.6434539569829473`*^9, 3.643453957475082*^9}, {
   3.643454207351143*^9, 3.643454207699716*^9}, {3.643454940135084*^9, 
   3.64345501513944*^9}, {3.6434551372402287`*^9, 3.6434551932280073`*^9}, {
   3.643455363462903*^9, 3.643455394106072*^9}, {3.6436238564636803`*^9, 
   3.643623878623287*^9}, {3.6436239622727537`*^9, 3.643623965295677*^9}, {
   3.643624016577979*^9, 3.6436240171354313`*^9}, {3.643710139950341*^9, 
   3.643710169227022*^9}, {3.643710353647354*^9, 3.643710358460267*^9}, {
   3.6437367119626837`*^9, 3.643736737293601*^9}, {3.643739174823762*^9, 
   3.6437392024143677`*^9}, {3.643739270074748*^9, 3.6437393006431932`*^9}, {
   3.643948242559699*^9, 3.643948242939081*^9}, {3.643972153081521*^9, 
   3.643972155575302*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", "\"\<_deltaH-fits.pdf\>\""}], 
    ",", 
    RowBox[{"Show", "[", 
     RowBox[{"deltaHplt", ",", 
      RowBox[{"ListLogLinearPlot", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Zip", "[", 
            RowBox[{
             RowBox[{"dat", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", "#"}], 
            "]"}], "&"}], ",", 
          RowBox[{"(", 
           RowBox[{"\"\<straights\>\"", "/.", "aux"}], ")"}]}], "]"}], ",", 
        RowBox[{"Joined", "\[Rule]", "True"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Cyan"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "1600"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", 
     "\"\<_excess_entropy-decomp.pdf\>\""}], ",", 
    RowBox[{"plt", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, 
   3.5867988249648113`*^9, {3.608627895986458*^9, 3.608627899602152*^9}, {
   3.612173223727004*^9, 3.612173224639276*^9}, {3.6418111811484118`*^9, 
   3.641811190891127*^9}, {3.6418114009289093`*^9, 3.6418114035056343`*^9}, {
   3.6418115901295424`*^9, 3.6418115910881453`*^9}, {3.641811702154007*^9, 
   3.641811703850024*^9}, {3.64224245055231*^9, 3.6422424693460093`*^9}, {
   3.643441834472952*^9, 3.643441856312248*^9}, {3.6434532975295973`*^9, 
   3.643453319943263*^9}, {3.6436240035636177`*^9, 3.643624009258774*^9}, {
   3.643624085357832*^9, 3.643624085531846*^9}, {3.6437368014151087`*^9, 
   3.643736802106578*^9}, {3.643736868025672*^9, 3.643736875541686*^9}, 
   3.643737127621812*^9, 3.643738346151525*^9, {3.643739527572446*^9, 
   3.643739529396372*^9}, {3.643739644437684*^9, 3.643739650779063*^9}, {
   3.643740242203405*^9, 3.643740245693644*^9}, {3.643953239492145*^9, 
   3.6439532657932663`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Noisy Lorenz delay 10\[AliasDelimiter]", "Subsection",
 CellChangeTimes->{{3.586717630378311*^9, 3.5867176347382517`*^9}, {
  3.601274941286707*^9, 3.601274943318859*^9}, {3.629524667138191*^9, 
  3.6295246694897423`*^9}, {3.64465288716831*^9, 3.644652888288356*^9}}],

Cell[CellGroupData[{

Cell["0.005", "Subsubsection",
 CellChangeTimes->{{3.6418115467672873`*^9, 3.641811574528892*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"basename", "=", "\"\<lorenz_noise0-005\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"plots", ",", "tiseandat"}], "}"}], "=", 
   RowBox[{"TiseanD2PlotsAndData", "[", 
    RowBox[{
     RowBox[{
     "\"\<tisean/lorenz/\>\"", "<>", "basename", "<>", "\"\<_d10.d2\>\""}], 
     ",", "1", ",", 
     RowBox[{"ShowEntropy", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"EpsRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.005", ",", "Infinity"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.573367981762273*^9, 3.573368034954278*^9}, {
   3.573368193091415*^9, 3.573368193147151*^9}, {3.573368716651465*^9, 
   3.573368737195033*^9}, {3.583057833407185*^9, 3.583057835079295*^9}, {
   3.583057892927641*^9, 3.583057899471272*^9}, {3.5867201026351967`*^9, 
   3.58672011490619*^9}, {3.586720166683773*^9, 3.5867201798350573`*^9}, {
   3.586795393605069*^9, 3.5867953961721697`*^9}, {3.601274346012999*^9, 
   3.601274407405164*^9}, {3.601275357006731*^9, 3.601275373789658*^9}, {
   3.602225812823119*^9, 3.602225812926446*^9}, {3.6022259697721033`*^9, 
   3.6022259698709393`*^9}, {3.608630732817893*^9, 3.6086307426301737`*^9}, {
   3.608630933702078*^9, 3.6086310079896717`*^9}, {3.608631171432722*^9, 
   3.608631197270082*^9}, {3.6092186193921127`*^9, 3.609218619868628*^9}, {
   3.6092186746294937`*^9, 3.609218674812682*^9}, {3.633842026611799*^9, 
   3.633842042865214*^9}, {3.642134942338665*^9, 3.642134943009075*^9}, {
   3.642135000292948*^9, 3.642135018021627*^9}, {3.642138218551701*^9, 
   3.642138219467401*^9}, {3.642138350441807*^9, 3.642138372174013*^9}, {
   3.643606434989047*^9, 3.643606439292521*^9}, {3.6436241599963837`*^9, 
   3.6436242159061813`*^9}, 3.6439524365944147`*^9}],

Cell[BoxData[{
 RowBox[{"eeFits", "=", 
  RowBox[{"FindAllFits", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"-", "1"}], "]"}], "]"}], ",", "LogLinFitFun", ",", "15"}], 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"eeFitsConst", " ", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"LinearFitWithAutoCutOff", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"{", "1", "}"}], "]"}], "]"}], ",", "0", ",", "x", ",", 
         "0.01"}], "]"}], ",", 
       RowBox[{"-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"LinearFitWithAutoCutOff", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
          RowBox[{"[", 
           RowBox[{"{", "2", "}"}], "]"}], "]"}], ",", "0", ",", "x", ",", 
         "0.01", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.1"}], "}"}]}], "]"}], ",", "1"}], "}"}]}], 
    "}"}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"dfit", " ", "=", 
    RowBox[{"LinearFitWithAutoCutOff", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"\"\<D\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
       RowBox[{"[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"-", "2"}], ",", 
          RowBox[{"-", "3"}], ",", 
          RowBox[{"-", "4"}]}], "}"}], "]"}], "]"}], ",", "0", ",", "x", ",", 
      "0.01"}], "]"}]}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "14"}], "}"}]}], "}"}]}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"plots4Export", "=", "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "1", "]"}], "]"}], 
      RowBox[{"(*", 
       RowBox[{",", 
        RowBox[{
         RowBox[{"PlotFitInLog", "[", "dfit", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "*)"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "9"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], 
     RowBox[{"(*", 
      RowBox[{",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{
         RowBox[{"PlotFitInLog", "[", 
          RowBox[{"dfit", ",", " ", 
           RowBox[{"LabelPosition", "->", 
            RowBox[{"{", 
             RowBox[{"Automatic", ",", 
              RowBox[{"-", "1.0"}]}], "}"}]}]}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}], "*)"}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6.2"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", ",", 
            RowBox[{"ExtendFit", "\[Rule]", "1"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
      
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFitsConst"}], "]"}], 
      ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "14"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"PlotFitInLog", "[", 
              RowBox[{"#", ",", 
               RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
               RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}]}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
         ",", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"PlotFitInLog", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{"LabelPosition", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"Automatic", ",", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFitsConst"}], 
          "]"}]}], "}"}]}], ",", 
      RowBox[{"PlotRangeClipping", "\[Rule]", "False"}]}], "]"}]}], 
   "}"}]}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643622610908888*^9, 
   3.64362261495156*^9}, {3.6436227731856947`*^9, 3.643622836804081*^9}, {
   3.643622909168962*^9, 3.643622965874654*^9}, {3.643622997055337*^9, 
   3.64362307856124*^9}, {3.643623307860715*^9, 3.643623337100409*^9}, {
   3.6436233837455072`*^9, 3.64362340459239*^9}, {3.6436234569161367`*^9, 
   3.643623457605884*^9}, {3.643624232164963*^9, 3.6436242461365833`*^9}, {
   3.643624306030574*^9, 3.643624318597683*^9}, {3.643624393791758*^9, 
   3.643624448117127*^9}, {3.643624507492635*^9, 3.6436245103351603`*^9}, {
   3.6437014169863443`*^9, 3.643701477584803*^9}, {3.6437015538510313`*^9, 
   3.6437015984427958`*^9}, {3.643701643855741*^9, 3.643701697049773*^9}, {
   3.643701776475397*^9, 3.643701797213161*^9}, 3.643701920262949*^9, {
   3.643701990207891*^9, 3.6437020180919113`*^9}, {3.643703294221471*^9, 
   3.643703358632352*^9}, {3.643703393916266*^9, 3.643703426467437*^9}, 
   3.6437034691503477`*^9, {3.643703597632873*^9, 3.643703641067197*^9}, {
   3.6439679643286123`*^9, 3.643967968020252*^9}}],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"TiseanExportDir", "<>", "basename", "<>", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
   RowBox[{"Zip", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<_D2.pdf\>\"", ",", "\"\<_h2.pdf\>\"", ",", 
       "\"\<_excess_entropy.pdf\>\""}], "}"}], ",", "plots4Export"}], "]"}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, 
   3.613910398602169*^9, {3.627382148098576*^9, 3.6273821513022118`*^9}, {
   3.6434460807617292`*^9, 3.643446147916451*^9}, 3.643446190957446*^9, {
   3.643453180008552*^9, 3.643453230646964*^9}, {3.643623617820712*^9, 
   3.643623626234541*^9}, {3.6436237182675533`*^9, 3.643623718620572*^9}, {
   3.643624518063005*^9, 3.6436245609919167`*^9}, 3.6439529084048157`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EEdecompPlot", ",", "EEdecompData", ",", "aux"}], "}"}], "=", 
   RowBox[{"DecomposeAndPlotExcessEntropy", "[", 
    RowBox[{"dat", ",", "fits", ",", 
     RowBox[{"DeltaHFlatThreshold", "\[Rule]", "0.1"}], ",", " ", 
     RowBox[{"DeterminismThreshold", "\[Rule]", "0.5"}], ",", 
     RowBox[{"RemoveNegative", "\[Rule]", "True"}], ",", 
     RowBox[{"ShowNegative", "\[Rule]", "True"}], ",", "  ", 
     RowBox[{"ReplaceEndByFits", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"YPlotRangeMax", "\[Rule]", "14.5"}], ",", " ", 
     RowBox[{"UseLargerRangePlateaus", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "DecomposePlotSize"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "EEdecompPlot"}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643622610908888*^9, 
   3.64362261495156*^9}, {3.643623783853754*^9, 3.643623788300712*^9}, {
   3.643623909549432*^9, 3.643623910171139*^9}, {3.6436239766064997`*^9, 
   3.643623978570938*^9}, {3.643624764589926*^9, 3.643624805067541*^9}, {
   3.643736763271241*^9, 3.6437367783513737`*^9}, {3.643737846778845*^9, 
   3.643737855869204*^9}, {3.643737968201208*^9, 3.6437379688716908`*^9}, {
   3.643740299765912*^9, 3.643740309574875*^9}, {3.643741442356451*^9, 
   3.643741442651112*^9}, {3.643822937617231*^9, 3.6438229407892942`*^9}, {
   3.6439482704320707`*^9, 3.643948270526243*^9}, {3.643949857154318*^9, 
   3.6439498573937263`*^9}, {3.643950166529962*^9, 3.643950202496779*^9}, {
   3.643950256610312*^9, 3.643950270944468*^9}, {3.643950416276305*^9, 
   3.643950416368939*^9}, 3.643952242725026*^9, {3.6439680014088993`*^9, 
   3.6439680025273447`*^9}, {3.643968415106349*^9, 3.643968426321247*^9}, {
   3.644217266543544*^9, 3.6442172675830708`*^9}, {3.644217394466715*^9, 
   3.644217426656198*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"detInts", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Interval", "[", 
       RowBox[{"{", 
        RowBox[{"0.12", ",", "0.5"}], "}"}], "]"}], ",", 
      RowBox[{"-", "1"}], ",", "1"}], "}"}], 
    RowBox[{"(*", 
     RowBox[{",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Interval", "[", 
         RowBox[{"{", 
          RowBox[{"0.7", ",", "5"}], "}"}], "]"}], ",", "1", ",", "1"}], 
       "}"}]}], "*)"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", "EEdecompPlot", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"avgDecomp", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"#", ",", 
       RowBox[{"GetAvgDecomp", "[", 
        RowBox[{"EEdecompData", ",", 
         RowBox[{"First", "[", "#", "]"}]}], "]"}]}], "]"}], "&"}], ",", 
    "detInts"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plt", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"EEdecompPlot", ",", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"PlotFitInLog", "[", 
          RowBox[{"#", ",", 
           RowBox[{"ExtendFit", "\[Rule]", ".5"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"PlotFitInLog", "[", 
             RowBox[{"#", ",", 
              RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
              RowBox[{"ShowLabel", "\[Rule]", "False"}]}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
        ",", "Black", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"AvgDecompInPlot", "[", 
              RowBox[{"##", ",", 
               RowBox[{"LabelSize", "\[Rule]", "8"}]}], "]"}], "&"}], "@@", 
            "#"}], "&"}], ",", "avgDecomp"}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "plt"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.643443622953369*^9}, {
   3.643443659530727*^9, 3.6434436750339317`*^9}, 3.643444279096521*^9, {
   3.643444884877864*^9, 3.643444926027307*^9}, 3.643444978221141*^9, {
   3.643445438189087*^9, 3.643445438377582*^9}, {3.643445479196732*^9, 
   3.643445500692588*^9}, 3.643445545822229*^9, {3.643446486509884*^9, 
   3.643446487901252*^9}, {3.643452681051773*^9, 3.643452691126462*^9}, {
   3.6434529192484922`*^9, 3.643452935930657*^9}, {3.6434529668297586`*^9, 
   3.6434529678997107`*^9}, {3.643453012916843*^9, 3.643453018577394*^9}, {
   3.643453488931172*^9, 3.643453652659524*^9}, {3.643453747481181*^9, 
   3.6434537565778112`*^9}, {3.6434539569829473`*^9, 3.643453957475082*^9}, {
   3.643454207351143*^9, 3.643454207699716*^9}, {3.643454940135084*^9, 
   3.64345501513944*^9}, {3.6434551372402287`*^9, 3.6434551932280073`*^9}, {
   3.643455363462903*^9, 3.643455394106072*^9}, {3.6436238564636803`*^9, 
   3.643623878623287*^9}, {3.6436239622727537`*^9, 3.643623965295677*^9}, {
   3.643624016577979*^9, 3.6436240171354313`*^9}, {3.6436245980074873`*^9, 
   3.6436245996816063`*^9}, {3.6436246313606567`*^9, 3.643624699200741*^9}, {
   3.643703506556506*^9, 3.6437035082305527`*^9}, {3.6437379583490477`*^9, 
   3.643737961659338*^9}, {3.6439482519543743`*^9, 3.643948252423267*^9}, {
   3.64396861144133*^9, 3.643968751189507*^9}, {3.643968824979967*^9, 
   3.643968869727332*^9}, {3.643969098372806*^9, 3.643969127824973*^9}, {
   3.6441410004313583`*^9, 3.644141002992072*^9}, {3.6442178654898252`*^9, 
   3.6442178858986607`*^9}, {3.64421821826161*^9, 3.644218218627542*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", "\"\<_deltaH-fits.pdf\>\""}], 
    ",", 
    RowBox[{"Show", "[", 
     RowBox[{"deltaHplt", ",", 
      RowBox[{"ListLogLinearPlot", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Zip", "[", 
            RowBox[{
             RowBox[{"dat", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", "#"}], 
            "]"}], "&"}], ",", 
          RowBox[{"(", 
           RowBox[{"\"\<straights\>\"", "/.", "aux"}], ")"}]}], "]"}], ",", 
        RowBox[{"Joined", "\[Rule]", "True"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Cyan"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "1600"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", 
     "\"\<_excess_entropy-decomp.pdf\>\""}], ",", 
    RowBox[{"plt", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, 
   3.5867988249648113`*^9, {3.608627895986458*^9, 3.608627899602152*^9}, {
   3.612173223727004*^9, 3.612173224639276*^9}, {3.6418111811484118`*^9, 
   3.641811190891127*^9}, {3.6418114009289093`*^9, 3.6418114035056343`*^9}, {
   3.6418115901295424`*^9, 3.6418115910881453`*^9}, {3.641811702154007*^9, 
   3.641811703850024*^9}, {3.64224245055231*^9, 3.6422424693460093`*^9}, {
   3.643441834472952*^9, 3.643441856312248*^9}, {3.6434532975295973`*^9, 
   3.643453319943263*^9}, {3.6436240035636177`*^9, 3.643624009258774*^9}, {
   3.643624085357832*^9, 3.643624085531846*^9}, {3.6437368014151087`*^9, 
   3.643736802106578*^9}, {3.643736868025672*^9, 3.643736875541686*^9}, 
   3.643737127621812*^9, 3.643738346151525*^9, {3.643739527572446*^9, 
   3.643739529396372*^9}, {3.643739644437684*^9, 3.643739650779063*^9}, {
   3.643740242203405*^9, 3.643740245693644*^9}, {3.643827147579949*^9, 
   3.643827149104439*^9}, {3.643950122161193*^9, 3.643950122832396*^9}, {
   3.643953239513062*^9, 3.6439532658133307`*^9}}],

Cell["deltaH plot with fits", "Text",
 CellChangeTimes->{{3.644319933952551*^9, 3.6443199467436123`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}], ",", 
     RowBox[{"ShowLabel", "\[Rule]", "False"}], ",", 
     RowBox[{"ShowFitLines", "\[Rule]", "All"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}, {3.644319230267386*^9, 
   3.644319234601527*^9}, {3.6443196174495783`*^9, 3.644319690348548*^9}}],

Cell[BoxData[
 RowBox[{"deltahfitplot", "=", 
  RowBox[{"Show", "[", 
   RowBox[{"deltaHplt", ",", 
    RowBox[{"ListLogLinearPlot", "[", 
     RowBox[{
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Zip", "[", 
          RowBox[{
           RowBox[{"dat", "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", "#"}], 
          "]"}], "&"}], ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<straights\>\"", "/.", "aux"}], ")"}], "[", 
         RowBox[{"[", 
          RowBox[{"1", ";;", "3"}], "]"}], "]"}]}], "]"}], ",", 
      RowBox[{"Joined", "\[Rule]", "True"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Directive", "[", 
           RowBox[{"Dashed", ",", 
            RowBox[{"Darker", "[", "#", "]"}]}], "]"}], "&"}], ",", 
         RowBox[{"ColorsFromScheme", "[", 
          RowBox[{"10", ",", "\"\<Rainbow\>\""}], "]"}]}], "]"}]}]}], "]"}], 
    ",", 
    RowBox[{"ImageSize", "\[Rule]", 
     RowBox[{"CalcImgSize", "[", "0.5", "]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6443192480908833`*^9, 3.644319449154676*^9}, {
  3.644319711504013*^9, 3.644319911536146*^9}, {3.6443427737312*^9, 
  3.644342792499854*^9}, {3.644342851890291*^9, 3.644342852062289*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{
   "TiseanExportDir", "<>", "basename", "<>", 
    "\"\<_deltaH-fits-demo.pdf\>\""}], ",", "deltahfitplot", ",", 
   RowBox[{"Background", "\[Rule]", "None"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.644319918729206*^9, 3.644319926456736*^9}, {
  3.644342868217799*^9, 3.644342893535528*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"allfits", "=", 
   RowBox[{"FitShortRegions", "[", 
    RowBox[{
     RowBox[{"dat", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", "LogLinFitFun", ",", "10"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"allfiterrors", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Total", "[", 
       SuperscriptBox[
        RowBox[{"#", "[", "\"\<FitResiduals\>\"", "]"}], "2"], "]"}], "&"}], 
     ",", " ", 
     RowBox[{"allfits", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"tresh", "=", 
  RowBox[{"Quantile", "[", 
   RowBox[{"allfiterrors", ",", ".25"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"tresh2", "=", 
  RowBox[{
   RowBox[{"Quantile", "[", 
    RowBox[{"allfiterrors", ",", ".25"}], "]"}], "+", 
   RowBox[{".1", 
    RowBox[{
    "StandardDeviation", "[", "allfiterrors", 
     "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Max", "[", "allfiterrors", "]"}], "\[IndentingNewLine]", 
 RowBox[{"fitqualplot", "=", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"Sort", "[", "allfiterrors", "]"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Automatic", ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0.0025"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"Darker", "[", "Blue", "]"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"q", "[", 
        SubscriptBox["r", "i"], "]"}]}], "}"}]}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", 
     RowBox[{"CalcImgSize", "[", "0.3", "]"}]}], ",", 
    RowBox[{"Prolog", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Dotted", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "tresh"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1000", ",", "tresh"}], "}"}]}], "}"}], "]"}], ",", 
       "Dashed", ",", "Red", ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "tresh2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1000", ",", "tresh2"}], "}"}]}], "}"}], "]"}]}], 
      "}"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.640683017249366*^9, 3.640683222020688*^9}, {
   3.640683652901492*^9, 3.6406836837940598`*^9}, 3.640683713844305*^9, {
   3.640683811618479*^9, 3.640683874643015*^9}, {3.640683919718554*^9, 
   3.640683962965156*^9}, {3.640684051223105*^9, 3.640684075350898*^9}, {
   3.640684458231649*^9, 3.64068445878963*^9}, {3.640684519413221*^9, 
   3.640684530647138*^9}, {3.640685805254611*^9, 3.64068580560015*^9}, {
   3.6406858492100363`*^9, 3.6406858564195337`*^9}, {3.640685926087646*^9, 
   3.640685941319785*^9}, {3.640685984151641*^9, 3.640685986805583*^9}, {
   3.6406866217686577`*^9, 3.640686630304041*^9}, {3.640686697431096*^9, 
   3.6406867118806543`*^9}, {3.640686770671894*^9, 3.6406868127210007`*^9}, 
   3.640687126868806*^9, {3.640687200570581*^9, 3.640687252075227*^9}, {
   3.64127291423237*^9, 3.641272922567135*^9}, {3.641273092142973*^9, 
   3.641273098104494*^9}, {3.641273152777534*^9, 3.641273158445673*^9}, {
   3.641273199406815*^9, 3.641273200396018*^9}, {3.6412732311890297`*^9, 
   3.6412732319251842`*^9}, {3.6412735550712843`*^9, 3.641273568878489*^9}, {
   3.6412736020545073`*^9, 3.641273611438341*^9}, {3.6412736727852697`*^9, 
   3.641273682407082*^9}, {3.641281398468792*^9, 3.6412813991685143`*^9}, {
   3.641281504724616*^9, 3.641281512307761*^9}, {3.641283823845194*^9, 
   3.641283833604348*^9}, {3.641286332473813*^9, 3.6412863353199263`*^9}, {
   3.641286406610574*^9, 3.641286406889242*^9}, {3.64128646347619*^9, 
   3.641286508653458*^9}, {3.6412865642870073`*^9, 3.6412865652544127`*^9}, {
   3.641286743416916*^9, 3.64128674496132*^9}, {3.641286786335284*^9, 
   3.6412868315657187`*^9}, {3.641286893004243*^9, 3.6412869079707947`*^9}, {
   3.641287065804064*^9, 3.6412870710161963`*^9}, {3.6412898504008627`*^9, 
   3.641289942081208*^9}, {3.6412905859021063`*^9, 3.641290585999402*^9}, {
   3.641290644247038*^9, 3.641290644343176*^9}, 3.641291126034985*^9, {
   3.641665072348641*^9, 3.641665073419291*^9}, {3.6417051722777653`*^9, 
   3.641705211779649*^9}, {3.6417052477183323`*^9, 3.641705269076033*^9}, {
   3.641705673173478*^9, 3.641705742868228*^9}, {3.641705784950486*^9, 
   3.641705826548826*^9}, {3.641705908710013*^9, 3.641705912340466*^9}, {
   3.64170596678966*^9, 3.64170597182801*^9}, {3.641706982439335*^9, 
   3.641706983699415*^9}, {3.641707033526733*^9, 3.641707078757106*^9}, {
   3.641707146373879*^9, 3.641707234262184*^9}, {3.641707308025889*^9, 
   3.641707340264481*^9}, {3.641708000048039*^9, 3.641708023941986*^9}, {
   3.6443067394443808`*^9, 3.644306777838223*^9}, {3.6443202369266977`*^9, 
   3.644320245567596*^9}, {3.644344142023562*^9, 3.644344222355423*^9}, {
   3.64434427634842*^9, 3.644344489865498*^9}, {3.6443445566266117`*^9, 
   3.6443445576314573`*^9}, {3.644345748475032*^9, 3.644345753963482*^9}, {
   3.644653860551725*^9, 3.64465386122301*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{
   "TiseanExportDir", "<>", "basename", "<>", "\"\<_fit-qualities.pdf\>\""}], 
   ",", "fitqualplot", ",", 
   RowBox[{"Background", "\[Rule]", "None"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.644319918729206*^9, 3.644319926456736*^9}, {
  3.644342868217799*^9, 3.644342893535528*^9}, {3.644344539698791*^9, 
  3.644344552500968*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["0.01", "Subsubsection",
 CellChangeTimes->{{3.6391396258027973`*^9, 3.63913962976858*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"basename", "=", "\"\<lorenz_noise0-01\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"plots", ",", "tiseandat"}], "}"}], "=", 
   RowBox[{"TiseanD2PlotsAndData", "[", 
    RowBox[{
     RowBox[{
     "\"\<tisean/lorenz/\>\"", "<>", "basename", "<>", "\"\<_d10.d2\>\""}], 
     ",", "1", ",", 
     RowBox[{"Thresh", "\[Rule]", "2.5"}], ",", " ", 
     RowBox[{"ShowEntropy", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"EpsRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.005", ",", "Infinity"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.573367981762273*^9, 3.573368034954278*^9}, {
   3.573368193091415*^9, 3.573368193147151*^9}, {3.573368716651465*^9, 
   3.573368737195033*^9}, {3.583057833407185*^9, 3.583057835079295*^9}, {
   3.583057892927641*^9, 3.583057899471272*^9}, {3.5867201026351967`*^9, 
   3.58672011490619*^9}, {3.586720166683773*^9, 3.5867201798350573`*^9}, {
   3.586795393605069*^9, 3.5867953961721697`*^9}, {3.601274346012999*^9, 
   3.601274407405164*^9}, {3.601275357006731*^9, 3.601275373789658*^9}, {
   3.602225812823119*^9, 3.602225812926446*^9}, {3.6022259697721033`*^9, 
   3.6022259698709393`*^9}, {3.608630732817893*^9, 3.6086307426301737`*^9}, {
   3.608630933702078*^9, 3.6086310079896717`*^9}, {3.608631171432722*^9, 
   3.608631197270082*^9}, {3.6092186193921127`*^9, 3.609218619868628*^9}, {
   3.6092186746294937`*^9, 3.609218674812682*^9}, {3.633842026611799*^9, 
   3.633842042865214*^9}, {3.642134942338665*^9, 3.642134943009075*^9}, {
   3.642135000292948*^9, 3.642135018021627*^9}, {3.642138218551701*^9, 
   3.642138219467401*^9}, {3.642138350441807*^9, 3.642138372174013*^9}, {
   3.643606434989047*^9, 3.643606439292521*^9}, {3.6436241599963837`*^9, 
   3.6436242159061813`*^9}, {3.643624831119462*^9, 3.643624831453824*^9}, {
   3.643705762345089*^9, 3.6437057709980392`*^9}, {3.6437058030114326`*^9, 
   3.6437058268636417`*^9}, 3.6439524414923058`*^9, {3.6442173031373587`*^9, 
   3.644217316944077*^9}}],

Cell[BoxData[{
 RowBox[{"eeFits", "=", 
  RowBox[{"FindAllFits", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"-", "1"}], "]"}], "]"}], ",", "LogLinFitFun", ",", "15"}], 
   "]"}]}], "\n", 
 RowBox[{"eeFitsConst", " ", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"LinearFitWithAutoCutOff", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
         RowBox[{"[", 
          RowBox[{"{", "1", "}"}], "]"}], "]"}], ",", "0", ",", "x", ",", 
        "0.01"}], "]"}], ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"LinearFitWithAutoCutOff", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
         RowBox[{"[", 
          RowBox[{"{", "2", "}"}], "]"}], "]"}], ",", "0", ",", "x", ",", 
        "0.01", ",", 
        RowBox[{"{", 
         RowBox[{"0.006", ",", "0.1"}], "}"}]}], "]"}], ",", "1"}], "}"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Automatic", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "14"}], "}"}]}], "}"}]}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"plots4Export", "=", "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "9"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6.2"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", ",", 
            RowBox[{"ExtendFit", "\[Rule]", "1"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
      
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFitsConst"}], "]"}], 
      ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Automatic", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "14"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"PlotFitInLog", "[", 
              RowBox[{"#", ",", 
               RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
               RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}]}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
         ",", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"PlotFitInLog", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{"LabelPosition", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"Automatic", ",", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFitsConst"}], 
          "]"}]}], "}"}]}], ",", 
      RowBox[{"PlotRangeClipping", "\[Rule]", "False"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}]}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643622610908888*^9, 
   3.64362261495156*^9}, {3.6436227731856947`*^9, 3.643622836804081*^9}, {
   3.643622909168962*^9, 3.643622965874654*^9}, {3.643622997055337*^9, 
   3.64362307856124*^9}, {3.643623307860715*^9, 3.643623337100409*^9}, {
   3.6436233837455072`*^9, 3.64362340459239*^9}, {3.6436234569161367`*^9, 
   3.643623457605884*^9}, {3.643624232164963*^9, 3.6436242461365833`*^9}, {
   3.643624306030574*^9, 3.643624318597683*^9}, {3.643624393791758*^9, 
   3.643624448117127*^9}, {3.643624507492635*^9, 3.6436245103351603`*^9}, {
   3.643624864406443*^9, 3.643624885072871*^9}, {3.6437035603175373`*^9, 
   3.643703560695631*^9}, {3.643705402680476*^9, 3.6437054339307613`*^9}, {
   3.643705502352598*^9, 3.6437055783498573`*^9}, {3.6437056720796947`*^9, 
   3.643705723557562*^9}}],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"TiseanExportDir", "<>", "basename", "<>", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
   RowBox[{"Zip", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<_D2.pdf\>\"", ",", "\"\<_h2.pdf\>\"", ",", 
       "\"\<_excess_entropy.pdf\>\""}], "}"}], ",", "plots4Export"}], "]"}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, 
   3.613910398602169*^9, {3.627382148098576*^9, 3.6273821513022118`*^9}, {
   3.6434460807617292`*^9, 3.643446147916451*^9}, 3.643446190957446*^9, {
   3.643453180008552*^9, 3.643453230646964*^9}, {3.643623617820712*^9, 
   3.643623626234541*^9}, {3.6436237182675533`*^9, 3.643623718620572*^9}, {
   3.643624518063005*^9, 3.6436245609919167`*^9}, 3.643952930830195*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EEdecompPlot", ",", "EEdecompData", ",", "aux"}], "}"}], "=", 
   RowBox[{"DecomposeAndPlotExcessEntropy", "[", 
    RowBox[{"dat", ",", "fits", ",", 
     RowBox[{"DeltaHFlatThreshold", "\[Rule]", "0.1"}], ",", " ", 
     RowBox[{"DeterminismThreshold", "\[Rule]", "0.5"}], ",", 
     RowBox[{"RemoveNegative", "\[Rule]", "True"}], ",", 
     RowBox[{"ShowNegative", "\[Rule]", "True"}], ",", "  ", 
     RowBox[{"ReplaceEndByFits", "\[Rule]", "True"}], ",", 
     RowBox[{"YPlotRangeMax", "\[Rule]", "14.5"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "DecomposePlotSize"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "EEdecompPlot"}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643622610908888*^9, 
   3.64362261495156*^9}, {3.643623783853754*^9, 3.643623788300712*^9}, {
   3.643623909549432*^9, 3.643623910171139*^9}, {3.6436239766064997`*^9, 
   3.643623978570938*^9}, {3.643624764589926*^9, 3.643624805067541*^9}, {
   3.643740452195434*^9, 3.643740460780665*^9}, {3.643948280383325*^9, 
   3.643948280493759*^9}, {3.6439498408332243`*^9, 3.643949840927866*^9}, {
   3.643949999073045*^9, 3.64395007241787*^9}, {3.643950455938671*^9, 
   3.643950456231126*^9}, 3.64395224385877*^9, {3.64396935237297*^9, 
   3.643969353520089*^9}, {3.644217227919524*^9, 3.644217228415292*^9}, {
   3.644217331663966*^9, 3.6442173477743053`*^9}, {3.644217688289295*^9, 
   3.644217691360957*^9}, {3.644217763250058*^9, 3.644217763696789*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"detInts", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Interval", "[", 
       RowBox[{"{", 
        RowBox[{"0.15", ",", "0.5"}], "}"}], "]"}], ",", 
      RowBox[{"-", "1"}], ",", "1"}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", "EEdecompPlot", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"avgDecomp", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"#", ",", 
       RowBox[{"GetAvgDecomp", "[", 
        RowBox[{"EEdecompData", ",", 
         RowBox[{"First", "[", "#", "]"}]}], "]"}]}], "]"}], "&"}], ",", 
    "detInts"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plt", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"EEdecompPlot", ",", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"PlotFitInLog", "[", 
          RowBox[{"#", ",", 
           RowBox[{"ExtendFit", "\[Rule]", ".5"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"PlotFitInLog", "[", 
             RowBox[{"#", ",", 
              RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
              RowBox[{"ShowLabel", "\[Rule]", "False"}]}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
        ",", "Black", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"AvgDecompInPlot", "[", 
              RowBox[{"##", ",", 
               RowBox[{"LabelSize", "\[Rule]", "8"}]}], "]"}], "&"}], "@@", 
            "#"}], "&"}], ",", "avgDecomp"}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "plt"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.643443622953369*^9}, {
   3.643443659530727*^9, 3.6434436750339317`*^9}, 3.643444279096521*^9, {
   3.643444884877864*^9, 3.643444926027307*^9}, 3.643444978221141*^9, {
   3.643445438189087*^9, 3.643445438377582*^9}, {3.643445479196732*^9, 
   3.643445500692588*^9}, 3.643445545822229*^9, {3.643446486509884*^9, 
   3.643446487901252*^9}, {3.643452681051773*^9, 3.643452691126462*^9}, {
   3.6434529192484922`*^9, 3.643452935930657*^9}, {3.6434529668297586`*^9, 
   3.6434529678997107`*^9}, {3.643453012916843*^9, 3.643453018577394*^9}, {
   3.643453488931172*^9, 3.643453652659524*^9}, {3.643453747481181*^9, 
   3.6434537565778112`*^9}, {3.6434539569829473`*^9, 3.643453957475082*^9}, {
   3.643454207351143*^9, 3.643454207699716*^9}, {3.643454940135084*^9, 
   3.64345501513944*^9}, {3.6434551372402287`*^9, 3.6434551932280073`*^9}, {
   3.643455363462903*^9, 3.643455394106072*^9}, {3.6436238564636803`*^9, 
   3.643623878623287*^9}, {3.6436239622727537`*^9, 3.643623965295677*^9}, {
   3.643624016577979*^9, 3.6436240171354313`*^9}, {3.6436245980074873`*^9, 
   3.6436245996816063`*^9}, {3.6436246313606567`*^9, 3.643624699200741*^9}, {
   3.643625014517047*^9, 3.6436250333667183`*^9}, {3.643705869085376*^9, 
   3.643705870728559*^9}, {3.6439482583840733`*^9, 3.6439482588648577`*^9}, {
   3.643958819629756*^9, 3.6439588360310707`*^9}, {3.643969380166286*^9, 
   3.643969382054864*^9}, {3.6439694412850637`*^9, 3.64396946808255*^9}, {
   3.6439695311557426`*^9, 3.64396953129125*^9}, 3.644217733138554*^9, {
   3.644217774882557*^9, 3.644217790191986*^9}, {3.644218183012491*^9, 
   3.6442181911715813`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", 
     "\"\<_excess_entropy-decomp.pdf\>\""}], ",", 
    RowBox[{"plt", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, 
   3.5867988249648113`*^9, {3.608627895986458*^9, 3.608627899602152*^9}, {
   3.612173223727004*^9, 3.612173224639276*^9}, {3.6418111811484118`*^9, 
   3.641811190891127*^9}, {3.6418114009289093`*^9, 3.6418114035056343`*^9}, {
   3.6418115901295424`*^9, 3.6418115910881453`*^9}, {3.641811702154007*^9, 
   3.641811703850024*^9}, {3.64224245055231*^9, 3.6422424693460093`*^9}, {
   3.643441834472952*^9, 3.643441856312248*^9}, {3.6434532975295973`*^9, 
   3.643453319943263*^9}, {3.6436240035636177`*^9, 3.643624009258774*^9}, {
   3.643624085357832*^9, 3.643624085531846*^9}, {3.6437368014151087`*^9, 
   3.643736802106578*^9}, {3.643736868025672*^9, 3.643736875541686*^9}, 
   3.643737127621812*^9, 3.643738346151525*^9, {3.643739527572446*^9, 
   3.643739529396372*^9}, {3.643739644437684*^9, 3.643739650779063*^9}, {
   3.643740242203405*^9, 3.643740245693644*^9}, {3.643953239521391*^9, 
   3.643953265822402*^9}, {3.644320071289441*^9, 3.644320071801227*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["0.02", "Subsubsection",
 CellChangeTimes->{{3.6418115467672873`*^9, 3.641811574528892*^9}, {
  3.641811687806842*^9, 3.6418116881106453`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"basename", "=", "\"\<lorenz_noise0-02\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"plots", ",", "tiseandat"}], "}"}], "=", 
   RowBox[{"TiseanD2PlotsAndData", "[", 
    RowBox[{
     RowBox[{
     "\"\<tisean/lorenz/\>\"", "<>", "basename", "<>", "\"\<_d10.d2\>\""}], 
     ",", "1", ",", 
     RowBox[{"ShowEntropy", "\[Rule]", "True"}], ",", 
     RowBox[{"Thresh", "\[Rule]", "3"}], ",", " ", 
     RowBox[{"EpsRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.005", ",", "Infinity"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.573367981762273*^9, 3.573368034954278*^9}, {
   3.573368193091415*^9, 3.573368193147151*^9}, {3.573368716651465*^9, 
   3.573368737195033*^9}, {3.583057833407185*^9, 3.583057835079295*^9}, {
   3.583057892927641*^9, 3.583057899471272*^9}, {3.5867201026351967`*^9, 
   3.58672011490619*^9}, {3.586720166683773*^9, 3.5867201798350573`*^9}, {
   3.586795393605069*^9, 3.5867953961721697`*^9}, {3.601274346012999*^9, 
   3.601274407405164*^9}, {3.601275357006731*^9, 3.601275373789658*^9}, {
   3.602225812823119*^9, 3.602225812926446*^9}, {3.6022259697721033`*^9, 
   3.6022259698709393`*^9}, {3.608630732817893*^9, 3.6086307426301737`*^9}, {
   3.608630933702078*^9, 3.6086310079896717`*^9}, {3.608631171432722*^9, 
   3.608631197270082*^9}, {3.6092186193921127`*^9, 3.609218619868628*^9}, {
   3.6092186746294937`*^9, 3.609218674812682*^9}, {3.633842026611799*^9, 
   3.633842042865214*^9}, {3.642134942338665*^9, 3.642134943009075*^9}, {
   3.642135000292948*^9, 3.642135018021627*^9}, {3.642138218551701*^9, 
   3.642138219467401*^9}, {3.642138350441807*^9, 3.642138372174013*^9}, {
   3.643606434989047*^9, 3.643606439292521*^9}, {3.6436241599963837`*^9, 
   3.6436242159061813`*^9}, {3.643624831119462*^9, 3.643624831453824*^9}, {
   3.643625095246853*^9, 3.64362514313305*^9}, 3.643952447972262*^9}],

Cell[BoxData[{
 RowBox[{"eeFits", "=", 
  RowBox[{"FindAllFits", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"-", "1"}], "]"}], "]"}], ",", "LogLinFitFun", ",", "15"}], 
   "]"}]}], "\n", 
 RowBox[{"eeFitsConst", " ", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"LinearFitWithAutoCutOff", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
         RowBox[{"[", 
          RowBox[{"{", "1", "}"}], "]"}], "]"}], ",", "0", ",", "x", ",", 
        "0.01"}], "]"}], ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"LinearFitWithAutoCutOff", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
         RowBox[{"[", 
          RowBox[{"{", "2", "}"}], "]"}], "]"}], ",", "0", ",", "x", ",", 
        "0.01", ",", 
        RowBox[{"{", 
         RowBox[{"0.006", ",", "0.1"}], "}"}]}], "]"}], ",", ".6"}], "}"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Log", "[", "0.004", "]"}], ",", "All"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "14"}], "}"}]}], "}"}]}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"plots4Export", "=", "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "9"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6.2"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", ",", 
            RowBox[{"ExtendFit", "\[Rule]", "1"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
      
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFitsConst"}], "]"}], 
      ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Log", "[", "0.004", "]"}], ",", "All"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "14"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"PlotFitInLog", "[", 
              RowBox[{"#", ",", 
               RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
               RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}]}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
         ",", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"PlotFitInLog", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{"LabelPosition", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"Automatic", ",", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFitsConst"}], 
          "]"}]}], "}"}]}], ",", 
      RowBox[{"PlotRangeClipping", "\[Rule]", "False"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}]}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643622610908888*^9, 
   3.64362261495156*^9}, {3.6436227731856947`*^9, 3.643622836804081*^9}, {
   3.643622909168962*^9, 3.643622965874654*^9}, {3.643622997055337*^9, 
   3.64362307856124*^9}, {3.643623307860715*^9, 3.643623337100409*^9}, {
   3.6436233837455072`*^9, 3.64362340459239*^9}, {3.6436234569161367`*^9, 
   3.643623457605884*^9}, {3.643624232164963*^9, 3.6436242461365833`*^9}, {
   3.643624306030574*^9, 3.643624318597683*^9}, {3.643624393791758*^9, 
   3.643624448117127*^9}, {3.643624507492635*^9, 3.6436245103351603`*^9}, {
   3.643624864406443*^9, 3.643624885072871*^9}, {3.6437035603175373`*^9, 
   3.643703560695631*^9}, {3.643705402680476*^9, 3.6437054339307613`*^9}, {
   3.643705502352598*^9, 3.6437055783498573`*^9}, {3.6437056720796947`*^9, 
   3.643705723557562*^9}, {3.6437059353179007`*^9, 3.6437059658056583`*^9}, {
   3.6437097111688013`*^9, 3.643709752241724*^9}}],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"TiseanExportDir", "<>", "basename", "<>", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
   RowBox[{"Zip", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<_D2.pdf\>\"", ",", "\"\<_h2.pdf\>\"", ",", 
       "\"\<_excess_entropy.pdf\>\""}], "}"}], ",", "plots4Export"}], "]"}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, 
   3.613910398602169*^9, {3.627382148098576*^9, 3.6273821513022118`*^9}, {
   3.6434460807617292`*^9, 3.643446147916451*^9}, 3.643446190957446*^9, {
   3.643453180008552*^9, 3.643453230646964*^9}, {3.643623617820712*^9, 
   3.643623626234541*^9}, {3.6436237182675533`*^9, 3.643623718620572*^9}, {
   3.643624518063005*^9, 3.6436245609919167`*^9}, 3.643952946045721*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EEdecompPlot", ",", "EEdecompData", ",", "aux"}], "}"}], "=", 
   RowBox[{"DecomposeAndPlotExcessEntropy", "[", 
    RowBox[{"dat", ",", "fits", ",", 
     RowBox[{"DeltaHFlatThreshold", "\[Rule]", "0.1"}], ",", " ", 
     RowBox[{"DeterminismThreshold", "\[Rule]", "0.5"}], ",", 
     RowBox[{"RemoveNegative", "\[Rule]", "False"}], ",", 
     RowBox[{"ShowNegative", "\[Rule]", "True"}], ",", "  ", 
     RowBox[{"ReplaceEndByFits", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"YPlotRangeMax", "\[Rule]", "14.5"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "DecomposePlotSize"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "EEdecompPlot", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643622610908888*^9, 
   3.64362261495156*^9}, {3.643623783853754*^9, 3.643623788300712*^9}, {
   3.643623909549432*^9, 3.643623910171139*^9}, {3.6436239766064997`*^9, 
   3.643623978570938*^9}, {3.643624764589926*^9, 3.643624805067541*^9}, {
   3.6436251871671667`*^9, 3.6436251965261106`*^9}, {3.64390733123039*^9, 
   3.643907331996578*^9}, {3.643948287967277*^9, 3.6439482881587152`*^9}, {
   3.643948484448604*^9, 3.6439484846061373`*^9}, {3.643948686495838*^9, 
   3.643948686590535*^9}, {3.643948723646977*^9, 3.643948776668668*^9}, {
   3.643948944286055*^9, 3.643948944687312*^9}, {3.643949238912457*^9, 
   3.64394924355014*^9}, {3.643949365838887*^9, 3.643949367472023*^9}, {
   3.643949438977766*^9, 3.643949439215839*^9}, {3.643949666400794*^9, 
   3.6439496699687157`*^9}, {3.643949785938929*^9, 3.64394983022545*^9}, {
   3.643949914099758*^9, 3.643949914672689*^9}, {3.643950480434844*^9, 
   3.64395048676863*^9}, 3.643952244545683*^9, {3.643969662642406*^9, 
   3.643969673218258*^9}, {3.6442179120801067`*^9, 3.644217912256291*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"detInts", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Interval", "[", 
       RowBox[{"{", 
        RowBox[{"0.25", ",", "2"}], "}"}], "]"}], ",", 
      RowBox[{"-", "1"}], ",", ".7"}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", "EEdecompPlot", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"avgDecomp", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"#", ",", 
       RowBox[{"GetAvgDecomp", "[", 
        RowBox[{"EEdecompData", ",", 
         RowBox[{"First", "[", "#", "]"}]}], "]"}]}], "]"}], "&"}], ",", 
    "detInts"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plt", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"EEdecompPlot", ",", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"PlotFitInLog", "[", 
          RowBox[{"#", ",", 
           RowBox[{"ExtendFit", "\[Rule]", ".5"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"PlotFitInLog", "[", 
             RowBox[{"#", ",", 
              RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
              RowBox[{"ShowLabel", "\[Rule]", "False"}]}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
        ",", "Black", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"AvgDecompInPlot", "[", 
              RowBox[{"##", ",", 
               RowBox[{"LabelSize", "\[Rule]", "7"}]}], "]"}], "&"}], "@@", 
            "#"}], "&"}], ",", "avgDecomp"}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "plt"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.643443622953369*^9}, {
   3.643443659530727*^9, 3.6434436750339317`*^9}, 3.643444279096521*^9, {
   3.643444884877864*^9, 3.643444926027307*^9}, 3.643444978221141*^9, {
   3.643445438189087*^9, 3.643445438377582*^9}, {3.643445479196732*^9, 
   3.643445500692588*^9}, 3.643445545822229*^9, {3.643446486509884*^9, 
   3.643446487901252*^9}, {3.643452681051773*^9, 3.643452691126462*^9}, {
   3.6434529192484922`*^9, 3.643452935930657*^9}, {3.6434529668297586`*^9, 
   3.6434529678997107`*^9}, {3.643453012916843*^9, 3.643453018577394*^9}, {
   3.643453488931172*^9, 3.643453652659524*^9}, {3.643453747481181*^9, 
   3.6434537565778112`*^9}, {3.6434539569829473`*^9, 3.643453957475082*^9}, {
   3.643454207351143*^9, 3.643454207699716*^9}, {3.643454940135084*^9, 
   3.64345501513944*^9}, {3.6434551372402287`*^9, 3.6434551932280073`*^9}, {
   3.643455363462903*^9, 3.643455394106072*^9}, {3.6436238564636803`*^9, 
   3.643623878623287*^9}, {3.6436239622727537`*^9, 3.643623965295677*^9}, {
   3.643624016577979*^9, 3.6436240171354313`*^9}, {3.6436245980074873`*^9, 
   3.6436245996816063`*^9}, {3.6436246313606567`*^9, 3.643624699200741*^9}, {
   3.643625014517047*^9, 3.6436250333667183`*^9}, {3.6436251642604437`*^9, 
   3.643625178481442*^9}, {3.643948478979282*^9, 3.6439484794377813`*^9}, {
   3.643948859762549*^9, 3.64394900465765*^9}, {3.643949072581647*^9, 
   3.6439491284037313`*^9}, {3.6439491694442987`*^9, 3.643949218132381*^9}, {
   3.643949252883645*^9, 3.6439492619251337`*^9}, {3.643949300405122*^9, 
   3.6439493104195642`*^9}, {3.6439493946125193`*^9, 3.643949395602593*^9}, {
   3.643949458852331*^9, 3.6439494609456387`*^9}, {3.643958205418502*^9, 
   3.643958207490814*^9}, {3.643958905029869*^9, 3.643958967283*^9}, 
   3.643969570783121*^9, {3.643969694061737*^9, 3.6439696997170067`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", "\"\<_deltaH-fits.pdf\>\""}], 
    ",", 
    RowBox[{"Show", "[", 
     RowBox[{"deltaHplt", ",", 
      RowBox[{"ListLogLinearPlot", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Zip", "[", 
            RowBox[{
             RowBox[{"dat", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", "#"}], 
            "]"}], "&"}], ",", 
          RowBox[{"(", 
           RowBox[{"\"\<straights\>\"", "/.", "aux"}], ")"}]}], "]"}], ",", 
        RowBox[{"Joined", "\[Rule]", "True"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Cyan"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "1600"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", 
     "\"\<_excess_entropy-decomp.pdf\>\""}], ",", 
    RowBox[{"plt", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, 
   3.5867988249648113`*^9, {3.608627895986458*^9, 3.608627899602152*^9}, {
   3.612173223727004*^9, 3.612173224639276*^9}, {3.6418111811484118`*^9, 
   3.641811190891127*^9}, {3.6418114009289093`*^9, 3.6418114035056343`*^9}, {
   3.6418115901295424`*^9, 3.6418115910881453`*^9}, {3.641811702154007*^9, 
   3.641811703850024*^9}, {3.64224245055231*^9, 3.6422424693460093`*^9}, {
   3.643441834472952*^9, 3.643441856312248*^9}, {3.6434532975295973`*^9, 
   3.643453319943263*^9}, {3.6436240035636177`*^9, 3.643624009258774*^9}, {
   3.643624085357832*^9, 3.643624085531846*^9}, {3.6437368014151087`*^9, 
   3.643736802106578*^9}, {3.643736868025672*^9, 3.643736875541686*^9}, 
   3.643737127621812*^9, 3.643738346151525*^9, {3.643739527572446*^9, 
   3.643739529396372*^9}, {3.643739644437684*^9, 3.643739650779063*^9}, {
   3.643740242203405*^9, 3.643740245693644*^9}, {3.643953239531538*^9, 
   3.6439532658305063`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["0.01 times 10", "Subsubsection",
 CellChangeTimes->{{3.6391396258027973`*^9, 3.63913962976858*^9}, {
  3.6442188472767153`*^9, 3.644218848668138*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"basename", "=", "\"\<lorenz_noise0-01_f10\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"plots", ",", "tiseandat"}], "}"}], "=", 
   RowBox[{"TiseanD2PlotsAndData", "[", 
    RowBox[{
     RowBox[{
     "\"\<tisean/lorenz/\>\"", "<>", "basename", "<>", "\"\<_d10.d2\>\""}], 
     ",", "1", ",", 
     RowBox[{"Thresh", "\[Rule]", "2.5"}], ",", " ", 
     RowBox[{"ShowEntropy", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"EpsRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.005", ",", "Infinity"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.573367981762273*^9, 3.573368034954278*^9}, {
   3.573368193091415*^9, 3.573368193147151*^9}, {3.573368716651465*^9, 
   3.573368737195033*^9}, {3.583057833407185*^9, 3.583057835079295*^9}, {
   3.583057892927641*^9, 3.583057899471272*^9}, {3.5867201026351967`*^9, 
   3.58672011490619*^9}, {3.586720166683773*^9, 3.5867201798350573`*^9}, {
   3.586795393605069*^9, 3.5867953961721697`*^9}, {3.601274346012999*^9, 
   3.601274407405164*^9}, {3.601275357006731*^9, 3.601275373789658*^9}, {
   3.602225812823119*^9, 3.602225812926446*^9}, {3.6022259697721033`*^9, 
   3.6022259698709393`*^9}, {3.608630732817893*^9, 3.6086307426301737`*^9}, {
   3.608630933702078*^9, 3.6086310079896717`*^9}, {3.608631171432722*^9, 
   3.608631197270082*^9}, {3.6092186193921127`*^9, 3.609218619868628*^9}, {
   3.6092186746294937`*^9, 3.609218674812682*^9}, {3.633842026611799*^9, 
   3.633842042865214*^9}, {3.642134942338665*^9, 3.642134943009075*^9}, {
   3.642135000292948*^9, 3.642135018021627*^9}, {3.642138218551701*^9, 
   3.642138219467401*^9}, {3.642138350441807*^9, 3.642138372174013*^9}, {
   3.643606434989047*^9, 3.643606439292521*^9}, {3.6436241599963837`*^9, 
   3.6436242159061813`*^9}, {3.643624831119462*^9, 3.643624831453824*^9}, {
   3.643705762345089*^9, 3.6437057709980392`*^9}, {3.6437058030114326`*^9, 
   3.6437058268636417`*^9}, 3.6439524414923058`*^9, {3.6442173031373587`*^9, 
   3.644217316944077*^9}, {3.644218857443377*^9, 3.644218858882472*^9}}],

Cell[BoxData[{
 RowBox[{"eeFits", "=", 
  RowBox[{"FindAllFits", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"-", "1"}], "]"}], "]"}], ",", "LogLinFitFun", ",", "15"}], 
   "]"}]}], "\n", 
 RowBox[{"eeFitsConst", " ", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"LinearFitWithAutoCutOff", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
         RowBox[{"[", 
          RowBox[{"{", "1", "}"}], "]"}], "]"}], ",", "0", ",", "x", ",", 
        "0.01"}], "]"}], ",", 
      RowBox[{"-", "1"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"LinearFitWithAutoCutOff", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
         RowBox[{"[", 
          RowBox[{"{", "2", "}"}], "]"}], "]"}], ",", "0", ",", "x", ",", 
        "0.01", ",", 
        RowBox[{"{", 
         RowBox[{"0.006", ",", "1"}], "}"}]}], "]"}], ",", "1"}], "}"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Automatic", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "14"}], "}"}]}], "}"}]}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"plots4Export", "=", "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "9"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6.2"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", ",", 
            RowBox[{"ExtendFit", "\[Rule]", "1"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
      
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", "[", 
            RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFitsConst"}], "]"}], 
      ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Automatic", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "14"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"PlotFitInLog", "[", 
              RowBox[{"#", ",", 
               RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
               RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}]}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
         ",", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"PlotFitInLog", "[", 
              RowBox[{
               RowBox[{"#", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{"LabelPosition", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"Automatic", ",", 
                  RowBox[{"#", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}]}], "]"}], "[", 
             RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFitsConst"}], 
          "]"}]}], "}"}]}], ",", 
      RowBox[{"PlotRangeClipping", "\[Rule]", "False"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}]}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643622610908888*^9, 
   3.64362261495156*^9}, {3.6436227731856947`*^9, 3.643622836804081*^9}, {
   3.643622909168962*^9, 3.643622965874654*^9}, {3.643622997055337*^9, 
   3.64362307856124*^9}, {3.643623307860715*^9, 3.643623337100409*^9}, {
   3.6436233837455072`*^9, 3.64362340459239*^9}, {3.6436234569161367`*^9, 
   3.643623457605884*^9}, {3.643624232164963*^9, 3.6436242461365833`*^9}, {
   3.643624306030574*^9, 3.643624318597683*^9}, {3.643624393791758*^9, 
   3.643624448117127*^9}, {3.643624507492635*^9, 3.6436245103351603`*^9}, {
   3.643624864406443*^9, 3.643624885072871*^9}, {3.6437035603175373`*^9, 
   3.643703560695631*^9}, {3.643705402680476*^9, 3.6437054339307613`*^9}, {
   3.643705502352598*^9, 3.6437055783498573`*^9}, {3.6437056720796947`*^9, 
   3.643705723557562*^9}, {3.644218878460264*^9, 3.644218905984549*^9}}],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"TiseanExportDir", "<>", "basename", "<>", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
   RowBox[{"Zip", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<_D2.pdf\>\"", ",", "\"\<_h2.pdf\>\"", ",", 
       "\"\<_excess_entropy.pdf\>\""}], "}"}], ",", "plots4Export"}], "]"}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, 
   3.613910398602169*^9, {3.627382148098576*^9, 3.6273821513022118`*^9}, {
   3.6434460807617292`*^9, 3.643446147916451*^9}, 3.643446190957446*^9, {
   3.643453180008552*^9, 3.643453230646964*^9}, {3.643623617820712*^9, 
   3.643623626234541*^9}, {3.6436237182675533`*^9, 3.643623718620572*^9}, {
   3.643624518063005*^9, 3.6436245609919167`*^9}, 3.643952930830195*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EEdecompPlot", ",", "EEdecompData", ",", "aux"}], "}"}], "=", 
   RowBox[{"DecomposeAndPlotExcessEntropy", "[", 
    RowBox[{"dat", ",", "fits", ",", 
     RowBox[{"DeltaHFlatThreshold", "\[Rule]", "0.1"}], ",", " ", 
     RowBox[{"DeterminismThreshold", "\[Rule]", "0.5"}], ",", 
     RowBox[{"RemoveNegative", "\[Rule]", "True"}], ",", 
     RowBox[{"ShowNegative", "\[Rule]", "True"}], ",", "  ", 
     RowBox[{"ReplaceEndByFits", "\[Rule]", "True"}], ",", 
     RowBox[{"YPlotRangeMax", "\[Rule]", "14.5"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "DecomposePlotSize"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "EEdecompPlot"}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643622610908888*^9, 
   3.64362261495156*^9}, {3.643623783853754*^9, 3.643623788300712*^9}, {
   3.643623909549432*^9, 3.643623910171139*^9}, {3.6436239766064997`*^9, 
   3.643623978570938*^9}, {3.643624764589926*^9, 3.643624805067541*^9}, {
   3.643740452195434*^9, 3.643740460780665*^9}, {3.643948280383325*^9, 
   3.643948280493759*^9}, {3.6439498408332243`*^9, 3.643949840927866*^9}, {
   3.643949999073045*^9, 3.64395007241787*^9}, {3.643950455938671*^9, 
   3.643950456231126*^9}, 3.64395224385877*^9, {3.64396935237297*^9, 
   3.643969353520089*^9}, {3.644217227919524*^9, 3.644217228415292*^9}, {
   3.644217331663966*^9, 3.6442173477743053`*^9}, {3.644217688289295*^9, 
   3.644217691360957*^9}, {3.644217763250058*^9, 3.644217763696789*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"detInts", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Interval", "[", 
       RowBox[{"10", " ", 
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.5"}], "}"}]}], "]"}], ",", 
      RowBox[{"-", "1"}], ",", "1"}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", "EEdecompPlot", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"avgDecomp", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"#", ",", 
       RowBox[{"GetAvgDecomp", "[", 
        RowBox[{"EEdecompData", ",", 
         RowBox[{"First", "[", "#", "]"}]}], "]"}]}], "]"}], "&"}], ",", 
    "detInts"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plt", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"EEdecompPlot", ",", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"PlotFitInLog", "[", 
          RowBox[{"#", ",", 
           RowBox[{"ExtendFit", "\[Rule]", ".5"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"PlotFitInLog", "[", 
             RowBox[{"#", ",", 
              RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
              RowBox[{"ShowLabel", "\[Rule]", "False"}]}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
        ",", "Black", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"AvgDecompInPlot", "[", 
              RowBox[{"##", ",", 
               RowBox[{"LabelSize", "\[Rule]", "8"}]}], "]"}], "&"}], "@@", 
            "#"}], "&"}], ",", "avgDecomp"}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "plt"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.643443622953369*^9}, {
   3.643443659530727*^9, 3.6434436750339317`*^9}, 3.643444279096521*^9, {
   3.643444884877864*^9, 3.643444926027307*^9}, 3.643444978221141*^9, {
   3.643445438189087*^9, 3.643445438377582*^9}, {3.643445479196732*^9, 
   3.643445500692588*^9}, 3.643445545822229*^9, {3.643446486509884*^9, 
   3.643446487901252*^9}, {3.643452681051773*^9, 3.643452691126462*^9}, {
   3.6434529192484922`*^9, 3.643452935930657*^9}, {3.6434529668297586`*^9, 
   3.6434529678997107`*^9}, {3.643453012916843*^9, 3.643453018577394*^9}, {
   3.643453488931172*^9, 3.643453652659524*^9}, {3.643453747481181*^9, 
   3.6434537565778112`*^9}, {3.6434539569829473`*^9, 3.643453957475082*^9}, {
   3.643454207351143*^9, 3.643454207699716*^9}, {3.643454940135084*^9, 
   3.64345501513944*^9}, {3.6434551372402287`*^9, 3.6434551932280073`*^9}, {
   3.643455363462903*^9, 3.643455394106072*^9}, {3.6436238564636803`*^9, 
   3.643623878623287*^9}, {3.6436239622727537`*^9, 3.643623965295677*^9}, {
   3.643624016577979*^9, 3.6436240171354313`*^9}, {3.6436245980074873`*^9, 
   3.6436245996816063`*^9}, {3.6436246313606567`*^9, 3.643624699200741*^9}, {
   3.643625014517047*^9, 3.6436250333667183`*^9}, {3.643705869085376*^9, 
   3.643705870728559*^9}, {3.6439482583840733`*^9, 3.6439482588648577`*^9}, {
   3.643958819629756*^9, 3.6439588360310707`*^9}, {3.643969380166286*^9, 
   3.643969382054864*^9}, {3.6439694412850637`*^9, 3.64396946808255*^9}, {
   3.6439695311557426`*^9, 3.64396953129125*^9}, 3.644217733138554*^9, {
   3.644217774882557*^9, 3.644217790191986*^9}, {3.644218183012491*^9, 
   3.6442181911715813`*^9}, {3.644218938357648*^9, 3.644218968726824*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", "\"\<_deltaH-fits.pdf\>\""}], 
    ",", 
    RowBox[{"Show", "[", 
     RowBox[{"deltaHplt", ",", 
      RowBox[{"ListLogLinearPlot", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Zip", "[", 
            RowBox[{
             RowBox[{"dat", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", "#"}], 
            "]"}], "&"}], ",", 
          RowBox[{"(", 
           RowBox[{"\"\<straights\>\"", "/.", "aux"}], ")"}]}], "]"}], ",", 
        RowBox[{"Joined", "\[Rule]", "True"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Cyan"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "1600"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", 
     "\"\<_excess_entropy-decomp.pdf\>\""}], ",", 
    RowBox[{"plt", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, 
   3.5867988249648113`*^9, {3.608627895986458*^9, 3.608627899602152*^9}, {
   3.612173223727004*^9, 3.612173224639276*^9}, {3.6418111811484118`*^9, 
   3.641811190891127*^9}, {3.6418114009289093`*^9, 3.6418114035056343`*^9}, {
   3.6418115901295424`*^9, 3.6418115910881453`*^9}, {3.641811702154007*^9, 
   3.641811703850024*^9}, {3.64224245055231*^9, 3.6422424693460093`*^9}, {
   3.643441834472952*^9, 3.643441856312248*^9}, {3.6434532975295973`*^9, 
   3.643453319943263*^9}, {3.6436240035636177`*^9, 3.643624009258774*^9}, {
   3.643624085357832*^9, 3.643624085531846*^9}, {3.6437368014151087`*^9, 
   3.643736802106578*^9}, {3.643736868025672*^9, 3.643736875541686*^9}, 
   3.643737127621812*^9, 3.643738346151525*^9, {3.643739527572446*^9, 
   3.643739529396372*^9}, {3.643739644437684*^9, 3.643739650779063*^9}, {
   3.643740242203405*^9, 3.643740245693644*^9}, {3.643953239521391*^9, 
   3.643953265822402*^9}}],

Cell[BoxData[
 RowBox[{"legend10", "=", 
  RowBox[{"TiseanLegend", "[", "10", "]"}]}]], "Input",
 CellChangeTimes->{{3.634891815834445*^9, 3.63489181919475*^9}, {
  3.6348920392281427`*^9, 3.634892040418803*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"TiseanExportDir", "<>", " ", "\"\<legend10.pdf\>\""}], ",", 
   "legend10", ",", 
   RowBox[{"Background", "\[Rule]", "None"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.633839326842051*^9, 3.633839380243747*^9}, {
  3.633839412810357*^9, 3.633839424970363*^9}, {3.633847010861074*^9, 
  3.633847017973704*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["KSG Algorithm Lorenz delay 10", "Subsection",
 CellChangeTimes->{{3.608633628550078*^9, 3.608633635750477*^9}, {
  3.608873869632531*^9, 3.60887387157615*^9}, {3.6296303134528093`*^9, 
  3.629630325573338*^9}, {3.644642333927145*^9, 3.644642343846829*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fs", "=", 
   RowBox[{"{", "\"\<MIxnyn/lorenz/lorenzk20_d10.pi.grouped\>\"", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plsmiar1", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PlotMIScan", "[", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}], ",", 
     RowBox[{"Zip", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{"Import", ",", "fs"}], "]"}], ",", "fs"}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.5927186163494177`*^9, 3.592718631793311*^9}, {
   3.5927220876209373`*^9, 3.592722099913555*^9}, {3.598857383243517*^9, 
   3.59885738518438*^9}, {3.602227669151984*^9, 3.6022276699678383`*^9}, {
   3.6086338787157927`*^9, 3.6086339168647823`*^9}, {3.6086340553048077`*^9, 
   3.6086340784207287`*^9}, {3.608634250595574*^9, 3.608634362487194*^9}, {
   3.6086343986648083`*^9, 3.608634398747563*^9}, {3.608634470439046*^9, 
   3.608634472473752*^9}, {3.60863450794761*^9, 3.60863451091998*^9}, {
   3.60887214918291*^9, 3.608872153380446*^9}, 3.6116360651383057`*^9, 
   3.612174114255555*^9, {3.613907286900794*^9, 3.613907287215785*^9}, 
   3.613909306272708*^9}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"plsmiar1", "[", 
    RowBox[{"[", "1", "]"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Const", "-", 
       RowBox[{"Dim", " ", 
        RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Dim", "\[Rule]", "1.8"}], ",", 
        RowBox[{"Const", "\[Rule]", "4.4"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.02", ",", "20"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ImageSize", "\[Rule]", "200"}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"Inset", "[", 
     RowBox[{
      RowBox[{"Rotate", "[", 
       RowBox[{
        RowBox[{"StyleLabel", "[", 
         RowBox[{"4.4", "-", 
          RowBox[{"1.8", " ", 
           RowBox[{"Log", "[", "\[Epsilon]", "]"}]}]}], "]"}], ",", 
        RowBox[{
         RowBox[{"-", "45"}], "Degree"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Log", "[", "12", "]"}], ",", "2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, {
   3.5834694811161346`*^9, 3.583469573347938*^9}, {3.58346965936792*^9, 
   3.583469673462791*^9}, {3.583470072830372*^9, 3.583470076117712*^9}, {
   3.5834710751103067`*^9, 3.5834710980640497`*^9}, {3.583471899736785*^9, 
   3.5834720758301363`*^9}, {3.583472121534769*^9, 3.5834721410759087`*^9}, {
   3.5834721750304937`*^9, 3.5834722078683767`*^9}, {3.583472251745254*^9, 
   3.583472292980212*^9}, {3.583472364417439*^9, 3.583472399429665*^9}, {
   3.58347243507819*^9, 3.583472483399981*^9}, {3.583472573053862*^9, 
   3.5834725806958523`*^9}, {3.583487712254353*^9, 3.583487713672656*^9}, {
   3.586720720292121*^9, 3.586720767065997*^9}, {3.586720868522871*^9, 
   3.5867209435449333`*^9}, {3.5867554849759407`*^9, 3.586755518129649*^9}, {
   3.5867951361385937`*^9, 3.586795137059102*^9}, {3.586795435489159*^9, 
   3.586795438080332*^9}, {3.586802775677047*^9, 3.586802785821123*^9}, {
   3.586803009124345*^9, 3.586803009620699*^9}, {3.6012745040506907`*^9, 
   3.601274780964527*^9}, {3.6012748397484407`*^9, 3.6012748811555223`*^9}, {
   3.601275803531686*^9, 3.601275948434432*^9}, {3.601276019507674*^9, 
   3.6012760368589563`*^9}, {3.6012766239648457`*^9, 3.601276624530344*^9}, {
   3.6012766834845543`*^9, 3.601276797422965*^9}, {3.601276855264469*^9, 
   3.601276952193058*^9}, {3.6088730700397377`*^9, 3.608873207460256*^9}, {
   3.608873266748562*^9, 3.608873270723934*^9}, 3.6088733095813313`*^9, {
   3.608873351746954*^9, 3.6088733959584312`*^9}, {3.608873790348935*^9, 
   3.608873802364067*^9}, {3.61217421655893*^9, 3.6121743562180033`*^9}, {
   3.612174399864019*^9, 3.6121744047078457`*^9}, {3.613909213977314*^9, 
   3.61390926662746*^9}, 3.613909301453165*^9, 3.635050930488287*^9, 
   3.6350536006989202`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"MIExportDir", "<>", "\"\<lorenzk20_d10.pdf\>\""}], ",", "%", ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795128060131*^9, 3.586795215860057*^9}, {
   3.586795253998082*^9, 3.586795265576254*^9}, {3.5867953611879663`*^9, 
   3.586795376185499*^9}, {3.586795453630591*^9, 3.586795456727901*^9}, 
   3.5867988273990602`*^9, 3.586802841066564*^9, {3.5868029873858624`*^9, 
   3.586802988025272*^9}, {3.601277419007408*^9, 3.601277439755075*^9}, 
   3.6086279131889553`*^9, {3.608630670669549*^9, 3.608630670765551*^9}, {
   3.6088745148284082`*^9, 3.608874516875374*^9}, {3.609580090551282*^9, 
   3.609580106735796*^9}, {3.609580162727285*^9, 3.609580187556796*^9}, {
   3.609580222106971*^9, 3.609580224013301*^9}, {3.612174379698304*^9, 
   3.6121743800465593`*^9}}],

Cell[BoxData[
 RowBox[{"pl2", "=", 
  RowBox[{"PlotMIScan", "[", 
   RowBox[{
    RowBox[{
    "Import", "[", "\"\<MIxnyn/lorenz/lorenznoise0-01k20_d10.pi.grouped\>\"", 
     "]"}], ",", "\"\<Noisy Lorenz delay=10 k=20\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5927186163494177`*^9, 3.592718631793311*^9}, {
   3.5927220876209373`*^9, 3.592722099913555*^9}, {3.598857383243517*^9, 
   3.59885738518438*^9}, {3.602227669151984*^9, 3.6022276699678383`*^9}, {
   3.608633312783689*^9, 3.608633319197968*^9}, {3.608633395668667*^9, 
   3.608633485062294*^9}, {3.6086336456219893`*^9, 3.608633706494437*^9}, {
   3.608872417403866*^9, 3.608872420422256*^9}, {3.6088734032269363`*^9, 
   3.6088734040420313`*^9}, {3.609580200079446*^9, 3.609580202150317*^9}, 
   3.611636063620614*^9, {3.6121744357457438`*^9, 3.612174438618485*^9}, {
   3.613907289087422*^9, 3.613907289415567*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"pl2", ",", "\[IndentingNewLine]", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Const", "-", 
       RowBox[{"Dim", " ", 
        RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Dim", "\[Rule]", "0"}], ",", 
        RowBox[{"Const", "\[Rule]", "1.15"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.001", ",", "3"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Const", "-", 
       RowBox[{"Dim", " ", 
        RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Dim", "\[Rule]", "0"}], ",", 
        RowBox[{"Const", "\[Rule]", "6.35"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.001", ",", ".4"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Const", "-", 
       RowBox[{"Dim", " ", 
        RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Dim", "\[Rule]", "1.6"}], ",", 
        RowBox[{"Const", "\[Rule]", "4.3"}]}], "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.15", ",", "20"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ImageSize", "\[Rule]", "200"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "8"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   
   RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"Rotate", "[", 
         RowBox[{
          RowBox[{"StyleLabel", "[", 
           RowBox[{"4.3", "-", 
            RowBox[{"1.6", " ", 
             RowBox[{"Log", "[", "\[Epsilon]", "]"}]}]}], "]"}], ",", 
          RowBox[{
           RowBox[{"-", "50"}], "Degree"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "30", "]"}], ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Right", ",", "Bottom"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"StyleLabel", "[", "\"\<1.15\>\"", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "0.01", "]"}], ",", "1.15"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Center", ",", "Bottom"}], "}"}]}], "]"}], ",", 
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"StyleLabel", "[", "\"\<6.35\>\"", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "0.01", "]"}], ",", "6.1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Center", ",", "Top"}], "}"}]}], "]"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.608873408611577*^9, 3.608873409505177*^9}, {
   3.6088736252988*^9, 3.608873664400361*^9}, {3.608873697053774*^9, 
   3.608873731279419*^9}, {3.608873891327363*^9, 3.608873891468913*^9}, {
   3.608877676623001*^9, 3.608877677471725*^9}, {3.608877821350254*^9, 
   3.608877856293178*^9}, {3.609579774832069*^9, 3.6095798390469313`*^9}, {
   3.609579979167231*^9, 3.609580039358564*^9}, {3.6095801376480722`*^9, 
   3.609580149257636*^9}, {3.612170294443986*^9, 3.612170299303225*^9}, {
   3.612170556969208*^9, 3.612170560533483*^9}, {3.6121705989595346`*^9, 
   3.6121706019751663`*^9}, {3.612170632480406*^9, 3.612170693093639*^9}, {
   3.612170727537883*^9, 3.612170824225171*^9}, {3.6121744548612213`*^9, 
   3.612174603006125*^9}, 3.6121784456556683`*^9, {3.6121785200177107`*^9, 
   3.612178583034198*^9}, {3.6139093178219213`*^9, 3.61390937333333*^9}, {
   3.635050930498457*^9, 3.635050930500635*^9}, {3.635053601325767*^9, 
   3.6350536026874113`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"MIExportDir", "<>", "\"\<lorenz_noise0-01k20_d10.pdf\>\""}], ",",
     "%", ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795128060131*^9, 3.586795215860057*^9}, {
   3.586795253998082*^9, 3.586795265576254*^9}, {3.5867953611879663`*^9, 
   3.586795376185499*^9}, {3.586795453630591*^9, 3.586795456727901*^9}, 
   3.5867988273990602`*^9, 3.586802841066564*^9, {3.5868029873858624`*^9, 
   3.586802988025272*^9}, {3.601277419007408*^9, 3.601277439755075*^9}, 
   3.6086279131889553`*^9, {3.608630670669549*^9, 3.608630670765551*^9}, {
   3.6088745148284082`*^9, 3.608874516875374*^9}, {3.609580090551282*^9, 
   3.609580106735796*^9}, {3.609580162727285*^9, 3.609580187556796*^9}, {
   3.612174609999405*^9, 3.612174610052215*^9}}],

Cell[BoxData[{
 RowBox[{"legend6", "=", 
  RowBox[{"TiseanLegend", "[", 
   RowBox[{"6", ",", "False"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"TiseanExportDir", "<>", " ", "\"\<legend6-1.pdf\>\""}], ",", 
   "legend6", ",", 
   RowBox[{"Background", "\[Rule]", "None"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.634976113940613*^9, 3.634976115326187*^9}, {
  3.6349761485189342`*^9, 3.634976166226269*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Snake", "Section",
 CellChangeTimes->{{3.6434327982992363`*^9, 3.643432801581089*^9}}],

Cell[BoxData[{
 RowBox[{"files", "=", 
  RowBox[{"GetFiles", "[", 
   RowBox[{"\"\<tisean/snake/\>\"", ",", "\"\<Snake*_x8_*.d2\>\""}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MyPlotOpts", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"CalcImgSize", "[", "0.4", "]"}]}]}], "}"}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.5733644916972713`*^9, 3.573364497209907*^9}, {
   3.573365083355412*^9, 3.573365096818837*^9}, 3.573365678915278*^9, {
   3.573366603146982*^9, 3.573366607890189*^9}, {3.573367122347197*^9, 
   3.573367173498691*^9}, {3.573367415059449*^9, 3.5733674316028557`*^9}, {
   3.573369197061289*^9, 3.5733691985477552`*^9}, {3.573376939021956*^9, 
   3.573376978446913*^9}, {3.5743981123287363`*^9, 3.574398115215207*^9}, {
   3.5834673127627*^9, 3.583467313810214*^9}, {3.583467359508263*^9, 
   3.5834673820904408`*^9}, {3.583467490650126*^9, 3.583467490697268*^9}, {
   3.591505094129675*^9, 3.591505105592523*^9}, {3.591505364880851*^9, 
   3.5915053720812073`*^9}, {3.591589082713068*^9, 3.591589082819436*^9}, {
   3.5985932275532417`*^9, 3.598593264680737*^9}, {3.5985934124737167`*^9, 
   3.598593422344228*^9}, {3.598857199444662*^9, 3.5988572368655043`*^9}, 
   3.613730537034545*^9, {3.643432838622913*^9, 3.643432838878221*^9}, {
   3.6434461756123247`*^9, 3.6434461757751637`*^9}}],

Cell[CellGroupData[{

Cell["winding-bend", "Subsection",
 CellChangeTimes->{{3.58346942744867*^9, 3.5834694291404753`*^9}, {
  3.5987869580458117`*^9, 3.598786963752242*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"basename", "=", "\"\<Snake8_winding_bend\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"plots", ",", "tiseandat"}], "}"}], "=", 
   RowBox[{"TiseanD2PlotsAndData", "[", 
    RowBox[{
     RowBox[{
     "\"\<tisean/snake/\>\"", "<>", "basename", "<>", "\"\<_x8_e19.d2\>\""}], 
     ",", "1", ",", 
     RowBox[{"Thresh", "\[Rule]", "5"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
     RowBox[{"EpsRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.0003", ",", "Infinity"}], "}"}]}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.573367981762273*^9, 3.573368034954278*^9}, {
   3.573368193091415*^9, 3.573368193147151*^9}, {3.573368716651465*^9, 
   3.573368737195033*^9}, {3.583057833407185*^9, 3.583057835079295*^9}, {
   3.583057892927641*^9, 3.583057899471272*^9}, {3.5867201026351967`*^9, 
   3.58672011490619*^9}, {3.586720166683773*^9, 3.5867201798350573`*^9}, {
   3.586795393605069*^9, 3.5867953961721697`*^9}, {3.601274346012999*^9, 
   3.601274407405164*^9}, {3.601275357006731*^9, 3.601275373789658*^9}, {
   3.602225812823119*^9, 3.602225812926446*^9}, {3.6022259697721033`*^9, 
   3.6022259698709393`*^9}, {3.608630732817893*^9, 3.6086307426301737`*^9}, {
   3.608630933702078*^9, 3.6086310079896717`*^9}, {3.608631171432722*^9, 
   3.608631197270082*^9}, {3.6092186193921127`*^9, 3.609218619868628*^9}, {
   3.6092186746294937`*^9, 3.609218674812682*^9}, {3.633842026611799*^9, 
   3.633842042865214*^9}, {3.642134942338665*^9, 3.642134943009075*^9}, {
   3.642135000292948*^9, 3.642135018021627*^9}, {3.642138218551701*^9, 
   3.642138219467401*^9}, {3.642138350441807*^9, 3.642138372174013*^9}, {
   3.6434328651685553`*^9, 3.643432867984187*^9}, {3.643432956768738*^9, 
   3.643432968832018*^9}, {3.643446022774496*^9, 3.6434460263899937`*^9}, {
   3.643450603315157*^9, 3.64345068081525*^9}, {3.6434507220512114`*^9, 
   3.643450750068383*^9}, {3.643450784899417*^9, 3.643450785313777*^9}, {
   3.643450859091206*^9, 3.643450859168112*^9}, {3.6434518075731897`*^9, 
   3.6434518258760967`*^9}, 3.643451859576199*^9, {3.643451916477257*^9, 
   3.6434519338297777`*^9}, {3.643452258573146*^9, 3.6434522752048693`*^9}, {
   3.643452772158396*^9, 3.643452773485243*^9}, {3.643452826708994*^9, 
   3.6434528268368483`*^9}, {3.643453260426838*^9, 3.643453279042391*^9}}],

Cell[BoxData[{
 RowBox[{"eeFits", "=", 
  RowBox[{"FindAllFits", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"-", "1"}], "]"}], "]"}], ",", "LogLinFitFun", ",", "15"}], 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", 
    RowBox[{"plots", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"plots4Export", "=", "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6.2"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", ",", 
            RowBox[{"ExtendFit", "\[Rule]", "1"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
      
      RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"PlotFitInLog", "[", 
            RowBox[{"#", ",", 
             RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
             RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
             RowBox[{"ShowLabel", "\[Rule]", "True"}]}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}]}], 
      ",", 
      RowBox[{"PlotRangeClipping", "\[Rule]", "True"}]}], "]"}]}], 
   "}"}]}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643625341316861*^9, 
   3.6436253416002817`*^9}}],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"TiseanExportDir", "<>", "basename", "<>", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
   RowBox[{"Zip", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<_D2.pdf\>\"", ",", "\"\<_h2.pdf\>\"", ",", 
       "\"\<_excess_entropy.pdf\>\""}], "}"}], ",", "plots4Export"}], "]"}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, 
   3.613910398602169*^9, {3.627382148098576*^9, 3.6273821513022118`*^9}, {
   3.6434460807617292`*^9, 3.643446147916451*^9}, 3.643446190957446*^9, {
   3.643453180008552*^9, 3.643453230646964*^9}, {3.643625246142315*^9, 
   3.6436252462700872`*^9}, 3.643952960834083*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}], ",", 
     RowBox[{"FitQualityQuantile", "\[Rule]", "0.5"}], ",", 
     RowBox[{"ShowLabel", "\[Rule]", "False"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}, {3.643443196824856*^9, 
   3.643443205015295*^9}, {3.643522229387897*^9, 3.643522238459083*^9}, {
   3.6435222715026283`*^9, 3.643522271627651*^9}, {3.643522306048106*^9, 
   3.643522306193109*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EEdecompPlot", ",", "EEdecompData", ",", "aux"}], "}"}], "=", 
   RowBox[{"DecomposeAndPlotExcessEntropy", "[", 
    RowBox[{"dat", ",", "fits", ",", 
     RowBox[{"DeltaHFlatThreshold", "\[Rule]", "0.05"}], ",", " ", 
     RowBox[{"DeterminismThreshold", "\[Rule]", "0.55"}], ",", " ", 
     RowBox[{"YPlotRangeMax", "\[Rule]", "18"}], ",", 
     RowBox[{"RemoveNegative", "\[Rule]", "True"}], ",", 
     RowBox[{"ShowNegative", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"FactorForQualityScales", "\[Rule]", "Automatic"}], ",", " ", 
     RowBox[{"ReplaceEndByFits", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "DecomposePlotSize"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", "EEdecompPlot", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.6434435853827887`*^9}, {
   3.643445057580056*^9, 3.643445057784492*^9}, {3.643450029057585*^9, 
   3.6434500338245*^9}, {3.6435223229358892`*^9, 3.643522337246067*^9}, {
   3.643522377402272*^9, 3.64352237824372*^9}, {3.643522743719479*^9, 
   3.6435227440939283`*^9}, {3.643522995725258*^9, 3.643523004537393*^9}, {
   3.643615039939735*^9, 3.643615054553014*^9}, {3.643617952344309*^9, 
   3.643617975779047*^9}, {3.643618037816391*^9, 3.6436180615879393`*^9}, {
   3.643619357513905*^9, 3.643619462902746*^9}, 3.6436195107628317`*^9, {
   3.643619780970705*^9, 3.643619799031774*^9}, {3.643620140138871*^9, 
   3.6436201402778053`*^9}, {3.643620339018561*^9, 3.6436203452496157`*^9}, {
   3.643620383690996*^9, 3.6436204005568743`*^9}, {3.64362065402339*^9, 
   3.643620654661194*^9}, {3.643625284878511*^9, 3.6436252866363373`*^9}, {
   3.643907394366515*^9, 3.64390739602417*^9}, {3.643907730232747*^9, 
   3.643907730340802*^9}, 3.64395226396698*^9, {3.6439697576381407`*^9, 
   3.643969758007551*^9}, {3.644141068493208*^9, 3.6441410694677277`*^9}, {
   3.644141113406493*^9, 3.6441411426993093`*^9}, {3.644225885065296*^9, 
   3.6442259154168987`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"detInts", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Interval", "[", 
       RowBox[{"{", 
        RowBox[{"0.05", ",", "0.6"}], "}"}], "]"}], ",", 
      RowBox[{"-", ".8"}], ",", ".4"}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", "EEdecompPlot", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"avgDecomp", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"#", ",", 
       RowBox[{"GetAvgDecomp", "[", 
        RowBox[{"EEdecompData", ",", 
         RowBox[{"First", "[", "#", "]"}]}], "]"}]}], "]"}], "&"}], ",", 
    "detInts"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plt", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"EEdecompPlot", ",", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"PlotFitInLog", "[", 
          RowBox[{"#", ",", 
           RowBox[{"ExtendFit", "\[Rule]", ".5"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"PlotFitInLog", "[", 
             RowBox[{"#", ",", 
              RowBox[{"LabelSize", "\[Rule]", "6"}], ",", 
              RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
              RowBox[{"ShowLabel", "\[Rule]", "True"}]}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
        ",", "Black", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"AvgDecompInPlot", "[", 
              RowBox[{"##", ",", 
               RowBox[{"LabelSize", "\[Rule]", "7"}]}], "]"}], "&"}], "@@", 
            "#"}], "&"}], ",", "avgDecomp"}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "plt"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.643443622953369*^9}, {
   3.643443659530727*^9, 3.6434436750339317`*^9}, 3.643444279096521*^9, {
   3.643444884877864*^9, 3.643444926027307*^9}, 3.643444978221141*^9, {
   3.643445438189087*^9, 3.643445438377582*^9}, {3.643445479196732*^9, 
   3.643445500692588*^9}, 3.643445545822229*^9, {3.643446486509884*^9, 
   3.643446487901252*^9}, {3.643452681051773*^9, 3.643452691126462*^9}, {
   3.6434529192484922`*^9, 3.643452935930657*^9}, {3.6434529668297586`*^9, 
   3.6434529678997107`*^9}, {3.643453012916843*^9, 3.643453018577394*^9}, {
   3.643453488931172*^9, 3.643453652659524*^9}, {3.643453747481181*^9, 
   3.6434537565778112`*^9}, {3.6434539569829473`*^9, 3.643453957475082*^9}, {
   3.643454207351143*^9, 3.643454207699716*^9}, {3.643454940135084*^9, 
   3.64345501513944*^9}, {3.6434551372402287`*^9, 3.6434551932280073`*^9}, {
   3.643455363462903*^9, 3.643455394106072*^9}, {3.64362569859278*^9, 
   3.6436256997445593`*^9}, {3.643969786677512*^9, 3.6439697997019987`*^9}, {
   3.643969873238418*^9, 3.643970013681815*^9}, {3.6439706417366858`*^9, 
   3.643970645959587*^9}, {3.6441411564105864`*^9, 3.64414115670156*^9}, {
   3.644141203590699*^9, 3.6441412069402122`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", "\"\<_deltaH-fits.pdf\>\""}], 
    ",", 
    RowBox[{"Show", "[", 
     RowBox[{"deltaHplt", ",", 
      RowBox[{"ListLogLinearPlot", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Zip", "[", 
            RowBox[{
             RowBox[{"dat", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", "#"}], 
            "]"}], "&"}], ",", 
          RowBox[{"(", 
           RowBox[{"\"\<straights\>\"", "/.", "aux"}], ")"}]}], "]"}], ",", 
        RowBox[{"Joined", "\[Rule]", "True"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Cyan"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "1600"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", 
     "\"\<_excess_entropy-decomp.pdf\>\""}], ",", 
    RowBox[{"plt", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, 
   3.5867988249648113`*^9, {3.608627895986458*^9, 3.608627899602152*^9}, {
   3.612173223727004*^9, 3.612173224639276*^9}, {3.6418111811484118`*^9, 
   3.641811190891127*^9}, {3.6418114009289093`*^9, 3.6418114035056343`*^9}, {
   3.6418115901295424`*^9, 3.6418115910881453`*^9}, {3.641811702154007*^9, 
   3.641811703850024*^9}, {3.64224245055231*^9, 3.6422424693460093`*^9}, {
   3.643441834472952*^9, 3.643441856312248*^9}, {3.6434532975295973`*^9, 
   3.643453319943263*^9}, {3.6436240035636177`*^9, 3.643624009258774*^9}, {
   3.643624085357832*^9, 3.643624085531846*^9}, {3.6437368014151087`*^9, 
   3.643736802106578*^9}, {3.643736868025672*^9, 3.643736875541686*^9}, 
   3.643737127621812*^9, 3.643738346151525*^9, {3.643739527572446*^9, 
   3.643739529396372*^9}, {3.643739644437684*^9, 3.643739650779063*^9}, {
   3.643740242203405*^9, 3.643740245693644*^9}, {3.6439532395386047`*^9, 
   3.643953265838543*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["crawl", "Subsection",
 CellChangeTimes->{{3.58346942744867*^9, 3.5834694291404753`*^9}, {
  3.5987869580458117`*^9, 3.598786963752242*^9}, {3.643446245544244*^9, 
  3.6434462508882313`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"basename", "=", "\"\<Snake9_crawlrew_zigzag\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"plots", ",", "tiseandat"}], "}"}], "=", 
   RowBox[{"TiseanD2PlotsAndData", "[", 
    RowBox[{
     RowBox[{
     "\"\<tisean/snake/\>\"", "<>", "basename", "<>", 
      "\"\<.resampled_x8_e19.d2\>\""}], ",", "1", ",", 
     RowBox[{"Thresh", "\[Rule]", "5"}], ",", 
     RowBox[{"EpsRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.0003", ",", "Infinity"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdz1sog2EAxvGRklITLsSNw7hwSizUrHxFhBsbEnKYoTRWLtBkzjKRNMQi
FLHIHMImu1MTWeLDag5zuNCH0CY3mPd5L55+t88/TKaU1HjyeLwwMjgoN44v
z3JMk6Z8Gt69hq/D5m0B9cQ29gl3xFEuqPeO+4rY5JgJjYyaZpj5gfpA5S8c
kLKxoSaO6XaXxcPW+wshPDKqkuFeWdJHBrG+u4/aXp9ufmA5Jvj79QAKUuZE
j8T7DJMY/hXpJFuX5N/iDNV/O7UW7t+KqPGxOhP3wDGyaHYPKlp2zqB8xW2H
17aGD9izsOyECUMKi88T6Tpuo54KCqxQ7VFCtWulb7yAF+bCUPoOiy+Pks7C
iTkOKlvhI4IxG+liqFnKPzknOl2N1OwI6w3sHe1zQKs80pUb+cI0qzuonVOT
bvg0G+yRR1w9tFVKiKwqrwqq+MIu2Kgb7YFZI3YtTNx9pDqezZNUvoXq9DPM
w5Ai8wI0frVXS4l1vl41cPjdqS8kutRrG1DYqryC/ZnP1DEta4dBQV638B+b
fx9Z
  "]],

Cell[BoxData[{
 RowBox[{"eeFits", "=", 
  RowBox[{"FindAllFits", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"-", "1"}], "]"}], "]"}], ",", "LogLinFitFun", ",", "10", ",", 
    "0.99"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "->", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "18"}], "}"}]}], "}"}]}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"plots4Export", "=", "\[IndentingNewLine]", 
  RowBox[{"{", " ", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6.2"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", ",", 
            RowBox[{"ExtendFit", "\[Rule]", ".3"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
      
      RowBox[{"PlotRange", "->", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "18"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"PlotFitInLog", "[", 
            RowBox[{"#", ",", 
             RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
             RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
             RowBox[{"ShowLabel", "\[Rule]", "True"}]}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}]}], 
      ",", 
      RowBox[{"PlotRangeClipping", "\[Rule]", "False"}]}], "]"}]}], 
   "}"}]}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643625341316861*^9, 
   3.6436253416002817`*^9}, {3.6436254517125607`*^9, 3.643625617711214*^9}}],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"TiseanExportDir", "<>", "basename", "<>", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
   RowBox[{"Zip", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<_D2.pdf\>\"", ",", "\"\<_h2.pdf\>\"", ",", 
       "\"\<_excess_entropy.pdf\>\""}], "}"}], ",", "plots4Export"}], "]"}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, 
   3.613910398602169*^9, {3.627382148098576*^9, 3.6273821513022118`*^9}, {
   3.6434460807617292`*^9, 3.643446147916451*^9}, 3.643446190957446*^9, {
   3.643453180008552*^9, 3.643453230646964*^9}, {3.643625304701085*^9, 
   3.643625304861373*^9}, 3.643952968033494*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}, {3.643443196824856*^9, 
   3.643443205015295*^9}, {3.643449335921299*^9, 3.6434493362069283`*^9}, {
   3.6434534021593227`*^9, 3.643453402641242*^9}, {3.643455274802704*^9, 
   3.64345530410751*^9}, 3.643625824865308*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EEdecompPlot", ",", "EEdecompData", ",", "aux"}], "}"}], "=", 
   RowBox[{"DecomposeAndPlotExcessEntropy", "[", 
    RowBox[{"dat", ",", "fits", ",", 
     RowBox[{"DeltaHFlatThreshold", "\[Rule]", "0.05"}], ",", " ", 
     RowBox[{"DeterminismThreshold", "\[Rule]", "0.55"}], ",", " ", 
     RowBox[{"YPlotRangeMax", "\[Rule]", "18"}], ",", 
     RowBox[{"RemoveNegative", "\[Rule]", "True"}], ",", 
     RowBox[{"ShowNegative", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"ReplaceEndByFits", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "DecomposePlotSize"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "EEdecompPlot"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.6434435853827887`*^9}, {
   3.643445057580056*^9, 3.643445057784492*^9}, {3.643450029057585*^9, 
   3.6434500338245*^9}, {3.6435223229358892`*^9, 3.643522337246067*^9}, {
   3.643522377402272*^9, 3.64352237824372*^9}, {3.643522743719479*^9, 
   3.6435227440939283`*^9}, {3.643522995725258*^9, 3.643523004537393*^9}, {
   3.643615039939735*^9, 3.643615054553014*^9}, {3.643617952344309*^9, 
   3.643617975779047*^9}, {3.643618037816391*^9, 3.6436180615879393`*^9}, {
   3.643619357513905*^9, 3.643619462902746*^9}, 3.6436195107628317`*^9, {
   3.643619780970705*^9, 3.643619799031774*^9}, {3.643620140138871*^9, 
   3.6436201402778053`*^9}, {3.643620339018561*^9, 3.6436203452496157`*^9}, {
   3.643620383690996*^9, 3.6436204005568743`*^9}, {3.64362065402339*^9, 
   3.643620654661194*^9}, {3.643625284878511*^9, 3.6436252866363373`*^9}, {
   3.64362574691252*^9, 3.6436257534545*^9}, {3.643625850399691*^9, 
   3.643625864718523*^9}, {3.6439077033985643`*^9, 3.6439077035014153`*^9}, {
   3.643952130227994*^9, 3.643952133026258*^9}, 3.643952264801078*^9, {
   3.643970151283553*^9, 3.643970158293138*^9}, {3.6439703531889887`*^9, 
   3.6439703533323793`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"detInts", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Interval", "[", 
        RowBox[{"{", 
         RowBox[{"0.002", ",", "0.008"}], "}"}], "]"}], ",", 
       RowBox[{"-", "0.5"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Interval", "[", 
        RowBox[{"{", 
         RowBox[{"0.05", ",", "0.6"}], "}"}], "]"}], ",", "1", ",", ".7"}], 
      "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", "EEdecompPlot", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"avgDecomp", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"#", ",", 
       RowBox[{"GetAvgDecomp", "[", 
        RowBox[{"EEdecompData", ",", 
         RowBox[{"First", "[", "#", "]"}]}], "]"}]}], "]"}], "&"}], ",", 
    "detInts"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plt", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"EEdecompPlot", ",", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"PlotFitInLog", "[", 
          RowBox[{"#", ",", 
           RowBox[{"ExtendFit", "\[Rule]", ".5"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"PlotFitInLog", "[", 
             RowBox[{"#", ",", 
              RowBox[{"LabelSize", "\[Rule]", "6"}], ",", 
              RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
              RowBox[{"ShowLabel", "\[Rule]", "True"}]}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
        ",", "Black", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"AvgDecompInPlot", "[", 
              RowBox[{"##", ",", 
               RowBox[{"LabelSize", "\[Rule]", "5"}]}], "]"}], "&"}], "@@", 
            "#"}], "&"}], ",", "avgDecomp"}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "plt"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.643443622953369*^9}, {
   3.643443659530727*^9, 3.6434436750339317`*^9}, 3.643444279096521*^9, {
   3.643444884877864*^9, 3.643444926027307*^9}, 3.643444978221141*^9, {
   3.643445438189087*^9, 3.643445438377582*^9}, {3.643445479196732*^9, 
   3.643445500692588*^9}, 3.643445545822229*^9, {3.643446486509884*^9, 
   3.643446487901252*^9}, {3.643452681051773*^9, 3.643452691126462*^9}, {
   3.6434529192484922`*^9, 3.643452935930657*^9}, {3.6434529668297586`*^9, 
   3.6434529678997107`*^9}, {3.643453012916843*^9, 3.643453018577394*^9}, {
   3.643453488931172*^9, 3.643453652659524*^9}, {3.643453747481181*^9, 
   3.6434537565778112`*^9}, {3.6434539569829473`*^9, 3.643453957475082*^9}, {
   3.643454207351143*^9, 3.643454207699716*^9}, {3.643454940135084*^9, 
   3.64345501513944*^9}, {3.6434551372402287`*^9, 3.6434551932280073`*^9}, {
   3.643625820530045*^9, 3.643625827791252*^9}, {3.6436258877300253`*^9, 
   3.6436259317128*^9}, {3.6439703902332973`*^9, 3.643970623322452*^9}, {
   3.6441411840072813`*^9, 3.64414118425344*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", "\"\<_deltaH-fits.pdf\>\""}], 
    ",", 
    RowBox[{"Show", "[", 
     RowBox[{"deltaHplt", ",", 
      RowBox[{"ListLogLinearPlot", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Zip", "[", 
            RowBox[{
             RowBox[{"dat", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", "#"}], 
            "]"}], "&"}], ",", 
          RowBox[{"(", 
           RowBox[{"\"\<straights\>\"", "/.", "aux"}], ")"}]}], "]"}], ",", 
        RowBox[{"Joined", "\[Rule]", "True"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Cyan"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "1600"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", 
     "\"\<_excess_entropy-decomp.pdf\>\""}], ",", 
    RowBox[{"plt", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, 
   3.5867988249648113`*^9, {3.608627895986458*^9, 3.608627899602152*^9}, {
   3.612173223727004*^9, 3.612173224639276*^9}, {3.6418111811484118`*^9, 
   3.641811190891127*^9}, {3.6418114009289093`*^9, 3.6418114035056343`*^9}, {
   3.6418115901295424`*^9, 3.6418115910881453`*^9}, {3.641811702154007*^9, 
   3.641811703850024*^9}, {3.64224245055231*^9, 3.6422424693460093`*^9}, {
   3.643441834472952*^9, 3.643441856312248*^9}, {3.6434532975295973`*^9, 
   3.643453319943263*^9}, {3.6436240035636177`*^9, 3.643624009258774*^9}, {
   3.643624085357832*^9, 3.643624085531846*^9}, {3.6437368014151087`*^9, 
   3.643736802106578*^9}, {3.643736868025672*^9, 3.643736875541686*^9}, 
   3.643737127621812*^9, 3.643738346151525*^9, {3.643739527572446*^9, 
   3.643739529396372*^9}, {3.643739644437684*^9, 3.643739650779063*^9}, {
   3.643740242203405*^9, 3.643740245693644*^9}, {3.643953239550947*^9, 
   3.643953265848579*^9}}],

Cell[BoxData[{
 RowBox[{"legend19", "=", 
  RowBox[{"TiseanLegend", "[", "19", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"TiseanExportDir", "<>", " ", "\"\<legend19.pdf\>\""}], ",", 
    "legend19", ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.6348920707589273`*^9, 3.634892094259593*^9}, {
  3.634892173636297*^9, 3.6348921861004267`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["KSG", "Subsection",
 CellChangeTimes->{{3.644642511443914*^9, 3.6446425144240713`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"files", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<MIxnyn/snake/Snake8_winding_bend_x8-k20_d8.pi.grouped\>\"", ",", 
     "\"\<MIxnyn/snake/Snake9_crawlrew_zigzag_x8-k20_d8.pi.grouped\>\""}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.644642589709516*^9, 3.644642606701191*^9}}],

Cell[BoxData[
 RowBox[{"plsmi", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"PlotMIScan", "[", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}], ",", 
    RowBox[{"Zip", "[", 
     RowBox[{
      RowBox[{"Map", "[", 
       RowBox[{"Import", ",", "files"}], "]"}], ",", "files"}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5927186163494177`*^9, 3.592718631793311*^9}, {
  3.5927220876209373`*^9, 3.592722099913555*^9}, {3.598857383243517*^9, 
  3.59885738518438*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f1", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Const", "-", 
     RowBox[{"Dim", " ", 
      RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Dim", "\[Rule]", "1"}], ",", 
      RowBox[{"Const", "\[Rule]", "1"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"plsmi", "[", 
    RowBox[{"[", "1", "]"}], "]"}], ",", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{
     RowBox[{"f1", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.02", ",", "1.5"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}], ",", 
   RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Inset", "[", 
      RowBox[{
       RowBox[{"Rotate", "[", 
        RowBox[{
         RowBox[{"StyleLabel", "[", 
          RowBox[{"f1", "[", "\[Epsilon]", "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{"-", "30"}], "Degree"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", "0.3", "]"}], ",", 
         RowBox[{"f1", "[", "0.3", "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Center", ",", 
         RowBox[{"-", "0.6"}]}], "}"}]}], "]"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598857472948895*^9, 3.598857585564674*^9}, {3.613910276810597*^9, 
   3.613910338323147*^9}, 3.613910919732983*^9, {3.613911093582033*^9, 
   3.61391109387615*^9}, {3.634891338550601*^9, 3.6348913463018513`*^9}, {
   3.634891382903146*^9, 3.634891384909356*^9}, {3.634891416035408*^9, 
   3.634891442942173*^9}, 3.635056167197465*^9, 3.6350562251457376`*^9, {
   3.644642625659987*^9, 3.644642625788376*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"MIExportDir", "<>", "\"\<Snake8_winding_bend_MI.pdf\>\""}], ",", 
   "%", ",", 
   RowBox[{"Background", "\[Rule]", "None"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, {
   3.59885761919162*^9, 3.598857621223008*^9}, {3.61391034718158*^9, 
   3.613910350584819*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f1", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Const", "-", 
     RowBox[{"Dim", " ", 
      RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Dim", "\[Rule]", "1"}], ",", 
      RowBox[{"Const", "\[Rule]", "1"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f2", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"Const", "-", 
     RowBox[{"Dim", " ", 
      RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Dim", "\[Rule]", "2"}], ",", 
      RowBox[{"Const", "\[Rule]", 
       RowBox[{"-", "2"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"plsmi", "[", 
    RowBox[{"[", "2", "]"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{
     RowBox[{"f1", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.02", ",", "1.5"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{
     RowBox[{"f2", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.001", ",", "0.1"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"Rotate", "[", 
         RowBox[{
          RowBox[{"StyleLabel", "[", 
           RowBox[{"f1", "[", "\[Epsilon]", "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{"-", "25"}], "Degree"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "0.3", "]"}], ",", 
          RowBox[{"f1", "[", "0.3", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Center", ",", 
          RowBox[{"-", "0.6"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"Rotate", "[", 
         RowBox[{
          RowBox[{"StyleLabel", "[", 
           RowBox[{"f2", "[", "\[Epsilon]", "]"}], "]"}], ",", 
          RowBox[{"0", "Degree"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "0.01", "]"}], ",", 
          RowBox[{"f2", "[", "0.01", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Left", ",", 
          RowBox[{"-", "0.6"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
     "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598857472948895*^9, 3.598857585564674*^9}, {3.598857633508906*^9, 
   3.5988578918406076`*^9}, {3.598857932635923*^9, 3.598857938338048*^9}, 
   3.613910957245347*^9, {3.613911027520043*^9, 3.6139112288842688`*^9}, {
   3.6348914689512653`*^9, 3.634891596515668*^9}, {3.635056168092841*^9, 
   3.635056168888628*^9}, {3.635056226033869*^9, 3.6350562267385483`*^9}, {
   3.6446426476014967`*^9, 3.644642647890663*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"MIExportDir", "<>", "\"\<Snake9_crawlrew_zigzag_MI.pdf\>\""}], 
   ",", "%", ",", 
   RowBox[{"Background", "\[Rule]", "None"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, {
   3.59885761919162*^9, 3.598857621223008*^9}, {3.598857970864356*^9, 
   3.5988579790872*^9}, {3.598873643970612*^9, 3.598873649427176*^9}, 
   3.613911247558844*^9}],

Cell[BoxData[{
 RowBox[{"legend12", "=", 
  RowBox[{"TiseanLegend", "[", 
   RowBox[{"12", ",", "False"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"TiseanExportDir", "<>", " ", "\"\<legend12-1.pdf\>\""}], ",", 
   "legend12", ",", 
   RowBox[{"Background", "\[Rule]", "None"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.634893218384308*^9, 3.6348933020453997`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hexapod", "Section",
 CellChangeTimes->{{3.57336367194098*^9, 3.573363686252048*^9}, {
  3.573376931279007*^9, 3.573376932661812*^9}}],

Cell["jumping in x[1] and delay 4", "Text",
 CellChangeTimes->{{3.583467330807786*^9, 3.5834673459130983`*^9}, {
  3.5933381637833138`*^9, 3.593338164551365*^9}, {3.613899842799765*^9, 
  3.613899863375162*^9}, {3.634644911914661*^9, 3.63464491571421*^9}, {
  3.643523166845083*^9, 3.643523187452901*^9}}],

Cell[BoxData[{
 RowBox[{"files", "=", 
  RowBox[{"GetFiles", "[", 
   RowBox[{
   "\"\<tisean/hexapod/\>\"", ",", "\"\<Hexapod_tz_jump_*x1_d4_e25*.d2\>\""}],
    "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DecompYRange", "=", "29"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5733644916972713`*^9, 3.573364497209907*^9}, {
   3.573365083355412*^9, 3.573365096818837*^9}, 3.573365678915278*^9, {
   3.573366603146982*^9, 3.573366607890189*^9}, {3.573367122347197*^9, 
   3.573367173498691*^9}, {3.573367415059449*^9, 3.5733674316028557`*^9}, {
   3.573369197061289*^9, 3.5733691985477552`*^9}, {3.573376939021956*^9, 
   3.573376978446913*^9}, {3.5743981123287363`*^9, 3.574398115215207*^9}, {
   3.5834673127627*^9, 3.583467313810214*^9}, {3.583467359508263*^9, 
   3.5834673820904408`*^9}, {3.593338170069886*^9, 3.59333819218254*^9}, {
   3.613889946517868*^9, 3.6138899497977962`*^9}, {3.613899815152972*^9, 
   3.613899833894476*^9}, {3.613899868388609*^9, 3.613899881599704*^9}, {
   3.613968468008298*^9, 3.613968487089218*^9}, {3.6139909157024717`*^9, 
   3.613990946549973*^9}, {3.6139910932304487`*^9, 3.6139911264621964`*^9}, {
   3.61448871294073*^9, 3.614488714310349*^9}, {3.643559367755443*^9, 
   3.6435593679170017`*^9}, {3.643907512702386*^9, 3.643907512805572*^9}, {
   3.643960744579368*^9, 3.643960747171694*^9}, {3.6439707146775627`*^9, 
   3.6439707223543243`*^9}, {3.643971094731515*^9, 3.6439710948893623`*^9}}],

Cell[CellGroupData[{

Cell["2 m", "Subsection",
 CellChangeTimes->{{3.634635822505118*^9, 3.634635825978416*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"basename", "=", "\"\<hexa_jump_2m\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"plots", ",", "tiseandat"}], "}"}], "=", 
   RowBox[{"TiseanD2PlotsAndData", "[", 
    RowBox[{
    "\"\<tisean/hexapod/Hexapod_tz_jump_2m_fixed.x.resampled_x1_d4_e25.d2\>\"\
", ",", "1", ",", 
     RowBox[{"Thresh", "\[Rule]", "5"}], ",", 
     RowBox[{"EpsRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.001", ",", "Infinity"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdz09I02EAxvEZAxECQzuIHir9zYNTkZxZbQtfUCzTg5uNKMla00DMQYcp
E5d/UlwkIZuiQ7HAyJG0LFzbcLfAWGyE/nSLlU2dIr8pWpt0Kdf7vIeHz/X5
ntPqVc0nRCKRhA4+1blGZ6cF8sh8ZxL+3Mt9Bw0LHNMfsv6CTmV+AtpTi47y
3gtkzKxlKhxTf6H9tP4fHFLzhWfdAulLNhbDzo1VGfS5jBegp7H0sJLa2jfA
7G6t8G7yAsn+s/cJcuUv5FvUjUq3Eh5rbKoPa/TfqylmxsLFFri4LmcWF9rc
wqZAtAW8B7Z1OJeh7k0yDL+HHh7C/pnZOCx51raUFqVdX7qYX7mGADSl3GKG
Lep9UWaMrDpuH8Cba77S5VxqTYTJN6XJoXS+QgnNr+v9K9R4op15NS/wAz4Z
GYjAgE6SuC6JEYPpMbNnYjwJo9PZKbXUuc+huyoqb6y9B43psl7Ybhvph9XP
wxZ4/uMWM7LrHWemLzHjpxwvYY7GOwNdR9331dQHJ8XNcPggbr9BTZjezkNZ
pz4IB6t2mVYLH4ZZWeJ12BC8dqWLKs65RKCiTFMFC76ZmdzO78t1+TFyJhhT
wMFyaQ3cLhuug/8BuVE5qg==
  "]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tickopts", "=", 
   RowBox[{"ReplacePart", "[", 
    RowBox[{
     RowBox[{"Ticks", " ", "/.", " ", 
      RowBox[{"Quiet", "[", 
       RowBox[{"AbsoluteOptions", "[", 
        RowBox[{"plots", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "2"}], "}"}], "\[Rule]", "Null"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "3", ",", "2"}], "}"}], "\[Rule]", "Null"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "5", ",", "2"}], "}"}], "\[Rule]", "Null"}], ",", 
       RowBox[{"2", "\[Rule]", "Automatic"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"MyPlotOpts", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"CalcImgSize", "[", "0.3", "]"}]}], ",", 
      RowBox[{"Ticks", "\[Rule]", "tickopts"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"ticks", "=", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"m", " ", 
             RowBox[{"10", "^", 
              RowBox[{"(", "v", ")"}]}]}], ",", ",", 
            RowBox[{"{", 
             RowBox[{"0.005`", ",", "0.`"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 RowBox[{
                  GraphicsBox[{
                    {GrayLevel[0], RectangleBox[{0, 0}]}, 
                    {GrayLevel[0], RectangleBox[{1, -1}]}, 
                    {GrayLevel[0.], 
                    StyleBox[RectangleBox[{0, -1}, {2, 1}],
                    FontColor->GrayLevel[0.]]}},
                   AspectRatio->1,
                   Frame->True,
                   FrameStyle->GrayLevel[0.],
                   FrameTicks->None,
                   
                   ImageSize->
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}],
                   PlotRangePadding->None], "\[InvisibleSpace]"}],
                 "GrayLevel[0.]"],
                Appearance->None,
                BaseStyle->{},
                BaselinePosition->Baseline,
                ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
                  If[
                   Not[
                    AbsoluteCurrentValue["Deployed"]], 
                   SelectionMove[Typeset`box$, All, Expression]; 
                   FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                   FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0.]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]],
                DefaultBaseStyle->{},
                Evaluator->Automatic,
                Method->"Preemptive"],
               GrayLevel[0.],
               Editable->False,
               Selectable->False], ",", 
              RowBox[{"AbsoluteThickness", "[", "0.1`", "]"}]}], "}"}]}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"v", ",", 
            RowBox[{"-", "5"}], ",", "0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"m", ",", "0", ",", "1", ",", "0.1"}], "}"}]}], "]"}], ",",
         "1"}], "]"}], "~", "Join", "~", "\[IndentingNewLine]", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"10", "^", 
           RowBox[{"(", "v", ")"}]}], ",", 
          RowBox[{"N", "[", 
           RowBox[{"10", "^", 
            RowBox[{"(", "v", ")"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.01`", ",", "0.`"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            InterpretationBox[
             ButtonBox[
              TooltipBox[
               RowBox[{
                GraphicsBox[{
                  {GrayLevel[0], RectangleBox[{0, 0}]}, 
                  {GrayLevel[0], RectangleBox[{1, -1}]}, 
                  {GrayLevel[0.], 
                   StyleBox[RectangleBox[{0, -1}, {2, 1}],
                    FontColor->GrayLevel[0.]]}},
                 AspectRatio->1,
                 Frame->True,
                 FrameStyle->GrayLevel[0.],
                 FrameTicks->None,
                 
                 ImageSize->
                  Dynamic[{
                   Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}],
                 PlotRangePadding->None], "\[InvisibleSpace]"}],
               "GrayLevel[0.]"],
              Appearance->None,
              BaseStyle->{},
              BaselinePosition->Baseline,
              ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
                If[
                 Not[
                  AbsoluteCurrentValue["Deployed"]], 
                 SelectionMove[Typeset`box$, All, Expression]; 
                 FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                 FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.]; 
                 FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                 MathLink`CallFrontEnd[
                   FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]],
              DefaultBaseStyle->{},
              Evaluator->Automatic,
              Method->"Preemptive"],
             GrayLevel[0.],
             Editable->False,
             Selectable->False], ",", 
            RowBox[{"AbsoluteThickness", "[", "0.1`", "]"}]}], "}"}]}], "}"}],
         ",", 
        RowBox[{"{", 
         RowBox[{"v", ",", 
          RowBox[{"-", "5"}], ",", "0", ",", "1"}], "}"}]}], "]"}]}]}], ";"}],
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ticks4decomp", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ReplacePart", "[", 
       RowBox[{"#", ",", 
        RowBox[{
         RowBox[{"{", "1", "}"}], "\[Rule]", 
         RowBox[{"Exp", "[", 
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "]"}], "&"}], ",", 
     RowBox[{"tickopts", "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.634643677197455*^9, 3.634643712375915*^9}, {
  3.634643775171432*^9, 3.634643836420052*^9}, {3.6346502327878847`*^9, 
  3.634650245401518*^9}, {3.643960674107863*^9, 3.643960842150435*^9}, {
  3.643962643965716*^9, 3.6439626445879183`*^9}, {3.643962768510942*^9, 
  3.643962783536845*^9}, {3.643970670223321*^9, 3.6439706714369783`*^9}}],

Cell[BoxData[{
 RowBox[{"eeFits", "=", 
  RowBox[{"FindAllFits", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"-", "1"}], "]"}], "]"}], ",", "LogLinFitFun", ",", "12", ",", 
    "0.1"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eeFits", "=", 
   RowBox[{"eeFits", "[", 
    RowBox[{"[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "3", ",", "4"}], "}"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", 
    RowBox[{"plots", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"plots4Export", "=", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Eps", ",", "h2m"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6.2"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", ",", 
            RowBox[{"ExtendFit", "\[Rule]", "0.5"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
      
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Eps", ",", "EEm"}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"PlotFitInLog", "[", 
            RowBox[{"#", ",", 
             RowBox[{"LabelSize", "\[Rule]", "4"}], ",", 
             RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
             RowBox[{"LabelPosition", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"Automatic", ",", 
                RowBox[{"-", ".4"}]}], "}"}]}], ",", 
             RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
             RowBox[{"ShowLabel", "\[Rule]", "True"}]}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}]}], 
      ",", 
      RowBox[{"PlotRangeClipping", "\[Rule]", "False"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}]}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446509311593*^9, 
   3.6434465096946917`*^9}, {3.643446633938081*^9, 3.6434466407195787`*^9}, {
   3.6434480656676807`*^9, 3.643448071772675*^9}, {3.643448131779518*^9, 
   3.643448162019988*^9}, {3.6434482924953833`*^9, 3.643448294117774*^9}, {
   3.643448381927853*^9, 3.643448430455976*^9}, {3.643448835159232*^9, 
   3.643448875620706*^9}, {3.6434489255087233`*^9, 3.643449026735609*^9}, {
   3.6434490675276546`*^9, 3.64344907792813*^9}, {3.643529802830077*^9, 
   3.643529853019463*^9}, {3.6436885917728653`*^9, 3.6436886812490683`*^9}, {
   3.6436887155165586`*^9, 3.6436887158481407`*^9}, {3.6436936673772583`*^9, 
   3.643693726478981*^9}, {3.6439609895846577`*^9, 3.643960990117886*^9}, {
   3.64397068097323*^9, 3.6439707052121983`*^9}, {3.643970739482613*^9, 
   3.643970739786255*^9}}],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"TiseanExportDir", "<>", "basename", "<>", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
   RowBox[{"Zip", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<_D2.pdf\>\"", ",", "\"\<_h2.pdf\>\"", ",", 
       "\"\<_excess_entropy.pdf\>\""}], "}"}], ",", "plots4Export"}], "]"}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, 
   3.613910398602169*^9, {3.627382148098576*^9, 3.6273821513022118`*^9}, {
   3.6434460807617292`*^9, 3.643446147916451*^9}, 3.643446190957446*^9, {
   3.643453180008552*^9, 3.643453230646964*^9}, {3.643688570391425*^9, 
   3.643688570484641*^9}, 3.643952982635789*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}], ",", 
     RowBox[{"ShowLabel", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}, {3.643443196824856*^9, 
   3.643443205015295*^9}, {3.643449335921299*^9, 3.6434493362069283`*^9}, {
   3.6434534021593227`*^9, 3.643453402641242*^9}, {3.643455274802704*^9, 
   3.64345530410751*^9}, {3.6436939687661533`*^9, 3.6436939690834837`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EEdecompPlot", ",", "EEdecompData", ",", "aux"}], "}"}], "=", 
   RowBox[{"DecomposeAndPlotExcessEntropy", "[", 
    RowBox[{"dat", ",", "fits", ",", 
     RowBox[{"DeltaHFlatThreshold", "\[Rule]", "0.05"}], ",", 
     RowBox[{"YPlotRangeMax", "\[Rule]", "DecompYRange"}], ",", 
     RowBox[{"ShowNegative", "\[Rule]", "True"}], ",", 
     RowBox[{"ReplaceEndByFits", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "DecomposePlotSize"}], ",", 
     RowBox[{"XTicks", "\[Rule]", "ticks4decomp"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "EEdecompPlot"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.6434435853827887`*^9}, {
   3.643445057580056*^9, 3.643445057784492*^9}, {3.6434498057929173`*^9, 
   3.643449811216508*^9}, {3.6434499399710217`*^9, 3.643449954269034*^9}, {
   3.6435224587684593`*^9, 3.643522475646143*^9}, {3.643693768316132*^9, 
   3.643693806238778*^9}, {3.643693941403417*^9, 3.643693953519637*^9}, 
   3.64369402290898*^9, {3.6436941172292337`*^9, 3.6436942312292137`*^9}, {
   3.643907550813355*^9, 3.643907551578271*^9}, {3.643907592059026*^9, 
   3.6439076003323793`*^9}, {3.64390763317279*^9, 3.643907633390542*^9}, {
   3.643907812020239*^9, 3.643907812541194*^9}, {3.643907961587859*^9, 
   3.64390796226668*^9}, 3.6439522656018667`*^9, {3.6439605618955307`*^9, 
   3.6439605620614233`*^9}, {3.6439610268746243`*^9, 3.64396107345875*^9}, {
   3.643961271887003*^9, 3.643961272674788*^9}, {3.6439613201181917`*^9, 
   3.643961357495626*^9}, {3.6439614203481197`*^9, 3.643961420551927*^9}, {
   3.643961494509643*^9, 3.643961495034801*^9}, 3.643961557518875*^9, {
   3.643961806012538*^9, 3.643961812122753*^9}, {3.6439627944623337`*^9, 
   3.643962795756736*^9}, {3.643971104965934*^9, 3.643971105587654*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"detInts", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Interval", "[", 
        RowBox[{"{", 
         RowBox[{"0.1", ",", "0.4"}], "}"}], "]"}], ",", "1", ",", ".6"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Interval", "[", 
        RowBox[{"{", 
         RowBox[{"0.006", ",", "0.025"}], "}"}], "]"}], ",", 
       RowBox[{"-", ".6"}], ",", ".8"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", "EEdecompPlot", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"avgDecomp", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"#", ",", 
       RowBox[{"GetAvgDecomp", "[", 
        RowBox[{"EEdecompData", ",", 
         RowBox[{"First", "[", "#", "]"}]}], "]"}]}], "]"}], "&"}], ",", 
    "detInts"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plt", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"EEdecompPlot", ",", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"PlotFitInLog", "[", 
          RowBox[{"#", ",", 
           RowBox[{"ExtendFit", "\[Rule]", ".5"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"PlotFitInLog", "[", 
             RowBox[{
              RowBox[{"#", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"LabelSize", "\[Rule]", "6"}], ",", 
              RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", 
              RowBox[{"ShowLabel", "->", 
               RowBox[{"#", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", 
          RowBox[{"Zip", "[", 
           RowBox[{"eeFits", ",", 
            RowBox[{"{", 
             RowBox[{"True", ",", "True", ",", "False"}], "}"}]}], "]"}]}], 
         "]"}], ",", "Black", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"AvgDecompInPlot", "[", 
              RowBox[{"##", ",", 
               RowBox[{"LabelSize", "\[Rule]", "6"}]}], "]"}], "&"}], "@@", 
            "#"}], "&"}], ",", "avgDecomp"}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "plt"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.643443622953369*^9}, {
   3.643443659530727*^9, 3.6434436750339317`*^9}, 3.643444279096521*^9, {
   3.643444884877864*^9, 3.643444926027307*^9}, 3.643444978221141*^9, {
   3.643445438189087*^9, 3.643445438377582*^9}, {3.643445479196732*^9, 
   3.643445500692588*^9}, 3.643445545822229*^9, {3.643446486509884*^9, 
   3.643446487901252*^9}, {3.643452681051773*^9, 3.643452691126462*^9}, {
   3.6434529192484922`*^9, 3.643452935930657*^9}, {3.6434529668297586`*^9, 
   3.6434529678997107`*^9}, {3.643453012916843*^9, 3.643453018577394*^9}, {
   3.643453488931172*^9, 3.643453652659524*^9}, {3.643453747481181*^9, 
   3.6434537565778112`*^9}, {3.6434539569829473`*^9, 3.643453957475082*^9}, {
   3.643454207351143*^9, 3.643454207699716*^9}, {3.643454940135084*^9, 
   3.64345501513944*^9}, {3.6434551372402287`*^9, 3.6434551932280073`*^9}, {
   3.643530103738709*^9, 3.643530162578903*^9}, {3.643693853213504*^9, 
   3.643693916988769*^9}, {3.6436939774848747`*^9, 3.643693977963448*^9}, {
   3.643908019481969*^9, 3.643908245432309*^9}, {3.643908407196023*^9, 
   3.643908438917355*^9}, {3.6439707824368067`*^9, 3.643970785670746*^9}, {
   3.643970822309417*^9, 3.643970985076812*^9}, {3.643971295673725*^9, 
   3.643971300646481*^9}, {3.644141624959486*^9, 3.644141625269518*^9}, {
   3.6442283042367897`*^9, 3.644228305322815*^9}, {3.644228347551578*^9, 
   3.644228348226891*^9}}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.6442958375799103`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", "\"\<_deltaH-fits.pdf\>\""}], 
    ",", 
    RowBox[{"Show", "[", 
     RowBox[{"deltaHplt", ",", 
      RowBox[{"ListLogLinearPlot", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Zip", "[", 
            RowBox[{
             RowBox[{"dat", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", "#"}], 
            "]"}], "&"}], ",", 
          RowBox[{"(", 
           RowBox[{"\"\<straights\>\"", "/.", "aux"}], ")"}]}], "]"}], ",", 
        RowBox[{"Joined", "\[Rule]", "True"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Cyan"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "1600"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", 
     "\"\<_excess_entropy-decomp.pdf\>\""}], ",", 
    RowBox[{"plt", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, 
   3.5867988249648113`*^9, {3.608627895986458*^9, 3.608627899602152*^9}, {
   3.612173223727004*^9, 3.612173224639276*^9}, {3.6418111811484118`*^9, 
   3.641811190891127*^9}, {3.6418114009289093`*^9, 3.6418114035056343`*^9}, {
   3.6418115901295424`*^9, 3.6418115910881453`*^9}, {3.641811702154007*^9, 
   3.641811703850024*^9}, {3.64224245055231*^9, 3.6422424693460093`*^9}, {
   3.643441834472952*^9, 3.643441856312248*^9}, {3.6434532975295973`*^9, 
   3.643453319943263*^9}, {3.6436240035636177`*^9, 3.643624009258774*^9}, {
   3.643624085357832*^9, 3.643624085531846*^9}, {3.6437368014151087`*^9, 
   3.643736802106578*^9}, {3.643736868025672*^9, 3.643736875541686*^9}, 
   3.643737127621812*^9, 3.643738346151525*^9, {3.643739527572446*^9, 
   3.643739529396372*^9}, {3.643739644437684*^9, 3.643739650779063*^9}, {
   3.643740242203405*^9, 3.643740245693644*^9}, {3.643953239563478*^9, 
   3.643953265857102*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["4 m", "Subsection",
 CellChangeTimes->{{3.634635822505118*^9, 3.634635825978416*^9}, {
  3.643530287060627*^9, 3.643530287203971*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"basename", "=", "\"\<hexa_jump_4m\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"plots", ",", "tiseandat"}], "}"}], "=", 
   RowBox[{"TiseanD2PlotsAndData", "[", 
    RowBox[{
    "\"\<tisean/hexapod/Hexapod_tz_jump_4m_fixed.x_x1_d4_e25.d2\>\"", ",", 
     "1", ",", 
     RowBox[{"Thresh", "\[Rule]", "5"}], ",", 
     RowBox[{"EpsRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.001", ",", "Infinity"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdz1tI02EcxvEZgxCCRXUhelM6DcykdJ2Yk72gnVTEbQ0p6bBmgaiDIJXJ
ZmmOZidkJjYcFhg5kqbFbJN2F5iGI/SvLqY2DxfjP0Vjk26q+T6/i4fP7fM9
YjBpavdIJJKjfLDL6Hs5NCCye/br/fDXRuYIbPLKyelQz284pspJQPfe4ztZ
H0XWazeQRR7XX+g+ZPoHH2uFvMN+kbUna/Jhy8qcAk75zKfheE3hdgm3rr2T
tNSpA6uCyNL/bHyF8jOvlWvclRK/Cv7XOzWf5vm/ty7ygPfsHfhlWUnm5zn9
4qrIDLnCOKxvHpuBxvfJMFwMNWzDjsGhODzxtH4idZ13fW8lf8h1QWhNuUqG
HdpNycEYm/Nc24LV81OFM5ncyxFSuJGqhMdG1Spof1c1PcuNJxrJi1nBJfio
uzMCg8bsRFl2jDVZ28gHr/qScH0gPaWcO/wtdFPDFczlt6BZpngIG53dHfDC
i7ADFnxeIyPRQB8pmyDj+z1vYIY+MAh9O5bbWu7dfdJa+Gwr7r7CTVg/jEJF
i2kB2kqjZI9DCMO0NOky1C1cKm7lSjPOMVh0Sl8Kc3/ayYbJ8zY4rCwjeydn
u+BJr+wJtD0vKK7IiTG55T6pq1ZXQpcrSu4C9IRH3Q==
  "]],

Cell[BoxData[{
 RowBox[{"eeFits", "=", 
  RowBox[{"FindAllFits", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"-", "1"}], "]"}], "]"}], ",", "LogLinFitFun", ",", "10", ",", 
    "0.01"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", 
    RowBox[{"plots", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"plots4Export", "=", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Eps", ",", "h2m"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6.2"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", ",", 
            RowBox[{"ExtendFit", "\[Rule]", "0.5"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
      
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Eps", ",", "EEm"}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"PlotFitInLog", "[", 
            RowBox[{"#", ",", 
             RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
             RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
             RowBox[{"ShowLabel", "\[Rule]", "True"}]}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}]}], 
      ",", 
      RowBox[{"PlotRangeClipping", "\[Rule]", "False"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}]}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446509311593*^9, 
   3.6434465096946917`*^9}, {3.643446633938081*^9, 3.6434466407195787`*^9}, {
   3.6434480656676807`*^9, 3.643448071772675*^9}, {3.643448131779518*^9, 
   3.643448162019988*^9}, {3.6434482924953833`*^9, 3.643448294117774*^9}, {
   3.643448381927853*^9, 3.643448430455976*^9}, {3.643448835159232*^9, 
   3.643448875620706*^9}, {3.6434489255087233`*^9, 3.643449026735609*^9}, {
   3.6434490675276546`*^9, 3.64344907792813*^9}, {3.643529802830077*^9, 
   3.643529853019463*^9}, {3.6435304092146387`*^9, 3.643530433008667*^9}, {
   3.643530530334036*^9, 3.643530547828144*^9}, 3.643694755922241*^9}],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"TiseanExportDir", "<>", "basename", "<>", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
   RowBox[{"Zip", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<_D2.pdf\>\"", ",", "\"\<_h2.pdf\>\"", ",", 
       "\"\<_excess_entropy.pdf\>\""}], "}"}], ",", "plots4Export"}], "]"}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, 
   3.613910398602169*^9, {3.627382148098576*^9, 3.6273821513022118`*^9}, {
   3.6434460807617292`*^9, 3.643446147916451*^9}, 3.643446190957446*^9, {
   3.643453180008552*^9, 3.643453230646964*^9}, {3.643694361708246*^9, 
   3.6436943623492002`*^9}, 3.6439529914573307`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}], ",", 
     RowBox[{"ShowLabel", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}, {3.643443196824856*^9, 
   3.643443205015295*^9}, {3.643449335921299*^9, 3.6434493362069283`*^9}, {
   3.6434534021593227`*^9, 3.643453402641242*^9}, {3.643455274802704*^9, 
   3.64345530410751*^9}, {3.6435614962795362`*^9, 3.643561496565428*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EEdecompPlot", ",", "EEdecompData", ",", "aux"}], "}"}], "=", 
   RowBox[{"DecomposeAndPlotExcessEntropy", "[", 
    RowBox[{"dat", ",", "fits", ",", 
     RowBox[{"DeltaHFlatThreshold", "->", " ", "0.1"}], ",", 
     RowBox[{"DeterminismThreshold", "\[Rule]", "0.5"}], ",", " ", 
     RowBox[{"YPlotRangeMax", "\[Rule]", "DecompYRange"}], ",", 
     RowBox[{"RemoveNegative", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"ShowNegative", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"ReplaceEndByFits", "\[Rule]", "True"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "DecomposePlotSize"}], ",", 
     RowBox[{"XTicks", "\[Rule]", "ticks4decomp"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "EEdecompPlot"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.6434435853827887`*^9}, {
   3.643445057580056*^9, 3.643445057784492*^9}, {3.6434498057929173`*^9, 
   3.643449811216508*^9}, {3.6434499399710217`*^9, 3.643449954269034*^9}, {
   3.6435224587684593`*^9, 3.643522475646143*^9}, {3.643559499105646*^9, 
   3.643559546708764*^9}, 3.643559645674458*^9, {3.643559831945183*^9, 
   3.64355985447826*^9}, {3.643559892264986*^9, 3.643559918873734*^9}, {
   3.643560848834838*^9, 3.64356084925191*^9}, {3.643560988906396*^9, 
   3.643561078933785*^9}, {3.643694374648294*^9, 3.643694413108996*^9}, {
   3.643694460207637*^9, 3.643694460712349*^9}, {3.6436945010259*^9, 
   3.643694501703002*^9}, {3.643694544524125*^9, 3.643694544907481*^9}, {
   3.6436946042215014`*^9, 3.643694708271027*^9}, {3.6439085072198143`*^9, 
   3.643908507777813*^9}, {3.643960368350909*^9, 3.643960373187467*^9}, {
   3.6439710472050467`*^9, 3.643971047443399*^9}, {3.643971122436681*^9, 
   3.643971122835814*^9}, {3.643971172406267*^9, 3.643971181494753*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"detInts", "=", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Interval", "[", 
       RowBox[{"{", 
        RowBox[{"0.05", ",", "0.2"}], "}"}], "]"}], ",", 
      RowBox[{"-", ".5"}], ",", "1"}], "}"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", "EEdecompPlot", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"avgDecomp", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"#", ",", 
       RowBox[{"GetAvgDecomp", "[", 
        RowBox[{"EEdecompData", ",", 
         RowBox[{"First", "[", "#", "]"}]}], "]"}]}], "]"}], "&"}], ",", 
    "detInts"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plt", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"EEdecompPlot", ",", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"PlotFitInLog", "[", 
          RowBox[{"#", ",", 
           RowBox[{"ExtendFit", "\[Rule]", ".5"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"PlotFitInLog", "[", 
             RowBox[{"#", ",", 
              RowBox[{"LabelSize", "\[Rule]", "6"}], ",", 
              RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
              RowBox[{"ShowLabel", "\[Rule]", "True"}]}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
        ",", "Black", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"AvgDecompInPlot", "[", 
              RowBox[{"##", ",", 
               RowBox[{"LabelSize", "\[Rule]", "6"}]}], "]"}], "&"}], "@@", 
            "#"}], "&"}], ",", "avgDecomp"}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "plt"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.643443622953369*^9}, {
   3.643443659530727*^9, 3.6434436750339317`*^9}, 3.643444279096521*^9, {
   3.643444884877864*^9, 3.643444926027307*^9}, 3.643444978221141*^9, {
   3.643445438189087*^9, 3.643445438377582*^9}, {3.643445479196732*^9, 
   3.643445500692588*^9}, 3.643445545822229*^9, {3.643446486509884*^9, 
   3.643446487901252*^9}, {3.643452681051773*^9, 3.643452691126462*^9}, {
   3.6434529192484922`*^9, 3.643452935930657*^9}, {3.6434529668297586`*^9, 
   3.6434529678997107`*^9}, {3.643453012916843*^9, 3.643453018577394*^9}, {
   3.643453488931172*^9, 3.643453652659524*^9}, {3.643453747481181*^9, 
   3.6434537565778112`*^9}, {3.6434539569829473`*^9, 3.643453957475082*^9}, {
   3.643454207351143*^9, 3.643454207699716*^9}, {3.643454940135084*^9, 
   3.64345501513944*^9}, {3.6434551372402287`*^9, 3.6434551932280073`*^9}, {
   3.643530103738709*^9, 3.643530162578903*^9}, {3.643530485142947*^9, 
   3.6435304856156063`*^9}, {3.6435305545348*^9, 3.64353055470893*^9}, 
   3.643530606712235*^9, {3.643563131950262*^9, 3.64356313921917*^9}, {
   3.643694522525346*^9, 3.643694524206171*^9}, {3.643694735586536*^9, 
   3.643694738165092*^9}, {3.643971198711812*^9, 3.643971279831547*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", "\"\<_deltaH-fits.pdf\>\""}], 
    ",", 
    RowBox[{"Show", "[", 
     RowBox[{"deltaHplt", ",", 
      RowBox[{"ListLogLinearPlot", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Zip", "[", 
            RowBox[{
             RowBox[{"dat", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", "#"}], 
            "]"}], "&"}], ",", 
          RowBox[{"(", 
           RowBox[{"\"\<straights\>\"", "/.", "aux"}], ")"}]}], "]"}], ",", 
        RowBox[{"Joined", "\[Rule]", "True"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Cyan"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "1600"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", 
     "\"\<_excess_entropy-decomp.pdf\>\""}], ",", 
    RowBox[{"plt", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, 
   3.5867988249648113`*^9, {3.608627895986458*^9, 3.608627899602152*^9}, {
   3.612173223727004*^9, 3.612173224639276*^9}, {3.6418111811484118`*^9, 
   3.641811190891127*^9}, {3.6418114009289093`*^9, 3.6418114035056343`*^9}, {
   3.6418115901295424`*^9, 3.6418115910881453`*^9}, {3.641811702154007*^9, 
   3.641811703850024*^9}, {3.64224245055231*^9, 3.6422424693460093`*^9}, {
   3.643441834472952*^9, 3.643441856312248*^9}, {3.6434532975295973`*^9, 
   3.643453319943263*^9}, {3.6436240035636177`*^9, 3.643624009258774*^9}, {
   3.643624085357832*^9, 3.643624085531846*^9}, {3.6437368014151087`*^9, 
   3.643736802106578*^9}, {3.643736868025672*^9, 3.643736875541686*^9}, 
   3.643737127621812*^9, 3.643738346151525*^9, {3.643739527572446*^9, 
   3.643739529396372*^9}, {3.643739644437684*^9, 3.643739650779063*^9}, {
   3.643740242203405*^9, 3.643740245693644*^9}, {3.64395323957554*^9, 
   3.643953265866419*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["8 m", "Subsection",
 CellChangeTimes->{{3.634635822505118*^9, 3.634635825978416*^9}, {
  3.643530287060627*^9, 3.643530287203971*^9}, {3.643694792550345*^9, 
  3.643694794309979*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"basename", "=", "\"\<hexa_jump_8m\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"plots", ",", "tiseandat"}], "}"}], "=", 
   RowBox[{"TiseanD2PlotsAndData", "[", 
    RowBox[{
    "\"\<tisean/hexapod/Hexapod_tz_jump_fixed.x_x1_d4_e25.d2\>\"", ",", "1", 
     ",", 
     RowBox[{"Thresh", "\[Rule]", "5"}], ",", 
     RowBox[{"EpsRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.001", ",", "Infinity"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdz01I03Ecx/EZAxGCRXUQPZRuGqhJ5cpizvyB9qQd2myESQ9zaog66GAy
cdp8oFkRMhUbiQpGjqSlMtuk3QJTcYT+1cXK5sNB/ptobOKlWr/P9/Dhdf28
U/RGTeUhiURyig92Gdy9o4Mie2y99wb+Cqd+hA0uBbng7/kNp9TpUeiIP70v
nxBZn1VP5jkH/kDHceNf+EwrZJ30iMwSK8+GjevLSjjnNl2A0+U5e4XcGksH
2VxT4N0QRJZ0EP4CFblDqk3ueqFHDf/p7JrJFf7v7QB51HWxCn5eU5HZWXaP
uCEyfYYwDWufTC1Cw/tYAP7w1+3BtpHRCDzzonYmYYt3zTeR3xSlPmiOKyMD
Nu2O5FiILTvv7sI7K3M5i6ncG0FSuJ+ggpnjBWpofXdrYYkbidaT1+S+n7C9
uyMIfYa0aHFaiDWYW8jW1/0xuDWYFFfCHfvqf6DhCqaSh9AkUz6F9fbuNnj1
VcAGz33aJIPb3n5SNkNGjjiHYbLOOwLd+80VWm71YWklfLkbcdzmRs0fxqGy
0bgKO4u2yR6bEICJidI1WLp6Pb+JK02+xGDeeV0RzPhuJetmr3TCMVUx2Te7
1AXPumTPYb78xAQMPyqbhAfVlss300OsasdL/gcXIUm0
  "]],

Cell[BoxData[{
 RowBox[{"eeFits", "=", 
  RowBox[{"FindAllFits", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<E\>\"", " ", "/.", "tiseandat"}], ")"}], "[", 
     RowBox[{"[", 
      RowBox[{"-", "1"}], "]"}], "]"}], ",", "LogLinFitFun", ",", "10", ",", 
    "0.01"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", 
    RowBox[{"plots", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"plots4Export", "=", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Eps", ",", "h2m"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6.2"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"plots", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"PlotFitInLog", "[", 
           RowBox[{"#", ",", 
            RowBox[{"ExtendFit", "\[Rule]", "0.5"}]}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
      
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Eps", ",", "EEm"}], "}"}]}], ",", 
      RowBox[{"Evaluate", "@", "MyPlotOpts"}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"PlotFitInLog", "[", 
            RowBox[{"#", ",", 
             RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
             RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
             RowBox[{"ShowLabel", "\[Rule]", "True"}]}], "]"}], "[", 
           RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}]}], 
      ",", 
      RowBox[{"PlotRangeClipping", "\[Rule]", "False"}]}], "]"}]}], 
   "\[IndentingNewLine]", "}"}]}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446509311593*^9, 
   3.6434465096946917`*^9}, {3.643446633938081*^9, 3.6434466407195787`*^9}, {
   3.6434480656676807`*^9, 3.643448071772675*^9}, {3.643448131779518*^9, 
   3.643448162019988*^9}, {3.6434482924953833`*^9, 3.643448294117774*^9}, {
   3.643448381927853*^9, 3.643448430455976*^9}, {3.643448835159232*^9, 
   3.643448875620706*^9}, {3.6434489255087233`*^9, 3.643449026735609*^9}, {
   3.6434490675276546`*^9, 3.64344907792813*^9}, {3.643529802830077*^9, 
   3.643529853019463*^9}, {3.6435304092146387`*^9, 3.643530433008667*^9}, {
   3.643530530334036*^9, 3.643530547828144*^9}, 3.643695301138158*^9}],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"TiseanExportDir", "<>", "basename", "<>", 
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}]}], ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
   RowBox[{"Zip", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<_D2.pdf\>\"", ",", "\"\<_h2.pdf\>\"", ",", 
       "\"\<_excess_entropy.pdf\>\""}], "}"}], ",", "plots4Export"}], "]"}]}],
   "]"}]], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, 
   3.613910398602169*^9, {3.627382148098576*^9, 3.6273821513022118`*^9}, {
   3.6434460807617292`*^9, 3.643446147916451*^9}, 3.643446190957446*^9, {
   3.643453180008552*^9, 3.643453230646964*^9}, {3.643695335421645*^9, 
   3.643695335579*^9}, 3.6439529984520082`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}], ",", 
     RowBox[{"ShowLabel", "\[Rule]", "True"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}, {3.643443196824856*^9, 
   3.643443205015295*^9}, {3.643449335921299*^9, 3.6434493362069283`*^9}, {
   3.6434534021593227`*^9, 3.643453402641242*^9}, {3.643455274802704*^9, 
   3.64345530410751*^9}, {3.6436956404949093`*^9, 3.643695640917181*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EEdecompPlot", ",", "EEdecompData", ",", "aux"}], "}"}], "=", 
   RowBox[{"DecomposeAndPlotExcessEntropy", "[", 
    RowBox[{"dat", ",", "fits", ",", 
     RowBox[{"DeltaHFlatThreshold", "->", " ", "0.05"}], ",", 
     RowBox[{"DeterminismThreshold", "\[Rule]", "0.5"}], ",", " ", 
     RowBox[{"YPlotRangeMax", "\[Rule]", "DecompYRange"}], ",", 
     RowBox[{"ShowNegative", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"RemoveNegative", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"ReplaceEndByFits", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "DecomposePlotSize"}], ",", 
     RowBox[{"XTicks", "\[Rule]", "ticks4decomp"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "EEdecompPlot"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.6434435853827887`*^9}, {
   3.643445057580056*^9, 3.643445057784492*^9}, {3.6434498057929173`*^9, 
   3.643449811216508*^9}, {3.6434499399710217`*^9, 3.643449954269034*^9}, {
   3.6435224587684593`*^9, 3.643522475646143*^9}, {3.643695349115983*^9, 
   3.643695552879869*^9}, {3.6439087514624243`*^9, 3.643908761865888*^9}, 
   3.643952266506665*^9, {3.6439713421645117`*^9, 3.643971364245256*^9}, {
   3.643971550856195*^9, 3.643971553438013*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"detInts", "=", 
   RowBox[{"{", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Interval", "[", 
         RowBox[{"{", 
          RowBox[{"0.003", ",", "0.015"}], "}"}], "]"}], ",", ".3", ",", 
        ".9"}], "}"}], ","}], "*)"}], 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Interval", "[", 
       RowBox[{"{", 
        RowBox[{"0.1", ",", "0.4"}], "}"}], "]"}], ",", "1", ",", ".8"}], 
     "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ratio", "=", 
   RowBox[{"GetPlotCoordinateRatio", "[", "EEdecompPlot", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"avgDecomp", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Prepend", "[", 
      RowBox[{"#", ",", 
       RowBox[{"GetAvgDecomp", "[", 
        RowBox[{"EEdecompData", ",", 
         RowBox[{"First", "[", "#", "]"}]}], "]"}]}], "]"}], "&"}], ",", 
    "detInts"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plt", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"EEdecompPlot", ",", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"PlotFitInLog", "[", 
          RowBox[{"#", ",", 
           RowBox[{"ExtendFit", "\[Rule]", ".5"}]}], "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"PlotFitInLog", "[", 
             RowBox[{"#", ",", 
              RowBox[{"LabelSize", "\[Rule]", "6"}], ",", 
              RowBox[{"LabelAngle", "\[Rule]", "Automatic"}], ",", 
              RowBox[{"BasePlotRatio", "\[Rule]", "ratio"}], ",", " ", 
              RowBox[{"ShowLabel", "\[Rule]", "True"}]}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "&"}], ",", "eeFits"}], "]"}], 
        ",", "Black", ",", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"AvgDecompInPlot", "[", 
              RowBox[{"##", ",", 
               RowBox[{"LabelSize", "\[Rule]", "6"}]}], "]"}], "&"}], "@@", 
            "#"}], "&"}], ",", "avgDecomp"}], "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "plt"}], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138296692708*^9}, {
   3.642238158574078*^9, 3.6422381994804907`*^9}, {3.64223900892916*^9, 
   3.6422390096542997`*^9}, {3.642239104121599*^9, 3.642239129683289*^9}, {
   3.642239172543868*^9, 3.642239222207251*^9}, {3.6422393189072733`*^9, 
   3.642239356035123*^9}, {3.642239821180356*^9, 3.642239828074115*^9}, 
   3.642240544808988*^9, 3.642240576627685*^9, {3.642240648535687*^9, 
   3.642240743681188*^9}, 3.642240789683989*^9, {3.642240832256329*^9, 
   3.642240981771233*^9}, {3.642241020284671*^9, 3.642241077520946*^9}, 
   3.6422414122602863`*^9, {3.642241502431396*^9, 3.642241532137663*^9}, {
   3.642241651449212*^9, 3.6422417373189*^9}, {3.6422418607816*^9, 
   3.642241932270597*^9}, {3.642242045285097*^9, 3.642242047933601*^9}, {
   3.642242082798172*^9, 3.642242109361596*^9}, {3.642242144908181*^9, 
   3.642242145687998*^9}, {3.643441808798522*^9, 3.643441809034247*^9}, {
   3.643443294125455*^9, 3.643443309898796*^9}, {3.6434433601534367`*^9, 
   3.643443431096818*^9}, {3.6434435363627872`*^9, 3.643443622953369*^9}, {
   3.643443659530727*^9, 3.6434436750339317`*^9}, 3.643444279096521*^9, {
   3.643444884877864*^9, 3.643444926027307*^9}, 3.643444978221141*^9, {
   3.643445438189087*^9, 3.643445438377582*^9}, {3.643445479196732*^9, 
   3.643445500692588*^9}, 3.643445545822229*^9, {3.643446486509884*^9, 
   3.643446487901252*^9}, {3.643452681051773*^9, 3.643452691126462*^9}, {
   3.6434529192484922`*^9, 3.643452935930657*^9}, {3.6434529668297586`*^9, 
   3.6434529678997107`*^9}, {3.643453012916843*^9, 3.643453018577394*^9}, {
   3.643453488931172*^9, 3.643453652659524*^9}, {3.643453747481181*^9, 
   3.6434537565778112`*^9}, {3.6434539569829473`*^9, 3.643453957475082*^9}, {
   3.643454207351143*^9, 3.643454207699716*^9}, {3.643454940135084*^9, 
   3.64345501513944*^9}, {3.6434551372402287`*^9, 3.6434551932280073`*^9}, {
   3.643530103738709*^9, 3.643530162578903*^9}, {3.643530485142947*^9, 
   3.6435304856156063`*^9}, {3.6435305545348*^9, 3.64353055470893*^9}, 
   3.643530606712235*^9, {3.643695575423684*^9, 3.643695715842576*^9}, {
   3.643971377755497*^9, 3.64397139855224*^9}, {3.6439714647437983`*^9, 
   3.64397152595722*^9}, {3.6441413910326853`*^9, 3.644141395863571*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", "\"\<_deltaH-fits.pdf\>\""}], 
    ",", 
    RowBox[{"Show", "[", 
     RowBox[{"deltaHplt", ",", 
      RowBox[{"ListLogLinearPlot", "[", 
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Zip", "[", 
            RowBox[{
             RowBox[{"dat", "[", 
              RowBox[{"[", 
               RowBox[{"1", ",", "All", ",", "1"}], "]"}], "]"}], ",", "#"}], 
            "]"}], "&"}], ",", 
          RowBox[{"(", 
           RowBox[{"\"\<straights\>\"", "/.", "aux"}], ")"}]}], "]"}], ",", 
        RowBox[{"Joined", "\[Rule]", "True"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "Cyan"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "1600"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "basename", "<>", 
     "\"\<_excess_entropy-decomp.pdf\>\""}], ",", 
    RowBox[{"plt", "[", 
     RowBox[{"[", "1", "]"}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, 
   3.5867988249648113`*^9, {3.608627895986458*^9, 3.608627899602152*^9}, {
   3.612173223727004*^9, 3.612173224639276*^9}, {3.6418111811484118`*^9, 
   3.641811190891127*^9}, {3.6418114009289093`*^9, 3.6418114035056343`*^9}, {
   3.6418115901295424`*^9, 3.6418115910881453`*^9}, {3.641811702154007*^9, 
   3.641811703850024*^9}, {3.64224245055231*^9, 3.6422424693460093`*^9}, {
   3.643441834472952*^9, 3.643441856312248*^9}, {3.6434532975295973`*^9, 
   3.643453319943263*^9}, {3.6436240035636177`*^9, 3.643624009258774*^9}, {
   3.643624085357832*^9, 3.643624085531846*^9}, {3.6437368014151087`*^9, 
   3.643736802106578*^9}, {3.643736868025672*^9, 3.643736875541686*^9}, 
   3.643737127621812*^9, 3.643738346151525*^9, {3.643739527572446*^9, 
   3.643739529396372*^9}, {3.643739644437684*^9, 3.643739650779063*^9}, {
   3.643740242203405*^9, 3.643740245693644*^9}, {3.643953239588716*^9, 
   3.643953265875402*^9}}],

Cell[BoxData[{
 RowBox[{"legend25", "=", 
  RowBox[{"TiseanLegend", "[", "25", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"TiseanExportDir", "<>", " ", "\"\<legend25.pdf\>\""}], ",", 
    "legend25", ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.6348920707589273`*^9, 3.634892094259593*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["KSG", "Subsection",
 CellChangeTimes->{{3.644642703446534*^9, 3.644642705060184*^9}}],

Cell["based on x[1]", "Text",
 CellChangeTimes->{{3.6131978537852087`*^9, 3.613197860214324*^9}}],

Cell[BoxData[{
 RowBox[{"files", "=", 
  RowBox[{"GetFiles", "[", 
   RowBox[{
   "\"\<MIxnyn/hexapod/\>\"", ",", "\"\<*jump*x1-k2_d4*.grouped\>\""}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hexjump12pls", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PlotMIScan", "[", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}], ",", 
     RowBox[{"Zip", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{"Import", ",", "files"}], "]"}], ",", "files"}], "]"}]}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5733644916972713`*^9, 3.573364497209907*^9}, {
   3.573365083355412*^9, 3.573365096818837*^9}, 3.573365678915278*^9, {
   3.573366603146982*^9, 3.573366607890189*^9}, {3.573367122347197*^9, 
   3.573367173498691*^9}, {3.573367415059449*^9, 3.5733674316028557`*^9}, {
   3.573369197061289*^9, 3.5733691985477552`*^9}, {3.573376939021956*^9, 
   3.573376978446913*^9}, {3.5739766858962917`*^9, 3.5739766881114197`*^9}, {
   3.5831247017310877`*^9, 3.583124713506258*^9}, {3.58312478033841*^9, 
   3.583124803184656*^9}, {3.5831249068755007`*^9, 3.583124907018997*^9}, {
   3.583132161509947*^9, 3.583132161668385*^9}, {3.5834667747037973`*^9, 
   3.583466778169416*^9}, {3.58346694280254*^9, 3.583466947770692*^9}, {
   3.583467223306582*^9, 3.583467248335911*^9}, {3.5834852619729757`*^9, 
   3.583485267180512*^9}, {3.583659144280106*^9, 3.583659144571477*^9}, {
   3.584167072990056*^9, 3.584167073581593*^9}, {3.592718185166071*^9, 
   3.5927182380459557`*^9}, {3.592718543581894*^9, 3.592718571213524*^9}, {
   3.592720040951749*^9, 3.59272005468645*^9}, {3.5933207818678503`*^9, 
   3.5933207906119432`*^9}, {3.6108599126832447`*^9, 3.610859918424979*^9}, {
   3.610859979820334*^9, 3.610859997567803*^9}, {3.613197847327044*^9, 
   3.61319784739555*^9}, {3.613885353871447*^9, 3.613885364677718*^9}, {
   3.613885650250794*^9, 3.613885651364502*^9}, 3.6446518686376457`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"tickopts", "=", 
   RowBox[{"Ticks", "/.", 
    RowBox[{"AbsoluteOptions", "[", 
     RowBox[{"hexjump12pls", "[", 
      RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.634648485785796*^9, 3.6346485015929728`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f1", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Const", "-", 
    RowBox[{"Dim", " ", 
     RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Dim", "\[Rule]", "1.1"}], ",", 
     RowBox[{"Const", "\[Rule]", "0.2"}]}], 
    "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f1a", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Const", "-", 
    RowBox[{"Dim", " ", 
     RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Dim", "\[Rule]", "1.4"}], ",", 
     RowBox[{"Const", "\[Rule]", 
      RowBox[{"-", "0.6"}]}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f2", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Const", "-", 
    RowBox[{"Dim", " ", 
     RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Dim", "\[Rule]", "1.8"}], ",", 
     RowBox[{"Const", "\[Rule]", 
      RowBox[{"-", "0.3"}]}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f3", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Const", "-", 
    RowBox[{"Dim", " ", 
     RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Dim", "\[Rule]", "1.7"}], ",", 
     RowBox[{"Const", "\[Rule]", "0"}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"hexjump12plswl", "=", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"hexjump12pls", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"LogLinearPlot", "[", 
       RowBox[{
        RowBox[{"f1", "[", "x", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0.03", ",", "1"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}], ",", 
      RowBox[{"LogLinearPlot", "[", 
       RowBox[{
        RowBox[{"f1a", "[", "x", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0.002", ",", "0.06"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"CalcImgSize", "[", "0.4", "]"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Log", "[", "0.0009", "]"}], ",", "1.1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "8"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", "0.0008", "]"}], ",", "0"}], "}"}]}], ",", 
      RowBox[{"Ticks", "\[Rule]", "tickopts"}], ",", 
      RowBox[{"PlotRangeClipping", "\[Rule]", "True"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Rotate", "[", 
            RowBox[{
             RowBox[{"StyleLabel", "[", 
              RowBox[{"f1", "[", "\[Epsilon]", "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"-", "33"}], "Degree"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Log", "[", ".4", "]"}], ",", 
             RowBox[{"f1", "[", ".4", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Center", ",", 
             RowBox[{"-", ".4"}]}], "}"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"Inset", "[", 
          RowBox[{
           RowBox[{"Rotate", "[", 
            RowBox[{
             RowBox[{"StyleLabel", "[", 
              RowBox[{"f1a", "[", "\[Epsilon]", "]"}], "]"}], ",", 
             RowBox[{"0", "Degree"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Log", "[", ".005", "]"}], ",", 
             RowBox[{"f1a", "[", ".005", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Left", ",", 
             RowBox[{"-", ".4"}]}], "}"}]}], "]"}]}], "}"}]}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"hexjump12pls", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"LogLinearPlot", "[", 
       RowBox[{
        RowBox[{"f2", "[", "x", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0.02", ",", "5"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"CalcImgSize", "[", ".4", "]"}]}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Log", "[", "0.002", "]"}], ",", "1.1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "8"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", "0.00185", "]"}], ",", "0"}], "}"}]}], ",", 
      RowBox[{"Ticks", "\[Rule]", "tickopts"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"Rotate", "[", 
           RowBox[{
            RowBox[{"StyleLabel", "[", 
             RowBox[{"f2", "[", "\[Epsilon]", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"-", "46"}], "Degree"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Log", "[", ".3", "]"}], ",", 
            RowBox[{"f2", "[", ".3", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Center", ",", 
            RowBox[{"-", ".4"}]}], "}"}]}], "]"}], "}"}]}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"hexjump12pls", "[", 
       RowBox[{"[", "3", "]"}], "]"}], ",", 
      RowBox[{"LogLinearPlot", "[", 
       RowBox[{
        RowBox[{"f3", "[", "x", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0.02", ",", "5"}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"CalcImgSize", "[", ".4", "]"}]}], ",", "\[IndentingNewLine]", 
      
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Log", "[", "0.002", "]"}], ",", "1.1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "8"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Log", "[", "0.00185", "]"}], ",", "0"}], "}"}]}], ",", 
      RowBox[{"Ticks", "\[Rule]", "tickopts"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Inset", "[", 
         RowBox[{
          RowBox[{"Rotate", "[", 
           RowBox[{
            RowBox[{"StyleLabel", "[", 
             RowBox[{"f3", "[", "\[Epsilon]", "]"}], "]"}], ",", 
            RowBox[{
             RowBox[{"-", "43"}], "Degree"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Log", "[", ".3", "]"}], ",", 
            RowBox[{"f3", "[", ".3", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Center", ",", 
            RowBox[{"-", ".5"}]}], "}"}]}], "]"}], "}"}]}]}], "]"}]}], 
   "}"}]}]}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598857472948895*^9, 3.598857585564674*^9}, {3.613198016433528*^9, 
   3.613198037753611*^9}, {3.6131980838978243`*^9, 3.613198193825438*^9}, {
   3.6131985476977*^9, 3.613198558475773*^9}, {3.613198687284477*^9, 
   3.6131987163690243`*^9}, 3.6131988048829727`*^9, {3.613884946722699*^9, 
   3.6138850509922943`*^9}, {3.6138850859818077`*^9, 3.613885314984849*^9}, {
   3.613885467947323*^9, 3.6138854747730703`*^9}, {3.613885686869673*^9, 
   3.6138858972715807`*^9}, {3.634645546321134*^9, 3.634646215080236*^9}, {
   3.634646246954731*^9, 3.634646247391523*^9}, {3.634647834677944*^9, 
   3.634648015874632*^9}, {3.634648059643145*^9, 3.6346483281410313`*^9}, {
   3.63464838195323*^9, 3.634648463721457*^9}, {3.634648513117791*^9, 
   3.634648521243922*^9}, {3.6346485689924793`*^9, 3.634648588485751*^9}, {
   3.634650550631247*^9, 3.634650568159382*^9}, {3.6346506004018497`*^9, 
   3.634650600673126*^9}, {3.634650637888894*^9, 3.634650645333346*^9}, {
   3.635155390282692*^9, 3.635155392813285*^9}, {3.635155436639908*^9, 
   3.63515543978719*^9}, {3.6351567544034863`*^9, 3.635156839674317*^9}}],

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Export", "[", 
     RowBox[{
      RowBox[{"MIExportDir", "<>", "\"\<hexa_jump_\>\"", " ", "<>", " ", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], " ", "<>", " ", "\"\<_PI.pdf\>\""}], 
      ",", 
      RowBox[{"#", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], "&"}], ",", 
   RowBox[{"ZipS", "[", 
    RowBox[{"hexjump12plswl", ",", 
     RowBox[{"{", 
      RowBox[{"\"\<2m\>\"", ",", "\"\<4m\>\"", ",", "\"\<8m\>\""}], "}"}]}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5829500930332212`*^9, 3.582950140661066*^9}, {
   3.582950249350623*^9, 3.582950250766217*^9}, {3.582950296815878*^9, 
   3.582950328408455*^9}, {3.582950490520788*^9, 3.5829504994563704`*^9}, {
   3.58347262078277*^9, 3.583472638732514*^9}, 3.583487752375587*^9, {
   3.583659381898498*^9, 3.583659381977549*^9}, {3.586853166517179*^9, 
   3.58685317177425*^9}, {3.5988507809502487`*^9, 3.598850792165861*^9}, {
   3.59885761919162*^9, 3.598857621223008*^9}, {3.6131982087797003`*^9, 
   3.613198211523485*^9}, 3.6131982557638617`*^9, {3.613198322508214*^9, 
   3.613198323787628*^9}, {3.6131983887162037`*^9, 3.613198404116311*^9}, {
   3.61319870387716*^9, 3.6131987706064*^9}, {3.6346463336929398`*^9, 
   3.634646333802375*^9}, 3.634646502638279*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["AR2 Model of Lorenz", "Section",
 CellChangeTimes->{{3.6446517397083483`*^9, 3.644651746831421*^9}}],

Cell[CellGroupData[{

Cell["AR 2 Analytic MI :", "Subsubsection",
 CellChangeTimes->{{3.603623517216374*^9, 3.603623526423048*^9}, {
   3.606623155526882*^9, 3.606623155616118*^9}, 3.609490383922572*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Alpha]1", "=", "1.991843"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\[Alpha]2", "=", 
   RowBox[{"-", "0.994793"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6036234650632877`*^9, 3.603623483754216*^9}, {
   3.603623531323681*^9, 3.603623544253579*^9}, {3.603623737837434*^9, 
   3.603623751893784*^9}, {3.607750259981751*^9, 3.607750339869258*^9}, {
   3.6077504294230747`*^9, 3.60775043046342*^9}, {3.607750460503524*^9, 
   3.6077504702794952`*^9}, {3.607750500991282*^9, 3.607750503270853*^9}, {
   3.6077584165529633`*^9, 3.607758486945208*^9}, {3.60921927704533*^9, 
   3.60921927875638*^9}, {3.609230208645947*^9, 3.609230210223528*^9}, 
   3.609490383923561*^9}],

Cell["MI - 1", "Text",
 CellChangeTimes->{{3.6092302117699747`*^9, 3.609230215048873*^9}, {
   3.609237378962803*^9, 3.609237402514908*^9}, 3.6094903839264107`*^9}],

Cell[BoxData[
 RowBox[{Cell[TextData[Cell[BoxData[
   FormBox[
    RowBox[{
     SubscriptBox["x", 
      RowBox[{"n", "+", "1"}]], " ", "=", " ", 
     RowBox[{
      RowBox[{
       SubscriptBox["a", "1"], 
       SubscriptBox["x", "n"]}], " ", "+", " ", 
      RowBox[{
       SubscriptBox["a", "2"], 
       SubscriptBox["x", 
        RowBox[{"n", "-", "1"}]]}], " ", "+", " ", 
      SubscriptBox["\[Epsilon]", "n"]}]}], TraditionalForm]]]]], 
  "\[IndentingNewLine]"}]], "Text",
 CellChangeTimes->{{3.6092328880404663`*^9, 3.6092329568802032`*^9}, {
   3.6092341502918463`*^9, 3.609234178110656*^9}, 3.6092345342167463`*^9, 
   3.6094903839286222`*^9}],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{GridBox[{
     {
      RowBox[{GridBox[{
         {
          RowBox[{"MI", "(", 
           RowBox[{
            SubscriptBox["X", 
             RowBox[{"n", "+", "1"}]], ":", 
            SubscriptBox["X", "n"]}], ")"}]}
        },
        GridBoxAlignment->{"Columns" -> {{"="}}}], " ", "=", " ", 
       RowBox[{
        RowBox[{"2", 
         RowBox[{"H", "(", 
          SubscriptBox["X", "n"], ")"}]}], " ", "-", 
        RowBox[{"H", "(", 
         RowBox[{
          SubscriptBox["X", 
           RowBox[{"n", "+", "1"}]], 
          SubscriptBox["X", "n"]}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"H", "(", 
         SubscriptBox["X", "n"], ")"}], " ", "=", " ", 
        RowBox[{
         FractionBox["1", "2"], 
         RowBox[{"ln", "(", 
          RowBox[{"2", " ", "\[Pi]", " ", "e", " ", 
           RowBox[{"\[LeftAngleBracket]", 
            SubsuperscriptBox["x", "n", "2"], "\[RightAngleBracket]"}]}], 
          ")"}]}]}], " ", "\[IndentingNewLine]", Cell[TextData[Cell[BoxData[
        FormBox[
         RowBox[{
          RowBox[{"\[LeftAngleBracket]", 
           SuperscriptBox["x", "2"], "\[RightAngleBracket]"}], " ", "=", " ", 
          
          RowBox[{
           RowBox[{
            SubsuperscriptBox["a", "1", "2"], 
            RowBox[{"\[LeftAngleBracket]", 
             SuperscriptBox["x", "2"], "\[RightAngleBracket]"}]}], " ", "+", 
           " ", 
           RowBox[{
            SubsuperscriptBox["a", "2", "2"], 
            RowBox[{"\[LeftAngleBracket]", 
             SuperscriptBox["x", "2"], "\[RightAngleBracket]"}]}], " ", "+", 
           " ", 
           RowBox[{"\[LeftAngleBracket]", 
            SuperscriptBox["\[Epsilon]", "2"], "\[RightAngleBracket]"}]}]}], 
         TraditionalForm]]]]]}]},
     {
      RowBox[{
       RowBox[{"\[Beta]", " ", "=", " ", 
        RowBox[{
         RowBox[{"\[LeftAngleBracket]", 
          SuperscriptBox["x", "2"], "\[RightAngleBracket]"}], " ", "=", 
         FractionBox[
          SuperscriptBox["\[Sigma]", "2"], 
          RowBox[{"1", "-", 
           SubsuperscriptBox["a", "1", "2"], "-", 
           SubsuperscriptBox["a", "2", "2"]}]]}]}], "\[IndentingNewLine]", 
       RowBox[{
        SuperscriptBox["\[Sigma]", "2"], " ", "=", " ", 
        RowBox[{"\[LeftAngleBracket]", 
         SuperscriptBox["\[Epsilon]", "2"], "\[RightAngleBracket]"}]}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"H", 
         RowBox[{"(", 
          SubscriptBox["X", "n"], ")"}]}], " ", "=", " ", 
        RowBox[{
         FractionBox["1", "2"], "ln", 
         RowBox[{"(", 
          RowBox[{"2", " ", "\[Pi]", " ", "e", "  ", "\[Beta]"}], ")"}]}]}], 
       " ", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"H", "(", 
         RowBox[{
          SubscriptBox["X", 
           RowBox[{"n", "+", "1"}]], 
          SubscriptBox["X", "n"]}], ")"}], " ", "=", " ", 
        RowBox[{
         FractionBox["1", "2"], 
         RowBox[{"ln", "(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", " ", "\[Pi]", " ", "e"}], " ", ")"}], "2"], " ", 
           "|", "K", "|"}], ")"}]}]}], "\[IndentingNewLine]", 
       RowBox[{"K", "=", 
        RowBox[{"(", GridBox[{
           {"\[Beta]", 
            RowBox[{"\[LeftAngleBracket]", 
             RowBox[{
              SubscriptBox["x", 
               RowBox[{"n", "+", "1"}]], 
              SubscriptBox["x", "n"]}], "\[RightAngleBracket]"}]},
           {
            RowBox[{"\[LeftAngleBracket]", 
             RowBox[{
              SubscriptBox["x", 
               RowBox[{"n", "+", "1"}]], 
              SubscriptBox["x", "n"]}], "\[RightAngleBracket]"}], "\[Beta]"}
          }], ")"}]}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[LeftAngleBracket]", 
         RowBox[{
          SubscriptBox["x", 
           RowBox[{"n", "+", "1"}]], 
          SubscriptBox["x", "n"]}], "\[RightAngleBracket]"}], " ", "=", " ", 
        RowBox[{
         RowBox[{
          SubscriptBox["a", "1"], " ", 
          RowBox[{"\[LeftAngleBracket]", 
           SubsuperscriptBox["x", "n", "2"], "\[RightAngleBracket]"}]}], " ", 
         "+", " ", 
         RowBox[{
          SubscriptBox["a", "2"], 
          RowBox[{"\[LeftAngleBracket]", 
           RowBox[{
            SubscriptBox["x", 
             RowBox[{"n", "-", "1"}]], 
            SubscriptBox["x", "n"]}], "\[RightAngleBracket]"}]}]}]}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[LeftAngleBracket]", 
         RowBox[{
          SubscriptBox["x", 
           RowBox[{"n", "+", "1"}]], 
          SubscriptBox["x", "n"]}], "\[RightAngleBracket]"}], " ", "=", " ", 
        RowBox[{
         RowBox[{
          FractionBox[
           SubscriptBox["a", "1"], 
           RowBox[{"1", "-", 
            SubscriptBox["a", "2"]}]], "\[Beta]"}], " ", "=", " ", 
         RowBox[{"r", " ", "\[Beta]"}]}]}], "\[IndentingNewLine]", 
       RowBox[{"r", "=", " ", 
        FractionBox[
         SubscriptBox["a", "1"], 
         RowBox[{"1", "-", 
          SubscriptBox["a", "2"]}]]}], "\[IndentingNewLine]", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"H", "(", 
         RowBox[{
          SubscriptBox["X", 
           RowBox[{"n", "+", "1"}]], 
          SubscriptBox["X", "n"]}], ")"}], " ", "=", " ", 
        RowBox[{
         FractionBox["1", "2"], 
         RowBox[{"ln", "(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", " ", "\[Pi]", " ", "e"}], " ", ")"}], "2"], " ", 
           RowBox[{
            SuperscriptBox["\[Beta]", "2"], "(", 
            RowBox[{"1", "-", 
             SuperscriptBox["r", "2"]}], ")"}]}], ")"}]}]}], 
       "\[IndentingNewLine]", 
       RowBox[{GridBox[{
          {
           RowBox[{"MI", "(", 
            RowBox[{
             SubscriptBox["X", 
              RowBox[{"n", "+", "1"}]], ":", 
             SubscriptBox["X", "n"]}], ")"}]}
         },
         GridBoxAlignment->{"Columns" -> {{"="}}}], " ", "=", " ", 
        RowBox[{
         RowBox[{
          FractionBox["1", "2"], "ln", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox["r", "2"]}], ")"}]}], " ", "=", " ", 
         RowBox[{
          FractionBox["1", "2"], 
          RowBox[{"ln", "(", 
           RowBox[{"1", "-", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               SubscriptBox["a", "1"], 
               RowBox[{"1", "-", 
                SubscriptBox["a", "2"]}]], ")"}], "2"]}], ")"}]}]}]}]}]}
    },
    GridBoxItemSize->{"Columns" -> {{
         Scaled[0.96]}}}], " "}], TraditionalForm]]]], "Text",
 CellChangeTimes->{{3.609234195001458*^9, 3.609234309634445*^9}, {
   3.609234417042029*^9, 3.609234558821804*^9}, {3.609234594775646*^9, 
   3.609235153866457*^9}, {3.609235630704214*^9, 3.609235820187653*^9}, {
   3.609235880275166*^9, 3.609235880275402*^9}, {3.609236026669126*^9, 
   3.609236032609707*^9}, {3.609237703857449*^9, 3.609237742267312*^9}, 
   3.6094903839334517`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ar2Pi1", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "1"}], "/", "2"}], " ", 
   RowBox[{"Log", "[", 
    RowBox[{"1", "-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Alpha]1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Alpha]2"}], ")"}]}], ")"}], "2"]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6036234650632877`*^9, 3.603623483754216*^9}, {
   3.603623531323681*^9, 3.603623544253579*^9}, {3.603623737837434*^9, 
   3.603623751893784*^9}, {3.607750259981751*^9, 3.607750339869258*^9}, {
   3.6077504294230747`*^9, 3.60775043046342*^9}, {3.607750460503524*^9, 
   3.6077504702794952`*^9}, {3.607750500991282*^9, 3.607750503270853*^9}, {
   3.6077584165529633`*^9, 3.607758486945208*^9}, {3.60921927704533*^9, 
   3.60921927875638*^9}, {3.609230208645947*^9, 3.609230210223528*^9}, {
   3.609230374342739*^9, 3.609230378246484*^9}, 3.609490383934284*^9}],

Cell[BoxData["2.9120414561166545`"], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.603623506981042*^9, {3.603623537631789*^9, 3.603623544621458*^9}, 
   3.603623744674473*^9, 3.607750340800763*^9, 3.6077504313746433`*^9, 
   3.607750471327878*^9, 3.607750505805429*^9, 3.607750737801097*^9, {
   3.607758446387374*^9, 3.6077584604530888`*^9}, 3.6092192796980953`*^9, 
   3.6092303787603493`*^9, 3.609490383945939*^9, 3.6095005387829847`*^9, 
   3.609665132360901*^9, 3.63505339804249*^9, 3.644652060422482*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(", 
  RowBox[{"\[Alpha]1", "/", 
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Alpha]2"}], ")"}]}], ")"}]], "Input"],

Cell["MI-2", "Text",
 CellChangeTimes->{{3.609230346786252*^9, 3.6092303499596043`*^9}, {
   3.609237406306191*^9, 3.609237410953998*^9}, 3.609490383948462*^9}],

Cell[TextData[Cell[BoxData[
 FormBox[GridBox[{
    {
     RowBox[{GridBox[{
        {
         RowBox[{
          RowBox[{GridBox[{
             {
              RowBox[{"MI", "(", 
               RowBox[{
                SubscriptBox["X", 
                 RowBox[{"n", "+", "1"}]], 
                RowBox[{
                 SubscriptBox["X", "n"], ":", 
                 RowBox[{
                  SubscriptBox["X", 
                   RowBox[{"n", "-", "1"}]], 
                  SubscriptBox["X", 
                   RowBox[{"n", "-", "2"}]]}]}]}], ")"}]}
            },
            GridBoxAlignment->{"Columns" -> {{"="}}}], " ", "=", " ", 
           RowBox[{
            RowBox[{"2", 
             RowBox[{"H", "(", 
              RowBox[{
               SubscriptBox["X", 
                RowBox[{"n", "+", "1"}]], 
               SubscriptBox["X", "n"]}], ")"}]}], " ", "-", 
            RowBox[{"H", "(", 
             RowBox[{
              SubscriptBox["X", 
               RowBox[{"n", "+", "1"}]], 
              SubscriptBox["X", "n"], 
              SubscriptBox["X", 
               RowBox[{"n", "-", "1"}]], 
              SubscriptBox["X", 
               RowBox[{"n", "-", "2"}]]}], ")"}]}]}], "\[IndentingNewLine]"}]},
        {
         RowBox[{
          RowBox[{"H", 
           RowBox[{"(", 
            RowBox[{
             SubscriptBox["X", 
              RowBox[{"n", "+", "1"}]], 
             SubscriptBox["X", "n"]}], ")"}]}], "=", " ", 
          RowBox[{
           FractionBox["1", "2"], "ln", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"2", " ", "\[Pi]", " ", "e"}], " ", ")"}], "2"], " ", 
             SuperscriptBox["\[Beta]", "2"], 
             RowBox[{"(", 
              RowBox[{"1", "-", 
               SuperscriptBox["r", "2"]}], ")"}]}], ")"}]}]}]},
        {
         RowBox[{"\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"H", "(", 
             RowBox[{
              SubscriptBox["X", 
               RowBox[{"n", "+", "1"}]], 
              SubscriptBox["X", "n"], 
              SubscriptBox["X", 
               RowBox[{"n", "-", "1"}]], 
              SubscriptBox["X", 
               RowBox[{"n", "-", "2"}]]}], ")"}], " ", "=", " ", 
            RowBox[{
             FractionBox["1", "2"], 
             RowBox[{"ln", "(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"2", " ", "\[Pi]", " ", "e"}], " ", ")"}], "4"], " ",
                "|", "K", "|"}], ")"}]}]}], "\[IndentingNewLine]"}]}]},
        {
         RowBox[{"K", "=", 
          TagBox[
           RowBox[{"(", "\[NoBreak]", GridBox[{
              {"\[Beta]", 
               RowBox[{"r", " ", "\[Beta]"}], 
               RowBox[{
                SubscriptBox["r", "2"], " ", "\[Beta]"}], 
               RowBox[{
                SubscriptBox["r", "3"], " ", "\[Beta]"}]},
              {
               RowBox[{"r", " ", "\[Beta]"}], "\[Beta]", 
               RowBox[{"r", " ", "\[Beta]"}], 
               RowBox[{
                SubscriptBox["r", "2"], " ", "\[Beta]"}]},
              {
               RowBox[{
                SubscriptBox["r", "2"], " ", "\[Beta]"}], 
               RowBox[{"r", " ", "\[Beta]"}], "\[Beta]", 
               RowBox[{"r", " ", "\[Beta]"}]},
              {
               RowBox[{
                SubscriptBox["r", "3"], " ", "\[Beta]"}], 
               RowBox[{
                SubscriptBox["r", "2"], " ", "\[Beta]"}], 
               RowBox[{"r", " ", "\[Beta]"}], "\[Beta]"}
             },
             
             GridBoxAlignment->{
              "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
               "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
             GridBoxSpacings->{"Columns" -> {
                 Offset[0.27999999999999997`], {
                  Offset[0.7]}, 
                 Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, 
               "Rows" -> {
                 Offset[0.2], {
                  Offset[0.4]}, 
                 Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
           Function[BoxForm`e$, 
            MatrixForm[BoxForm`e$]]]}]}
       },
       GridBoxItemSize->{"Columns" -> {{
            Scaled[0.96]}}}], " "}]},
    {
     RowBox[{"r", "=", " ", 
      FractionBox[
       SubscriptBox["a", "1"], 
       RowBox[{"1", "-", 
        SubscriptBox["a", "2"]}]]}]},
    {
     RowBox[{"\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"\[LeftAngleBracket]", 
        RowBox[{
         SubscriptBox["x", 
          RowBox[{"n", "+", "1"}]], 
         SubscriptBox["x", 
          RowBox[{"n", "-", "1"}]]}], "\[RightAngleBracket]"}], " ", "=", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["a", "1"], " ", 
          RowBox[{"\[LeftAngleBracket]", 
           RowBox[{
            SubscriptBox["x", "n"], 
            SubscriptBox["x", 
             RowBox[{"n", "-", "1"}]]}], "\[RightAngleBracket]"}]}], " ", "+",
          " ", 
         RowBox[{
          SubscriptBox["a", "2"], 
          RowBox[{"\[LeftAngleBracket]", 
           SubsuperscriptBox["x", 
            RowBox[{"n", "-", "1"}], "2"], "\[RightAngleBracket]"}]}]}], "=", 
        
        RowBox[{
         RowBox[{
          RowBox[{
           SubscriptBox["a", "1"], "r", " ", "\[Beta]"}], " ", "+", " ", 
          RowBox[{
           SubscriptBox["a", "2"], "\[Beta]"}]}], " ", "=", " ", 
         RowBox[{"\[Beta]", " ", 
          SubscriptBox["r", "2"]}]}]}]}]}]},
    {
     RowBox[{
      SubscriptBox["r", "2"], "=", " ", 
      RowBox[{
       RowBox[{
        SubscriptBox["a", "1"], "r"}], " ", "+", " ", 
       SubscriptBox["a", "2"]}]}]},
    {
     RowBox[{
      RowBox[{"\[LeftAngleBracket]", 
       RowBox[{
        SubscriptBox["x", 
         RowBox[{"n", "+", "1"}]], 
        SubscriptBox["x", 
         RowBox[{"n", "-", "2"}]]}], "\[RightAngleBracket]"}], " ", "=", " ", 
      
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["a", "1"], " ", 
         RowBox[{"\[LeftAngleBracket]", 
          RowBox[{
           SubscriptBox["x", "n"], 
           SubscriptBox["x", 
            RowBox[{"n", "-", "2"}]]}], "\[RightAngleBracket]"}]}], " ", "+", 
        " ", 
        RowBox[{
         SubscriptBox["a", "2"], 
         RowBox[{"\[LeftAngleBracket]", 
          RowBox[{
           SubscriptBox["x", 
            RowBox[{"n", "-", "1"}]], 
           SubscriptBox["x", 
            RowBox[{"n", "-", "2"}]]}], "\[RightAngleBracket]"}]}]}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["a", "1"], 
          SubscriptBox["r", "2"], "\[Beta]"}], "+", " ", 
         RowBox[{
          SubscriptBox["a", "2"], "r", " ", "\[Beta]"}]}], " ", "=", " ", 
        RowBox[{"\[Beta]", " ", 
         SubscriptBox["r", "3"]}]}]}]}]},
    {
     RowBox[{
      RowBox[{
       SubscriptBox["r", 
        RowBox[{"3", " ", "=", " "}]], 
       SubscriptBox["a", "1"], 
       SubscriptBox["r", "2"]}], "+", " ", 
      RowBox[{
       SubscriptBox["a", "2"], "r", " "}]}]}
   }], TraditionalForm]]]], "Text",
 CellChangeTimes->{{3.609234195001458*^9, 3.609234309634445*^9}, {
   3.609234417042029*^9, 3.609234558821804*^9}, {3.609234594775646*^9, 
   3.609235153866457*^9}, {3.609235630704214*^9, 3.609236363162073*^9}, 
   3.609490383950218*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"K", "=", 
   RowBox[{"\[Beta]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "r", ",", "r2", ",", "r3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"r", ",", "1", ",", "r", ",", "r2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"r2", ",", "r", ",", "1", ",", "r"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"r3", ",", "r2", ",", "r", ",", "1"}], "}"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"K", "//", "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{"rules", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[Beta]", "\[Rule]", 
     RowBox[{
      SuperscriptBox["\[Sigma]", "2"], "/", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["a1", "2"], "-", 
        SuperscriptBox["a2", "2"]}], ")"}]}]}], ",", " ", 
    RowBox[{"r3", "\[Rule]", " ", 
     RowBox[{
      RowBox[{"a1", " ", "r2"}], " ", "+", " ", 
      RowBox[{"a2", " ", "r"}]}]}], ",", " ", 
    RowBox[{"r2", "\[Rule]", 
     RowBox[{
      RowBox[{"a1", " ", "r"}], " ", "+", " ", "a2"}]}], ",", " ", 
    RowBox[{"r", "\[Rule]", " ", 
     RowBox[{"a1", "/", 
      RowBox[{"(", 
       RowBox[{"1", "-", "a2"}], ")"}]}]}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"Det", "[", "K", "]"}], "\[IndentingNewLine]", 
 RowBox[{"H4", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Det", "[", "K", "]"}], "//.", " ", "rules"}], ")"}], "//", 
   "FullSimplify"}]}], "\[IndentingNewLine]", 
 RowBox[{"H2", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["\[Beta]", "2"], 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox["r", "2"]}], ")"}]}], "//.", " ", "rules"}], "//", 
   "FullSimplify"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SuperscriptBox["H2", "2"], "/", "H4"}], " ", "//", " ", 
  "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.6092289149775467`*^9, 3.609229023543067*^9}, {
   3.609229153981003*^9, 3.609229212542159*^9}, {3.609229292856708*^9, 
   3.609229369023855*^9}, {3.609229403207835*^9, 3.60922942813619*^9}, {
   3.6092294680885687`*^9, 3.609229468615781*^9}, {3.6092295747576303`*^9, 
   3.609229587428619*^9}, 3.609229620756579*^9, {3.609229952667878*^9, 
   3.609230079601488*^9}, {3.609230419786806*^9, 3.609230421814835*^9}, {
   3.60923777190971*^9, 3.609237775082793*^9}, 3.6094903839515057`*^9}],

Cell[TextData[Cell[BoxData[
 FormBox[GridBox[{
    {
     RowBox[{GridBox[{
        {
         RowBox[{"MI", "(", 
          RowBox[{
           SubscriptBox["X", 
            RowBox[{"n", "+", "1"}]], 
           RowBox[{
            SubscriptBox["X", "n"], ":", 
            RowBox[{
             SubscriptBox["X", 
              RowBox[{"n", "-", "1"}]], 
             SubscriptBox["X", 
              RowBox[{"n", "-", "2"}]]}]}]}], ")"}]}
       },
       GridBoxAlignment->{"Columns" -> {{"="}}}], "=", 
      RowBox[{
       FractionBox["1", "2"], "ln", GridBox[{
         {
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", 
               SubscriptBox["a", "2"]}], ")"}], "2"], "  ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 SubscriptBox["a", "2"], "-", "1"}], ")"}], "2"], "-", 
              SubsuperscriptBox["a", "1", "2"]}], ")"}]}]]}
        },
        GridBoxAlignment->{"Columns" -> {{"="}}}]}]}]}
   },
   GridBoxItemSize->{"Columns" -> {{
        Scaled[0.96]}}}], TraditionalForm]]]], "Text",
 CellChangeTimes->{{3.6092370968098717`*^9, 3.609237139374365*^9}, {
   3.6092378103919687`*^9, 3.609237900989972*^9}, 3.6094903839743156`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ar2Pi2", "=", 
  RowBox[{
   RowBox[{"1", "/", "2"}], " ", 
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{
      SuperscriptBox["H2", "2"], "/", "H4"}], " ", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a1", "\[Rule]", "\[Alpha]1"}], ",", 
       RowBox[{"a2", "\[Rule]", "\[Alpha]2"}]}], "}"}]}], "]"}]}]}]], "Input",\

 CellChangeTimes->{{3.609229471922143*^9, 3.609229515573625*^9}, {
   3.609229698022233*^9, 3.609229727198189*^9}, {3.609229786168495*^9, 
   3.6092298035586233`*^9}, {3.60922996091905*^9, 3.609229963102755*^9}, {
   3.609230087526599*^9, 3.609230103806312*^9}, {3.609230362781131*^9, 
   3.609230368271119*^9}, 3.609490383975082*^9}],

Cell[BoxData["7.479252575358008`"], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.609230429408313*^9, {3.6092377877284317`*^9, 3.609237791773*^9}, 
   3.609490383980338*^9, 3.609665142065926*^9, 3.635053399211499*^9, 
   3.644652080277877*^9}]
}, Open  ]],

Cell["\<\
2 - step delay (delay=1)
Iterate quation and calc correlation:\
\>", "Text",
 CellChangeTimes->{{3.6094783127238693`*^9, 3.6094783758457336`*^9}, 
   3.6094903839825153`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", "s", "]"}], "\n", 
 RowBox[{"rules2", " ", "=", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"s", "->", 
     RowBox[{
      SuperscriptBox["a1", "2"], " ", "+", " ", "a2", " ", "+", " ", 
      RowBox[{"a2", " ", "a1", " ", "r"}]}]}], ",", " ", 
    RowBox[{"\[Beta]", " ", "\[Rule]", " ", 
     RowBox[{
      SuperscriptBox["\[Sigma]", "2"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["a1", "2"]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox["a1", "4"], "-", 
         SuperscriptBox["a2", "2"], "-", 
         RowBox[{
          SuperscriptBox["a1", "2"], " ", 
          SuperscriptBox["a2", "2"]}]}], ")"}]}]}]}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.609239237252767*^9, 3.6092392387568293`*^9}, 
   3.609490383982967*^9, 3.609665186464522*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"s", "\[Rule]", 
    RowBox[{
     SuperscriptBox["a1", "2"], "+", "a2", "+", 
     RowBox[{"a1", " ", "a2", " ", "r"}]}]}], ",", 
   RowBox[{"\[Beta]", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox["a1", "2"]}], ")"}], " ", 
      SuperscriptBox["\[Sigma]", "2"]}], 
     RowBox[{"1", "-", 
      SuperscriptBox["a1", "4"], "-", 
      SuperscriptBox["a2", "2"], "-", 
      RowBox[{
       SuperscriptBox["a1", "2"], " ", 
       SuperscriptBox["a2", "2"]}]}]]}]}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.6092391510797377`*^9, 3.609239241126391*^9, 3.60923963459101*^9, 
   3.609490383988728*^9, {3.609500571806673*^9, 3.609500599420776*^9}, {
   3.6096651816675577`*^9, 3.609665187110243*^9}, 3.635053399223343*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"s", "\[Rule]", 
    RowBox[{
     SuperscriptBox["a1", "2"], "+", "a2", "+", 
     RowBox[{"a1", " ", "a2", " ", "r"}]}]}], ",", 
   RowBox[{"\[Beta]", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox["a1", "2"]}], ")"}], " ", 
      SuperscriptBox["\[Sigma]", "2"]}], 
     RowBox[{"1", "-", 
      SuperscriptBox["a1", "4"], "-", 
      SuperscriptBox["a2", "2"], "-", 
      RowBox[{
       SuperscriptBox["a1", "2"], " ", 
       SuperscriptBox["a2", "2"]}]}]]}]}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.6092391510797377`*^9, 3.609239241126391*^9, 3.60923963459101*^9, 
   3.609490383988728*^9, {3.609500571806673*^9, 3.609500599420776*^9}, {
   3.6096651816675577`*^9, 3.609665187110243*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ar2Pi1d2", "=", 
  RowBox[{
   RowBox[{"1", "/", "2"}], " ", 
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        SuperscriptBox["s", "2"]}], ")"}]}], " ", "//.", 
     RowBox[{"Flatten", "[", 
      RowBox[{"{", 
       RowBox[{"rules", ",", "rules2", ",", 
        RowBox[{"a1", "\[Rule]", "\[Alpha]1"}], ",", 
        RowBox[{"a2", "\[Rule]", "\[Alpha]2"}]}], "}"}], "]"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.609239101114154*^9, 3.609239187122027*^9}, {
   3.60923927780611*^9, 3.609239278488515*^9}, {3.6092418133800173`*^9, 
   3.609241813568605*^9}, 3.609490383991095*^9}],

Cell["N - step iteration", "Text",
 CellChangeTimes->{{3.60947841262514*^9, 3.609478424535151*^9}, 
   3.6094903840019827`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "[", "0", "]"}], "=", "xn"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", "[", 
   RowBox[{"-", "1"}], "]"}], "=", "xm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", "[", "n_", "]"}], ":=", 
  RowBox[{
   RowBox[{"a1", " ", 
    RowBox[{"x", "[", 
     RowBox[{"n", "-", "1"}], "]"}]}], " ", "+", " ", 
   RowBox[{"a2", " ", 
    RowBox[{"x", "[", 
     RowBox[{"n", "-", "2"}], "]"}]}]}]}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.609241565489089*^9, 3.609241627047635*^9}, 
   3.609490384002634*^9}],

Cell[BoxData["xn"], "Output",
 CellChangeTimes->{3.6449003009069524`*^9}],

Cell[BoxData["xm"], "Output",
 CellChangeTimes->{3.6449003009069524`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Correlation", " ", 
  RowBox[{"coefficient", ":", " ", 
   RowBox[{Cell[TextData[{
     "s=c1",
     Cell[BoxData[
      FormBox[
       RowBox[{"+", " ", "c2"}], TraditionalForm]]],
     " r"
    }]], " ", "with", " ", Cell[TextData[Cell[BoxData[
     FormBox[
      RowBox[{"r", "=", 
       FractionBox[
        SubscriptBox["a", "1"], 
        RowBox[{"1", "-", 
         SubscriptBox["a", "2"]}]], " "}], 
      TraditionalForm]]]]]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"where", " ", 
  SubscriptBox["c", 
   RowBox[{"1", " "}]], "are", " ", "the", " ", "coeficients", " ", "for", 
  " ", 
  SubscriptBox["x", "n"], " ", "and", " ", 
  SubscriptBox["c", "2"], "are", " ", "the", " ", "coefficients", " ", "for", 
  " ", 
  SubscriptBox["x", 
   RowBox[{"n", "-", "1"}]]}]}], "Text",
 CellChangeTimes->{{3.609478431937956*^9, 3.609478488485751*^9}, {
   3.609478532665427*^9, 3.609478678874712*^9}, 3.609490384012794*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"corr", "[", "x_", "]"}], " ", ":=", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"Coefficient", "[", 
     RowBox[{
      RowBox[{"Collect", "[", 
       RowBox[{"x", ",", "xn"}], "]"}], ",", "xn"}], "]"}], " ", "+", " ", 
    RowBox[{
     RowBox[{"Coefficient", "[", 
      RowBox[{
       RowBox[{"Collect", "[", 
        RowBox[{"x", ",", "xm"}], "]"}], ",", "xm"}], "]"}], "r"}]}], " ", "/.", 
   RowBox[{"r", "\[Rule]", " ", 
    RowBox[{"a1", "/", 
     RowBox[{"(", 
      RowBox[{"1", "-", "a2"}], ")"}]}]}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6092412139653788`*^9, 3.609241260092111*^9}, {
   3.609241313884403*^9, 3.609241315548821*^9}, 3.609490384013897*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"corr", "[", 
      RowBox[{"x", "[", "#", "]"}], "]"}], "&"}], ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "6", ",", "10"}], 
     "}"}]}], "]"}], "//", " ", "FullSimplify"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.609241262010548*^9, 3.60924126465801*^9}, {
   3.6092413224563847`*^9, 3.609241348562935*^9}, {3.6092416725575953`*^9, 
   3.609241706954336*^9}, 3.6094903840188503`*^9, {3.6096525612280684`*^9, 
   3.60965256167552*^9}, {3.609652630915756*^9, 3.609652631082692*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["a1", 
    RowBox[{"1", "-", "a2"}]], ",", 
   RowBox[{
    FractionBox[
     SuperscriptBox["a1", "2"], 
     RowBox[{"1", "-", "a2"}]], "+", "a2"}], ",", 
   FractionBox[
    RowBox[{"a1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["a1", "2"]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", "a2"}], ")"}], " ", "a2"}]}], ")"}]}], 
    RowBox[{
     RowBox[{"-", "1"}], "+", "a2"}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["a1", "4"]}], "+", 
     RowBox[{
      SuperscriptBox["a1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3"}], "+", "a2"}], ")"}], " ", "a2"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a2"}], ")"}], " ", 
      SuperscriptBox["a2", "2"]}]}], 
    RowBox[{
     RowBox[{"-", "1"}], "+", "a2"}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["a1", "6"]}], "+", 
     RowBox[{
      SuperscriptBox["a1", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "5"}], "+", "a2"}], ")"}], " ", "a2"}], "+", 
     RowBox[{"3", " ", 
      SuperscriptBox["a1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "a2"}], ")"}], " ", 
      SuperscriptBox["a2", "2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a2"}], ")"}], " ", 
      SuperscriptBox["a2", "3"]}]}], 
    RowBox[{
     RowBox[{"-", "1"}], "+", "a2"}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["a1", "10"]}], "+", 
     RowBox[{
      SuperscriptBox["a1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "9"}], "+", "a2"}], ")"}], " ", "a2"}], "+", 
     RowBox[{"7", " ", 
      SuperscriptBox["a1", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "4"}], "+", "a2"}], ")"}], " ", 
      SuperscriptBox["a2", "2"]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a2"}], ")"}], " ", 
      SuperscriptBox["a2", "5"]}], "+", 
     RowBox[{"5", " ", 
      SuperscriptBox["a1", "2"], " ", 
      SuperscriptBox["a2", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3"}], "+", 
        RowBox[{"2", " ", "a2"}]}], ")"}]}], "+", 
     RowBox[{"5", " ", 
      SuperscriptBox["a1", "4"], " ", 
      SuperscriptBox["a2", "3"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "7"}], "+", 
        RowBox[{"3", " ", "a2"}]}], ")"}]}]}], 
    RowBox[{
     RowBox[{"-", "1"}], "+", "a2"}]]}], "}"}]], "Output",
 CellChangeTimes->{3.644900301165967*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ar2Pi1d", "[", "d_", "]"}], ":=", 
   RowBox[{
    RowBox[{"1", "/", "2"}], " ", 
    RowBox[{"Log", "[", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         SuperscriptBox[
          RowBox[{"corr", "[", 
           RowBox[{"x", "[", "d", "]"}], "]"}], "2"]}], ")"}]}], " ", "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"a1", "\[Rule]", "\[Alpha]1"}], ",", 
        RowBox[{"a2", "\[Rule]", "\[Alpha]2"}]}], "}"}]}], "]"}]}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.609239101114154*^9, 3.609239187122027*^9}, {
   3.60923927780611*^9, 3.609239278488515*^9}, {3.609239970164466*^9, 
   3.609239980380268*^9}, {3.609240549134156*^9, 3.609240557402699*^9}, {
   3.60924143837355*^9, 3.609241509946374*^9}, {3.609241711332135*^9, 
   3.609241806376163*^9}, {3.609241904339776*^9, 3.609241904536869*^9}, {
   3.609480178356291*^9, 3.609480182462962*^9}, 3.609490384026329*^9, {
   3.6446524893789873`*^9, 3.64465249587479*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Map", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"#", ",", 
      RowBox[{"ar2Pi1d", "[", "#", "]"}]}], "}"}], "&"}], ",", 
   RowBox[{"Table", "[", 
    RowBox[{"x", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "10"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.644652520274338*^9, 3.644652520690542*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2.9120414561165795`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2.2216738090920867`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1.819678182681788`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "1.5363714698556974`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "1.3185524897025183`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "1.1425201765701114`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "0.9956316858556034`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "0.870341685253614`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "0.7617852145853892`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "0.6666428174358832`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "0.5825494268969247`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "0.5077615377967234`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "0.4409580610629422`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "0.38111519820949924`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "0.32742459958258113`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "0.27923800233458584`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"17", ",", "0.23602869523389747`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"18", ",", "0.1973640287646919`"}], "}"}]}], "}"}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{{3.609241476805243*^9, 3.609241510605747*^9}, {
   3.609241748307584*^9, 3.609241785650886*^9}, 3.609241906821889*^9, 
   3.6094903840313272`*^9, 3.609500619360426*^9, 3.6096652222747717`*^9, 
   3.610858385191269*^9, 3.6121701167890463`*^9, 3.613197421939549*^9, 
   3.613295089980908*^9, 3.613907211588991*^9, 3.614498042543048*^9, 
   3.618302163435293*^9, 3.627376362836296*^9, 3.627975355424231*^9, 
   3.629452615063507*^9, 3.629782414274686*^9, 3.633784026644741*^9, 
   3.634891806772388*^9, 3.634976097979458*^9, 3.6350534006147537`*^9, 
   3.637984023724581*^9, 3.639140013815743*^9, 3.639207291968145*^9, 
   3.639383324328558*^9, 3.6404262780823393`*^9, 3.641807612932168*^9, 
   3.6418782780723047`*^9, 3.6419725357590303`*^9, 3.6421005484496927`*^9, 
   3.642133994950635*^9, 3.6421354822029037`*^9, 3.642237879901051*^9, 
   3.644218754229162*^9, 3.644226789667924*^9}]
}, Open  ]],

Cell["\<\
The correlation coefficients in the matrix are the delayed correlations given \
by corr[x[i]]\
\>", "Text",
 CellChangeTimes->{{3.609479542124048*^9, 3.609479626536911*^9}, 
   3.60949038403351*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"row", " ", "=", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"corr", "[", 
       RowBox[{"x", "[", "1", "]"}], "]"}], ",", 
      RowBox[{"corr", "[", 
       RowBox[{"x", "[", "2", "]"}], "]"}], ",", 
      RowBox[{"corr", "[", 
       RowBox[{"x", "[", "3", "]"}], "]"}], ",", 
      RowBox[{"corr", "[", 
       RowBox[{"x", "[", "2", "]"}], "]"}], ",", 
      RowBox[{"corr", "[", 
       RowBox[{"x", "[", "1", "]"}], "]"}]}], "}"}], "//", " ", 
    "FullSimplify"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"K2", "=", 
   RowBox[{"\[Beta]", " ", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Take", "[", 
        RowBox[{
         RowBox[{"RotateRight", "[", 
          RowBox[{"row", ",", "#"}], "]"}], ",", "4"}], "]"}], "&"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "2", ",", "3"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"K2", "//", "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.6092289149775467`*^9, 3.609229023543067*^9}, {
   3.609229153981003*^9, 3.609229212542159*^9}, {3.609229292856708*^9, 
   3.609229369023855*^9}, {3.609229403207835*^9, 3.60922942813619*^9}, {
   3.6092294680885687`*^9, 3.609229468615781*^9}, {3.6092295747576303`*^9, 
   3.609229587428619*^9}, 3.609229620756579*^9, {3.609229952667878*^9, 
   3.609230079601488*^9}, {3.609230419786806*^9, 3.609230421814835*^9}, {
   3.60923777190971*^9, 3.609237775082793*^9}, 3.609478897070014*^9, {
   3.6094789279266853`*^9, 3.609478928183345*^9}, {3.609479069326198*^9, 
   3.609479219033312*^9}, {3.609479345039626*^9, 3.609479345731894*^9}, 
   3.6094794021922503`*^9, {3.609479823379274*^9, 3.609479824502821*^9}, {
   3.609479924697983*^9, 3.609479975048918*^9}, 3.6094903840342627`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\[Beta]", 
      FractionBox[
       RowBox[{"a1", " ", "\[Beta]"}], 
       RowBox[{"1", "-", "a2"}]], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["a1", "2"], 
          RowBox[{"1", "-", "a2"}]], "+", "a2"}], ")"}], " ", "\[Beta]"}], 
      FractionBox[
       RowBox[{"a1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["a1", "2"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "a2"}], ")"}], " ", "a2"}]}], ")"}], 
        " ", "\[Beta]"}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a2"}]]},
     {
      FractionBox[
       RowBox[{"a1", " ", "\[Beta]"}], 
       RowBox[{"1", "-", "a2"}]], "\[Beta]", 
      FractionBox[
       RowBox[{"a1", " ", "\[Beta]"}], 
       RowBox[{"1", "-", "a2"}]], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["a1", "2"], 
          RowBox[{"1", "-", "a2"}]], "+", "a2"}], ")"}], " ", "\[Beta]"}]},
     {
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["a1", "2"], 
          RowBox[{"1", "-", "a2"}]], "+", "a2"}], ")"}], " ", "\[Beta]"}], 
      FractionBox[
       RowBox[{"a1", " ", "\[Beta]"}], 
       RowBox[{"1", "-", "a2"}]], "\[Beta]", 
      FractionBox[
       RowBox[{"a1", " ", "\[Beta]"}], 
       RowBox[{"1", "-", "a2"}]]},
     {
      FractionBox[
       RowBox[{"a1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["a1", "2"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "a2"}], ")"}], " ", "a2"}]}], ")"}], 
        " ", "\[Beta]"}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a2"}]], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["a1", "2"], 
          RowBox[{"1", "-", "a2"}]], "+", "a2"}], ")"}], " ", "\[Beta]"}], 
      FractionBox[
       RowBox[{"a1", " ", "\[Beta]"}], 
       RowBox[{"1", "-", "a2"}]], "\[Beta]"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.609479976185903*^9, 3.60949038403867*^9, 
  3.6350534007985163`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\[Beta]", 
      FractionBox[
       RowBox[{"a1", " ", "\[Beta]"}], 
       RowBox[{"1", "-", "a2"}]], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["a1", "2"], 
          RowBox[{"1", "-", "a2"}]], "+", "a2"}], ")"}], " ", "\[Beta]"}], 
      FractionBox[
       RowBox[{"a1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["a1", "2"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "a2"}], ")"}], " ", "a2"}]}], ")"}], 
        " ", "\[Beta]"}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a2"}]]},
     {
      FractionBox[
       RowBox[{"a1", " ", "\[Beta]"}], 
       RowBox[{"1", "-", "a2"}]], "\[Beta]", 
      FractionBox[
       RowBox[{"a1", " ", "\[Beta]"}], 
       RowBox[{"1", "-", "a2"}]], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["a1", "2"], 
          RowBox[{"1", "-", "a2"}]], "+", "a2"}], ")"}], " ", "\[Beta]"}]},
     {
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["a1", "2"], 
          RowBox[{"1", "-", "a2"}]], "+", "a2"}], ")"}], " ", "\[Beta]"}], 
      FractionBox[
       RowBox[{"a1", " ", "\[Beta]"}], 
       RowBox[{"1", "-", "a2"}]], "\[Beta]", 
      FractionBox[
       RowBox[{"a1", " ", "\[Beta]"}], 
       RowBox[{"1", "-", "a2"}]]},
     {
      FractionBox[
       RowBox[{"a1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["a1", "2"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "a2"}], ")"}], " ", "a2"}]}], ")"}], 
        " ", "\[Beta]"}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a2"}]], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox["a1", "2"], 
          RowBox[{"1", "-", "a2"}]], "+", "a2"}], ")"}], " ", "\[Beta]"}], 
      FractionBox[
       RowBox[{"a1", " ", "\[Beta]"}], 
       RowBox[{"1", "-", "a2"}]], "\[Beta]"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{3.609479976185903*^9, 3.60949038403867*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"H4", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"Det", "[", "K2", "]"}], ")"}], "//", 
   "FullSimplify"}]}], "\[IndentingNewLine]", 
 RowBox[{"H2", " ", "=", " ", 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[Beta]", "2"], 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"corr", "[", 
         RowBox[{"x", "[", "1", "]"}], "]"}], ")"}], "2"]}], ")"}]}], "//", 
   "FullSimplify"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SuperscriptBox["H2", "2"], "/", "H4"}], " ", "//", " ", 
  "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"1", "/", "2"}], " ", 
  RowBox[{"Log", "[", 
   RowBox[{
    RowBox[{
     SuperscriptBox["H2", "2"], "/", "H4"}], " ", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a1", "\[Rule]", "\[Alpha]1"}], ",", 
      RowBox[{"a2", "\[Rule]", "\[Alpha]2"}]}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.6092289149775467`*^9, 3.609229023543067*^9}, {
   3.609229153981003*^9, 3.609229212542159*^9}, {3.609229292856708*^9, 
   3.609229369023855*^9}, {3.609229403207835*^9, 3.60922942813619*^9}, {
   3.6092294680885687`*^9, 3.609229468615781*^9}, {3.6092295747576303`*^9, 
   3.609229587428619*^9}, 3.609229620756579*^9, {3.609229952667878*^9, 
   3.609230079601488*^9}, {3.609230419786806*^9, 3.609230421814835*^9}, {
   3.60923777190971*^9, 3.609237775082793*^9}, 3.609478897070014*^9, {
   3.6094789279266853`*^9, 3.609478928183345*^9}, {3.609479069326198*^9, 
   3.6094791739796658`*^9}, {3.609479227571493*^9, 3.609479275609528*^9}, 
   3.60947933087043*^9, 3.609479820723427*^9, {3.609480008712772*^9, 
   3.609480032945418*^9}, {3.609480086349574*^9, 3.609480116883363*^9}, 
   3.60949038404112*^9}],

Cell[BoxData["7.479252575358008`"], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.609478900785346*^9, 3.609479277504915*^9, 3.609479350770688*^9, 
   3.609479421239114*^9, {3.609479982762623*^9, 3.60948003399886*^9}, {
   3.609480086905181*^9, 3.609480119035976*^9}, 3.6094903840430393`*^9, 
   3.6350534013546047`*^9}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["a1", "2"]}], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a2"}], ")"}], "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "a2"}], ")"}], "2"]}]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.609478900785346*^9, 3.609479277504915*^9, 3.609479350770688*^9, 
   3.609479421239114*^9, {3.609479982762623*^9, 3.60948003399886*^9}, {
   3.609480086905181*^9, 3.609480119035976*^9}, 3.6094903840430393`*^9, 
   3.6350534013486423`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "-", 
    FractionBox[
     SuperscriptBox["a1", "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a2"}], ")"}], "2"]]}], ")"}], " ", 
  SuperscriptBox["\[Beta]", "2"]}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.609478900785346*^9, 3.609479277504915*^9, 3.609479350770688*^9, 
   3.609479421239114*^9, {3.609479982762623*^9, 3.60948003399886*^9}, {
   3.609480086905181*^9, 3.609480119035976*^9}, 3.6094903840430393`*^9, 
   3.635053401342126*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["a1", "2"]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "a2"}], ")"}], "2"]}], ")"}], "3"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "a2"}], ")"}], "2"], " ", 
   SuperscriptBox["\[Beta]", "4"]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "a2"}], ")"}], "4"]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.609478900785346*^9, 3.609479277504915*^9, 3.609479350770688*^9, 
   3.609479421239114*^9, {3.609479982762623*^9, 3.60948003399886*^9}, {
   3.609480086905181*^9, 3.609480119035976*^9}, 3.6094903840430393`*^9, 
   3.635053401155826*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["a1", "2"]}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "a2"}], ")"}], "2"]}], ")"}], "3"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "a2"}], ")"}], "2"], " ", 
   SuperscriptBox["\[Beta]", "4"]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "a2"}], ")"}], "4"]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.609478900785346*^9, 3.609479277504915*^9, 3.609479350770688*^9, 
   3.609479421239114*^9, {3.609479982762623*^9, 3.60948003399886*^9}, {
   3.609480086905181*^9, 3.609480119035976*^9}, 3.6094903840430393`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", "-", 
    FractionBox[
     SuperscriptBox["a1", "2"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a2"}], ")"}], "2"]]}], ")"}], " ", 
  SuperscriptBox["\[Beta]", "2"]}]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.609478900785346*^9, 3.609479277504915*^9, 3.609479350770688*^9, 
   3.609479421239114*^9, {3.609479982762623*^9, 3.60948003399886*^9}, {
   3.609480086905181*^9, 3.609480119041329*^9}, 3.609490384044977*^9}],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["a1", "2"]}], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "a2"}], ")"}], "2"]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "a2"}], ")"}], "2"]}]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.609478900785346*^9, 3.609479277504915*^9, 3.609479350770688*^9, 
   3.609479421239114*^9, {3.609479982762623*^9, 3.60948003399886*^9}, {
   3.609480086905181*^9, 3.6094801190460587`*^9}, 3.609490384046988*^9}],

Cell[BoxData["7.479252575358008`"], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.609478900785346*^9, 3.609479277504915*^9, 3.609479350770688*^9, 
   3.609479421239114*^9, {3.609479982762623*^9, 3.60948003399886*^9}, {
   3.609480086905181*^9, 3.609480119051323*^9}, 3.609490384052801*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ar2Pi2d", "[", "d_", "]"}], ":=", " ", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"row", ",", "K", ",", "r"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"row", " ", "=", " ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"corr", "[", 
          RowBox[{"x", "[", "d", "]"}], "]"}], ",", 
         RowBox[{"corr", "[", 
          RowBox[{"x", "[", 
           RowBox[{"2", "d"}], "]"}], "]"}], ",", 
         RowBox[{"corr", "[", 
          RowBox[{"x", "[", 
           RowBox[{"3", "d"}], "]"}], "]"}], ",", 
         RowBox[{"corr", "[", 
          RowBox[{"x", "[", 
           RowBox[{"2", "d"}], "]"}], "]"}], ",", 
         RowBox[{"corr", "[", 
          RowBox[{"x", "[", 
           RowBox[{"1", "d"}], "]"}], "]"}]}], "}"}], "//", " ", 
       "FullSimplify"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"K", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Take", "[", 
          RowBox[{
           RowBox[{"RotateRight", "[", 
            RowBox[{"row", ",", "#"}], "]"}], ",", "4"}], "]"}], "&"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", "2", ",", "3"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"r", "=", 
      RowBox[{"FullSimplify", "[", 
       RowBox[{
        RowBox[{"Simplify", "[", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"corr", "[", 
               RowBox[{"x", "[", "d", "]"}], "]"}], ")"}], "2"]}], ")"}], 
          "2"], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Det", "[", "K", "]"}], "//", "Simplify"}], ")"}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"1", "/", "2"}], " ", 
      RowBox[{"Log", "[", 
       RowBox[{"r", " ", "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"a1", "\[Rule]", "\[Alpha]1"}], ",", 
          RowBox[{"a2", "\[Rule]", "\[Alpha]2"}]}], "}"}]}], "]"}]}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.6092289149775467`*^9, 3.609229023543067*^9}, {
   3.609229153981003*^9, 3.609229212542159*^9}, {3.609229292856708*^9, 
   3.609229369023855*^9}, {3.609229403207835*^9, 3.60922942813619*^9}, {
   3.6092294680885687`*^9, 3.609229468615781*^9}, {3.6092295747576303`*^9, 
   3.609229587428619*^9}, 3.609229620756579*^9, {3.609229952667878*^9, 
   3.609230079601488*^9}, {3.609230419786806*^9, 3.609230421814835*^9}, {
   3.60923777190971*^9, 3.609237775082793*^9}, 3.609478897070014*^9, {
   3.6094789279266853`*^9, 3.609478928183345*^9}, {3.609479069326198*^9, 
   3.609479219033312*^9}, {3.609479345039626*^9, 3.609479345731894*^9}, 
   3.6094794021922503`*^9, {3.609479823379274*^9, 3.609479824502821*^9}, {
   3.609479924697983*^9, 3.609479975048918*^9}, {3.609480131330412*^9, 
   3.6094803706178207`*^9}, {3.6094818158012447`*^9, 3.609481816033033*^9}, {
   3.609487789366322*^9, 3.6094878724790497`*^9}, {3.6094879188666983`*^9, 
   3.609487949974895*^9}, {3.609488078238208*^9, 3.609488134393773*^9}, {
   3.609488219126162*^9, 3.609488254740402*^9}, {3.609488299336896*^9, 
   3.609488315397561*^9}, {3.609488363688785*^9, 3.609488378403369*^9}, 
   3.6094903840558233`*^9, {3.609493241911721*^9, 3.609493261146323*^9}}],

Cell[BoxData[
 RowBox[{"dat", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"ar2Pi2d", "[", "#", "]"}]}], "}"}], "&"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{"x", ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "1", ",", "10"}], "}"}]}], "]"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.609577221479478*^9, 3.609577242512175*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Values", "Subsubsection",
 CellChangeTimes->{{3.644652102082663*^9, 3.644652105039859*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ar2Pi2dValues", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Rule", " ", "@@", " ", "#"}], "&"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "7.479252575358022`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "6.399409360532621`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "5.665917874368521`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "5.123104944326739`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "4.695401920363092`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "4.343788221912529`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "4.048648310733302`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"8", ",", "3.788140099593134`"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"10", ",", "3.358748352585658`"}], "}"}]}], "}"}]}], 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6095002893631573`*^9, 3.609500343674596*^9}, {
  3.609500405885387*^9, 3.609500423112919*^9}, {3.609500453993971*^9, 
  3.609500458057961*^9}, {3.6095758049617367`*^9, 3.609575820821722*^9}, {
  3.609577315428954*^9, 3.609577315881019*^9}, {3.609579594480651*^9, 
  3.6095795945409727`*^9}, {3.609579639460371*^9, 3.60957963954193*^9}, {
  3.609647454492362*^9, 3.6096474698441753`*^9}, {3.644652595412475*^9, 
  3.644652600659865*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "\[Rule]", "7.479252575358022`"}], ",", 
   RowBox[{"2", "\[Rule]", "6.399409360532621`"}], ",", 
   RowBox[{"3", "\[Rule]", "5.665917874368521`"}], ",", 
   RowBox[{"4", "\[Rule]", "5.123104944326739`"}], ",", 
   RowBox[{"5", "\[Rule]", "4.695401920363092`"}], ",", 
   RowBox[{"6", "\[Rule]", "4.343788221912529`"}], ",", 
   RowBox[{"7", "\[Rule]", "4.048648310733302`"}], ",", 
   RowBox[{"8", "\[Rule]", "3.788140099593134`"}], ",", 
   RowBox[{"10", "\[Rule]", "3.358748352585658`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6449003012079697`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["AR2  with D2 - Delay 1", "Subsubsection",
 CellChangeTimes->{{3.586717630378311*^9, 3.5867176347382517`*^9}, {
   3.609230767783163*^9, 3.609230775407484*^9}, {3.6444030872013083`*^9, 
   3.644403092640543*^9}, 3.644403125440316*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"plots", ",", "tiseandat"}], "}"}], "=", 
   RowBox[{"TiseanD2PlotsAndData", "[", 
    RowBox[{"\"\<tisean/lorenz/ar2-lorenz_d1.d2\>\"", ",", "1", ",", 
     RowBox[{"Thresh", "\[Rule]", "2"}], ",", 
     RowBox[{"EpsRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.001", ",", "Infinity"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"All", ",", "All"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", "plots", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ar2plotsd1", "=", "plots"}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdx00og3EAx/FNoiQ7EBrG5u3CRLYRDv/DyoELdvLS2lheDtNWS9Sa5W2G
g5dRs5aDl6GsFQ1LuQlLMVqS123yzEVtDhvx/J7Dt09fvkLd0pPAYrFy6OB0
t3tpy04RjalrFT59CpxQt1/E6PUvfsGDhpIIdCSXRwtdFLGYFIz1e7Yf6MhQ
/8KpVl9ZwSFFjH8dQjj0clsNz93DYhi1n/iqaOWXlXewdtDLltJKuPmJsG1Z
pmukfT7yMFr4sWUlrVBLVqDRkTLz5qPIo6Z5Fi6kqhYgx3FjgTXjmVY4sO1c
g9PvdZvQYIozDp/eXsMvXtIN9Isizx+vFBFc3b/CbI/NzQlQZHNe4oFzqtgF
PFM6ryBX2lQcwG/IGM0jWX0/nxSxz4sZvx+IoZcXJpNT+lFIya3BNkGY6IOh
EJxoz2OXlIbJeZo5AcYrykRwN/1YDBW9WhkUteZ2Qpdspx+yxtYH4D9D9eun

  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"TiseanExportDir", "<>", "\"\<ar2lorenz-d1_all.pdf\>\""}], ",", 
    "%", ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, {
   3.5867955122203817`*^9, 3.586795530814694*^9}, 3.586798974716194*^9, 
   3.586851598468758*^9, 3.6086279602573223`*^9, {3.608628026117977*^9, 
   3.608628042157577*^9}, {3.6398210612819853`*^9, 3.639821061514632*^9}, {
   3.6398213854716377`*^9, 3.639821390472495*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"value", "=", 
   RowBox[{"ar2Pi1d", "[", "1", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ar2plotsd1", "[", 
    RowBox[{"[", "3", "]"}], "]"}], ",", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{"value", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.001", ",", "50"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "Dashed", ",", 
        RowBox[{"AbsoluteThickness", "[", ".5", "]"}]}], "]"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Const", "-", 
       RowBox[{"Dim", " ", 
        RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Dim", "\[Rule]", "0"}], ",", 
        RowBox[{
         RowBox[{"Const", "\[Rule]", "1"}], "/.", " ", "ar2Pi2dValues"}]}], 
       "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.001", ",", "50"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "Dashed", ",", 
        RowBox[{"AbsoluteThickness", "[", ".5", "]"}]}], "]"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "9"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Log", "[", "0.001", "]"}], ",", "0"}], "}"}]}], ",", " ", 
   RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"CalcImgSize", "[", "0.4", "]"}]}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"StyleLabel", "[", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"ar2Pi1d", "[", "1", "]"}], ",", "0.01"}], "]"}], "]"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "5", "]"}], ",", "3.5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"StyleLabel", "[", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"1", "/.", " ", "ar2Pi2dValues"}], ",", "0.01"}], "]"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "1", "]"}], ",", "8"}], "}"}]}], "]"}]}], 
     "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwlyl9IU2EAhvGjeGFpGmUapeZcmAUWx6imkPPIjAplJTMIlWzaNFps/sFj
Ey0YNcmEZTSFClFKTRNxRTEsBWflWLYcXkzIEW0OObrVxIE2iL736+Lhd/OI
lJqSa5EMwxwmQc9Amn3NLHD5rb88sPKdOATl6SOMn8h8uhEDjzmO7oC1Xfuk
sGhGT+03VL2H5tiCKTj5iBcHiDqjLgcuJLNS6LrZz8GvWz8K4aQtfA4eWOTl
0FfRq4Avyzor4PyU/ypsv6NUwRdf1Gp42tLHQ7XM1Ex/cfT3EFF17wQ17vI2
XZpF4AaSf96G5RPGB3CvNvgYruT2NrDExIwZHpZror7JiEe8Iio7qAnBhK5p
aqDJFltIDM9lJUAz2zJ4hjgseTYKr7wxNJ8l+hxPqNaIzbtQMldtgG0dy6Ow
4KCfut5jew3/dK5QN9JdbCVR4X5VCpma1nHPgsANKXc5YGpS1BIsyze5oUJv
/xjvFbiscPssTM2TOqGqz+qDssXd8Rbi0+B4Esx06/bDREGbApXdxS1eouvS
RWpmz7xomXi97aEYGteKT8r3rHLOjf9udnzQXyAG3jqpp/4ez804tMo1ptTn
Qe2SrApm8+epkfYiA6ztrqMODcc9h7/v68foH7g1Td3OW6HEHPwMq3eaZuE/
lTpmUg==
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "\"\<ar2lorenz-delay1_excess_entropy.pdf\>\""}], 
    ",", "%", ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, {
   3.5867955122203817`*^9, 3.586795530814694*^9}, 3.586798974716194*^9, 
   3.586851598468758*^9, 3.6086279602573223`*^9, {3.6092311863500423`*^9, 
   3.609231187614025*^9}, {3.60966644363765*^9, 3.609666446213633*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"TiseanExportDir", "<>", "\"\<ar2lorenz-delay1_D2.pdf\>\""}], ",", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"ar2plotsd1", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"CalcImgSize", "[", "0.4", "]"}]}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795128060131*^9, 3.586795215860057*^9}, {
   3.586795253998082*^9, 3.586795265576254*^9}, {3.5867953611879663`*^9, 
   3.586795376185499*^9}, {3.586795453630591*^9, 3.586795456727901*^9}, {
   3.586795519012847*^9, 3.5867955275259666`*^9}, 3.586798976997191*^9, {
   3.5868026399322243`*^9, 3.586802640306525*^9}, 3.586802763162565*^9, {
   3.586803058321253*^9, 3.5868030585607147`*^9}, 3.58685159787893*^9, 
   3.608627961279234*^9, {3.609665093453923*^9, 3.609665095616036*^9}, {
   3.609665796183216*^9, 3.609665796359844*^9}, {3.609666252686247*^9, 
   3.609666252753574*^9}, {3.609666509830871*^9, 3.609666509958551*^9}, {
   3.644404195204688*^9, 3.644404239943989*^9}, {3.6444045156545362`*^9, 
   3.6444045157811623`*^9}, {3.644404947414344*^9, 3.6444049534770184`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"TiseanExportDir", "<>", "\"\<ar2lorenz-delay1_H2.pdf\>\""}], ",", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"ar2plotsd1", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"CalcImgSize", "[", "0.4", "]"}]}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795345399597*^9, 3.586795384612039*^9}, {
   3.5867954677341013`*^9, 3.5867954892993717`*^9}, {3.586795523141646*^9, 
   3.586795524508082*^9}, 3.586798977924275*^9, {3.586802646084165*^9, 
   3.586802646541255*^9}, 3.58680276399413*^9, {3.586803061185233*^9, 
   3.586803061584869*^9}, 3.586851596383501*^9, 3.6086279622873507`*^9, 
   3.609665101055469*^9, {3.609665868933826*^9, 3.609665872191868*^9}, {
   3.609666255023828*^9, 3.6096662550896387`*^9}, {3.6096665128330727`*^9, 
   3.609666512903225*^9}, {3.644404200698036*^9, 3.6444042013818293`*^9}, {
   3.6444042462824097`*^9, 3.644404256867886*^9}, {3.644404519050585*^9, 
   3.644404534228657*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EEdecompPlot", ",", "EEdecompData", ",", "aux"}], "}"}], "=", 
   RowBox[{"DecomposeAndPlotExcessEntropy", "[", 
    RowBox[{"dat", ",", "fits", ",", 
     RowBox[{"DeltaHFlatThreshold", "\[Rule]", "0.1"}], ",", " ", 
     RowBox[{"DeterminismThreshold", "\[Rule]", "0.5"}], ",", 
     RowBox[{"RemoveNegative", "\[Rule]", "True"}], ",", 
     RowBox[{"ShowNegative", "\[Rule]", "True"}], ",", "  ", 
     RowBox[{"ReplaceEndByFits", "\[Rule]", "True"}], ",", 
     RowBox[{"YPlotRangeMax", "\[Rule]", "12"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "DecomposePlotSize"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "EEdecompPlot"}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643622610908888*^9, 
   3.64362261495156*^9}, {3.643623783853754*^9, 3.643623788300712*^9}, {
   3.643623909549432*^9, 3.643623910171139*^9}, {3.6436239766064997`*^9, 
   3.643623978570938*^9}, {3.643624764589926*^9, 3.643624805067541*^9}, {
   3.643740452195434*^9, 3.643740460780665*^9}, {3.643948280383325*^9, 
   3.643948280493759*^9}, {3.6439498408332243`*^9, 3.643949840927866*^9}, {
   3.643949999073045*^9, 3.64395007241787*^9}, {3.643950455938671*^9, 
   3.643950456231126*^9}, 3.64395224385877*^9, {3.64396935237297*^9, 
   3.643969353520089*^9}, {3.644217227919524*^9, 3.644217228415292*^9}, {
   3.644217331663966*^9, 3.6442173477743053`*^9}, {3.644217688289295*^9, 
   3.644217691360957*^9}, {3.644217763250058*^9, 3.644217763696789*^9}, {
   3.644406464952148*^9, 3.644406465447283*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", 
     "\"\<ar2lorenz-delay1_excess_entropy_decomp.pdf\>\""}], ",", "%", ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, {
   3.5867955122203817`*^9, 3.586795530814694*^9}, 3.586798974716194*^9, 
   3.586851598468758*^9, 3.6086279602573223`*^9, {3.608628026117977*^9, 
   3.608628042157577*^9}, {3.6398210612819853`*^9, 3.639821061514632*^9}, {
   3.6398213854716377`*^9, 3.639821390472495*^9}, {3.6418783814061203`*^9, 
   3.641878388492237*^9}, {3.6444063190502863`*^9, 3.644406321961478*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["AR2  with D2 - Delay 10", "Subsubsection",
 CellChangeTimes->{{3.586717630378311*^9, 3.5867176347382517`*^9}, {
  3.609230767783163*^9, 3.609230775407484*^9}, {3.6444030872013083`*^9, 
  3.644403108688424*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"plots", ",", "tiseandat"}], "}"}], "=", 
   RowBox[{"TiseanD2PlotsAndData", "[", 
    RowBox[{"\"\<tisean/lorenz/ar2-lorenz_d10.d2\>\"", ",", "1", ",", 
     RowBox[{"Thresh", "\[Rule]", "2"}], ",", 
     RowBox[{"EpsRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.01", ",", "Infinity"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"All", ",", "All"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", "plots", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ar2plotsd10", "=", "plots"}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwdx00og3EAx/FtiZI4EFoMw1y8RDaEw/+gHLiYuRitYY0dvKwkSsjbvB2M
TY2Wg5ehrAnDUm7CWjGSxLxs8sxltUnbxPN7Dt8+fTPknXVtHBaLlUIHp1qt
i5tGivRompfh8xffDHv3sxjt9ws+eFAp8ENTVF4g00IRnUbOWLG7EoamhM5f
OCl25qYfUWTkT5oP+15ui+GFtV8EA8ZTZxGt7KrwDpZ12dlVtCXctAhYr5f0
VtO6jm2MuoygvoU2X02W4IgpeubNSZGnntpZqI1RaGGc6UYHS8cSDVC1ZV6F
Ux/lG3BIE2LsP7u9hj5e5A28F/pdn68U4TseXmGybcUa906RjfkSG5xTBC/h
eYvZAblVNdnv+HUJ4/RAUnv4iyLGeRHj9yMZUvK8ZGJycBhSMoO7nu8lg26P
B443prIFOV5yETvNgaGCXCHciT8RQblSLYFCcUoTtEi2OyBrdE0FXdK9bvhz
2KCG/0cN83I=
  "]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"value", "=", 
   RowBox[{"ar2Pi1d", "[", "10", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ar2plotsd10", "[", 
    RowBox[{"[", "3", "]"}], "]"}], ",", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{"value", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.01", ",", "50"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "Dashed", ",", 
        RowBox[{"AbsoluteThickness", "[", ".5", "]"}]}], "]"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"LogLinearPlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Const", "-", 
       RowBox[{"Dim", " ", 
        RowBox[{"Log", "[", "x", "]"}]}]}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Dim", "\[Rule]", "0"}], ",", 
        RowBox[{
         RowBox[{"Const", "\[Rule]", "10"}], "/.", " ", "ar2Pi2dValues"}]}], 
       "}"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0.01", ",", "50"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "Dashed", ",", 
        RowBox[{"AbsoluteThickness", "[", ".5", "]"}]}], "]"}]}]}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"All", ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"CalcImgSize", "[", ".4", "]"}]}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"StyleLabel", "[", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"ar2Pi1d", "[", "10", "]"}], ",", "0.01"}], "]"}], "]"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "20", "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"StyleLabel", "[", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"10", "/.", " ", "ar2Pi2dValues"}], ",", "0.01"}], "]"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "10", "]"}], ",", "3.8"}], "}"}]}], "]"}]}], 
     "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJwl0V1IU3EABfBb7MHKDzA/Ks10S4uBxiUMTWy7to2KwSLWg+hKly2h5QSl
ydIWDdswxWEkhoUppX1JbA5kFRNyRcNsGT5MqhFtDrk6w3JhTaT/+fdw+HHg
vJ08reHU+c0Mw4hJYGg4d2rJyXPSth8hWDMuikGV8CkTJTJvL26DB/xFSbC+
Z5cEKr0W6pD13CvoTKyYgJ5bRtEy0WQ3lcLZbFYCA5eGOPjhzzc59Pjix+Ge
OaMKRjQDavi4qksDZyaitdB2TauDD9/r9bDcPWiEellvC92LEr7EiLobxdTk
yi2mXDfPDWd/N8Pql/ZOuKNx5TZcODzQxBIzCrxGWG0QfJQRxeE8KjtiiMG0
ntfU5cu+RDkxPl2YBp3slREF8UnJvVF41mVtOUaM+Pupk5vW2mHJdJ0VXr05
Pwor9kapP/t8Y/Bv1wJ1VRhga4jq4LPTkLnQ5gjN8twjbaof5mQKvsIqaW8Q
qi1Tb1LCPFcYt72DOUckn6BucDICZXPbU9zEuyuOTLg/aMqCGXzjbqgtSxXC
fl1SPuxzusWw7uDnYqio7daEw/i//Ax02e+3wo0TO81Q2q46pEpf5Lyd//3d
zVtOEgPRdWp9E2su2LfINWTlX4cdG3IbFDSXdkDRc6UDbv2lGINFq0fH4dqd
By+g0jXjoV2xTv0H6VZw7A==
  "]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", "\"\<ar2lorenz-delay10_excess_entropy.pdf\>\""}],
     ",", "%", ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, {
   3.5867955122203817`*^9, 3.586795530814694*^9}, 3.586798974716194*^9, 
   3.586851598468758*^9, 3.6086279602573223`*^9, {3.6092311863500423`*^9, 
   3.609231187614025*^9}, 3.609577925215692*^9, {3.6096664326612053`*^9, 
   3.6096664345241013`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"TiseanExportDir", "<>", "\"\<ar2lorenz-delay10_D2.pdf\>\""}], 
    ",", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"ar2plotsd10", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"CalcImgSize", "[", ".4", "]"}]}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795128060131*^9, 3.586795215860057*^9}, {
   3.586795253998082*^9, 3.586795265576254*^9}, {3.5867953611879663`*^9, 
   3.586795376185499*^9}, {3.586795453630591*^9, 3.586795456727901*^9}, {
   3.586795519012847*^9, 3.5867955275259666`*^9}, 3.586798976997191*^9, {
   3.5868026399322243`*^9, 3.586802640306525*^9}, 3.586802763162565*^9, {
   3.586803058321253*^9, 3.5868030585607147`*^9}, 3.58685159787893*^9, 
   3.608627961279234*^9, {3.609666068477944*^9, 3.6096660874695673`*^9}, {
   3.609666335935368*^9, 3.6096663369662237`*^9}, {3.644404834023631*^9, 
   3.644404847832389*^9}, {3.644404926746958*^9, 3.644404931385886*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"TiseanExportDir", "<>", "\"\<ar2lorenz-delay10_H2.pdf\>\""}], 
    ",", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"ar2plotsd10", "[", 
       RowBox[{"[", "2", "]"}], "]"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"CalcImgSize", "[", ".4", "]"}]}], ",", 
      RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"All", ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}]}], "]"}], ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795345399597*^9, 3.586795384612039*^9}, {
   3.5867954677341013`*^9, 3.5867954892993717`*^9}, {3.586795523141646*^9, 
   3.586795524508082*^9}, 3.586798977924275*^9, {3.586802646084165*^9, 
   3.586802646541255*^9}, 3.58680276399413*^9, {3.586803061185233*^9, 
   3.586803061584869*^9}, 3.586851596383501*^9, 3.6086279622873507`*^9, {
   3.609666081264772*^9, 3.6096660900258303`*^9}, {3.60966613639703*^9, 
   3.609666151251759*^9}, {3.609666300487751*^9, 3.6096663070956182`*^9}, {
   3.609666339165745*^9, 3.6096663392512503`*^9}, {3.609666537672645*^9, 
   3.609666537746051*^9}, {3.6444048350036287`*^9, 3.644404867096773*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"dat", ",", "fits", ",", "deltaHplt"}], "}"}], "=", 
   RowBox[{"FitDeltaHs", "[", 
    RowBox[{"plots", ",", "tiseandat", ",", 
     RowBox[{"MinFitLength", "\[Rule]", "10"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.642135845139759*^9, 3.642135866836643*^9}, {
   3.642135913012822*^9, 3.642135915749242*^9}, 3.642136809334855*^9, {
   3.6421368409450502`*^9, 3.642136849011203*^9}, {3.642136890709074*^9, 
   3.6421368916697702`*^9}, 3.642138131525504*^9, {3.642138161628335*^9, 
   3.642138170236669*^9}, {3.642138271979566*^9, 3.642138298996791*^9}, {
   3.642241884759286*^9, 3.642241885635542*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"EEdecompPlot", ",", "EEdecompData", ",", "aux"}], "}"}], "=", 
   RowBox[{"DecomposeAndPlotExcessEntropy", "[", 
    RowBox[{"dat", ",", "fits", ",", 
     RowBox[{"DeltaHFlatThreshold", "\[Rule]", "0.1"}], ",", " ", 
     RowBox[{"DeterminismThreshold", "\[Rule]", "0.5"}], ",", 
     RowBox[{"RemoveNegative", "\[Rule]", "True"}], ",", 
     RowBox[{"ShowNegative", "\[Rule]", "True"}], ",", "  ", 
     RowBox[{"ReplaceEndByFits", "\[Rule]", "True"}], ",", 
     RowBox[{"YPlotRangeMax", "\[Rule]", "8"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "DecomposePlotSize"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "EEdecompPlot"}], "Input",
 CellChangeTimes->{{3.583469145020372*^9, 3.5834693434840393`*^9}, 
   3.583469478245245*^9, {3.5834695884616213`*^9, 3.583469648463127*^9}, {
   3.583469967912057*^9, 3.583470028699263*^9}, 3.583471928215518*^9, {
   3.586758543309404*^9, 3.586758551133951*^9}, {3.5867742959543447`*^9, 
   3.586774391100347*^9}, {3.586853054698658*^9, 3.58685306803086*^9}, {
   3.586854095463923*^9, 3.586854118807068*^9}, {3.598787135551325*^9, 
   3.598787265439172*^9}, {3.5987873028199778`*^9, 3.598787382816834*^9}, {
   3.598788321857828*^9, 3.598788346629444*^9}, {3.598851075916382*^9, 
   3.598851076876425*^9}, {3.598851780980784*^9, 3.598851843188065*^9}, {
   3.598851934988669*^9, 3.598851938448382*^9}, {3.5988519747484503`*^9, 
   3.598852056564706*^9}, {3.598856969072174*^9, 3.598856972093358*^9}, {
   3.598873346319869*^9, 3.5988733463941603`*^9}, {3.613910478812916*^9, 
   3.613910484892894*^9}, {3.634880134732933*^9, 3.63488013962076*^9}, {
   3.634890316922204*^9, 3.634890341673183*^9}, {3.634890590143115*^9, 
   3.634890590401683*^9}, {3.634891147951874*^9, 3.634891309951089*^9}, {
   3.635055516870825*^9, 3.635055531002733*^9}, 3.635056157380192*^9, 
   3.635056233108838*^9, {3.6418756204697533`*^9, 3.6418756241638117`*^9}, {
   3.643441584476272*^9, 3.643441594874309*^9}, {3.643441648812394*^9, 
   3.643441670360653*^9}, {3.643441759867015*^9, 3.643441789223737*^9}, {
   3.643445714057913*^9, 3.643445772652076*^9}, {3.643445853549814*^9, 
   3.643445880335713*^9}, {3.643445967890101*^9, 3.643446012016477*^9}, {
   3.643446057204714*^9, 3.643446073462708*^9}, {3.643446492671504*^9, 
   3.6434464930416117`*^9}, {3.643450801174284*^9, 3.643450819125823*^9}, {
   3.643450953909422*^9, 3.643450959157916*^9}, {3.643451030775723*^9, 
   3.64345103160787*^9}, {3.643451850639728*^9, 3.64345185272735*^9}, {
   3.643452299010375*^9, 3.643452301103547*^9}, {3.643452347238449*^9, 
   3.6434523610301237`*^9}, {3.643452397644548*^9, 3.6434523988664837`*^9}, {
   3.643452438750297*^9, 3.643452455743435*^9}, {3.643622610908888*^9, 
   3.64362261495156*^9}, {3.643623783853754*^9, 3.643623788300712*^9}, {
   3.643623909549432*^9, 3.643623910171139*^9}, {3.6436239766064997`*^9, 
   3.643623978570938*^9}, {3.643624764589926*^9, 3.643624805067541*^9}, {
   3.643740452195434*^9, 3.643740460780665*^9}, {3.643948280383325*^9, 
   3.643948280493759*^9}, {3.6439498408332243`*^9, 3.643949840927866*^9}, {
   3.643949999073045*^9, 3.64395007241787*^9}, {3.643950455938671*^9, 
   3.643950456231126*^9}, 3.64395224385877*^9, {3.64396935237297*^9, 
   3.643969353520089*^9}, {3.644217227919524*^9, 3.644217228415292*^9}, {
   3.644217331663966*^9, 3.6442173477743053`*^9}, {3.644217688289295*^9, 
   3.644217691360957*^9}, {3.644217763250058*^9, 3.644217763696789*^9}, {
   3.644406398414072*^9, 3.6444064228089*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{
    "TiseanExportDir", "<>", 
     "\"\<ar2lorenz-delay10_excess_entropy_decomp.pdf\>\""}], ",", "%", ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795028050496*^9, 3.5867950969499607`*^9}, {
   3.5867955122203817`*^9, 3.586795530814694*^9}, 3.586798974716194*^9, 
   3.586851598468758*^9, 3.6086279602573223`*^9, {3.608628026117977*^9, 
   3.608628042157577*^9}, {3.6398210612819853`*^9, 3.639821061514632*^9}, {
   3.6398213854716377`*^9, 3.639821390472495*^9}, {3.6418783814061203`*^9, 
   3.641878388492237*^9}, {3.6444063190502863`*^9, 3.644406321961478*^9}, 
   3.644406427931624*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["KSG", "Subsection",
 CellChangeTimes->{{3.644651763336565*^9, 3.644651764703438*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fs", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<MIxnyn/lorenz/ar2-lorenzk20_d1.pi.grouped\>\"", ",", 
     "\"\<MIxnyn/lorenz/ar2-lorenzk20_d10.pi.grouped\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plsmiar2", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PlotMIScan", "[", 
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"#", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0.001", ",", "Automatic"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}], "&"}],
      ",", 
     RowBox[{"Zip", "[", 
      RowBox[{
       RowBox[{"Map", "[", 
        RowBox[{"Import", ",", "fs"}], "]"}], ",", "fs"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"plsmiar2wn", "=", 
  RowBox[{"Map", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Show", "[", 
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"LogLinearPlot", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0.001", ",", "20"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}], ",", 
       RowBox[{"LogLinearPlot", "[", 
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "3", "]"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "0.001", ",", "20"}], "}"}], ",", 
         RowBox[{"PlotStyle", "\[Rule]", "fittedLineStyle"}]}], "]"}]}], 
      "]"}], "&"}], ",", 
    RowBox[{"Zip3", "[", 
     RowBox[{"plsmiar2", ",", 
      RowBox[{"Map", "[", 
       RowBox[{"ar2Pi1d", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "10"}], "}"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "10"}], "}"}], "/.", "ar2Pi2dValues"}]}], "]"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.5927186163494177`*^9, 3.592718631793311*^9}, {
  3.5927220876209373`*^9, 3.592722099913555*^9}, {3.598857383243517*^9, 
  3.59885738518438*^9}, {3.602227669151984*^9, 3.6022276699678383`*^9}, {
  3.6086338787157927`*^9, 3.6086339168647823`*^9}, {3.6086340553048077`*^9, 
  3.6086340784207287`*^9}, {3.608634250595574*^9, 3.608634362487194*^9}, {
  3.6086343986648083`*^9, 3.608634398747563*^9}, {3.608634470439046*^9, 
  3.608634472473752*^9}, {3.60863450794761*^9, 3.60863451091998*^9}, {
  3.6092304721448727`*^9, 3.60923047492212*^9}, {3.609579527298668*^9, 
  3.609579532496777*^9}, {3.6096668004807262`*^9, 3.609666820556917*^9}, {
  3.610858485012*^9, 3.6108584974437637`*^9}, {3.61163607474653*^9, 
  3.611636076335085*^9}, {3.6139072947793427`*^9, 3.613907295377549*^9}, {
  3.6139094502398977`*^9, 3.6139094503849983`*^9}, {3.6139094899604187`*^9, 
  3.6139095612328672`*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"plsmiar2wn", "[", 
    RowBox[{"[", "1", "]"}], "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "200"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Log", "[", "0.001", "]"}], ",", "Automatic"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "8.5"}], "}"}]}], "}"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"StyleLabel", "[", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"ar2Pi1d", "[", "1", "]"}], ",", "0.01"}], "]"}], "]"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "5", "]"}], ",", "3.5"}], "}"}]}], "]"}], ",", 
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"StyleLabel", "[", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"1", "/.", " ", "ar2Pi2dValues"}], ",", "0.01"}], "]"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "5", "]"}], ",", "8"}], "}"}]}], "]"}]}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.609667961462871*^9, 3.609667996383623*^9}, {
  3.613909535363234*^9, 3.613909535675919*^9}, {3.613909577588554*^9, 
  3.613909611604013*^9}, {3.613909652165866*^9, 3.613909666261044*^9}, {
  3.613909696278157*^9, 3.613909697148788*^9}, {3.635050930524122*^9, 
  3.6350509305249043`*^9}, {3.6350536060705643`*^9, 3.635053606639256*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"MIExportDir", "<>", "\"\<ar2lorenz-delay1_MI.pdf\>\""}], ",", 
    "%", ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795128060131*^9, 3.586795215860057*^9}, {
   3.586795253998082*^9, 3.586795265576254*^9}, {3.5867953611879663`*^9, 
   3.586795376185499*^9}, {3.586795453630591*^9, 3.586795456727901*^9}, 
   3.5867988273990602`*^9, 3.586802841066564*^9, {3.5868029873858624`*^9, 
   3.586802988025272*^9}, {3.601277419007408*^9, 3.601277439755075*^9}, 
   3.6086279131889553`*^9, {3.608630670669549*^9, 3.608630670765551*^9}, {
   3.6088745148284082`*^9, 3.608874516875374*^9}, {3.609580090551282*^9, 
   3.609580106735796*^9}, {3.609580162727285*^9, 3.609580187556796*^9}, {
   3.60966763774148*^9, 3.609667693549286*^9}, {3.609667726577599*^9, 
   3.609667728744236*^9}, {3.6096677644784737`*^9, 3.6096677778552847`*^9}, {
   3.609667885494207*^9, 3.609667896355616*^9}, {3.6096680167679853`*^9, 
   3.609668028236032*^9}}],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"plsmiar2wn", "[", 
    RowBox[{"[", "2", "]"}], "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "200"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "None"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Log", "[", "0.001", "]"}], ",", "Automatic"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
   
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"StyleLabel", "[", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"ar2Pi1d", "[", "10", "]"}], ",", "0.01"}], "]"}], "]"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", ".5", "]"}], ",", "1"}], "}"}]}], "]"}], ",", 
      RowBox[{"Inset", "[", 
       RowBox[{
        RowBox[{"StyleLabel", "[", 
         RowBox[{"Round", "[", 
          RowBox[{
           RowBox[{"10", "/.", " ", "ar2Pi2dValues"}], ",", "0.01"}], "]"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Log", "[", "3", "]"}], ",", "3.7"}], "}"}]}], "]"}]}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.609667961462871*^9, 3.609667996383623*^9}, {
   3.609668043524625*^9, 3.609668137708016*^9}, {3.6139096355500317`*^9, 
   3.613909641860833*^9}, 3.613909704772942*^9, {3.6350509305264072`*^9, 
   3.635050930527185*^9}, {3.635053607182019*^9, 3.6350536078054256`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"MIExportDir", "<>", "\"\<ar2lorenz-delay10_MI.pdf\>\""}], ",", 
    "%", ",", 
    RowBox[{"Background", "\[Rule]", "None"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.586795128060131*^9, 3.586795215860057*^9}, {
   3.586795253998082*^9, 3.586795265576254*^9}, {3.5867953611879663`*^9, 
   3.586795376185499*^9}, {3.586795453630591*^9, 3.586795456727901*^9}, 
   3.5867988273990602`*^9, 3.586802841066564*^9, {3.5868029873858624`*^9, 
   3.586802988025272*^9}, {3.601277419007408*^9, 3.601277439755075*^9}, 
   3.6086279131889553`*^9, {3.608630670669549*^9, 3.608630670765551*^9}, {
   3.6088745148284082`*^9, 3.608874516875374*^9}, {3.609580090551282*^9, 
   3.609580106735796*^9}, {3.609580162727285*^9, 3.609580187556796*^9}, {
   3.60966763774148*^9, 3.609667693549286*^9}, {3.609667726577599*^9, 
   3.609667728744236*^9}, {3.6096677644784737`*^9, 3.6096677778552847`*^9}, {
   3.609667885494207*^9, 3.609667896355616*^9}, {3.6096680167679853`*^9, 
   3.609668028236032*^9}, 3.609668146094058*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1264, 893},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 394, 7, 41, "Input",
 InitializationCell->True],
Cell[976, 31, 153, 2, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1166, 38, 318, 5, 41, "Input",
 InitializationCell->True],
Cell[1487, 45, 505, 10, 21, "Message"],
Cell[1995, 57, 511, 10, 21, "Message"],
Cell[2509, 69, 520, 10, 21, "Message"],
Cell[3032, 81, 560, 11, 21, "Message"],
Cell[3595, 94, 651, 12, 21, "Message"],
Cell[4249, 108, 612, 11, 21, "Message"],
Cell[4864, 121, 1436, 22, 56, "Message"],
Cell[6303, 145, 553, 11, 21, "Message"],
Cell[6859, 158, 502, 10, 21, "Message"],
Cell[7364, 170, 502, 10, 21, "Message"],
Cell[7869, 182, 506, 10, 21, "Message"],
Cell[8378, 194, 554, 11, 21, "Message"]
}, Open  ]],
Cell[8947, 208, 309, 6, 41, "Input",
 InitializationCell->True],
Cell[9259, 216, 262, 5, 41, "Input",
 InitializationCell->True],
Cell[9524, 223, 130, 2, 41, "Input"],
Cell[9657, 227, 217, 5, 41, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[9899, 236, 91, 1, 75, "Section"],
Cell[9993, 239, 392, 9, 41, "Input"],
Cell[CellGroupData[{
Cell[10410, 252, 198, 3, 36, "Subsection"],
Cell[10611, 257, 1870, 35, 82, "Input"],
Cell[12484, 294, 6498, 145, 202, "Input"],
Cell[18985, 441, 3144, 82, 122, "Input"],
Cell[22132, 525, 2322, 43, 62, "Input"],
Cell[24457, 570, 1702, 37, 62, "Input"],
Cell[26162, 609, 678, 13, 41, "Input"],
Cell[26843, 624, 3929, 58, 82, "Input"],
Cell[30775, 684, 646, 13, 65, "Input"],
Cell[31424, 699, 4814, 98, 197, "Input"],
Cell[36241, 799, 2266, 49, 109, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38544, 853, 273, 3, 39, "Subsection"],
Cell[CellGroupData[{
Cell[38842, 860, 98, 1, 30, "Subsubsection"],
Cell[38943, 863, 1857, 34, 87, "Input"],
Cell[40803, 899, 8704, 206, 307, "Input"],
Cell[49510, 1107, 1404, 29, 65, "Input"],
Cell[50917, 1138, 678, 13, 42, "Input"],
Cell[51598, 1153, 3838, 57, 109, "Input"],
Cell[55439, 1212, 5272, 107, 175, "Input"],
Cell[60714, 1321, 2362, 50, 109, "Input"],
Cell[63079, 1373, 105, 1, 33, "Text"],
Cell[63187, 1376, 885, 16, 42, "Input"],
Cell[64075, 1394, 1416, 36, 109, "Input"],
Cell[65494, 1432, 355, 8, 42, "Input"],
Cell[65852, 1442, 5211, 108, 200, "Input"],
Cell[71066, 1552, 398, 9, 42, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71501, 1566, 96, 1, 30, "Subsubsection"],
Cell[71600, 1569, 2114, 38, 87, "Input"],
Cell[73717, 1609, 7397, 171, 285, "Input"],
Cell[81117, 1782, 1402, 29, 65, "Input"],
Cell[82522, 1813, 678, 13, 42, "Input"],
Cell[83203, 1828, 3501, 52, 109, "Input"],
Cell[86707, 1882, 5073, 101, 175, "Input"],
Cell[91783, 1985, 1347, 23, 42, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93167, 2013, 148, 2, 30, "Subsubsection"],
Cell[93318, 2017, 1996, 36, 87, "Input"],
Cell[95317, 2055, 7696, 178, 285, "Input"],
Cell[103016, 2235, 1402, 29, 65, "Input"],
Cell[104421, 2266, 678, 13, 42, "Input"],
Cell[105102, 2281, 3843, 58, 109, "Input"],
Cell[108948, 2341, 5268, 103, 175, "Input"],
Cell[114219, 2446, 2266, 49, 109, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116522, 2500, 156, 2, 30, "Subsubsection"],
Cell[116681, 2504, 2164, 38, 87, "Input"],
Cell[118848, 2544, 7441, 171, 285, "Input"],
Cell[126292, 2717, 1402, 29, 65, "Input"],
Cell[127697, 2748, 678, 13, 42, "Input"],
Cell[128378, 2763, 3501, 52, 109, "Input"],
Cell[131882, 2817, 5149, 102, 175, "Input"],
Cell[137034, 2921, 2264, 49, 109, "Input"],
Cell[139301, 2972, 212, 4, 42, "Input"],
Cell[139516, 2978, 372, 8, 42, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[139937, 2992, 262, 3, 39, "Subsection"],
Cell[140202, 2997, 1313, 30, 65, "Input"],
Cell[141518, 3029, 3130, 61, 109, "Input"],
Cell[144651, 3092, 900, 15, 42, "Input"],
Cell[145554, 3109, 884, 15, 42, "Input"],
Cell[146441, 3126, 4115, 102, 197, "Input"],
Cell[150559, 3230, 863, 15, 42, "Input"],
Cell[151425, 3247, 450, 10, 65, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[151924, 3263, 92, 1, 62, "Section"],
Cell[152019, 3266, 1424, 26, 65, "Input"],
Cell[CellGroupData[{
Cell[153468, 3296, 152, 2, 39, "Subsection"],
Cell[153623, 3300, 2395, 42, 87, "Input"],
Cell[156021, 3344, 4439, 96, 197, "Input"],
Cell[160463, 3442, 1304, 28, 65, "Input"],
Cell[161770, 3472, 991, 18, 42, "Input"],
Cell[162764, 3492, 3361, 52, 109, "Input"],
Cell[166128, 3546, 4703, 96, 175, "Input"],
Cell[170834, 3644, 2266, 49, 109, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[173137, 3698, 196, 3, 39, "Subsection"],
Cell[173336, 3703, 1227, 29, 87, "Input"],
Cell[174566, 3734, 4893, 109, 219, "Input"],
Cell[179462, 3845, 1302, 28, 65, "Input"],
Cell[180767, 3875, 899, 16, 42, "Input"],
Cell[181669, 3893, 3247, 49, 109, "Input"],
Cell[184919, 3944, 4758, 100, 175, "Input"],
Cell[189680, 4046, 2264, 49, 109, "Input"],
Cell[191947, 4097, 448, 10, 65, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192432, 4112, 93, 1, 39, "Subsection"],
Cell[192528, 4115, 325, 8, 65, "Input"],
Cell[192856, 4125, 622, 18, 42, "Input"],
Cell[193481, 4145, 2558, 57, 87, "Input"],
Cell[196042, 4204, 738, 13, 42, "Input"],
Cell[196783, 4219, 3865, 94, 219, "Input"],
Cell[200651, 4315, 812, 14, 42, "Input"],
Cell[201466, 4331, 405, 9, 65, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[201920, 4346, 140, 2, 62, "Section"],
Cell[202063, 4350, 305, 4, 33, "Text"],
Cell[202371, 4356, 1443, 23, 65, "Input"],
Cell[CellGroupData[{
Cell[203839, 4383, 91, 1, 39, "Subsection"],
Cell[203933, 4386, 1270, 29, 87, "Input"],
Cell[205206, 4417, 7461, 188, 157, "Input"],
Cell[212670, 4607, 5255, 112, 263, "Input"],
Cell[217928, 4721, 1302, 28, 65, "Input"],
Cell[219233, 4751, 980, 17, 42, "Input"],
Cell[220216, 4770, 3155, 47, 109, "Input"],
Cell[223374, 4819, 5404, 114, 197, "Input"],
Cell[228781, 4935, 89, 1, 65, "Input"],
Cell[228873, 4938, 2264, 49, 109, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[231174, 4992, 140, 2, 39, "Subsection"],
Cell[231317, 4996, 1284, 29, 87, "Input"],
Cell[232604, 5027, 4641, 97, 219, "Input"],
Cell[237248, 5126, 1306, 28, 65, "Input"],
Cell[238557, 5156, 978, 17, 42, "Input"],
Cell[239538, 5175, 3127, 47, 109, "Input"],
Cell[242668, 5224, 4714, 96, 175, "Input"],
Cell[247385, 5322, 2263, 49, 109, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[249685, 5376, 189, 3, 39, "Subsection"],
Cell[249877, 5381, 1281, 29, 87, "Input"],
Cell[251161, 5412, 4641, 97, 219, "Input"],
Cell[255805, 5511, 1301, 28, 65, "Input"],
Cell[257109, 5541, 978, 17, 42, "Input"],
Cell[258090, 5560, 2601, 40, 109, "Input"],
Cell[260694, 5602, 4936, 103, 175, "Input"],
Cell[265633, 5707, 2264, 49, 109, "Input"],
Cell[267900, 5758, 397, 9, 65, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[268334, 5772, 91, 1, 39, "Subsection"],
Cell[268428, 5775, 97, 1, 33, "Text"],
Cell[268528, 5778, 2071, 40, 65, "Input"],
Cell[270602, 5820, 284, 7, 42, "Input"],
Cell[270889, 5829, 9429, 230, 439, "Input"],
Cell[280321, 6061, 1397, 28, 65, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[281767, 6095, 106, 1, 62, "Section"],
Cell[CellGroupData[{
Cell[281898, 6100, 181, 2, 27, "Subsubsection"],
Cell[282082, 6104, 731, 14, 65, "Input",
 InitializationCell->True],
Cell[282816, 6120, 164, 2, 33, "Text"],
Cell[282983, 6124, 658, 18, 54, "Text"],
Cell[283644, 6144, 7158, 198, 500, "Text"],
Cell[CellGroupData[{
Cell[290827, 6346, 920, 20, 47, "Input"],
Cell[291750, 6368, 548, 9, 42, "Output"]
}, Open  ]],
Cell[292313, 6380, 137, 4, 42, "Input"],
Cell[292453, 6386, 160, 2, 33, "Text"],
Cell[292616, 6390, 7457, 216, 409, "Text"],
Cell[300076, 6608, 2388, 64, 184, "Input"],
Cell[302467, 6674, 1350, 40, 52, "Text"],
Cell[CellGroupData[{
Cell[303842, 6718, 695, 17, 47, "Input"],
Cell[304540, 6737, 281, 6, 42, "Output"]
}, Open  ]],
Cell[304836, 6746, 184, 5, 55, "Text"],
Cell[CellGroupData[{
Cell[305045, 6755, 883, 24, 68, "Input"],
Cell[305931, 6781, 888, 25, 66, "Output"],
Cell[306822, 6808, 866, 25, 66, "Output"]
}, Open  ]],
Cell[307703, 6836, 680, 18, 47, "Input"],
Cell[308386, 6856, 127, 2, 33, "Text"],
Cell[CellGroupData[{
Cell[308538, 6862, 572, 17, 87, "Input",
 InitializationCell->True],
Cell[309113, 6881, 73, 1, 70, "Output"],
Cell[309189, 6884, 73, 1, 70, "Output"]
}, Open  ]],
Cell[309277, 6888, 953, 27, 64, "Text"],
Cell[310233, 6917, 730, 20, 42, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[310988, 6941, 621, 14, 42, "Input",
 InitializationCell->True],
Cell[311612, 6957, 2764, 95, 70, "Output"]
}, Open  ]],
Cell[314391, 7055, 1060, 26, 47, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[315476, 7085, 375, 11, 42, "Input"],
Cell[315854, 7098, 2404, 53, 87, "Output"]
}, Open  ]],
Cell[318273, 7154, 208, 5, 33, "Text"],
Cell[CellGroupData[{
Cell[318506, 7163, 1821, 41, 87, "Input"],
Cell[320330, 7206, 2849, 91, 156, "Output"],
Cell[323182, 7299, 2822, 90, 156, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[326041, 7394, 1749, 42, 118, "Input"],
Cell[327793, 7438, 357, 7, 42, "Output"],
Cell[328153, 7447, 666, 20, 67, "Output"],
Cell[328822, 7469, 595, 17, 67, "Output"],
Cell[329420, 7488, 833, 26, 69, "Output"],
Cell[330256, 7516, 807, 25, 69, "Output"],
Cell[331066, 7543, 567, 16, 67, "Output"],
Cell[331636, 7561, 638, 19, 67, "Output"],
Cell[332277, 7582, 327, 6, 42, "Output"]
}, Open  ]],
Cell[332619, 7591, 3415, 79, 160, "Input"],
Cell[336037, 7672, 411, 13, 42, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[336485, 7690, 97, 1, 21, "Subsubsection"],
Cell[CellGroupData[{
Cell[336607, 7695, 1435, 34, 62, "Input",
 InitializationCell->True],
Cell[338045, 7731, 611, 12, 40, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[338705, 7749, 239, 3, 30, "Subsubsection"],
Cell[338947, 7754, 1196, 28, 109, "Input"],
Cell[340146, 7784, 568, 11, 42, "Input"],
Cell[340717, 7797, 3214, 85, 175, "Input"],
Cell[343934, 7884, 535, 11, 42, "Input"],
Cell[344472, 7897, 1469, 28, 65, "Input"],
Cell[345944, 7927, 1354, 27, 65, "Input"],
Cell[347301, 7956, 678, 13, 42, "Input"],
Cell[347982, 7971, 3549, 53, 109, "Input"],
Cell[351534, 8026, 696, 13, 42, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[352267, 8044, 216, 3, 30, "Subsubsection"],
Cell[352486, 8049, 1209, 28, 109, "Input"],
Cell[353698, 8079, 3090, 81, 175, "Input"],
Cell[356791, 8162, 567, 12, 42, "Input"],
Cell[357361, 8176, 1327, 27, 65, "Input"],
Cell[358691, 8205, 1333, 27, 65, "Input"],
Cell[360027, 8234, 678, 13, 42, "Input"],
Cell[360708, 8249, 3546, 53, 109, "Input"],
Cell[364257, 8304, 723, 14, 42, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[365017, 8323, 91, 1, 39, "Subsection"],
Cell[365111, 8326, 3038, 77, 153, "Input"],
Cell[368152, 8405, 1653, 44, 87, "Input"],
Cell[369808, 8451, 1060, 18, 42, "Input"],
Cell[370871, 8471, 1581, 43, 87, "Input"],
Cell[372455, 8516, 1083, 18, 42, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)