shipit.nb

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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    220214,       5277]
NotebookOptionsPosition[    196792,       4982]
NotebookOutlinePosition[    197334,       5001]
CellTagsIndexPosition[    197291,       4998]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"user", "=", "\"\<artemvorozhtsov\>\""}], ";"}]], "Input",Expression\
UUID->"397266cd-0831-451b-9d1f-bac49e87cbec"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"projectPath", " ", "=", " ", 
   RowBox[{
   "\"\</Users/\>\"", " ", "<>", "user", "<>", "\"\</projects/shipit\>\""}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"shipitCmd", " ", "=", " ", 
   RowBox[{"projectPath", " ", "<>", " ", "\"\</shipit\>\""}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8972898089796457`*^9, 3.897289847384224*^9}, {
  3.897290953854849*^9, 
  3.897290956887682*^9}},ExpressionUUID->"d0a556f2-30a3-426c-b627-\
1911bf2c4b2b"],

Cell[CellGroupData[{

Cell["Lib", "Subsection",
 CellChangeTimes->{{3.889030437783991*^9, 3.8890304409716578`*^9}, {
  3.894808376378574*^9, 
  3.894808376741938*^9}},ExpressionUUID->"4f4cf1d8-f2d1-49b2-b312-\
b41c649c86d0"],

Cell["Specify path to project:", "Text",
 CellChangeTimes->{{3.892448976775639*^9, 
  3.8924489882671957`*^9}},ExpressionUUID->"c8efe1c7-01bc-49b3-b76c-\
cb7a0773460c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Plot", ",", " ", "ListPlot", ",", "RegionPlot"}], "}"}], ",", 
    RowBox[{"GridLines", "->", "Automatic"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.889030463701173*^9, 3.889030483982093*^9}, {
  3.889377944443901*^9, 3.8893779452403383`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"1d132e17-1033-4b33-98bf-7e1016d58862"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ToV", "[", "x_", "]"}], ":=", 
   RowBox[{
    RowBox[{"x", "//", "Normal"}], "//", "Values"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8894168845378304`*^9, 3.889416905516755*^9}, {
  3.889423432401697*^9, 3.8894234326684713`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"720a1e1f-02e0-4bab-8467-9b41316284d1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GIndex", "[", 
    RowBox[{"mean_", ",", "\[Sigma]_", ",", "ksi_"}], "]"}], ":=", 
   RowBox[{
    FractionBox["ksi", 
     SuperscriptBox["\[Sigma]", "2"]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox["mean", "2"], 
         RowBox[{"2", " ", 
          SuperscriptBox["\[Sigma]", "2"]}]]}]], " ", "\[Sigma]"}], 
     SqrtBox[
      RowBox[{"2", " ", "\[Pi]"}]]], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "mean", " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"Erf", "[", 
        FractionBox["mean", 
         RowBox[{
          SqrtBox["2"], " ", "\[Sigma]"}]], "]"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"MossIndex", "[", 
     RowBox[{
     "mean_", ",", "\[Sigma]_", ",", " ", "s_", ",", "l_", ",", "ksi_"}], 
     "]"}], ":=", 
    RowBox[{"(", 
     RowBox[{"mean", "+", 
      RowBox[{"s", "*", "\[Sigma]", "*", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"Max", "[", 
         RowBox[{"ksi", ",", 
          RowBox[{"l", "+", 
           RowBox[{"Log", "[", "\[Sigma]", "]"}]}]}], "]"}], "]"}]}]}], 
     ")"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"PIndex", "[", 
    RowBox[{"mean_", ",", "\[Sigma]_", ",", " ", "s_"}], "]"}], ":=", 
   RowBox[{"mean", " ", "+", " ", 
    RowBox[{"s", " ", "*", "\[Sigma]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.889375290070734*^9, 3.889375632215225*^9}, {
  3.889375671393537*^9, 3.889375824951871*^9}, {3.889376331418127*^9, 
  3.889376334323812*^9}, {3.889378400001135*^9, 3.889378444469137*^9}, {
  3.889378851657432*^9, 3.889378854634918*^9}, {3.8893789332200327`*^9, 
  3.88937895825655*^9}, {3.889379189773321*^9, 3.889379199259532*^9}, {
  3.8924490729274187`*^9, 3.892449083480072*^9}, {3.8925628323242817`*^9, 
  3.892562834634158*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"7bfe74ec-87bd-462d-a1f5-1f06cf9bf641"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"eps", "=", "0.0001"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"GIndexExt", "[", 
    RowBox[{"mean_", ",", "\[Sigma]_", ",", 
     RowBox[{"{", 
      RowBox[{"xi_", ",", " ", "\[Beta]1_"}], "}"}]}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     FractionBox["xi", 
      SuperscriptBox["\[Sigma]", "2"]], "+", " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", 
           RowBox[{"Min", "[", 
            RowBox[{"100", ",", 
             FractionBox[
              SuperscriptBox["mean", "2"], 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{"Max", "[", 
                 RowBox[{"eps", ",", 
                  RowBox[{
                   SuperscriptBox["\[Sigma]", "2"], "+", "\[Beta]1"}]}], 
                 "]"}], ")"}]}]]}], "]"}]}]], " ", 
         RowBox[{"Sqrt", "[", 
          RowBox[{"Max", "[", 
           RowBox[{"eps", ",", 
            RowBox[{
             SuperscriptBox["\[Sigma]", "2"], "+", "\[Beta]1"}]}], "]"}], 
          "]"}]}], 
        SqrtBox[
         RowBox[{"2", " ", "\[Pi]"}]]], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "mean", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"Erf", "[", 
           FractionBox["mean", 
            RowBox[{
             SqrtBox["2"], " ", 
             RowBox[{"Sqrt", "[", 
              RowBox[{"Max", "[", 
               RowBox[{"eps", ",", 
                RowBox[{
                 SuperscriptBox["\[Sigma]", "2"], "+", "\[Beta]1"}]}], "]"}], 
              "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}], "\[IndentingNewLine]", 
    ")"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.894808941732057*^9, 3.894808963639908*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"c9ed0efc-6ff3-4438-9298-449b66eb500f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"ResultVsError", "[", 
   RowBox[{
   "data_", ",", " ", "mean_", ",", " ", "sigma_", ",", " ", "methods_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"prefilteredData", ",", " ", "method"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"prefilteredData", "=", 
      RowBox[{
       RowBox[{"data", "[", 
        RowBox[{"Select", "[", " ", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"#", "[", "\"\<sigma\>\"", "]"}], "\[Equal]", "sigma"}], 
           " ", "&&", " ", 
           RowBox[{
            RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "\[Equal]", "mean"}]}], 
          "&"}], " ", "]"}], "]"}], "//", "Sort"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"method", " ", "=", " ", "#"}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"prefilteredData", "[", 
           RowBox[{
            RowBox[{"Select", "[", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"#", "[", "\"\<m\>\"", "]"}], "\[Equal]", "method"}], 
               ")"}], "&"}], " ", "]"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"\"\<error\>\"", ",", " ", "\"\<result\>\""}], "}"}]}], 
           "]"}], "//", "Sort"}]}], "\[IndentingNewLine]", ")"}], "&"}], "/@",
       "methods"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellLabel->"In[10]:=",ExpressionUUID->"e55862e9-f56c-4767-80fb-8021be861057"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AvgMeasurements", "[", "measurements_", "]"}], ":=", 
   RowBox[{"Module", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"v", ",", "e", ",", " ", "sumvw", ",", " ", "sumw"}], "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"sumvw", ",", " ", "sumw"}], "}"}], "=", 
       RowBox[{"Plus", "@@", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{"v", ",", "e"}], "}"}], " ", "=", " ", "#"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"v", "/", 
                SuperscriptBox["e", "2"]}], ",", " ", 
               RowBox[{"1", "/", 
                SuperscriptBox["e", "2"]}]}], "}"}]}], "\[IndentingNewLine]", 
            ")"}], "&"}], "/@", "measurements"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"sumvw", "/", "sumw"}], ",", " ", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"1", "/", "sumw"}], "]"}]}], "}"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellLabel->"In[11]:=",ExpressionUUID->"53cf14ed-f079-45a3-8773-42ec02455173"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"NormalA", "[", "x_", "]"}], ":=", 
    RowBox[{
     RowBox[{"Normal", "[", 
      RowBox[{"x", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"a_", "\[PlusMinus]", "b_"}], ":>", " ", "a"}], "}"}]}], 
      "]"}], " ", "/;", 
     RowBox[{"!", " ", 
      RowBox[{"FreeQ", "[", 
       RowBox[{"x", ",", " ", 
        RowBox[{"a_", "\[PlusMinus]", "b_"}]}], "]"}]}]}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetAttributes", "[", 
   RowBox[{"NormalA", ",", " ", 
    RowBox[{"{", "Listable", "}"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.892284606371303*^9, 3.892284659663056*^9}, {
   3.892284962849916*^9, 3.892285029076515*^9}, {3.892285081405795*^9, 
   3.892285086227106*^9}, 3.892286380798327*^9, {3.892404497023959*^9, 
   3.892404523023902*^9}, {3.892404650686117*^9, 3.8924047118090067`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"99d1b81c-810d-45d2-a29f-5a98cab26628"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Round6", "[", "x_", "]"}], ":=", " ", 
   RowBox[{"Round", "[", 
    RowBox[{"x", ",", 
     SuperscriptBox["10.0", 
      RowBox[{"-", "6"}]]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetAttributes", "[", 
   RowBox[{"Round6", ",", " ", 
    RowBox[{"{", "Listable", "}"}]}], "]"}], ";"}]}], "Input",
 CellLabel->"In[14]:=",ExpressionUUID->"71f1c380-61db-4fdd-a698-f40d657ddbd9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "Shipit", "]"}], ";"}]], "Input",
 CellLabel->"In[16]:=",ExpressionUUID->"565e36ec-b493-439c-9e9d-4434bd1e92d5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetSharedFunction", "[", "ShipitM", "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Shipit0", "[", "args__", "]"}], ":=", 
    RowBox[{"Module", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"input", ",", " ", "result", ",", " ", "paramsRound"}], "}"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"input", " ", "=", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"ToString", "[", "#", "]"}], "<>", "\"\< \>\""}], ")"}],
             "&"}], "/@", 
           RowBox[{"Flatten", "[", 
            RowBox[{"{", "args", "}"}], "]"}]}], " ", ")"}], "//", " ", 
         "StringJoin"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"result", " ", "=", " ", 
        RowBox[{"RunProcess", "[", 
         RowBox[{"shipitCmd", ",", " ", "All", ",", "  ", "input"}], "]"}]}], 
       ";", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ImportString", "[", 
         RowBox[{
          RowBox[{"result", "[", "\"\<StandardOutput\>\"", "]"}], ",", 
          "\"\<CSV\>\""}], "]"}], "//", "Flatten"}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"point__", " ", "=", " ", 
    RowBox[{"(", 
     RowBox[{
     "m_", ",", "seed_", ",", " ", "weeks_", ",", "trials_", ",", "mean_", 
      ",", " ", "sigma_", ",", "error_"}], ")"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Shipit", "[", 
   RowBox[{"point__", ",", " ", "params_"}], "]"}], ":=", " ", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "input", ",", " ", "result", ",", " ", "paramsRound", ",", " ", 
      "memKey"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"paramsRound", "=", 
      RowBox[{"Round6", "[", "params", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"memKey", " ", "=", " ", 
      RowBox[{"ToString", "[", 
       RowBox[{"{", 
        RowBox[{"point", ",", " ", "paramsRound"}], "}"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"result", "=", 
      RowBox[{"ShipitM", "[", "memKey", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"result", " ", "=!=", " ", "Null"}], " ", "&&", " ", 
        RowBox[{
         RowBox[{"Head", "[", "result", "]"}], "=!=", "ShipitM"}]}], " ", ",",
        " ", "\[IndentingNewLine]", "result", ",", " ", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"result", " ", "=", " ", 
         RowBox[{"Shipit0", "[", 
          RowBox[{"point", ",", " ", "paramsRound"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ShipitM", "[", "memKey", "]"}], "=", " ", "result"}], ";", 
        "\[IndentingNewLine]", "result"}]}], "\[IndentingNewLine]", "]"}]}]}],
    "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQB2IQLRCj0vT2/xvHC48+d4DoFb/WzAXRinvnLwLRbkf+
7wDRducL94No88T/h0H0vrv3ToLorTWHb4HolEmf74Dom/Y6b0C0jLLvOxB9
5eCqLyBaeE7FdxC9VMnguSDDW0dt1UsvQPS14pmvhIC02vZN70B0ZsM6CWEg
Hb1VSxZE+yrsUwXRaTFJBmA6YKk5iNZKXwemS3gmWIPoJccXOID5O9fdAtG/
ON0fg+i4kp0vQXRT8bH/IHod34pHYkBadO6HFyA60Of5L3kgnfJjGo8CkP70
VlYURO/67aQAonlW2aiC6GM+3zVBNJtIyHYNIJ1k578TRE/4ZXPCF0gveuN3
BkRXiDpeB9HLkk7eANEaT7/dAdFuj7TvgmgA6qu7LQ==
  "],
 CellLabel->"In[17]:=",ExpressionUUID->"a8be6fec-fd30-4251-94a9-df5ecb9bf47c"],

Cell[BoxData[{
 RowBox[{"palette1", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "#", "]"}], 
    "&"}], "/@", 
   RowBox[{"Range", "[", 
    RowBox[{"0.1", ",", "1", ",", "0.2"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"palette2", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ColorData", "[", "\"\<GreenPinkTones\>\"", "]"}], "[", "#", 
     "]"}], "&"}], "/@", 
   RowBox[{"Range", "[", 
    RowBox[{"0.1", ",", "1", ",", "0.11"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.892444806783107*^9, 3.89244481773134*^9}, {
  3.892444879963766*^9, 3.892444881017469*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"a8c6977b-ebc7-49f7-ab1a-f348e278e430"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"meanCnd", "[", "mean_", "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "==", "mean"}], "&"}], ")"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.892273131418695*^9, 3.892273166888391*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"3855a7a2-a15f-4806-8508-f3570d3d968c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Unprotect", "[", "Element", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x_", " ", "\[Element]", " ", "s_List"}], ":=", 
  RowBox[{"MemberQ", "[", 
   RowBox[{"s", ",", "x"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Protect", "[", "Element", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8922747304255943`*^9, 3.8922747424864798`*^9}, {
  3.892274781685626*^9, 3.892274842451187*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"870dbba3-148c-40f0-b3b2-3a7b51335c47"]
}, Closed]],

Cell[CellGroupData[{

Cell["Lib: RCnds. Region plots from data. ", "Subsection",
 CellChangeTimes->{{3.8925188921134977`*^9, 3.892518902804174*^9}, 
   3.8925190415546207`*^9, {3.89252006452481*^9, 3.892520076912715*^9}, {
   3.894792529898591*^9, 3.89479253361939*^9}, {3.894794391017995*^9, 
   3.8947944042299623`*^9}, {3.894862014383265*^9, 
   3.894862016588711*^9}},ExpressionUUID->"6f934b23-5476-4ee8-b2b4-\
0542a1ea6f45"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DataRegions", "[", 
   RowBox[{"data_", ",", " ", "cnds_", ",", " ", "rCndsFn_"}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"filteredData", ",", " ", "r"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"filteredData", "=", 
      RowBox[{
       RowBox[{"data", "[", 
        RowBox[{"Select", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"cnds", "[", "#", "]"}], "&&", " ", 
           RowBox[{
            RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "<", "0"}]}], "&"}], " ",
          "]"}], "]"}], "//", "Sort"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"(", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"(", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"r", "=", "#"}], ";", "\[IndentingNewLine]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"rCndsFn", "[", 
               RowBox[{
                RowBox[{"r", "[", "\"\<mean\>\"", "]"}], ",", " ", 
                RowBox[{"r", "[", "\"\<sigma\>\"", "]"}], ",", " ", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"r", "[", "\"\<p1\>\"", "]"}], ",", " ", 
                  RowBox[{"r", "[", "\"\<p2\>\"", "]"}], ",", " ", 
                  RowBox[{"r", "[", "\"\<p3\>\"", "]"}], ",", 
                  RowBox[{"r", "[", "\"\<p4\>\"", "]"}], ",", 
                  RowBox[{"r", "[", "\"\<p5\>\"", "]"}]}], "}"}]}], "]"}], 
              ",", "r"}], "}"}]}], "\[IndentingNewLine]", ")"}], "&"}], "/@", 
         "filteredData"}], "\[IndentingNewLine]", ")"}], " ", "//", " ", 
       "Normal"}], "//", "Transpose"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8925189151902857`*^9, 3.892518926798952*^9}, {
  3.892518964920096*^9, 3.892519037660164*^9}, {3.892519115510208*^9, 
  3.892519118363359*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"9fec5f42-608e-4f45-a0c2-1dde82975a15"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"p", "-", "value"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"RCndsM11", "[", 
     RowBox[{"meanB_", ",", " ", "sigmaB_", ",", 
      RowBox[{"{", 
       RowBox[{"pShipSigmas_", ",", "pStopSigmas_", ",", "others___"}], 
       "}"}]}], "]"}], ":=", 
    RowBox[{"(", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"PIndex", "[", 
        RowBox[{"mean", ",", "sigma", ",", "pStopSigmas"}], "]"}], " ", "<=", 
       "  ", "0"}], " ", "||", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"PIndex", "[", 
        RowBox[{
         RowBox[{"-", "mean"}], ",", "sigma", ",", "pShipSigmas"}], "]"}], 
       " ", "<=", " ", "0"}]}], "\[IndentingNewLine]", ")"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.892524069571476*^9, 3.892524189663499*^9}, {
  3.892524282784162*^9, 3.892524300785555*^9}, {3.894793238589684*^9, 
  3.89479324799013*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"020fd48c-7bdf-4092-a879-67c1ef5450dd"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RCndsM11A", "[", 
    RowBox[{"meanB_", ",", " ", "sigmaB_", ",", 
     RowBox[{"{", "others___", "}"}]}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"PIndex", "[", 
       RowBox[{"mean", ",", "sigma", ",", 
        RowBox[{"meanB", "/", "sigmaB"}]}], "]"}], " ", "<=", "  ", "0"}], 
     " ", "||", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"PIndex", "[", 
       RowBox[{
        RowBox[{"-", "mean"}], ",", "sigma", ",", 
        RowBox[{"meanB", "/", "sigmaB"}]}], "]"}], " ", "<=", " ", "0"}]}], 
    "\[IndentingNewLine]", ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.89486308688297*^9, 3.894863140302965*^9}},
 CellLabel->
  "In[215]:=",ExpressionUUID->"e7ed0ad9-67be-4f38-bd33-31d1e9ad7d98"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RCndsM12", "[", 
    RowBox[{"meanB_", ",", " ", "sigmaB_", ",", 
     RowBox[{"{", 
      RowBox[{
      "pShipSigmas_", ",", "pStopSigmas_", ",", "sigmaMul_", ",", 
       "others___"}], "}"}]}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"PIndex", "[", 
       RowBox[{"mean", ",", "sigma", ",", "pStopSigmas"}], "]"}], " ", "<=", 
      "  ", 
      RowBox[{"PIndex", "[", 
       RowBox[{"meanB", ",", "sigmaB", ",", "pStopSigmas"}], "]"}]}], " ", "||",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"PIndex", "[", 
       RowBox[{
        RowBox[{"-", "mean"}], ",", "sigma", ",", "pShipSigmas"}], "]"}], " ",
       "<=", " ", 
      RowBox[{"PIndex", "[", 
       RowBox[{"0", ",", 
        RowBox[{"sigmaMul", " ", "*", " ", "sigmaB"}], ",", "pShipSigmas"}], 
       "]"}]}]}], "\[IndentingNewLine]", ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8894516015997972`*^9, 3.889451707470255*^9}, {
   3.889451745784664*^9, 3.8894518040441427`*^9}, {3.889451835185034*^9, 
   3.8894518413784533`*^9}, {3.889463362082859*^9, 3.889463669379313*^9}, 
   3.889463797710271*^9, {3.8894639262231073`*^9, 3.889463926937849*^9}, {
   3.889464011977312*^9, 3.889464018122746*^9}, {3.889464100573876*^9, 
   3.889464105512054*^9}, {3.892272562732802*^9, 3.892272574314699*^9}, {
   3.892273261962988*^9, 3.892273276095542*^9}, {3.892398066466235*^9, 
   3.89239806692039*^9}, {3.892445034773776*^9, 3.8924451633239813`*^9}, {
   3.8924452293000813`*^9, 3.892445229406918*^9}, {3.892445415560944*^9, 
   3.8924454279177322`*^9}, {3.892519431543901*^9, 3.892519631771769*^9}, {
   3.892519693920313*^9, 3.8925197018234253`*^9}, {3.894793238590651*^9, 
   3.894793247991928*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"0ff4c4ee-e9b1-4fac-ba15-bbb8d9a9c570"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RCndsM13", "[", 
    RowBox[{"meanB_", ",", " ", "sigmaB_", ",", 
     RowBox[{"{", 
      RowBox[{"pShipSigmas_", ",", " ", "pStopSigmas_", ",", "others___"}], 
      "}"}]}], "]"}], ":=", 
   RowBox[{"Module", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "sigmaMul", "}"}], ",", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"sigmaMul", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"PIndex", "[", 
          RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", "pStopSigmas"}], 
          "]"}], "/", "pStopSigmas"}], "/", " ", "sigmaB"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"RCndsM12", "[", 
       RowBox[{"meanB", ",", " ", "sigmaB", ",", 
        RowBox[{"{", 
         RowBox[{"pShipSigmas", ",", " ", "pStopSigmas", ",", "sigmaMul"}], 
         "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.892520002269681*^9, 3.8925200322361507`*^9}, {
  3.89479323859184*^9, 3.894793247993997*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"8c076681-fcb3-4e04-accd-4a49bfb8b6fc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RCndsM14", "[", 
    RowBox[{"meanB_", ",", " ", "sigmaB_", ",", 
     RowBox[{"{", 
      RowBox[{"pStopSigmas_", ",", " ", "pA_", ",", "others___"}], "}"}]}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sigmaMul", ",", " ", "pShipSigmas"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"pShipSigmas", " ", "=", " ", 
       RowBox[{"pStopSigmas", " ", "+", " ", "pA"}]}], ";", 
      "\[IndentingNewLine]", " ", 
      RowBox[{"sigmaMul", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"PIndex", "[", 
          RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", "pStopSigmas"}], 
          "]"}], "/", "pStopSigmas"}], "/", " ", "sigmaB"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"RCndsM12", "[", 
       RowBox[{"meanB", ",", " ", "sigmaB", ",", 
        RowBox[{"{", 
         RowBox[{"pShipSigmas", ",", " ", "pStopSigmas", ",", "sigmaMul"}], 
         "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8894516015997972`*^9, 3.889451707470255*^9}, {
   3.889451745784664*^9, 3.8894518040441427`*^9}, {3.889451835185034*^9, 
   3.8894518413784533`*^9}, {3.889463362082859*^9, 3.889463669379313*^9}, 
   3.889463797710271*^9, {3.8894639262231073`*^9, 3.889463926937849*^9}, {
   3.889464011977312*^9, 3.889464018122746*^9}, {3.889464100573876*^9, 
   3.889464105512054*^9}, {3.892272562732802*^9, 3.892272574314699*^9}, {
   3.892273261962988*^9, 3.892273276095542*^9}, {3.892398066466235*^9, 
   3.89239806692039*^9}, {3.892445236035304*^9, 3.892445237220508*^9}, {
   3.89251923762576*^9, 3.892519411547717*^9}, {3.892519727314308*^9, 
   3.892519791463829*^9}, {3.892519937447361*^9, 3.892519976013912*^9}, {
   3.8947932385934563`*^9, 3.8947932479961777`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"eb3e0a7f-70f5-4c96-b38f-8dbaff4603fb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"RCndsM20", "[", 
    RowBox[{"meanB_", ",", "sigmaB_", ",", 
     RowBox[{"{", 
      RowBox[{
      "pS_", ",", " ", "pL_", ",", "pShipSigmas_", ",", "pXi_", ",", " ", 
       "other___"}], "}"}]}], "]"}], ":=", 
   RowBox[{"Module", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sigmaMul", ",", "baseIndexS", ",", " ", "sigma0"}], "}"}], ",",
      "\[IndentingNewLine]", 
     RowBox[{"sigmaMul", " ", ";", "\[IndentingNewLine]", 
      RowBox[{"baseIndexS", "=", 
       RowBox[{
        RowBox[{"MossIndex", "[", 
         RowBox[{"meanB", ",", "sigmaB", ",", "pS", ",", "pL", ",", "pXi"}], 
         "]"}], "/", "pS"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"sigma0", "=", 
       RowBox[{"0.5", "*", "sigmaB"}]}], ";", 
      RowBox[{"sigma0", "=", 
       RowBox[{"baseIndexS", "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"Max", "[", 
          RowBox[{"pXi", ",", 
           RowBox[{"pL", "+", 
            RowBox[{"Log", "[", "sigma0", "]"}]}]}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"sigma0", "=", 
       RowBox[{"baseIndexS", "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"Max", "[", 
          RowBox[{"pXi", ",", 
           RowBox[{"pL", "+", 
            RowBox[{"Log", "[", "sigma0", "]"}]}]}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"sigma0", "=", 
       RowBox[{"baseIndexS", "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"Max", "[", 
          RowBox[{"pXi", ",", 
           RowBox[{"pL", "+", 
            RowBox[{"Log", "[", "sigma0", "]"}]}]}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"sigma0", "=", 
       RowBox[{"baseIndexS", "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"Max", "[", 
          RowBox[{"pXi", ",", 
           RowBox[{"pL", "+", 
            RowBox[{"Log", "[", "sigma0", "]"}]}]}], "]"}], "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"MossIndex", "[", 
         RowBox[{"mean", ",", "sigma", ",", "pS", ",", "pL", ",", "pXi"}], 
         "]"}], " ", "<=", "  ", 
        RowBox[{"MossIndex", "[", 
         RowBox[{
         "meanB", ",", " ", "sigmaB", ",", "pS", ",", "pL", ",", "pXi"}], 
         "]"}]}], "||", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"PIndex", "[", 
         RowBox[{
          RowBox[{"-", "mean"}], ",", "sigma", ",", "pShipSigmas"}], "]"}], 
        " ", "<=", " ", 
        RowBox[{"PIndex", "[", 
         RowBox[{"0", ",", "sigma0", ",", "pShipSigmas"}], "]"}]}]}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RCndsM25", "[", 
    RowBox[{"meanB_", ",", "sigmaB_", ",", 
     RowBox[{"{", 
      RowBox[{"pS_", ",", " ", "pL_", ",", "pXi_", ",", " ", "other___"}], 
      "}"}]}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"MossIndex", "[", 
       RowBox[{"mean", ",", "sigma", ",", "pS", ",", "pL", ",", "pXi"}], 
       "]"}], " ", "<=", "  ", 
      RowBox[{"MossIndex", "[", 
       RowBox[{
       "meanB", ",", " ", "sigmaB", ",", "pS", ",", "pL", ",", "pXi"}], 
       "]"}]}], "||", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"MossIndex", "[", 
       RowBox[{
        RowBox[{"-", "mean"}], ",", "sigma", ",", "pS", ",", "pL", ",", 
        "pXi"}], "]"}], " ", "<=", "  ", 
      RowBox[{"MossIndex", "[", 
       RowBox[{
       "meanB", ",", " ", "sigmaB", ",", "pS", ",", "pL", ",", "pXi"}], 
       "]"}]}]}], "\[IndentingNewLine]", ")"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.894793238595688*^9, 3.894793248001853*^9}, {
  3.894809841029675*^9, 3.894809841030469*^9}, {3.894809880966333*^9, 
  3.894809880973906*^9}, {3.894862034587039*^9, 
  3.894862034887882*^9}},ExpressionUUID->"4b106d67-bc3d-4779-b703-\
2dd01d37662a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RCndsM26", "[", 
   RowBox[{"meanB_", ",", "sigmaB_", ",", 
    RowBox[{"{", 
     RowBox[{"pS_", ",", " ", "pL_", ",", " ", "other___"}], "}"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "sigmaMul", ",", "baseIndexS", ",", " ", "sigma0", ",", " ", "expr", ",",
       " ", "s", ",", " ", "sigmaA", ",", " ", "pXi"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"expr", "=", " ", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"MossIndex", "[", 
          RowBox[{"mean", ",", "sigma", ",", "pS", ",", "pL", ",", "0"}], 
          "]"}], ",", " ", "sigma"}], "]"}], " ", "/", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"MossIndex", "[", 
          RowBox[{"mean", ",", "sigma", ",", "pS", ",", "pL", ",", "0"}], 
          "]"}], ",", " ", "mean"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"s", " ", "=", " ", 
      RowBox[{"Abs", "[", 
       RowBox[{"expr", "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"mean", "->", "meanB"}], ",", " ", 
          RowBox[{"sigma", "->", "meanB"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"sigmaA", " ", "=", " ", 
      RowBox[{"sigmaB", " ", "-", " ", 
       RowBox[{
        RowBox[{"0.1", "/", "meanB"}], "/", "s"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"pXi", " ", "=", " ", 
      RowBox[{"pL", " ", "+", " ", 
       RowBox[{"Log", "[", "sigmaA", "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"MossIndex", "[", 
         RowBox[{"mean", ",", "sigma", ",", "pS", ",", "pL", ",", "pXi"}], 
         "]"}], " ", "<=", "  ", 
        RowBox[{"MossIndex", "[", 
         RowBox[{
         "meanB", ",", " ", "sigmaB", ",", "pS", ",", "pL", ",", "pXi"}], 
         "]"}]}], "||", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"MossIndex", "[", 
         RowBox[{
          RowBox[{"-", "mean"}], ",", "sigma", ",", "pS", ",", "pL", ",", 
          "pXi"}], "]"}], " ", "<=", "  ", 
        RowBox[{"MossIndex", "[", 
         RowBox[{
         "meanB", ",", " ", "sigmaB", ",", "pS", ",", "pL", ",", "pXi"}], 
         "]"}]}]}], "\[IndentingNewLine]", ")"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8948622516299343`*^9, 3.894862263747704*^9}, {
  3.894862435541417*^9, 3.8948625503031607`*^9}, {3.894862584462688*^9, 
  3.894862589616529*^9}, {3.894862627166895*^9, 3.894862753344131*^9}},
 CellLabel->
  "In[214]:=",ExpressionUUID->"76e61e73-2728-4ac1-b33a-208e4478c572"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RCndsM30", "[", 
    RowBox[{"meanB_", ",", "sigmaB_", ",", 
     RowBox[{"{", 
      RowBox[{"pS_", ",", " ", "pShip_", ",", "pXi_", ",", " ", "other___"}], 
      "}"}]}], "]"}], ":=", 
   RowBox[{"(", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"GIndex", "[", 
       RowBox[{"mean", ",", 
        RowBox[{"pS", " ", "*", " ", "sigma"}], ",", "pXi"}], "]"}], " ", "<=",
       "  ", 
      RowBox[{"GIndex", "[", 
       RowBox[{"meanB", ",", 
        RowBox[{"pS", " ", "*", " ", "sigmaB"}], ",", "pXi"}], "]"}]}], "||", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GIndex", "[", 
        RowBox[{"mean", ",", 
         RowBox[{"pS", " ", "*", " ", "sigma"}], ",", "pXi"}], "]"}], " ", 
       "*", "pShip"}], " ", "<=", " ", "mean"}]}], "\[IndentingNewLine]", 
    ")"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.889464153103773*^9, {3.889464410569189*^9, 3.889464416202147*^9}, {
   3.8894644937114677`*^9, 3.8894646816167107`*^9}, {3.889464760426255*^9, 
   3.889464772136879*^9}, {3.889464880513568*^9, 3.8894648873248577`*^9}, {
   3.8894660149971447`*^9, 3.889466034389081*^9}, {3.889466079119557*^9, 
   3.889466122745878*^9}, {3.892272545429102*^9, 3.8922725471422977`*^9}, {
   3.892273223463456*^9, 3.8922732309410152`*^9}, {3.892398294861374*^9, 
   3.892398295397246*^9}, {3.892445245717305*^9, 3.892445246150037*^9}, {
   3.892445298742341*^9, 3.892445301988332*^9}, {3.892518313632586*^9, 
   3.892518395140731*^9}, {3.8925184828429537`*^9, 3.892518523178035*^9}, {
   3.8925187262656717`*^9, 3.892518737999489*^9}, {3.8925187818267527`*^9, 
   3.892518788541203*^9}, {3.892519065759919*^9, 3.8925190678841677`*^9}, {
   3.892519188845799*^9, 3.892519189550868*^9}, {3.894793238599752*^9, 
   3.8947932480028677`*^9}, 3.894809841031334*^9, {3.894809880974639*^9, 
   3.894809880975831*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"b3765f0e-452f-4f59-8b19-4d72aa3b2ca8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"RCndsM32", "[", 
   RowBox[{"meanB_", ",", " ", "sigmaB_", ",", " ", 
    RowBox[{"{", 
     RowBox[{"pS_", ",", " ", "pShip_", ",", "other___"}], "}"}]}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "pXi", "}"}], ",", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pXi", "=", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"sigmaB", "*", "pS"}], ")"}], "2"]}], "*", 
       RowBox[{"GIndex", "[", 
        RowBox[{"meanB", ",", 
         RowBox[{"pS", " ", "*", " ", "sigmaB"}], ",", "0"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", " ", 
     RowBox[{"RCndsM30", "[", 
      RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
       RowBox[{"{", 
        RowBox[{"pS", ",", " ", "pShip", ",", "pXi"}], "}"}]}], "]"}]}]}], 
   " ", "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{
  3.889464153103773*^9, {3.889464410569189*^9, 3.889464416202147*^9}, {
   3.8894644937114677`*^9, 3.8894646816167107`*^9}, {3.889464760426255*^9, 
   3.889464772136879*^9}, {3.889464880513568*^9, 3.8894648873248577`*^9}, {
   3.889465084486096*^9, 3.889465086368153*^9}, {3.8894651168723507`*^9, 
   3.889465218012381*^9}, {3.889465390068365*^9, 3.889465390570945*^9}, 
   3.8894654447478313`*^9, {3.889465742427355*^9, 3.889465772294619*^9}, {
   3.889467086121805*^9, 3.889467108197364*^9}, {3.8922727266515417`*^9, 
   3.8922727282310143`*^9}, {3.8922731836260147`*^9, 3.892273191505871*^9}, {
   3.892398336191771*^9, 3.892398349653569*^9}, {3.8924453223034487`*^9, 
   3.892445324356661*^9}, {3.892518561658051*^9, 3.892518685456656*^9}, {
   3.892518814819861*^9, 3.89251888451724*^9}, {3.8925190491154613`*^9, 
   3.892519052097301*^9}, {3.892520198209586*^9, 3.8925202231342278`*^9}, {
   3.8947932386008873`*^9, 3.894793248004938*^9}, 3.89480984103222*^9, {
   3.8948098809765387`*^9, 3.8948098809771643`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"38395422-b3ea-4c19-b377-bc9972c313f5"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RCndsM35", "[", 
    RowBox[{"meanB_", ",", "sigmaB_", ",", 
     RowBox[{"{", 
      RowBox[{"pS_", ",", " ", "other___"}], "}"}]}], "]"}], ":=", 
   RowBox[{"Module", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "pXi", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"pXi", "=", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"sigmaB", "*", "pS"}], ")"}], "2"]}], "*", 
        RowBox[{"GIndex", "[", 
         RowBox[{"meanB", ",", 
          RowBox[{"pS", " ", "*", " ", "sigmaB"}], ",", "0"}], "]"}]}]}], ";",
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"GIndex", "[", 
         RowBox[{"mean", ",", 
          RowBox[{"pS", " ", "*", " ", "sigma"}], ",", "pXi"}], "]"}], " ", 
        "\[LessEqual]", "  ", 
        RowBox[{"GIndex", "[", 
         RowBox[{"meanB", ",", 
          RowBox[{"pS", " ", "*", " ", "sigmaB"}], ",", "pXi"}], "]"}]}], "||",
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"GIndex", "[", 
         RowBox[{
          RowBox[{"-", "mean"}], ",", 
          RowBox[{"pS", " ", "*", " ", "sigma"}], ",", "pXi"}], "]"}], " ", 
        "\[LessEqual]", "  ", 
        RowBox[{"GIndex", "[", 
         RowBox[{"meanB", ",", 
          RowBox[{"pS", " ", "*", " ", "sigmaB"}], ",", "pXi"}], 
         "]"}]}]}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.892824557928944*^9, 3.8928245580708103`*^9}, {
  3.892824626234591*^9, 3.8928246495705643`*^9}, {3.892824692900683*^9, 
  3.892824756575206*^9}, {3.892824980241229*^9, 3.892824997908162*^9}, {
  3.894793238602577*^9, 3.8947932480078287`*^9}, {3.894809880978076*^9, 
  3.894809880981351*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"bb9b86b7-1680-49dc-98c0-c347c4212a19"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RCndsM36", "[", 
     RowBox[{"meanB_", ",", "sigmaB_", ",", 
      RowBox[{"{", 
       RowBox[{"pXi_", ",", " ", "other___"}], "}"}]}], "]"}], ":=", 
    RowBox[{"Module", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", "g0", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"g0", " ", "=", " ", 
        RowBox[{"GIndex", "[", 
         RowBox[{"meanB", ",", "sigmaB", ",", "pXi"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"GIndex", "[", 
          RowBox[{"mean", ",", "sigma", ",", "pXi"}], "]"}], " ", 
         "\[LessEqual]", " ", "g0"}], "   ", "||", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"GIndex", "[", 
           RowBox[{"mean", ",", "sigma", ",", "pXi"}], "]"}], " ", "-", 
          "g0"}], "  ", "\[LessEqual]", "  ", "mean"}]}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"RCndsM36U", "[", 
     RowBox[{"meanB_", ",", "sigmaB_", ",", 
      RowBox[{"{", 
       RowBox[{"u_", ",", "pXi_", ",", " ", "other___"}], "}"}]}], "]"}], ":=", 
    RowBox[{"Module", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", "g0", "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"g0", " ", "=", " ", 
        RowBox[{"GIndex", "[", 
         RowBox[{"meanB", ",", "sigmaB", ",", "pXi"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"GIndex", "[", 
          RowBox[{"mean", ",", "sigma", ",", "pXi"}], "]"}], "\[LessEqual]", 
         " ", 
         RowBox[{"g0", " ", "-", "u"}]}], "   ", "||", "\[IndentingNewLine]", 
        
        RowBox[{
         RowBox[{
          RowBox[{"GIndex", "[", 
           RowBox[{"mean", ",", "sigma", ",", "pXi"}], "]"}], " ", "-", "g0", 
          " ", "+", "u"}], " ", "\[LessEqual]", "  ", "mean"}]}]}]}], 
     "\[IndentingNewLine]", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RCndsM37", "[", 
    RowBox[{"meanB_", ",", "sigmaB_", ",", 
     RowBox[{"{", 
      RowBox[{"pXi_", ",", "pBeta_", ",", " ", "other___"}], "}"}]}], "]"}], ":=", 
   RowBox[{"Module", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "g0", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"g0", " ", "=", " ", 
       RowBox[{"GIndexExt", "[", 
        RowBox[{"meanB", ",", "sigmaB", ",", 
         RowBox[{"{", 
          RowBox[{"pXi", ",", "pBeta"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"GIndexExt", "[", 
         RowBox[{"mean", ",", "sigma", ",", 
          RowBox[{"{", 
           RowBox[{"pXi", ",", "pBeta"}], "}"}]}], "]"}], " ", "\[LessEqual]",
         " ", "g0"}], "   ", "||", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"GIndexExt", "[", 
          RowBox[{"mean", ",", "sigma", ",", 
           RowBox[{"{", 
            RowBox[{"pXi", ",", "pBeta"}], "}"}]}], "]"}], " ", "-", "g0"}], 
        "  ", "\[LessEqual]", "  ", "mean"}]}]}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8947932386052217`*^9, 3.8947932480117702`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"39620d84-e188-43b1-a9be-3199e4423c40"]
}, Closed]],

Cell[CellGroupData[{

Cell["Lib: Cashed shipit \[Dash] shM ", "Subsection",
 CellChangeTimes->{{3.894791467774822*^9, 3.894791485169107*^9}, {
  3.894808371341065*^9, 3.894808373036209*^9}, {3.894809910106942*^9, 
  3.894809915787264*^9}},ExpressionUUID->"4d936bf0-86a8-4962-aee0-\
a24846de7f29"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MyMap", " ", "=", " ", "ParallelMap"}], ";"}]], "Input",
 CellChangeTimes->{{3.894791848662541*^9, 3.894791865151835*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"7904828b-ce14-4fa8-bec9-5bc9c5d22922"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"shM11BN", "[", 
    RowBox[{"p_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"PlusMinus", "@@", 
    RowBox[{"AvgMeasurements", "[", 
     RowBox[{"MyMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Shipit", "[", 
         RowBox[{"11", ",", "#", ",", "10000000", ",", " ", "25", ",", " ", 
          RowBox[{"-", "1"}], ",", "1", ",", "35", ",", " ", 
          RowBox[{"{", 
           RowBox[{"p", ",", " ", "p"}], "}"}]}], "]"}], "&"}], ",", " ", 
       RowBox[{"Range", "[", "n", "]"}]}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.894863197973456*^9, 3.894863202177207*^9}, {
  3.8948632617863894`*^9, 3.894863293120401*^9}},
 CellLabel->
  "In[216]:=",ExpressionUUID->"5178ca27-634d-46f8-a10a-e8707cd1d3d9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"shM12N", "[", 
    RowBox[{"stop_", ",", "a_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"Module", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sigmaMul", ",", " ", "meanB", ",", " ", "sigmaB"}], "}"}], ",",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"meanB", " ", "=", " ", 
       RowBox[{"-", "1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"sigmaB", "=", "1"}], ";", "\[IndentingNewLine]", 
      RowBox[{"sigmaMul", "=", 
       RowBox[{"a", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"meanB", "/", "sigmaB"}], "/", "stop"}], " ", "+", " ", 
          "1"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"PlusMinus", "@@", 
       RowBox[{"AvgMeasurements", "[", 
        RowBox[{"MyMap", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Shipit", "[", 
            RowBox[{
            "12", ",", "#", ",", "10000000", ",", " ", "25", ",", " ", 
             "meanB", ",", "sigmaB", ",", "35", ",", 
             RowBox[{"{", 
              RowBox[{"stop", ",", " ", "stop", ",", " ", "sigmaMul"}], 
              "}"}]}], "]"}], "&"}], ",", " ", 
          RowBox[{"Range", "[", "n", "]"}]}], "]"}], "]"}]}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"shM12N", "[", 
    RowBox[{"stop_", ",", "ship_", ",", "a_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"Module", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sigmaMul", ",", " ", "meanB", ",", " ", "sigmaB"}], "}"}], ",",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"meanB", " ", "=", " ", 
       RowBox[{"-", "1"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"sigmaB", "=", "1"}], ";", "\[IndentingNewLine]", 
      RowBox[{"sigmaMul", "=", 
       RowBox[{"a", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"meanB", "/", "sigmaB"}], "/", "stop"}], " ", "+", " ", 
          "1"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"PlusMinus", "@@", 
       RowBox[{"AvgMeasurements", "[", 
        RowBox[{"MyMap", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Shipit", "[", 
            RowBox[{
            "12", ",", "#", ",", "10000000", ",", " ", "25", ",", " ", 
             "meanB", ",", "sigmaB", ",", "35", ",", 
             RowBox[{"{", 
              RowBox[{"stop", ",", " ", "ship", ",", " ", "sigmaMul"}], 
              "}"}]}], "]"}], "&"}], ",", " ", 
          RowBox[{"Range", "[", "n", "]"}]}], "]"}], "]"}]}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",ExpressionUUID->\
"aa17f57c-d6a9-44e5-b478-d85f30070589"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"shM14E16N", "[", 
    RowBox[{"p_", ",", "a_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"PlusMinus", "@@", 
    RowBox[{"AvgMeasurements", "[", 
     RowBox[{"MyMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Shipit", "[", 
         RowBox[{"14", ",", "#", ",", "10000000", ",", " ", "25", ",", " ", 
          RowBox[{"-", "1"}], ",", "1", ",", "16", ",", " ", 
          RowBox[{"{", 
           RowBox[{"p", ",", " ", "a"}], "}"}]}], "]"}], "&"}], ",", " ", 
       RowBox[{"Range", "[", "n", "]"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"shM14N", "[", 
    RowBox[{"p_", ",", "a_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"PlusMinus", "@@", 
    RowBox[{"AvgMeasurements", "[", 
     RowBox[{"MyMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Shipit", "[", 
         RowBox[{"14", ",", "#", ",", "10000000", ",", " ", "25", ",", " ", 
          RowBox[{"-", "1"}], ",", "1", ",", "35", ",", " ", 
          RowBox[{"{", 
           RowBox[{"p", ",", " ", "a"}], "}"}]}], "]"}], "&"}], ",", " ", 
       RowBox[{"Range", "[", "n", "]"}]}], "]"}], "]"}]}]}], ";"}]}], "Input",\

 CellChangeTimes->{
  3.894791871959056*^9, {3.894863646784545*^9, 
   3.8948636475052958`*^9}},ExpressionUUID->"e10344b9-4e08-47b2-82cf-\
7cc7fb59fc2c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"shM20", "[", 
    RowBox[{"s_", ",", "l_", ",", "shipSigmas_", ",", "ksi_", ",", "n_"}], 
    "]"}], ":=", 
   RowBox[{"Shipit", "[", 
    RowBox[{"20", ",", "n", ",", "10000000", ",", " ", "25", ",", " ", 
     RowBox[{"-", "1"}], ",", "1", ",", "35", ",", " ", 
     RowBox[{"{", 
      RowBox[{"s", ",", "l", ",", "shipSigmas", ",", " ", "ksi"}], "}"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"shM20N", "[", 
    RowBox[{"s_", ",", "shipSigmas_", ",", "ksi_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"PlusMinus", "@@", 
    RowBox[{"AvgMeasurements", "[", 
     RowBox[{"MyMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"shM20", "[", 
         RowBox[{
         "s", ",", "12.0", ",", "shipSigmas", ",", "ksi", ",", " ", "#"}], 
         "]"}], "&"}], ",", " ", 
       RowBox[{"Range", "[", "n", "]"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"shM20N", "[", 
    RowBox[{"s_", ",", "l_", ",", "shipSigmas_", ",", "ksi_", ",", "n_"}], 
    "]"}], ":=", 
   RowBox[{"PlusMinus", "@@", 
    RowBox[{"AvgMeasurements", "[", 
     RowBox[{"MyMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"shM20", "[", 
         RowBox[{"s", ",", "l", ",", "shipSigmas", ",", "ksi", ",", "#"}], 
         "]"}], "&"}], ",", " ", 
       RowBox[{"Range", "[", "n", "]"}]}], "]"}], "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"shM25", "[", 
    RowBox[{"s_", ",", "l_", ",", "ksi_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"Shipit", "[", 
    RowBox[{"25", ",", "n", ",", "10000000", ",", " ", "25", ",", " ", 
     RowBox[{"-", "1"}], ",", "1", ",", "35", ",", " ", 
     RowBox[{"{", 
      RowBox[{"s", ",", "l", ",", "ksi"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"shM25N", "[", 
    RowBox[{"s_", ",", "l_", ",", " ", "ksi_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"PlusMinus", "@@", 
    RowBox[{"AvgMeasurements", "[", 
     RowBox[{"MyMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"shM25", "[", 
         RowBox[{"s", ",", "l", ",", "ksi", ",", "#"}], "]"}], "&"}], ",", 
       " ", 
       RowBox[{"Range", "[", "n", "]"}]}], "]"}], "]"}]}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.8947918749239073`*^9, 3.894791877157848*^9}, {
  3.894793238636273*^9, 3.8947932480413647`*^9}, {3.8948099350329523`*^9, 
  3.894809935386465*^9}, {3.8948636542148933`*^9, 
  3.894863661970894*^9}},ExpressionUUID->"8ad11d71-7ca2-404e-9761-\
afe8feb98c0a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"shM30N", "[", 
    RowBox[{"s_", ",", "ship_", ",", "ksi_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"PlusMinus", "@@", 
    RowBox[{"AvgMeasurements", "[", 
     RowBox[{"MyMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Shipit", "[", 
         RowBox[{"30", ",", "#", ",", "10000000", ",", " ", "25", ",", " ", 
          RowBox[{"-", "1"}], ",", "1", ",", "35", ",", " ", 
          RowBox[{"{", 
           RowBox[{"s", ",", " ", "ship", ",", "ksi"}], "}"}]}], "]"}], "&"}],
        ",", " ", 
       RowBox[{"Range", "[", "n", "]"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"shM32N", "[", 
    RowBox[{"s_", ",", "pShip_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"PlusMinus", "@@", 
    RowBox[{"AvgMeasurements", "[", 
     RowBox[{"MyMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Shipit", "[", 
         RowBox[{"32", ",", "#", ",", "10000000", ",", " ", "25", ",", " ", 
          RowBox[{"-", "1"}], ",", "1", ",", "35", ",", " ", 
          RowBox[{"{", 
           RowBox[{"s", ",", " ", "pShip"}], "}"}]}], "]"}], "&"}], ",", " ", 
       
       RowBox[{"Range", "[", "n", "]"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"shM35N", "[", 
    RowBox[{"s_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"PlusMinus", "@@", 
    RowBox[{"AvgMeasurements", "[", 
     RowBox[{"MyMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Shipit", "[", 
         RowBox[{"35", ",", "#", ",", "10000000", ",", " ", "25", ",", " ", 
          RowBox[{"-", "1"}], ",", "1", ",", "35", ",", " ", 
          RowBox[{"{", "s", "}"}]}], "]"}], "&"}], ",", " ", 
       RowBox[{"Range", "[", "n", "]"}]}], "]"}], "]"}]}]}], ";"}]}], "Input",\

 CellChangeTimes->{
  3.894791881117209*^9, {3.894809940673663*^9, 3.894809946637488*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"2f3afbc6-e7e4-4619-8734-7988aa9e8c96"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"shM36N", "[", 
    RowBox[{"xi_", ",", "n_"}], "]"}], ":=", 
   RowBox[{"PlusMinus", "@@", 
    RowBox[{"AvgMeasurements", "[", 
     RowBox[{"MyMap", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Shipit", "[", 
         RowBox[{"36", ",", "#", ",", "10000000", ",", " ", "25", ",", " ", 
          RowBox[{"-", "1"}], ",", "1", ",", "35", ",", " ", 
          RowBox[{"{", "xi", "}"}]}], "]"}], "&"}], ",", " ", 
       RowBox[{"Range", "[", "n", "]"}]}], "]"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.894873792463035*^9, 3.8948738015542307`*^9}},
 CellLabel->
  "In[268]:=",ExpressionUUID->"c05bb940-cee3-4754-a822-d2e17fb437af"]
}, Closed]],

Cell[CellGroupData[{

Cell["Save and load ShipitM", "Subsection",
 CellChangeTimes->{{3.892475452037092*^9, 
  3.892475467836718*^9}},ExpressionUUID->"08679477-d019-4a1e-9406-\
dedb27a8c78c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"<<", " ", 
    RowBox[{"(", 
     RowBox[{"projectPath", " ", "<>", " ", "\"\</mem_shipit.nb\>\""}], 
     ")"}]}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.892355270744549*^9, 3.892355333598682*^9}, {
  3.892397400476807*^9, 3.892397405483794*^9}, {3.892405399502255*^9, 
  3.89240540175354*^9}, {3.892434896999758*^9, 3.892434900185154*^9}, {
  3.892463101014223*^9, 3.892463103064296*^9}, {3.892471821692342*^9, 
  3.892471824963708*^9}, {3.892475179098378*^9, 3.8924751898595133`*^9}, {
  3.897289860390955*^9, 
  3.897289860658552*^9}},ExpressionUUID->"38f9af7f-8d26-49f5-af85-\
be85fc6b7403"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Save", "[", 
    RowBox[{
     RowBox[{"projectPath", "<>", "\"\</mem_shipit_new.nb\>\""}], ",", " ", 
     "ShipitM"}], "]"}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.892361115293391*^9, 3.89236116158144*^9}, {
  3.892406946273904*^9, 3.892406949928833*^9}, {3.892463096255427*^9, 
  3.8924630987494373`*^9}, {3.892471828381034*^9, 3.8924718387775393`*^9}, {
  3.8924729848850927`*^9, 3.892472986844046*^9}, {3.892475159467599*^9, 
  3.892475212445229*^9}, {3.897289862405404*^9, 
  3.89728986264362*^9}},ExpressionUUID->"02920c6b-51f4-4bd8-a999-\
52cd7bf860a0"]
}, Closed]],

Cell[CellGroupData[{

Cell["Import shipit_results.txt", "Subsection",
 CellChangeTimes->{{3.8890304500635023`*^9, 3.889030457368888*^9}, 
   3.889375494772086*^9, {3.892475755109655*^9, 
   3.892475760952907*^9}},ExpressionUUID->"bd8d119b-d1e7-44a4-a52e-\
87cfc5a6832b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"file", "=", "\"\<~/projects/shipit/shipit_results.txt\>\""}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.88902724259061*^9, 3.889027296158798*^9}, {
  3.892272423054549*^9, 3.892272423752557*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"60cee4bc-e606-4eb5-8a39-dba4a2812d39"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fields", "=", 
   RowBox[{"StringSplit", "[", "\[IndentingNewLine]", 
    RowBox[{
    "\"\<result\\tresult_sigma\\tm\\tseed\\tweeks\\ttrials\\tmean\\tsigma\\\
terror\\tp1\\tp2\\tp3\\tp4\\tp5\>\"", ",", "\"\<\\t\>\""}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"intFields", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<m\>\"", ",", " ", "\"\<seed\>\"", ",", " ", "\"\<weeks\>\"", ",", 
     " ", "\"\<trials\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"types", " ", "=", " ", 
   RowBox[{"Association", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"#", "\[Rule]", "\"\<Number\>\""}], ")"}], "&"}], "/@", 
     "fields"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"types", "[", "#", "]"}], "=", "\"\<Integer\>\""}], ";"}], 
     ")"}], "&"}], "/@", "intFields"}], 
  ";"}], "\[IndentingNewLine]", "types"}], "Input",
 CellChangeTimes->{{3.88903168770947*^9, 3.889031873100232*^9}, {
  3.889416338731955*^9, 3.8894163423330317`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"3c244c23-0c4d-4a38-85ea-633840ecce39"],

Cell[BoxData[
 RowBox[{"data0", "=", 
  RowBox[{"SemanticImport", "[", 
   RowBox[{"file", ",", " ", "types"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8890297680831747`*^9, 3.889029780917309*^9}, {
   3.889029821524221*^9, 3.889029822970726*^9}, {3.8890298571496067`*^9, 
   3.889029887481098*^9}, {3.889029919809422*^9, 3.889029921044608*^9}, 
   3.889031414618245*^9, {3.889031602410425*^9, 3.889031680406893*^9}, {
   3.88903188022434*^9, 3.889031881342936*^9}, {3.892403472468143*^9, 
   3.8924034951100397`*^9}, 3.892403662164506*^9},
 CellLabel->"In[31]:=",ExpressionUUID->"4e325b7e-ef20-4324-92e3-924a577ad2ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"data0", "[", 
    RowBox[{"Select", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", "\"\<m\>\"", "]"}], "!=", "11"}], "&"}], "]"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8924038867927227`*^9, 3.8924038881277637`*^9}, {
  3.8924039340024443`*^9, 3.892403992613393*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"176b11b4-56c5-4e39-b54e-9d6be2de5a02"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"KeyFn", "[", "r_", "]"}], ":=", 
   RowBox[{"HK", "[", 
    RowBox[{
     RowBox[{"r", "[", "\"\<m\>\"", "]"}], ",", 
     RowBox[{"r", "[", "\"\<mean\>\"", "]"}], ",", 
     RowBox[{"r", "[", "\"\<sigma\>\"", "]"}], ",", 
     RowBox[{"r", "[", "\"\<error\>\"", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataHash", "=", 
   RowBox[{"<|", "|>"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"r", "=", "#"}], ";", "\[IndentingNewLine]", 
       RowBox[{"k", "=", 
        RowBox[{"KeyFn", "[", "r", "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"If", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Lookup", "[", 
            RowBox[{"dataHash", ",", " ", "k", ",", "Null"}], "]"}], "==", 
           "Null"}], " ", "||", " ", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"dataHash", "[", "k", "]"}], "[", "\"\<weeks\>\"", "]"}], 
           "<", 
           RowBox[{"r", "[", "\"\<result\>\"", "]"}]}], "||", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"dataHash", "[", "k", "]"}], "[", "\"\<result\>\"", "]"}],
            "<", 
           RowBox[{"r", "[", "\"\<result\>\"", "]"}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"dataHash", "[", "k", "]"}], "=", "r"}]}], 
        "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", ")"}], 
     "&"}], "/@", 
    RowBox[{"data1", "[", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", "\"\<weeks\>\"", "]"}], "\[GreaterEqual]", 
        "1000000"}], "&"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Dataset", "[", 
      RowBox[{"Values", "[", "dataHash", "]"}], "]"}], "//", "Sort"}], " ", 
    ")"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.889030798386899*^9, 3.889030801181291*^9}, {
   3.8890308335623703`*^9, 3.889031146093865*^9}, 3.88903117947878*^9, {
   3.889031285916507*^9, 3.889031294939742*^9}, {3.889031350276247*^9, 
   3.889031380241672*^9}, {3.889031423685122*^9, 3.889031493606927*^9}, {
   3.889031898304885*^9, 3.8890319196363983`*^9}, {3.8890324024790497`*^9, 
   3.8890324191273746`*^9}, {3.8924020960619287`*^9, 3.892402103721466*^9}, {
   3.892404138076066*^9, 3.8924041382286863`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"cf960611-826b-45e3-bc8e-8532f989fa4a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Length", "[", "data0", "]"}], ",", 
   RowBox[{"Length", "[", "dataHash", "]"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.889031318696292*^9, 3.889031329624084*^9}, {
  3.88903138665021*^9, 3.889031408215726*^9}, {3.8890319301362047`*^9, 
  3.889031934959474*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"332717e4-74bd-4692-ae49-6a666b76c651"],

Cell[BoxData[
 RowBox[{"fields", " ", "=", " ", 
  RowBox[{
   RowBox[{"Keys", "[", 
    RowBox[{"data", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], "//", "Normal"}]}]], "Input",
 CellChangeTimes->{{3.894792873639326*^9, 3.894792902293805*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"2febed07-3cbe-4188-8a54-8efefd07420b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fieldsSm", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"fields", ",", " ", 
     RowBox[{
      RowBox[{"!", 
       RowBox[{"MemberQ", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<seed\>\"", ",", " ", "\"\<trials\>\"", ",", " ", 
           "\"\<weeks\>\""}], "}"}], ",", "#"}], " ", "]"}]}], "&"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8947929170078773`*^9, 3.894792955495776*^9}, {
  3.8947929890421333`*^9, 3.894793056682495*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"fac211c4-1cb9-4162-b6bc-49dbebdb749b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"prefilteredData", "=", 
   RowBox[{
    RowBox[{"data", "[", 
     RowBox[{"Select", "[", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", "\"\<sigma\>\"", "]"}], "\[Equal]", "1"}], " ", "&&",
         " ", 
        RowBox[{
         RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "\[Equal]", 
         RowBox[{"-", "1"}]}]}], "&"}], " ", "]"}], "]"}], "//", "Sort"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.889030767684058*^9, 3.88903078596043*^9}, {
  3.8890320456500893`*^9, 3.889032046260572*^9}, {3.889032222416234*^9, 
  3.8890322969357767`*^9}, {3.889422327978612*^9, 3.8894223284087763`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"2f39dd8a-877f-4fd8-b498-99dcd78d6037"],

Cell[BoxData[
 RowBox[{
  RowBox[{"prefilteredData", "[", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"#", "[", "\"\<error\>\"", "]"}], "\[Equal]", "35"}], ")"}], 
     " ", "&"}], " ", "]"}], "]"}], "//", "Sort"}]], "Input",
 CellChangeTimes->{{3.889380575860787*^9, 3.889380587559224*^9}, {
  3.889422441601982*^9, 3.889422442254023*^9}, {3.892405094867064*^9, 
  3.8924050952923594`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"30deb7bb-5bbf-430c-bd28-bb891ff26509"],

Cell[BoxData[
 RowBox[{"prefilteredData", "[", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"#", "[", "\"\<m\>\"", "]"}], "\[Equal]", "14"}], ")"}], "&"}], 
   " ", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8923977729584503`*^9, 3.892397784067905*^9}, {
  3.8924050878707657`*^9, 3.892405089489356*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"c1d66ae9-569f-46c3-9c6c-9fe99b3836ad"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"d10", "=", 
   RowBox[{
    RowBox[{"prefilteredData", "[", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"#", "[", "\"\<m\>\"", "]"}], "\[Equal]", "10"}], ")"}], 
       "&"}], " ", "]"}], "]"}], "//", "Sort"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d12", "=", 
   RowBox[{
    RowBox[{"prefilteredData", "[", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"#", "[", "\"\<m\>\"", "]"}], "\[Equal]", "12"}], ")"}], 
       "&"}], " ", "]"}], "]"}], "//", "Sort"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d14", "=", 
   RowBox[{
    RowBox[{"prefilteredData", "[", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"#", "[", "\"\<m\>\"", "]"}], "\[Equal]", "14"}], ")"}], 
       "&"}], " ", "]"}], "]"}], "//", "Sort"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d20", "=", 
   RowBox[{
    RowBox[{"prefilteredData", "[", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"#", "[", "\"\<m\>\"", "]"}], "\[Equal]", "20"}], ")"}], 
       "&"}], " ", "]"}], "]"}], "//", "Sort"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d21", "=", 
   RowBox[{
    RowBox[{"prefilteredData", "[", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"#", "[", "\"\<m\>\"", "]"}], "\[Equal]", "20"}], ")"}], 
       "&"}], " ", "]"}], "]"}], "//", "Sort"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d30", "=", 
   RowBox[{
    RowBox[{"prefilteredData", "[", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"#", "[", "\"\<m\>\"", "]"}], "\[Equal]", "30"}], ")"}], 
       "&"}], " ", "]"}], "]"}], "//", "Sort"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d32", "=", 
   RowBox[{
    RowBox[{"prefilteredData", "[", 
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"#", "[", "\"\<m\>\"", "]"}], "\[Equal]", "32"}], ")"}], 
       "&"}], " ", "]"}], "]"}], "//", "Sort"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.889029964413473*^9, 3.889030014644607*^9}, {
   3.889030058869574*^9, 3.889030065474325*^9}, {3.889030108058992*^9, 
   3.889030189457815*^9}, {3.889030276502334*^9, 3.889030302556431*^9}, {
   3.889030336670285*^9, 3.8890303829140472`*^9}, {3.889030563165979*^9, 
   3.889030564173089*^9}, {3.889030615463028*^9, 3.889030655967799*^9}, {
   3.8890307385461283`*^9, 3.88903074033993*^9}, {3.889031956349987*^9, 
   3.889031958829611*^9}, {3.889032006546339*^9, 3.889032012565119*^9}, {
   3.889032071894038*^9, 3.889032082228984*^9}, 3.889032193256177*^9, 
   3.8890322501592617`*^9, {3.8893724114421988`*^9, 3.889372415814137*^9}, 
   3.889372463337228*^9, {3.889376945293167*^9, 3.889376954216332*^9}, {
   3.889416392491241*^9, 3.889416398484396*^9}, {3.889422447708993*^9, 
   3.8894224591012087`*^9}, {3.892375429742033*^9, 3.892375469993669*^9}, {
   3.8923975685006027`*^9, 3.892397615573058*^9}, {3.892397879923053*^9, 
   3.8923978883788843`*^9}, {3.892404870850501*^9, 3.892404879235063*^9}, {
   3.8924051085542507`*^9, 3.8924051427528143`*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"7d565826-7f76-41ed-9285-6e8766d7c391"],

Cell[BoxData[
 RowBox[{
  RowBox[{"basicMs", "=", 
   RowBox[{"{", 
    RowBox[{"14", ",", "20", ",", "30", ",", "32"}], "}"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.8923980142789183`*^9, 3.8923980219474173`*^9}, {
  3.892404867424193*^9, 3.892404867813178*^9}, {3.89240491272567*^9, 
  3.89240491341844*^9}, {3.8924597154201193`*^9, 3.892459716556159*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"b17f8ced-bbd9-40ad-8f29-4cf4f10d8560"]
}, Closed]],

Cell[CellGroupData[{

Cell["Test \[OpenCurlyDoubleQuote]shipit\[CloseCurlyDoubleQuote] executable", \
"Subsection",
 CellChangeTimes->{{3.8923973388890553`*^9, 3.892397343405209*^9}, {
   3.892397474790414*^9, 3.892397478560897*^9}, 3.8924556808990107`*^9, {
   3.8924753874249687`*^9, 3.8924753990742292`*^9}, {3.89247562202645*^9, 
   3.89247562252346*^9}, {3.894791807750313*^9, 
   3.894791810195075*^9}},ExpressionUUID->"5e7f1786-fb15-4f3b-ac11-\
3bd05c954d39"],

Cell["\<\
for mean = -0.1, sigma = 1, error = 16, we expect 1.75 - 1.80\
\>", "Text",
 CellChangeTimes->{{3.892548057158175*^9, 3.8925480929120283`*^9}, {
  3.892548153814465*^9, 
  3.892548156718357*^9}},ExpressionUUID->"85f280bc-0c28-4db0-96b3-\
03d9fdda0152"],

Cell[BoxData[
 RowBox[{"Shipit0", "[", 
  RowBox[{"32", ",", " ", "1", ",", " ", "300000", ",", " ", "25", ",", " ", 
   RowBox[{"-", "0.1"}], ",", " ", "1", ",", " ", "16", ",", 
   RowBox[{"{", 
    RowBox[{"0.4316821622352789", ",", " ", "1.0119072802518363"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.892379120474126*^9, 3.892379156598653*^9}, 
   3.89238000938628*^9, {3.892380094186372*^9, 3.892380097254405*^9}, 
   3.892380257749885*^9, {3.8923811996144648`*^9, 3.8923812038980703`*^9}, 
   3.892385354878006*^9, 3.892475561571589*^9, 3.892475598880169*^9},
 CellLabel->"In[54]:=",ExpressionUUID->"c31bcb45-5180-408c-8ce9-0f6a1f07f214"],

Cell[BoxData[
 RowBox[{"Shipit0", "[", 
  RowBox[{"14", ",", " ", "1", ",", " ", "300000", ",", " ", "25", ",", " ", 
   RowBox[{"-", "0.1"}], ",", " ", "1", ",", " ", "16", ",", 
   RowBox[{"{", 
    RowBox[{"1.6171875000000004", ",", " ", "0.0"}], "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.892383469714966*^9, 3.892383470853753*^9}, {
   3.892385338732745*^9, 3.8923853479753447`*^9}, 3.892475564061163*^9, 
   3.892475599849394*^9},
 CellLabel->"In[55]:=",ExpressionUUID->"06723046-0a50-4dcc-8018-b80f264bb2a6"],

Cell[BoxData[
 RowBox[{"Shipit0", "[", 
  RowBox[{"15", ",", " ", "1", ",", " ", "300000", ",", " ", "25", ",", " ", 
   RowBox[{"-", "0.1"}], ",", " ", "1", ",", " ", "16", ",", 
   RowBox[{"{", "1.6171875000000004", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8923834812634172`*^9, 3.892383484174493*^9}, 
   3.8923853356369877`*^9, 3.892475565668893*^9, 3.892475600960843*^9},
 CellLabel->"In[56]:=",ExpressionUUID->"d3cddb5c-2500-4b78-89b1-db1e8c1d0d96"],

Cell["for mean = -1, sigma = 1, error = 16, we expect  0.10 - 0.11", "Text",
 CellChangeTimes->{{3.892548098473714*^9, 
  3.89254814866753*^9}},ExpressionUUID->"22274dac-9e62-45b9-8b23-\
4f265e93906c"],

Cell[BoxData[
 RowBox[{"Shipit0", "[", 
  RowBox[{"20", ",", " ", "1", ",", " ", "300000", ",", " ", "25", ",", " ", 
   RowBox[{"-", "1"}], ",", " ", "1", ",", " ", "16", ",", 
   RowBox[{"{", 
    RowBox[{"0.5929603648059317", ",", 
     RowBox[{
      RowBox[{"Log", "[", "0.5929603648059317", "]"}], " ", "+", " ", 
      "11.85168706794350"}], ",", " ", "2", ",", " ", "1.82082485716244320"}],
     "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8923839764152927`*^9, 3.892383987770603*^9}, 
   3.892385363019504*^9, {3.892385526860365*^9, 3.892385534489296*^9}, {
   3.892385704820183*^9, 3.8923857110987883`*^9}, {3.892386300055415*^9, 
   3.8923863577034607`*^9}, {3.892386663308116*^9, 3.892386667658018*^9}, {
   3.8923872971977386`*^9, 3.892387322559412*^9}, {3.892391146027176*^9, 
   3.892391196474091*^9}, {3.892391905828752*^9, 3.89239191105765*^9}, {
   3.892391958149189*^9, 3.892391966628766*^9}, {3.8923973113271112`*^9, 
   3.892397316180956*^9}, 3.892475567165532*^9, 3.8924756038070393`*^9},
 CellLabel->"In[57]:=",ExpressionUUID->"3ad4cc1d-0033-437f-bc89-90b81446785b"],

Cell[BoxData[
 RowBox[{"Shipit0", "[", 
  RowBox[{"21", ",", " ", "1", ",", " ", "300000", ",", " ", "25", ",", " ", 
   RowBox[{"-", "1"}], ",", " ", "1", ",", " ", "16", ",", 
   RowBox[{"{", 
    RowBox[{
    "0.5929603648059317", ",", "11", ",", " ", "1.82082485716244320"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892387948176981*^9, 3.89238794871301*^9}, {
   3.892388033701111*^9, 3.8923880338211737`*^9}, {3.892388857737132*^9, 
   3.892388858068363*^9}, {3.8923889518739967`*^9, 3.892388952010058*^9}, 
   3.892391926903627*^9, 3.892397307070354*^9, 3.89247556900526*^9, 
   3.892475605383299*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"8afb6bc9-e44c-432c-be57-ac25cf66fd0b"],

Cell[BoxData[
 RowBox[{"Shipit0", "[", 
  RowBox[{"11", ",", " ", "1", ",", " ", "300000", ",", " ", "25", ",", " ", 
   RowBox[{"-", "1"}], ",", " ", "1", ",", " ", "16", ",", 
   RowBox[{"{", 
    RowBox[{"0.42", ",", " ", "1.0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.892475611841715*^9},
 CellLabel->"In[59]:=",ExpressionUUID->"7694ba3d-a90a-49ac-9779-02768894680b"],

Cell[BoxData[
 RowBox[{"Shipit0", "[", 
  RowBox[{"30", ",", " ", "1", ",", " ", "300000", ",", " ", "25", ",", " ", 
   RowBox[{"-", "1"}], ",", " ", "1", ",", " ", "16", ",", 
   RowBox[{"{", " ", 
    RowBox[{
    "1.9738814126886406", ",", " ", "0.5347630010785354", ",", " ", 
     "0.01108"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892276832736293*^9, 3.892276850508582*^9}, {
   3.892277131106421*^9, 3.892277148165187*^9}, {3.892375130127079*^9, 
   3.8923751402198153`*^9}, {3.892380867294653*^9, 3.892380872753808*^9}, 
   3.8923853584338617`*^9, 3.892391208972621*^9, 3.8923973202859163`*^9, 
   3.8924755593169603`*^9, 3.8924755975594673`*^9},
 CellLabel->"In[60]:=",ExpressionUUID->"f95f5866-6295-41c9-b953-51a67ec23e2d"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Compare p-value, g-value, moss-index for mean=-1;  sigma=1.0; \
\>", "Subsection",
 CellChangeTimes->{{3.892277249107211*^9, 3.892277265873797*^9}, 
   3.8923974694882307`*^9, {3.892475688513126*^9, 3.892475702161422*^9}, {
   3.892475744251495*^9, 3.892475750218977*^9}, {3.8925481900179787`*^9, 
   3.892548208335148*^9}, 
   3.892551067608107*^9},ExpressionUUID->"f57e90de-117e-46ac-9594-\
26c3a878d228"],

Cell["\<\
m = 10, 11, 12, 13, 14 \[Dash]  p - value 
m = 20, 21 \[Dash] moss index
m = 30, 31 - g - value\
\>", "Text",
 CellChangeTimes->{{3.892548212819942*^9, 
  3.8925482547999563`*^9}},ExpressionUUID->"27696cf3-4992-4cd7-8bc5-\
2ecf8b7f79f3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"meanB0", "=", 
   RowBox[{"-", "1"}]}], ";", 
  RowBox[{"sigmaB0", "=", "1.0"}], ";"}]], "Input",
 CellChangeTimes->{{3.889413201018927*^9, 3.889413206451325*^9}, {
   3.889413384059664*^9, 3.889413390343498*^9}, {3.889413698315248*^9, 
   3.889413701700427*^9}, {3.8894140710478983`*^9, 3.889414129436462*^9}, 
   3.892449262076622*^9, {3.892449522519371*^9, 3.892449527520865*^9}, {
   3.8924499061242*^9, 3.892449913558715*^9}, {3.8924502226473846`*^9, 
   3.892450236394405*^9}, 3.892450453180216*^9, 3.8925510735925407`*^9},
 CellLabel->"In[51]:=",ExpressionUUID->"70234c47-ef84-4759-aa75-708aa6374e21"],

Cell[BoxData[
 RowBox[{"data", "[", 
  RowBox[{
   RowBox[{"Select", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "\[Equal]", "meanB0"}], " ", "&&",
       " ", 
      RowBox[{
       RowBox[{"#", "[", "\"\<sigma\>\"", "]"}], "\[Equal]", "sigmaB0"}], "&&", 
      RowBox[{
       RowBox[{"#", "[", "\"\<error\>\"", "]"}], "\[Equal]", "35"}]}], "&"}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "\"\<result\>\"", ",", " ", "\"\<m\>\"", ",", " ", "\"\<p1\>\"", ",", 
     " ", "\"\<p2\>\"", ",", " ", "\"\<p3\>\"", ",", " ", "\"\<p4\>\""}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892548390606982*^9, 3.89254846841588*^9}, {
  3.8925510810102053`*^9, 3.892551081319922*^9}, {3.892551339693715*^9, 
  3.8925513620357113`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"40510173-6732-45cd-8c1d-7ae5e5f4c7ee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"n", "=", "10000000"}], ";"}]], "Input",
 CellChangeTimes->{
  3.892548858727969*^9, {3.892548938702215*^9, 3.89254894060918*^9}, {
   3.8925494032889853`*^9, 3.892549410977552*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"c8f5cf24-f675-40c0-ae72-d365bf9735b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sp0", "=", "2.24812"}], ";"}]], "Input",
 CellChangeTimes->{{3.892450484796867*^9, 3.892450485168161*^9}, {
   3.892450538311288*^9, 3.892450569737352*^9}, {3.8924505997453337`*^9, 
   3.892450624625731*^9}, {3.8924506913547993`*^9, 3.8924506921746683`*^9}, {
   3.892452478224289*^9, 3.892452485658011*^9}, {3.8924526015671597`*^9, 
   3.8924526043380537`*^9}, {3.892452637272914*^9, 3.89245264469388*^9}, {
   3.892452713914874*^9, 3.892452717603479*^9}, {3.892452838316634*^9, 
   3.892452838519843*^9}, 3.892453033833407*^9, {3.8924550805317802`*^9, 
   3.892455106016561*^9}, {3.8925512014499617`*^9, 3.89255121400815*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"7432a5b3-d03d-4a11-bd2b-bb8d3cf31732"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"sm0", "=", "0.784"}], ";", 
   RowBox[{"l0", "=", "5.523"}], ";", 
   RowBox[{"shipm0", "=", "1.7014"}], ";", " ", 
   RowBox[{"ksim0", "=", "1.375"}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.892550201045155*^9, 3.8925502053307543`*^9}, {
  3.8925512291605*^9, 3.892551321284546*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"cd6c4974-0ff4-45fa-868f-66caa80e9efc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sg0", "=", "0.7375"}], ";", 
  RowBox[{"shg0", "=", "1.0"}], ";", 
  RowBox[{"ksig0", "=", 
   RowBox[{"-", "0.023013"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.892453114120717*^9, 3.8924531177811604`*^9}, 
   3.892551267691358*^9, {3.892551607456369*^9, 3.8925516319349327`*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"c9c89444-deac-469e-bdb8-98b83f2dfd67"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "14", ",", " ", "1", ",", " ", "n", ",", " ", "25", ",", " ", "meanB0", ",",
    " ", "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{"2.2481", ",", " ", "0.0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892455536344654*^9, 3.89245553646206*^9}, 
   3.892475313341176*^9, {3.892551149091865*^9, 3.892551158248293*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"6d0dd8d7-8aaa-4da7-a5ed-8af5ee953617"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "20", ",", " ", "1", ",", " ", "n", ",", " ", "25", ",", " ", "meanB0", ",",
    " ", "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{"0.7841", ",", " ", "5.523", ",", "1.701", ",", "1.375"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892548486169746*^9, 3.892548511782783*^9}, {
  3.8925485563559103`*^9, 3.892548589912712*^9}, {3.8925487616742907`*^9, 
  3.8925487871838303`*^9}, {3.892551465541209*^9, 3.8925515038741426`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"b4a2eb16-ea9e-40e2-8198-6e673ecdf63f"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "30", ",", " ", "1", ",", " ", "n", ",", " ", "25", ",", " ", "meanB0", ",",
    " ", "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{"0.7375", ",", " ", "1.005", ",", " ", 
     RowBox[{"-", "0.023013"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892452865583119*^9, 3.8924528803257437`*^9}, {
   3.8924529153139544`*^9, 3.8924529788257837`*^9}, {3.892453571373822*^9, 
   3.89245357856308*^9}, 3.8924752925211697`*^9, {3.892551551993492*^9, 
   3.8925515786847343`*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"61023dc5-5454-4bf5-86ef-f79d01826a07"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "30", ",", " ", "1", ",", " ", "n", ",", " ", "25", ",", " ", "meanB0", ",",
    " ", "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{"0.826", ",", " ", "1.0", ",", " ", 
     RowBox[{"-", "0.0304"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892452865583119*^9, 3.8924528803257437`*^9}, {
   3.8924529153139544`*^9, 3.8924529788257837`*^9}, {3.892453571373822*^9, 
   3.89245357856308*^9}, 3.8924752925211697`*^9, {3.892551551993492*^9, 
   3.8925515786847343`*^9}, {3.892551806741871*^9, 3.8925518160439167`*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"cd137983-675e-4c0d-a82c-103f3169f4d5"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"PIndex", "[", 
         RowBox[{"mean", ",", "sigma", ",", "sp"}], "]"}], "<", " ", 
        RowBox[{"PIndex", "[", 
         RowBox[{"meanB", ",", "sigmaB", ",", "sp"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"GIndex", "[", 
         RowBox[{"mean", ",", 
          RowBox[{"sg", "*", "sigma"}], ",", "ksig"}], "]"}], "<", " ", 
        RowBox[{"GIndex", "[", 
         RowBox[{"meanB", ",", 
          RowBox[{"sg", "*", "sigmaB"}], ",", "ksig"}], "]"}]}], " ", ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"MossIndex", "[", 
         RowBox[{
         "mean", ",", " ", "sigma", ",", "sm", ",", "l", ",", "ksim"}], "]"}],
         "<", " ", 
        RowBox[{"MossIndex", "[", 
         RowBox[{"meanB", ",", "sigmaB", ",", "sm", ",", "l", ",", "ksim"}], 
         "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"mean", " ", ">", " ", 
        RowBox[{"shg", "*", 
         RowBox[{"GIndex", "[", 
          RowBox[{"mean", ",", 
           RowBox[{"sg", "*", "sigma"}], ",", "ksig"}], "]"}]}]}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"mean", ",", " ", 
       RowBox[{"-", "1.1"}], ",", "0.2"}], "}"}], ",", "\[IndentingNewLine]", 
     
     RowBox[{"{", 
      RowBox[{"sigma", ",", " ", "0.4", ",", "1.1"}], "}"}]}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"meanB", ",", " ", "meanB0"}], "}"}], ",", " ", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sigmaB", ",", " ", "sigmaB0"}], "}"}], ",", " ", "0.1", ",", 
     "2"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sg", ",", " ", "sg0"}], "}"}], ",", " ", "0.2", ",", "2.2"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"shg", ",", " ", "shg0"}], "}"}], ",", " ", "0.0", ",", "1.0"}],
     "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ksig", ",", " ", "ksig0"}], "}"}], ",", " ", 
     RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sp", ",", " ", "sp0"}], "}"}], ",", " ", "0.2", ",", "2.5"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sm", ",", " ", "sm0"}], "}"}], ",", " ", "0.2", ",", "2.2"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"l", ",", " ", "l0"}], "}"}], ",", " ", "0.1", ",", "24"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ksim", ",", " ", "ksim0"}], "}"}], ",", " ", 
     RowBox[{"-", "0.5"}], ",", "15.0"}], "}"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdzk8oQwEABvBncVocnNY2ashqZZvVMv+23ph/ZfSkuKqnFJaNt6KWSM2G
oUVqh1FrKxtx0ChpkrR2mBSRphRKKBvZZpZ97/D167t8faIBA0VzCIIQ5AL1
RympOf1GTgwKZFAyv6qETvWGFWqEO2uw937YA5UP2QBcEhXvwaiOcwjPRrUn
kBkqCcPNlVgUXkYaPuF01WmC3fVXJyFf7siyPZJJksQ76RK3ZmF+zXKZNmda
YZbAHyashOeyWRWUF8Ta4UUk3gO5lLcPWviqfujZvRmDBv+cCboLmy2wO0Sz
BuOdW7BynWKd0th88Nnh3oYzdqmtKedraSNrLeU9gEKnLggTz3V3cNHOe4LM
gjNkxJ8/F6uvKxCF9RbFNWzj0SpTzsmvFzX8EHFboHi/ogNai0b08PGWYSWN
5b9QoeNkIH31nTeOf8cp1n+/pNHG
  "],
 CellLabel->"In[61]:=",ExpressionUUID->"365712d6-efa5-4de6-8d2e-9bb1543147c7"],

Cell[BoxData[
 RowBox[{"sigma0", " ", "=", " ", 
  RowBox[{
   RowBox[{"PIndex", "[", 
    RowBox[{"meanB0", ",", " ", "sigmaB0", ",", " ", "sp0"}], "]"}], "/", 
   "sp0"}]}]], "Input",
 CellChangeTimes->{{3.892451157450653*^9, 3.892451229554016*^9}, {
  3.892451374386137*^9, 3.892451375346672*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"7629dfa4-98c1-4279-a34d-6afedb12d480"],

Cell[BoxData[
 RowBox[{"ksi", " ", "=", " ", 
  RowBox[{"3.82", " ", "+", " ", 
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"sigmaB0", "+", "sigma0"}], ")"}], "/", "2"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8924510051309423`*^9, 3.892451018230938*^9}, {
  3.89245109719059*^9, 3.892451102770268*^9}, {3.892451382369507*^9, 
  3.892451414183464*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"7a451e3b-f521-4a00-9b8c-8bce42d7817d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"meanCnd", "[", "mean_", "]"}], ":=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "==", "mean"}], "&"}], ")"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.892273131418695*^9, 3.892273166888391*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"6fd05142-f420-4631-9dc2-ea390b8c97f3"],

Cell[BoxData[
 RowBox[{"MemberQ", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.892274653063751*^9, 3.892274671906608*^9}, {
  3.892274725570512*^9, 3.892274728124301*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"92f70153-9d40-47b1-bcd0-b5ab3f7e8dc6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Unprotect", "[", "Element", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x_", " ", "\[Element]", " ", "s_List"}], ":=", 
  RowBox[{"MemberQ", "[", 
   RowBox[{"s", ",", "x"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Protect", "[", "Element", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8922747304255943`*^9, 3.8922747424864798`*^9}, {
  3.892274781685626*^9, 3.892274842451187*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"1cb117e6-fff4-4583-9e9a-04b66c954d15"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Compare p-value, g-value, moss-index for mean=-0.5;  sigma=1.0; \
\>", "Subsection",
 CellChangeTimes->{{3.892277249107211*^9, 3.892277265873797*^9}, 
   3.8923974694882307`*^9, {3.892475688513126*^9, 3.892475702161422*^9}, {
   3.892475744251495*^9, 3.892475750218977*^9}, {3.8925481900179787`*^9, 
   3.892548208335148*^9}},ExpressionUUID->"d5626012-6c5d-495a-b7c9-\
e10ed4edbb8e"],

Cell["\<\
m = 10, 11, 12, 13, 14 \[Dash]  p - value 
m = 20, 21 \[Dash] moss index
m = 30, 31 - g - value\
\>", "Text",
 CellChangeTimes->{{3.892548212819942*^9, 
  3.8925482547999563`*^9}},ExpressionUUID->"2562f774-c2d9-41a4-9227-\
a0b0ad8c167b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"meanB0", "=", 
   RowBox[{"-", "0.5"}]}], ";", 
  RowBox[{"sigmaB0", "=", "1.0"}], ";"}]], "Input",
 CellChangeTimes->{{3.889413201018927*^9, 3.889413206451325*^9}, {
   3.889413384059664*^9, 3.889413390343498*^9}, {3.889413698315248*^9, 
   3.889413701700427*^9}, {3.8894140710478983`*^9, 3.889414129436462*^9}, 
   3.892449262076622*^9, {3.892449522519371*^9, 3.892449527520865*^9}, {
   3.8924499061242*^9, 3.892449913558715*^9}, {3.8924502226473846`*^9, 
   3.892450236394405*^9}, 3.892450453180216*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"47669576-38a6-48d9-bd34-043292119571"],

Cell[BoxData[
 RowBox[{"data", "[", 
  RowBox[{
   RowBox[{"Select", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "\[Equal]", "meanB0"}], " ", "&&",
       " ", 
      RowBox[{
       RowBox[{"#", "[", "\"\<sigma\>\"", "]"}], "\[Equal]", "sigmaB0"}], "&&", 
      RowBox[{
       RowBox[{"#", "[", "\"\<error\>\"", "]"}], "\[Equal]", "32"}]}], "&"}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "\"\<result\>\"", ",", " ", "\"\<m\>\"", ",", " ", "\"\<p1\>\"", ",", 
     " ", "\"\<p2\>\"", ",", " ", "\"\<p3\>\"", ",", " ", "\"\<p4\>\""}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892548390606982*^9, 3.89254846841588*^9}, {
  3.892551380295721*^9, 3.892551383468172*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"f8ea8d90-afa4-495b-b2da-b318c64fdfcd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"n", "=", "10000000"}], ";"}]], "Input",
 CellChangeTimes->{
  3.892548858727969*^9, {3.892548938702215*^9, 3.89254894060918*^9}, {
   3.8925494032889853`*^9, 3.892549410977552*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"cb7b5284-ae62-4f96-aaa5-1073863d06c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sp0", "=", "1.419913"}], ";"}]], "Input",
 CellChangeTimes->{{3.892450484796867*^9, 3.892450485168161*^9}, {
   3.892450538311288*^9, 3.892450569737352*^9}, {3.8924505997453337`*^9, 
   3.892450624625731*^9}, {3.8924506913547993`*^9, 3.8924506921746683`*^9}, {
   3.892452478224289*^9, 3.892452485658011*^9}, {3.8924526015671597`*^9, 
   3.8924526043380537`*^9}, {3.892452637272914*^9, 3.89245264469388*^9}, {
   3.892452713914874*^9, 3.892452717603479*^9}, {3.892452838316634*^9, 
   3.892452838519843*^9}, 3.892453033833407*^9, {3.8924550805317802`*^9, 
   3.892455106016561*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"e506393a-4548-4a53-87c9-ffdf6005ea0d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sm0", "=", "0.646"}], ";", 
  RowBox[{"l0", "=", "3.82"}], ";", " ", 
  RowBox[{"ksim0", "=", "3.62"}], ";", " ", 
  RowBox[{"shg0", "=", "0.64"}], ";"}]], "Input",
 CellChangeTimes->{{3.892550201045155*^9, 3.8925502053307543`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"c88c40fa-80ea-4445-9b30-e36c58c252b8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sg0", "=", "1.352"}], ";", 
  RowBox[{"ksig0", "=", "0.0"}], ";"}]], "Input",
 CellChangeTimes->{{3.892453114120717*^9, 3.8924531177811604`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"d8a496cd-a986-4f3f-8754-be3e0fa78fdd"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "14", ",", " ", "1", ",", " ", "n", ",", " ", "25", ",", " ", "meanB0", ",",
    " ", "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{"1.43", ",", " ", "0.0"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892455536344654*^9, 3.89245553646206*^9}, 
   3.892475313341176*^9},
 CellLabel->"In[39]:=",ExpressionUUID->"19cd263b-7300-4475-be1e-f3a1bbf2c867"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "20", ",", " ", "1", ",", " ", "n", ",", " ", "25", ",", " ", "meanB0", ",",
    " ", "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{
    "0.2709187", ",", " ", "20.162087", ",", "1.4119", ",", "2.278927"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892548486169746*^9, 3.892548511782783*^9}, {
  3.8925485563559103`*^9, 3.892548589912712*^9}, {3.8925487616742907`*^9, 
  3.8925487871838303`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"2f541537-b7d5-4ec5-ab9b-3e407dd89c38"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "20", ",", " ", "1", ",", " ", "n", ",", " ", "25", ",", " ", "meanB0", ",",
    " ", "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{"0.646", ",", " ", "3.82", ",", "1.4119", ",", "3.62"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.892548820906645*^9, 3.8925488403918753`*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"3a2ebd83-467e-419d-a214-2275e9471a0a"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "20", ",", " ", "1", ",", " ", "n", ",", " ", "25", ",", " ", "meanB0", ",",
    " ", "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{"0.588", ",", " ", "5.04", ",", "1.4119", ",", "4.92"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.892549425756627*^9, 3.8925494689720573`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"fa4597b0-0840-466b-906d-4793afd7b85c"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "30", ",", " ", "1", ",", " ", "n", ",", " ", "25", ",", " ", "meanB0", ",",
    " ", "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{"0.96849", ",", " ", "0.64", ",", " ", 
     RowBox[{"-", "0.023"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892452865583119*^9, 3.8924528803257437`*^9}, {
   3.8924529153139544`*^9, 3.8924529788257837`*^9}, {3.892453571373822*^9, 
   3.89245357856308*^9}, 3.8924752925211697`*^9},
 CellLabel->"In[43]:=",ExpressionUUID->"87494a31-f1d6-4bd1-8995-0d7eb1065a57"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "30", ",", " ", "1", ",", " ", "n", ",", " ", "25", ",", " ", "meanB0", ",",
    " ", "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{"0.552", ",", " ", "1.0", ",", " ", 
     RowBox[{"-", "0.0162"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892550752507164*^9, 3.892550795229992*^9}, 
   3.892550833118533*^9, {3.89255092134834*^9, 3.892550921852344*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"d9ae85d1-311d-4253-a212-e72c66451210"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "30", ",", " ", "1", ",", " ", "n", ",", " ", "25", ",", " ", "meanB0", ",",
    " ", "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{"1.352", ",", " ", "0.37", ",", " ", 
     RowBox[{"-", "0.0116"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892550016196644*^9, 3.892550037388464*^9}, {
  3.892550395418229*^9, 3.892550395759884*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"7fee60c9-6b82-4922-b756-9b1515850daf"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "30", ",", " ", "1", ",", "n", ",", " ", "25", ",", " ", "meanB0", ",", " ",
    "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{"1.28", ",", " ", "0.5", ",", " ", 
     RowBox[{"-", "0.023"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8924532268961277`*^9, 3.892453232786379*^9}, {
   3.892453277997534*^9, 3.8924534345152617`*^9}, {3.892453539899613*^9, 
   3.892453582149084*^9}, 3.892475296870105*^9},
 CellLabel->"In[46]:=",ExpressionUUID->"a064c1d5-9dd8-476f-b8ff-dbc03374dcd1"],

Cell[BoxData[
 RowBox[{"Shipit", "[", 
  RowBox[{
  "30", ",", " ", "1", ",", " ", "n", ",", " ", "25", ",", " ", "meanB0", ",",
    " ", "sigmaB0", ",", " ", "32", ",", 
   RowBox[{"{", 
    RowBox[{"1.352", ",", " ", "0.5", ",", " ", 
     RowBox[{"-", "0.013"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8924551934072733`*^9, 3.8924552996989393`*^9}, 
   3.892475300702551*^9},
 CellLabel->"In[47]:=",ExpressionUUID->"80eb4451-d2de-45da-89af-f23146f1d8d6"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"PIndex", "[", 
         RowBox[{"mean", ",", "sigma", ",", "sp"}], "]"}], "<", " ", 
        RowBox[{"PIndex", "[", 
         RowBox[{"meanB", ",", "sigmaB", ",", "sp"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"GIndex", "[", 
         RowBox[{"mean", ",", 
          RowBox[{"sg", "*", "sigma"}], ",", "ksig"}], "]"}], "<", " ", 
        RowBox[{"GIndex", "[", 
         RowBox[{"meanB", ",", 
          RowBox[{"sg", "*", "sigmaB"}], ",", "ksig"}], "]"}]}], " ", ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"MossIndex", "[", 
         RowBox[{
         "mean", ",", " ", "sigma", ",", "sm", ",", "l", ",", "ksim"}], "]"}],
         "<", " ", 
        RowBox[{"MossIndex", "[", 
         RowBox[{"meanB", ",", "sigmaB", ",", "sm", ",", "l", ",", "ksim"}], 
         "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"mean", " ", ">", " ", 
        RowBox[{"shg", "*", 
         RowBox[{"GIndex", "[", 
          RowBox[{"mean", ",", 
           RowBox[{"sg", "*", "sigma"}], ",", "ksig"}], "]"}]}]}]}], 
      "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"mean", ",", " ", 
       RowBox[{"-", "0.6"}], ",", "0.5"}], "}"}], ",", "\[IndentingNewLine]", 
     
     RowBox[{"{", 
      RowBox[{"sigma", ",", " ", "0.4", ",", "1.1"}], "}"}]}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"meanB", ",", " ", "meanB0"}], "}"}], ",", " ", 
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sigmaB", ",", " ", "sigmaB0"}], "}"}], ",", " ", "0.1", ",", 
     "2"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sg", ",", " ", "sg0"}], "}"}], ",", " ", "0.2", ",", "2.2"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"shg", ",", " ", "shg0"}], "}"}], ",", " ", "0.0", ",", "1.0"}],
     "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ksig", ",", " ", "ksig0"}], "}"}], ",", " ", 
     RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sp", ",", " ", "sp0"}], "}"}], ",", " ", "0.2", ",", "2.2"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sm", ",", " ", "sm0"}], "}"}], ",", " ", "0.2", ",", "2.2"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"l", ",", " ", "l0"}], "}"}], ",", " ", "0.1", ",", "24"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ksim", ",", " ", "ksim0"}], "}"}], ",", " ", 
     RowBox[{"-", "0.5"}], ",", "15.0"}], "}"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGCQBGIQ7bfrp175rzeOpWnS+iBaq3OSKYieYjezA0Tby6yb
BqJD7+QsBdGm9/+tBdF9ikIbQfQFV6adIPpIntN+EF2WKXsKRC+ceO8CiL54
xuYjiG7QPfQZbO4awx8gWsqg/x+Yf+bPD0eGt45z1N3/gWgW8wlKTkD6l1G5
Foj+XnbKFEQf02+2ANEGrPc8QfSJM5+CQTR30PIIEF0nZREJopeuv14IovPX
tBaD6AW8LnUgOuBgKpje8cl3EYhWmx4Epqvtu1aA6Gf9C1aD6KZuvS5nIP1K
zhZMWwYt3waiZaa47gDRn59Z3QLRvd0ST0F0Wc+Ug0Ug9/ydA6ZX+K+9AKKt
64yugWgPiVSLYiBd9eW5HYh+p8jtBqLVN6l4gegOvlw/EP3oZhmYBgBuucMt

  "],
 CellLabel->"In[48]:=",ExpressionUUID->"5df03ea6-3bcf-4d5d-9c6a-4b7cc388400f"],

Cell[BoxData[
 RowBox[{"sigma0", " ", "=", " ", 
  RowBox[{
   RowBox[{"PIndex", "[", 
    RowBox[{"meanB0", ",", " ", "sigmaB0", ",", " ", "sp0"}], "]"}], "/", 
   "sp0"}]}]], "Input",
 CellChangeTimes->{{3.892451157450653*^9, 3.892451229554016*^9}, {
  3.892451374386137*^9, 3.892451375346672*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"75e87854-97bd-4825-a8c6-802c29142dcb"],

Cell[BoxData[
 RowBox[{"ksi", " ", "=", " ", 
  RowBox[{"3.82", " ", "+", " ", 
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"sigmaB0", "+", "sigma0"}], ")"}], "/", "2"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8924510051309423`*^9, 3.892451018230938*^9}, {
  3.89245109719059*^9, 3.892451102770268*^9}, {3.892451382369507*^9, 
  3.892451414183464*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"e470f69f-8b93-4c20-9a35-d3934d88258f"]
}, Closed]],

Cell[CellGroupData[{

Cell["mean = -1, sigma = 1. Plot result vs error", "Subsection",
 CellChangeTimes->{{3.8890304960438833`*^9, 3.889030535502289*^9}, {
  3.8894520303150587`*^9, 
  3.88945203992778*^9}},ExpressionUUID->"eac29dc3-ffb9-4189-ae37-\
62b0961b373e"],

Cell[BoxData["d14"], "Input",
 CellChangeTimes->{{3.8893805586119633`*^9, 3.889380559159822*^9}, {
  3.89236348398286*^9, 3.892363484255131*^9}, {3.892397664184661*^9, 
  3.892397685524518*^9}, {3.892397804952124*^9, 3.8923978059327993`*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"00815652-bf83-4001-8aa9-9b621f9df248"],

Cell[BoxData["d21"], "Input",
 CellChangeTimes->{{3.892446122560738*^9, 3.8924461232775307`*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"67358896-2e92-47c7-a66b-3bdda412471c"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"d12", "[", 
      RowBox[{"All", ",", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<error\>\"", ",", " ", "\"\<result\>\""}], "}"}]}], "]"}],
      ",", "\[IndentingNewLine]", 
     RowBox[{"d14", "[", 
      RowBox[{"All", ",", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<error\>\"", ",", " ", "\"\<result\>\""}], "}"}]}], "]"}],
      ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"d21", "[", 
       RowBox[{"All", ",", " ", 
        RowBox[{"{", 
         RowBox[{"\"\<error\>\"", ",", " ", "\"\<result\>\""}], "}"}]}], 
       "]"}], "//", "Sort"}], ",", "\[IndentingNewLine]", 
     RowBox[{"d30", "[", 
      RowBox[{"All", ",", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<error\>\"", ",", " ", "\"\<result\>\""}], "}"}]}], 
      "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.889030397785151*^9, 3.8890304296461782`*^9}, {
  3.889030547594755*^9, 3.889030553659648*^9}, {3.889030679994338*^9, 
  3.889030696816305*^9}, {3.8890320151224537`*^9, 3.889032015393979*^9}, {
  3.88903208403344*^9, 3.889032095276582*^9}, {3.8890321684511642`*^9, 
  3.8890321778925447`*^9}, {3.889372400460079*^9, 3.889372433269342*^9}, {
  3.889376964757367*^9, 3.8893770398340693`*^9}, {3.889416411618257*^9, 
  3.8894164166255913`*^9}, {3.88941647741033*^9, 3.889416478250074*^9}, {
  3.8894173856147137`*^9, 3.889417390015993*^9}, {3.892397830421192*^9, 
  3.8923978670134993`*^9}, {3.892404836116103*^9, 3.892404837319696*^9}, {
  3.892404895822797*^9, 3.8924049030148993`*^9}, {3.8924456706405163`*^9, 
  3.89244567208383*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"001ea2e4-62e4-4aaa-a1d4-e3ae4b2d1829"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"d12", "[", 
       RowBox[{"All", ",", " ", 
        RowBox[{"{", 
         RowBox[{"\"\<error\>\"", ",", " ", "\"\<result\>\""}], "}"}]}], 
       "]"}], "//", "Sort"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"d14", "[", 
       RowBox[{"All", ",", " ", 
        RowBox[{"{", 
         RowBox[{"\"\<error\>\"", ",", " ", "\"\<result\>\""}], "}"}]}], 
       "]"}], "//", "Sort"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"d30", "[", 
       RowBox[{"All", ",", " ", 
        RowBox[{"{", 
         RowBox[{"\"\<error\>\"", ",", " ", "\"\<result\>\""}], "}"}]}], 
       "]"}], "//", "Sort"}]}], "\[IndentingNewLine]", "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"5", ",", "36"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.10", ",", "0.115"}], "}"}]}], "}"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.889416698744495*^9, 3.88941673843207*^9}, {
  3.889416785939801*^9, 3.889416789804497*^9}, {3.88941683332016*^9, 
  3.8894168616200447`*^9}, {3.8894169100106783`*^9, 3.889416916223075*^9}, {
  3.889416955089135*^9, 3.8894169597311974`*^9}, {3.889417122816264*^9, 
  3.889417132010194*^9}, {3.8894171772568817`*^9, 3.889417185952941*^9}, {
  3.889417394866982*^9, 3.8894174354674473`*^9}, {3.889427876336645*^9, 
  3.889427947817156*^9}, {3.88944693178889*^9, 3.889446932573399*^9}, {
  3.8923979030597057`*^9, 3.892397912968329*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"6b6352dd-6c70-409c-a7ed-a70f45f3cac9"],

Cell[BoxData[
 RowBox[{"dss", "=", 
  RowBox[{"ResultVsError", "[", 
   RowBox[{"data", ",", " ", 
    RowBox[{"-", "1"}], ",", " ", "1", ",", " ", "basicMs"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.889451819849722*^9, 3.8894518307564487`*^9}, {
  3.889451874733609*^9, 3.88945189397722*^9}, {3.892273395343173*^9, 
  3.8922733964428043`*^9}, {3.892367028570966*^9, 3.89236708154408*^9}, {
  3.8923979480085287`*^9, 3.892397972696869*^9}, {3.8923980357148857`*^9, 
  3.892398037027913*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"1d72ea0a-69ea-4791-b7da-8dd5468a20f4"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
  RowBox[{"dss", ",", "\[IndentingNewLine]", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"5", ",", "36"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.10", ",", "0.115"}], "}"}]}], "}"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8894519119696293`*^9, 3.889451912362995*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"99731d28-9a44-468b-b117-9080e5dcafe9"]
}, Closed]],

Cell[CellGroupData[{

Cell["mean = -0.5, sigma = 1. Plot result vs error", "Subsection",
 CellChangeTimes->{{3.8890304960438833`*^9, 3.889030535502289*^9}, {
  3.889422375176359*^9, 3.889422382819119*^9}, {3.889452020107152*^9, 
  3.889452047781554*^9}},ExpressionUUID->"64966230-c00f-4c00-9795-\
bad0c7ee1069"],

Cell[BoxData[
 RowBox[{
  RowBox[{"dss", "=", 
   RowBox[{"ResultVsError", "[", 
    RowBox[{"data", ",", " ", 
     RowBox[{"-", "0.5"}], ",", " ", "1", ",", " ", "basicMs"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.889451942596156*^9, 3.8894519598148527`*^9}, {
   3.889452081299705*^9, 3.889452083557353*^9}, 3.892398043261766*^9},
 CellLabel->"In[99]:=",ExpressionUUID->"3122e93f-25ab-4f21-9466-64b09e6a48d7"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"dss", ",", 
   RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.889030397785151*^9, 3.8890304296461782`*^9}, {
  3.889030547594755*^9, 3.889030553659648*^9}, {3.889030679994338*^9, 
  3.889030696816305*^9}, {3.8890320151224537`*^9, 3.889032015393979*^9}, {
  3.88903208403344*^9, 3.889032095276582*^9}, {3.8890321684511642`*^9, 
  3.8890321778925447`*^9}, {3.889372400460079*^9, 3.889372433269342*^9}, {
  3.889376964757367*^9, 3.8893770398340693`*^9}, {3.889416411618257*^9, 
  3.8894164166255913`*^9}, {3.88941647741033*^9, 3.889416478250074*^9}, {
  3.8894173856147137`*^9, 3.889417390015993*^9}, {3.889451964156145*^9, 
  3.889451968845459*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"63f23d75-17c3-47ed-b54c-8ecb3f7bb301"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
  RowBox[{"dss", ",", "\[IndentingNewLine]", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"5", ",", "36"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.30", ",", "0.4"}], "}"}]}], "}"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.889416698744495*^9, 3.88941673843207*^9}, {
  3.889416785939801*^9, 3.889416789804497*^9}, {3.88941683332016*^9, 
  3.8894168616200447`*^9}, {3.8894169100106783`*^9, 3.889416916223075*^9}, {
  3.889416955089135*^9, 3.8894169597311974`*^9}, {3.889417122816264*^9, 
  3.889417132010194*^9}, {3.8894171772568817`*^9, 3.889417185952941*^9}, {
  3.889417394866982*^9, 3.8894174354674473`*^9}, {3.8894224891272783`*^9, 
  3.889422495356296*^9}, {3.889446951297909*^9, 3.88944695205163*^9}, {
  3.889451977786235*^9, 3.8894519782004147`*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"9bb06c9a-b635-41de-88cc-73292431abac"]
}, Closed]],

Cell[CellGroupData[{

Cell["mean = -1.5, sigma = 1. Plot result vs error", "Subsection",
 CellChangeTimes->{{3.8890304960438833`*^9, 3.889030535502289*^9}, {
  3.889422375176359*^9, 3.889422382819119*^9}, {3.88945149821452*^9, 
  3.889451498375552*^9}, {3.889452058222687*^9, 
  3.8894520585302763`*^9}},ExpressionUUID->"461467d7-8212-49d3-916c-\
b6def20576c3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"dss", "=", 
   RowBox[{"ResultVsError", "[", 
    RowBox[{"data", ",", " ", 
     RowBox[{"-", "1.5"}], ",", " ", "1", ",", " ", "basicMs"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8894520676155653`*^9, 3.889452071066574*^9}, {
  3.889452105257896*^9, 3.8894521054582787`*^9}, {3.892398050683613*^9, 
  3.892398050932592*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"2fdc68bc-65d0-4d05-8ff6-4b471c186d72"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"dss", ",", 
   RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.889030397785151*^9, 3.8890304296461782`*^9}, {
  3.889030547594755*^9, 3.889030553659648*^9}, {3.889030679994338*^9, 
  3.889030696816305*^9}, {3.8890320151224537`*^9, 3.889032015393979*^9}, {
  3.88903208403344*^9, 3.889032095276582*^9}, {3.8890321684511642`*^9, 
  3.8890321778925447`*^9}, {3.889372400460079*^9, 3.889372433269342*^9}, {
  3.889376964757367*^9, 3.8893770398340693`*^9}, {3.889416411618257*^9, 
  3.8894164166255913`*^9}, {3.88941647741033*^9, 3.889416478250074*^9}, {
  3.8894173856147137`*^9, 3.889417390015993*^9}, {3.889452001485681*^9, 
  3.889452006564324*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"3e382268-e028-4f51-9054-3ad0d574cabf"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", "\[IndentingNewLine]", 
  RowBox[{"dss", ",", "\[IndentingNewLine]", 
   RowBox[{"Joined", "->", "True"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"5", ",", "36"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.035", ",", "0.040"}], "}"}]}], "}"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.889416698744495*^9, 3.88941673843207*^9}, {
  3.889416785939801*^9, 3.889416789804497*^9}, {3.88941683332016*^9, 
  3.8894168616200447`*^9}, {3.8894169100106783`*^9, 3.889416916223075*^9}, {
  3.889416955089135*^9, 3.8894169597311974`*^9}, {3.889417122816264*^9, 
  3.889417132010194*^9}, {3.8894171772568817`*^9, 3.889417185952941*^9}, {
  3.889417394866982*^9, 3.8894174354674473`*^9}, {3.8894224891272783`*^9, 
  3.889422495356296*^9}, {3.889446951297909*^9, 3.88944695205163*^9}, {
  3.889451539078417*^9, 3.8894515586032257`*^9}, {3.88945211794936*^9, 
  3.8894521183827677`*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"23923018-d684-41d1-96fe-395a82c55278"]
}, Closed]],

Cell[CellGroupData[{

Cell["Region plots manual.", "Subsection",
 CellChangeTimes->{{3.8893758560120363`*^9, 3.889375862123891*^9}, {
  3.892475769605386*^9, 3.8924757771629868`*^9}, {3.894792504622231*^9, 
  3.8947925389902077`*^9}},ExpressionUUID->"3fbacd10-c07b-41af-b25c-\
d9cba457eef9"],

Cell[BoxData[
 RowBox[{"Off", "[", 
  RowBox[{"General", "::", "munfl"}], "]"}]], "Input",
 CellChangeTimes->{{3.889376237371978*^9, 3.889376260975976*^9}},
 CellLabel->
  "In[105]:=",ExpressionUUID->"e18a4dbb-dc6f-4359-9593-5949a867db27"],

Cell[BoxData[
 RowBox[{"d30", "[", 
  RowBox[{
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "\[Equal]", 
       RowBox[{"-", "1"}]}], "&&", 
      RowBox[{
       RowBox[{"#", "[", "\"\<error\>\"", "]"}], "\[Equal]", "16"}]}], " ", 
     "&"}], "]"}], ",", "All"}], "]"}]], "Input",
 CellChangeTimes->{{3.889377635105544*^9, 3.8893776905797873`*^9}, {
  3.889377732532257*^9, 3.889377741455358*^9}, {3.892398095300149*^9, 
  3.8923980958440866`*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"9c64219a-d132-435c-9f99-c78840f78893"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"meanB", "=", 
    RowBox[{"-", "1.0"}]}], ";", 
   RowBox[{"sigmaB", "=", "1.0"}], ";"}], "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ship", "=", "0.97559"}], ";", " ", 
  RowBox[{"s", "=", "0.8029"}], ";", " ", 
  RowBox[{"ksi", "=", 
   RowBox[{"-", "0.022"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"g30v0", "=", 
  RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GIndex", "[", 
        RowBox[{"mean", ",", 
         RowBox[{"s", " ", "*", " ", "sigma"}], ",", "ksi"}], "]"}], " ", "<=",
        "  ", 
       RowBox[{"GIndex", "[", 
        RowBox[{"meanB", ",", 
         RowBox[{"s", " ", "*", " ", "sigmaB"}], ",", "ksi"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"GIndex", "[", 
         RowBox[{"mean", ",", 
          RowBox[{"s", " ", "*", " ", "sigma"}], ",", "ksi"}], "]"}], " ", 
        "*", "ship"}], " ", "<=", " ", "mean"}]}], "\[IndentingNewLine]", 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"mean", ",", " ", 
      RowBox[{"-", "1.2"}], ",", "0.5"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"sigma", ",", " ", "0.01", ",", "1.1"}], "}"}]}], 
   "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.889375869271365*^9, 3.889375989293068*^9}, {
   3.8893761135803747`*^9, 3.889376218885538*^9}, {3.889376268361972*^9, 
   3.889376289643519*^9}, {3.889376354208544*^9, 3.889376364650154*^9}, {
   3.889376417185766*^9, 3.8893764504554777`*^9}, {3.8893764963322287`*^9, 
   3.889376527894845*^9}, {3.889376568956876*^9, 3.889376614749627*^9}, 
   3.8893777799916286`*^9, {3.889377841521777*^9, 3.8893778779374647`*^9}, {
   3.8893779605269213`*^9, 3.889377971038549*^9}, {3.889379364299802*^9, 
   3.889379372647895*^9}, {3.8894158885834513`*^9, 3.889415897415433*^9}, {
   3.894792648472725*^9, 
   3.894792658608405*^9}},ExpressionUUID->"9d163b7f-4f28-4bd5-8413-\
3ddaa13eabdc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"meanB", "=", 
    RowBox[{"-", "1.0"}]}], ";", 
   RowBox[{"sigmaB", "=", "1.0"}], ";"}], "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ship", "=", "1.0"}], ";", " ", 
  RowBox[{"s", "=", "1.0"}], ";", " ", 
  RowBox[{"ksi", "=", 
   RowBox[{"-", "0.06"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"g30", "=", 
  RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"GIndex", "[", 
        RowBox[{"mean", ",", 
         RowBox[{"s", " ", "*", " ", "sigma"}], ",", "ksi"}], "]"}], " ", "<=",
        "  ", 
       RowBox[{"GIndex", "[", 
        RowBox[{"meanB", ",", 
         RowBox[{"s", " ", "*", " ", "sigmaB"}], ",", "ksi"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"GIndex", "[", 
         RowBox[{"mean", ",", 
          RowBox[{"s", " ", "*", " ", "sigma"}], ",", "ksi"}], "]"}], " ", 
        "*", "ship"}], " ", "<=", " ", "mean"}]}], "\[IndentingNewLine]", 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"mean", ",", " ", 
      RowBox[{"-", "1.2"}], ",", "0.5"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"sigma", ",", " ", "0.01", ",", "1.1"}], "}"}]}], 
   "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.889375869271365*^9, 3.889375989293068*^9}, {
   3.8893761135803747`*^9, 3.889376218885538*^9}, {3.889376268361972*^9, 
   3.889376289643519*^9}, {3.889376354208544*^9, 3.889376364650154*^9}, {
   3.889376417185766*^9, 3.8893764504554777`*^9}, {3.8893764963322287`*^9, 
   3.889376527894845*^9}, {3.889376568956876*^9, 3.889376614749627*^9}, 
   3.8893777799916286`*^9, {3.889377841521777*^9, 3.8893778779374647`*^9}, {
   3.8893779605269213`*^9, 3.889377971038549*^9}, {3.889379364299802*^9, 
   3.889379372647895*^9}, {3.8893808223886623`*^9, 3.88938086272535*^9}, {
   3.8893809436559753`*^9, 3.8893809579424553`*^9}, {3.889419084139812*^9, 
   3.889419092086376*^9}, {3.8923981561768713`*^9, 3.892398156499642*^9}, 
   3.8925181824378557`*^9, {3.894792653167942*^9, 
   3.894792656513514*^9}},ExpressionUUID->"a2e28d99-75ee-4711-ba28-\
022aaadb6330"],

Cell[BoxData[
 RowBox[{"d12", "[", 
  RowBox[{
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "\[Equal]", 
       RowBox[{"-", "1"}]}], "&&", 
      RowBox[{
       RowBox[{"#", "[", "\"\<error\>\"", "]"}], "\[Equal]", "16"}]}], " ", 
     "&"}], "]"}], ",", "All"}], "]"}]], "Input",
 CellChangeTimes->{{3.889377905780076*^9, 3.889377913635694*^9}, {
  3.892398172686594*^9, 3.892398176168796*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"565733fc-b3a9-41ff-aaa1-97daad2d241a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mean", " ", "+", " ", 
   RowBox[{"lStop", " ", "*", " ", "\[Sigma]"}]}], " ", "<", " ", 
  RowBox[{"meanBase", " ", "+", " ", 
   RowBox[{
   "lStop", " ", "*", " ", "\[Sigma]Base"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"mean", " ", ">", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"sigma", "-", "sigma0"}], ")"}], "*", "lShip"}]}]}], "Text",
 CellChangeTimes->{{3.889378766629274*^9, 3.88937879133603*^9}, {
  3.8893789869544907`*^9, 3.889379086625688*^9}, {3.889379131581746*^9, 
  3.8893791359039583`*^9}, {3.889419106079623*^9, 
  3.889419106659741*^9}},ExpressionUUID->"90abd3a3-2556-49ca-9f28-\
e159214f4f47"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"meanB", "=", 
    RowBox[{"-", "1.0"}]}], ";", 
   RowBox[{"sigmaB", "=", "1.0"}], ";"}], "  "}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{
   RowBox[{"lShip", "=", "0.599"}], ";", " ", 
   RowBox[{"lStop", "=", "2.11"}], ";", " ", 
   RowBox[{"sigma0", "=", "0.0"}], ";"}]}], "\[IndentingNewLine]", 
 RowBox[{"g12", "=", 
  RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"PIndex", "[", 
        RowBox[{"mean", ",", "sigma", ",", "lStop"}], "]"}], " ", "<=", "  ", 
       
       RowBox[{"PIndex", "[", 
        RowBox[{"meanB", ",", "sigmaB", ",", "lStop"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"PIndex", "[", 
        RowBox[{
         RowBox[{"-", "mean"}], ",", 
         RowBox[{"sigma", "-", "sigma0"}], ",", "lShip"}], "]"}], "  ", "<=", 
       " ", 
       RowBox[{"PIndex", "[", 
        RowBox[{"0", ",", "sigma0", ",", "ksi"}], "]"}]}]}], 
     "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"mean", ",", " ", 
      RowBox[{"-", "1.2"}], ",", "0.5"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"sigma", ",", " ", "0.01", ",", "1.1"}], "}"}]}], 
   "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.8893791385519047`*^9, 3.889379142357905*^9}, {
   3.8893792201528807`*^9, 3.889379292239603*^9}, {3.889379327762835*^9, 
   3.8893793574983597`*^9}, {3.8893793879484997`*^9, 3.889379432882966*^9}, 
   3.889379470718635*^9, {3.889380076754243*^9, 3.889380135004732*^9}, {
   3.889419139724086*^9, 3.8894192097288513`*^9}, 3.8894637706368628`*^9, {
   3.892398187651577*^9, 3.892398188103454*^9}, {3.8923982324501762`*^9, 
   3.892398232696587*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"ed6f1265-02a3-4031-8256-9b6380b6220a"],

Cell[BoxData[
 RowBox[{"d14", "[", 
  RowBox[{
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "\[Equal]", 
       RowBox[{"-", "1"}]}], "&&", 
      RowBox[{
       RowBox[{"#", "[", "\"\<error\>\"", "]"}], "\[Equal]", "15"}]}], " ", 
     "&"}], "]"}], ",", "All"}], "]"}]], "Input",
 CellChangeTimes->{{3.889377905780076*^9, 3.889377913635694*^9}, {
  3.889380256770393*^9, 3.88938028161279*^9}, {3.892398211630479*^9, 
  3.892398212926096*^9}},
 CellLabel->
  "In[117]:=",ExpressionUUID->"84ce365c-f28b-4758-aa56-27df99d4d922"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"meanB", "=", 
    RowBox[{"-", "1.0"}]}], ";", 
   RowBox[{"sigmaB", "=", "1.0"}], ";"}], "  "}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{
   RowBox[{"lStop", "=", "2.02"}], ";", "  ", 
   RowBox[{"lShip", "=", 
    RowBox[{"lStop", " ", "+", " ", "0.0000608"}]}], 
   ";"}]}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{
   RowBox[{"sigma0", "=", 
    RowBox[{
     RowBox[{"PIndex", "[", 
      RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", "lStop"}], "]"}], "/", 
     "lStop"}]}], ";"}]}], "\[IndentingNewLine]", 
 RowBox[{"g14", "=", 
  RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"PIndex", "[", 
        RowBox[{"mean", ",", "sigma", ",", "lStop"}], "]"}], " ", "<=", "  ", 
       
       RowBox[{"PIndex", "[", 
        RowBox[{"meanB", ",", "sigmaB", ",", "lStop"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"PIndex", "[", 
        RowBox[{
         RowBox[{"-", "mean"}], ",", "sigma", ",", "lShip"}], "]"}], " ", "<=",
        " ", 
       RowBox[{"PIndex", "[", 
        RowBox[{"0", ",", "sigma0", ",", "lShip"}], "]"}]}]}], 
     "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"mean", ",", " ", 
      RowBox[{"-", "1.2"}], ",", "0.5"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"sigma", ",", " ", "0.01", ",", "1.1"}], "}"}]}], 
   "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.8893791385519047`*^9, 3.889379142357905*^9}, {
   3.8893792201528807`*^9, 3.889379292239603*^9}, {3.889379327762835*^9, 
   3.8893793574983597`*^9}, {3.8893793879484997`*^9, 3.889379432882966*^9}, 
   3.889379470718635*^9, {3.889380076754243*^9, 3.889380135004732*^9}, {
   3.8893802913994837`*^9, 3.889380415489606*^9}, 3.8893806621417503`*^9, 
   3.8893807259274673`*^9, {3.889463679201809*^9, 3.889463689801283*^9}, 
   3.8894637593184633`*^9, {3.892398227613633*^9, 3.892398228858859*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"42a5c055-f0c9-4623-89c4-7cfa56a30532"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"{", 
   RowBox[{"g14", ",", " ", "g30"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.889380667118821*^9, 3.889380670430738*^9}, {
  3.8893809702950583`*^9, 3.889380972995967*^9}, {3.892518166985779*^9, 
  3.892518198020187*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"949685b9-8161-4e1a-84b9-1f19282cc285"],

Cell[BoxData[
 RowBox[{"data", "[", 
  RowBox[{
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "\[Equal]", 
       RowBox[{"-", "1"}]}], "&&", 
      RowBox[{
       RowBox[{"#", "[", "\"\<sigma\>\"", "]"}], "\[Equal]", "1"}], "&&", 
      RowBox[{
       RowBox[{"#", "[", "\"\<error\>\"", "]"}], "\[Equal]", "35"}]}], " ", 
     "&"}], "]"}], ",", "fieldsSm"}], "]"}]], "Input",
 CellChangeTimes->{{3.894792805752047*^9, 3.89479282960525*^9}, {
  3.894793083930785*^9, 3.894793085832924*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"b0388cec-67f2-4a21-b087-16ee5a4eeb8d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"meanB", ",", " ", "sigmaB"}], "}"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mean", " ", "=", " ", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "x"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sigma", " ", "=", 
   RowBox[{"Max", "[", 
    RowBox[{"0.01", ",", " ", 
     RowBox[{"1", "-", 
      RowBox[{"x", "/", "2.15"}], " ", "+", "y"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"RCndsM14", "[", 
      RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
       RowBox[{"{", 
        RowBox[{"2.15", ",", " ", "0"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"RCndsM25", "[", 
      RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
       RowBox[{"{", 
        RowBox[{"1.0", ",", " ", "3.82", ",", "3.62"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"RCndsM36", "[", 
      RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
       RowBox[{"{", 
        RowBox[{"-", "0.050"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"RCndsM36", "[", 
      RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
       RowBox[{"{", 
        RowBox[{"-", "0.0522"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"y", ",", " ", 
     RowBox[{"-", "0.035"}], ",", " ", "0.02"}], "}"}], ",", " ", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<q\>\"", ",", "\"\<moss\>\"", ",", " ", "\"\<g\>\"", ",", " ", 
      "\"\<g-mod\>\""}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.89317722972639*^9, 3.893177231211244*^9}, {
  3.893177274114957*^9, 3.893177279183147*^9}, {3.8931773159055862`*^9, 
  3.89317732377923*^9}, {3.893177365299642*^9, 3.893177536009391*^9}, {
  3.893177595934888*^9, 3.8931776162046413`*^9}, {3.89317771857883*^9, 
  3.893177766313169*^9}, {3.893177798346896*^9, 3.893177805106058*^9}, {
  3.893177879363152*^9, 3.893177913486393*^9}, {3.893177951292557*^9, 
  3.8931780450990877`*^9}, {3.8931781565797863`*^9, 3.8931781959199343`*^9}, {
  3.8932570287887*^9, 3.893257077273903*^9}, {3.893257472969357*^9, 
  3.893257473116865*^9}, {3.893257513309516*^9, 3.8932576362306747`*^9}, {
  3.89420913232934*^9, 3.8942091991255836`*^9}, {3.8942092324418373`*^9, 
  3.894209243753742*^9}, {3.894793238609783*^9, 3.894793269501087*^9}},
 CellLabel->
  "In[173]:=",ExpressionUUID->"ef184899-e3d0-4976-833a-926045c4e70f"]
}, Closed]],

Cell[CellGroupData[{

Cell["m = 12, DataRegions", "Subsection",
 CellChangeTimes->{{3.889463297602539*^9, 3.889463303822102*^9}, {
   3.889464437752005*^9, 3.8894644538021717`*^9}, {3.892272458655945*^9, 
   3.892272459359953*^9}, {3.8923980624670343`*^9, 3.892398062965094*^9}, {
   3.892445031088294*^9, 3.8924450312220173`*^9}, {3.892518211944042*^9, 
   3.892518245372559*^9}, {3.892520050293426*^9, 3.8925200530611067`*^9}, 
   3.8925423859460077`*^9},ExpressionUUID->"22cb7753-475f-4950-8e9a-\
2aff206de546"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"regs12", ",", " ", "rs12"}], "}"}], "=", 
   RowBox[{"DataRegions", "[", 
    RowBox[{"data", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", "\"\<m\>\"", "]"}], "==", "12"}], "&&", 
       RowBox[{
        RowBox[{"#", "[", "\"\<error\>\"", "]"}], "==", "32"}]}], "&"}], ",", 
     " ", "RCndsM12"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.889463810909971*^9, 3.889463849817318*^9}, {
  3.889463942922558*^9, 3.889463944979388*^9}, {3.892272582796894*^9, 
  3.892272621095049*^9}, {3.892273284117131*^9, 3.8922732950393057`*^9}, {
  3.892398074974516*^9, 3.892398080629643*^9}, {3.892445173806099*^9, 
  3.892445177307987*^9}, {3.892519563239785*^9, 3.892519584541163*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"2ecd6576-b7fa-473d-97d0-c801e6b43e73"],

Cell[BoxData[
 RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"regs12", "//", "Normal"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"mean", ",", " ", 
     RowBox[{"-", "1.5"}], ",", " ", "1.5"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"sigma", ",", " ", "0.01", ",", " ", "1.5"}], "}"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8894639367070627`*^9, 3.889464034722911*^9}, {
  3.892273325731839*^9, 3.892273331963327*^9}, {3.8923982673581247`*^9, 
  3.892398267740696*^9}, {3.892445442921061*^9, 3.892445443074711*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"7d9851a0-5966-4a91-85d0-786c4c302217"]
}, Closed]],

Cell[CellGroupData[{

Cell["m = 14, 13, DataRegions", "Subsection",
 CellChangeTimes->{{3.889463297602539*^9, 3.889463303822102*^9}, {
   3.889464437752005*^9, 3.8894644538021717`*^9}, {3.892272458655945*^9, 
   3.892272459359953*^9}, {3.8923980624670343`*^9, 3.892398062965094*^9}, {
   3.892518219183908*^9, 3.892518248691106*^9}, {3.892520037928198*^9, 
   3.892520057780779*^9}, 
   3.8925423879643784`*^9},ExpressionUUID->"fa13ef44-6239-4d5f-a712-\
65f88cd56462"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"regs14", ",", " ", "rs14"}], "}"}], "=", 
   RowBox[{"DataRegions", "[", 
    RowBox[{"data", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", "\"\<m\>\"", "]"}], "==", "14"}], " ", "&&", " ", 
       RowBox[{
        RowBox[{"#", "[", "\"\<error\>\"", "]"}], "==", "32"}]}], "&"}], ",", 
     " ", "RCndsM14"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.889463810909971*^9, 3.889463849817318*^9}, {
  3.889463942922558*^9, 3.889463944979388*^9}, {3.892272582796894*^9, 
  3.892272621095049*^9}, {3.892273284117131*^9, 3.8922732950393057`*^9}, {
  3.892398074974516*^9, 3.892398080629643*^9}, {3.892519209519765*^9, 
  3.892519224734385*^9}, {3.892519421224922*^9, 3.8925194217730207`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"355741b6-61ea-40ec-aba2-5fa6cb034e20"],

Cell[BoxData[
 RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"regs14", "//", "Normal"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"mean", ",", " ", 
     RowBox[{"-", "1.5"}], ",", " ", "1.5"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"sigma", ",", " ", "0.01", ",", " ", "1.5"}], "}"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8894639367070627`*^9, 3.889464034722911*^9}, {
  3.892273325731839*^9, 3.892273331963327*^9}, {3.8923982673581247`*^9, 
  3.892398267740696*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"1cfaf6c4-f4b4-4626-9252-561875a44a0a"]
}, Closed]],

Cell[CellGroupData[{

Cell["m = 30, DataRegions", "Subsection",
 CellChangeTimes->{{3.889464459399866*^9, 3.889464465717945*^9}, {
   3.892398287610817*^9, 3.892398288654376*^9}, {3.892518221713511*^9, 
   3.89251825006358*^9}, {3.892520256259694*^9, 3.892520258588079*^9}, 
   3.892542384533811*^9},ExpressionUUID->"7530264e-c265-4629-8d6b-\
082850e2e168"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"regs30", ",", " ", "rs30"}], "}"}], "=", 
   RowBox[{"DataRegions", "[", 
    RowBox[{"data", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", "\"\<m\>\"", "]"}], "==", "30"}], " ", "&&", " ", 
       RowBox[{
        RowBox[{"#", "[", "\"\<error\>\"", "]"}], "==", "32"}]}], "&"}], ",", 
     " ", "RCndsM30"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.889464780615033*^9, 3.889464825681293*^9}, {
   3.889464907447905*^9, 3.8894649076139107`*^9}, {3.8894649446025343`*^9, 
   3.889464944851894*^9}, {3.889466005796596*^9, 3.889466040027307*^9}, {
   3.88946616391148*^9, 3.889466164107535*^9}, {3.892272528480652*^9, 
   3.892272550242362*^9}, 3.8922726172323093`*^9, {3.892273235202058*^9, 
   3.892273240616933*^9}, {3.892398299177061*^9, 3.892398304482367*^9}, {
   3.8925190794247026`*^9, 3.892519093229929*^9}, {3.8925191381577253`*^9, 
   3.892519167931078*^9}, {3.8925201136324873`*^9, 3.892520113882827*^9}, {
   3.892520149409751*^9, 3.892520149604624*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"1b0025ef-0b6c-4620-b41e-dedfa5e54765"],

Cell[BoxData[
 RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"regs30", "//", "Normal"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"mean", ",", " ", 
     RowBox[{"-", "1.5"}], ",", " ", "1.5"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"sigma", ",", " ", "0.01", ",", " ", "1.5"}], "}"}], ",", " ", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "&"}], ")"}], "/@", 
     "rs30"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.889464812070797*^9, 3.88946481288135*^9}, {
  3.889466046376144*^9, 3.889466051914548*^9}, {3.8922726329812117`*^9, 
  3.892272663105475*^9}, {3.892398306862587*^9, 3.89239831013693*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"6c26f93b-a35c-474d-ac78-ccf2e673d3f6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"regs30", ",", " ", "rs30"}], "}"}], "=", 
   RowBox[{"DataRegions", "[", 
    RowBox[{"data", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", "\"\<sigma\>\"", "]"}], "==", "1"}], "&&", " ", 
       RowBox[{
        RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "==", 
        RowBox[{"-", "1"}]}], "&&", " ", 
       RowBox[{
        RowBox[{"#", "[", "\"\<error\>\"", "]"}], "\[Element]", 
        RowBox[{"{", 
         RowBox[{"16", ",", "32", ",", "35"}], "}"}]}]}], "&"}], ",", " ", 
     "RCndsM30"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.892274571571726*^9, 3.892274610800408*^9}, {
  3.89227487619175*^9, 3.892274893894432*^9}, {3.892398313169614*^9, 
  3.892398317973271*^9}, {3.892520164986112*^9, 3.892520173255065*^9}, {
  3.892824589268775*^9, 3.89282461492175*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"78b59404-8355-476b-b78e-25f722c8fc40"],

Cell[BoxData[
 RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"regs30", "//", "Normal"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"mean", ",", " ", 
     RowBox[{"-", "1.5"}], ",", " ", "1.5"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"sigma", ",", " ", "0.01", ",", " ", "1.5"}], "}"}], ",", " ", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"#", "[", "\"\<error\>\"", "]"}], "&"}], ")"}], "/@", 
     "rs30"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.892274619831417*^9, 3.892274621747987*^9}, {
  3.892398320621809*^9, 3.892398323380931*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"ea575283-d01f-4281-8ab2-8f3a74b6df3d"]
}, Closed]],

Cell[CellGroupData[{

Cell["m = 32, DataRegions", "Subsection",
 CellChangeTimes->{{3.889464459399866*^9, 3.889464465717945*^9}, {
   3.8894650795230017`*^9, 3.889465080897689*^9}, {3.892398329544392*^9, 
   3.89239833059608*^9}, {3.8925202498026648`*^9, 3.892520253493575*^9}, 
   3.89254238698109*^9},ExpressionUUID->"4dd19af3-465a-410d-9ea2-\
61faad231029"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "[", 
   RowBox[{"Select", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", "\"\<error\>\"", "]"}], "\[Equal]", "35"}], " ", "&&",
       " ", 
      RowBox[{
       RowBox[{"#", "[", "\"\<m\>\"", "]"}], "\[Equal]", "32"}], "&&", " ", 
      RowBox[{
       RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "<", "0"}]}], "&"}], " ", 
    "]"}], "]"}], "//", "Sort"}]], "Input",
 CellChangeTimes->{{3.889465662690414*^9, 3.889465672607194*^9}, {
  3.8923983424850883`*^9, 3.8923983435061693`*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"31499883-a181-4119-b487-65659385c1eb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"regs32", ",", " ", "rs32"}], "}"}], "=", 
   RowBox[{"DataRegions", "[", 
    RowBox[{"data", ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", "\"\<m\>\"", "]"}], "\[Equal]", "32"}], "&&", " ", 
       RowBox[{
        RowBox[{"#", "[", "\"\<error\>\"", "]"}], "==", "35"}]}], "&"}], ",", 
     " ", "RCndsM32"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.889464780615033*^9, 3.889464825681293*^9}, {
   3.889464907447905*^9, 3.8894649076139107`*^9}, {3.8894649446025343`*^9, 
   3.889464944851894*^9}, {3.889465238710845*^9, 3.889465269104631*^9}, 
   3.889465366698434*^9, 3.889465453288748*^9, {3.889465543266838*^9, 
   3.8894655434449577`*^9}, 3.889465634547612*^9, 3.889465679970582*^9, {
   3.8894657835225983`*^9, 3.889465788099812*^9}, {3.892272734023162*^9, 
   3.8922727372382383`*^9}, {3.892273200135103*^9, 3.892273208074603*^9}, {
   3.892398359869212*^9, 3.892398365175211*^9}, {3.8925534027730913`*^9, 
   3.892553424270938*^9}, {3.892574118516932*^9, 3.89257412425366*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"d6972569-e99b-49f8-a0d3-b064e4bb7e98"],

Cell[BoxData[
 RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"regs32", "//", "Normal"}], "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"mean", ",", " ", 
     RowBox[{"-", "1.5"}], ",", " ", "1.5"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"sigma", ",", " ", "0.01", ",", " ", "1.5"}], "}"}], ",", " ", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "&"}], ")"}], "/@", 
     "rs32"}]}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.889464812070797*^9, 3.88946481288135*^9}, 
   3.889465242475933*^9, {3.889465704709655*^9, 3.889465717023387*^9}, {
   3.889465797009753*^9, 3.8894658006874247`*^9}, {3.892272750806109*^9, 
   3.89227275158029*^9}, {3.892398366646522*^9, 3.892398370299388*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"b1785ff8-2350-4f11-ac19-0dbd655c8b32"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"RCndsM14", "[", 
        RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
         RowBox[{"{", 
          RowBox[{"pS2", ",", " ", "0"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"RCndsM25", "[", 
        RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
         RowBox[{"{", 
          RowBox[{"1.0", ",", " ", "3.82", ",", "3.62"}], "}"}]}], "]"}], ",",
        "\[IndentingNewLine]", 
       RowBox[{"RCndsM35", "[", 
        RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
         RowBox[{"{", "pS", "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"mean", ",", " ", 
       RowBox[{"-", "1.2"}], ",", " ", "1.2"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"sigma", ",", " ", "0.4", ",", " ", "1.2"}], "}"}]}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"meanB", ",", " ", 
       RowBox[{"-", "1.0"}]}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "0.1"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{"sigmaB", ",", "1.0"}], "}"}], ",", "0.1", ",", " ", "2"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pS", ",", "0.80"}], "}"}], ",", "0.1", ",", " ", "2"}], "}"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pS2", ",", "2.2481"}], "}"}], ",", "0.1", ",", " ", "4"}], 
    "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8925534624644403`*^9, 3.892553638786908*^9}, {
   3.892574304608054*^9, 3.89257430881243*^9}, {3.892574421972599*^9, 
   3.892574472056095*^9}, 3.8925745217055817`*^9, {3.89257515667448*^9, 
   3.8925751726040897`*^9}, {3.8925752736552057`*^9, 
   3.8925752886712427`*^9}, {3.8925753273635397`*^9, 3.892575327596726*^9}, {
   3.8928928744503193`*^9, 3.892892899055957*^9}, {3.8928929516444387`*^9, 
   3.892892958756917*^9}, {3.892892993646153*^9, 3.892892997180213*^9}, {
   3.8928930896636963`*^9, 3.892893090081993*^9}, {3.892893898322233*^9, 
   3.892893899013523*^9}, {3.894793238615986*^9, 
   3.894793248018997*^9}},ExpressionUUID->"e3ebeda9-54b8-4093-9b3e-\
1cfae0fbfcee"],

Cell["\<\
MossIndex[mean_, \[Sigma]_, s_, l_, ksi_] := (mean + s*\[Sigma]*Sqrt[Max[ksi, \
l + Log[\[Sigma]]]]);
GIndex[mean_,\[Sigma]_,ksi_]\
\>", "Text",
 CellChangeTimes->{
  3.892893195919999*^9, {3.892893226321412*^9, 
   3.89289322663776*^9}},ExpressionUUID->"eecbcec8-d92a-420b-b530-\
3ba499ae4336"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mi", "=", 
   RowBox[{
    RowBox[{"MossIndex", "[", 
     RowBox[{
     "mean", ",", " ", "sigma", ",", " ", "pS", ",", "pL", ",", "pXi"}], 
     "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"pS", "\[Rule]", "1.0"}], ",", " ", 
      RowBox[{"pL", "\[Rule]", "3.82"}], ",", 
      RowBox[{"pXi", "\[Rule]", "3.62"}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"mi", ",", " ", "mean"}], "]"}], "/", 
    RowBox[{"D", "[", 
     RowBox[{"mi", ",", " ", "sigma"}], "]"}]}], ")"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"mean", "\[Rule]", 
     RowBox[{"-", "1.0"}]}], ",", " ", 
    RowBox[{"sigma", "\[Rule]", "1.0"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.892893165066119*^9, 3.8928931695570717`*^9}, {
  3.8928932326529093`*^9, 3.892893352576251*^9}, {3.892893547292974*^9, 
  3.89289354946356*^9}, {3.894809880990884*^9, 
  3.894809880991391*^9}},ExpressionUUID->"7d2f31d2-9ac7-434c-85a8-\
f3c245af1e96"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"meanB", ",", " ", "sigmaB"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pKsiN", "=", 
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"sigmaB", "*", "pS"}], ")"}], "2"]}], "*", 
    RowBox[{"GIndex", "[", 
     RowBox[{"meanB", ",", 
      RowBox[{"pS", " ", "*", " ", "sigmaB"}], ",", "0"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gi", "=", 
   RowBox[{
    RowBox[{"GIndex", "[", 
     RowBox[{"mean", ",", " ", 
      RowBox[{"pS", "*", "sigma"}], ",", " ", "pKsiN"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"pS", "\[Rule]", "0.8293"}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"gi", ",", " ", "mean"}], "]"}], "/", 
    RowBox[{"D", "[", 
     RowBox[{"gi", ",", " ", "sigma"}], "]"}]}], ")"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"mean", "\[Rule]", 
     RowBox[{"-", "1.0"}]}], ",", " ", 
    RowBox[{"sigma", "\[Rule]", "1.0"}], ",", " ", 
    RowBox[{"meanB", "\[Rule]", 
     RowBox[{"-", "1.0"}]}], ",", " ", 
    RowBox[{"sigmaB", "\[Rule]", "1.0"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.892893363282233*^9, 3.89289349718958*^9}, {
  3.892893530653799*^9, 3.892893562806302*^9}, {3.892893615306562*^9, 
  3.892893618374235*^9}, {3.8928936770106163`*^9, 3.892893741447055*^9}, {
  3.892893789058054*^9, 3.892893844067511*^9}, {3.89289391878638*^9, 
  3.8928940080706797`*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"c31f9143-bba4-4459-adb6-d56948f1b2ad"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"RCndsM14", "[", 
        RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
         RowBox[{"{", 
          RowBox[{"pS2", ",", " ", "0"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"RCndsM25", "[", 
        RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
         RowBox[{"{", 
          RowBox[{"1.0", ",", " ", "3.82", ",", "3.62"}], "}"}]}], "]"}], ",",
        "\[IndentingNewLine]", 
       RowBox[{"RCndsM35", "[", 
        RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
         RowBox[{"{", "pS", "}"}]}], "]"}]}], "\[IndentingNewLine]", "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"mean", ",", " ", 
       RowBox[{"-", "1.2"}], ",", " ", "0"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"sigma", ",", " ", "0.4", ",", " ", "1.2"}], "}"}]}], 
    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"meanB", ",", " ", 
       RowBox[{"-", "1.0"}]}], "}"}], ",", 
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "0.1"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", " ", 
      RowBox[{"sigmaB", ",", "1.0"}], "}"}], ",", "0.1", ",", " ", "2"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pS", ",", "0.8293"}], "}"}], ",", "0.1", ",", " ", "2"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"pS2", ",", "2.2481"}], "}"}], ",", "0.1", ",", " ", "4"}], 
    "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.8928931082288113`*^9, 3.892893108510579*^9}, {
  3.892894098117021*^9, 3.892894122459257*^9}, {3.8947932386322393`*^9, 
  3.8947932480238743`*^9}},ExpressionUUID->"b96be2db-60e3-4818-8f71-\
755562949ede"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Ship-it for params : ",
 StyleBox["m = 14",
  FontWeight->"Bold"],
 ", sigma = 1, mean = \[Dash]1, ",
 StyleBox["error = 16",
  FontWeight->"Bold"]
}], "Subsection",
 CellChangeTimes->{{3.892277368430962*^9, 3.892277391776228*^9}, {
   3.892285825734497*^9, 3.8922858432304287`*^9}, {3.892286257661607*^9, 
   3.892286260889318*^9}, 3.892361243018243*^9, {3.892398378889889*^9, 
   3.892398379917082*^9}},ExpressionUUID->"05396c5d-6a83-4e1e-b5be-\
2a9bee19953c"],

Cell[BoxData["d14"], "Input",
 CellChangeTimes->{{3.892277767598569*^9, 3.892277786641212*^9}, {
  3.892398381113887*^9, 3.892398382469005*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"f20de964-d944-4544-87e5-072e24b2866e"],

Cell["\<\
Shipit[m_, seed_, weeks_, trials_, mean_, sigma_, error_, params_]\
\>", "Text",
 CellChangeTimes->{
  3.8922774786249437`*^9},ExpressionUUID->"5c2a1a40-41ef-4d98-8b67-\
5f040fdc3947"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"shFn", "[", 
    RowBox[{"p_", ",", "a_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"Shipit", "[", 
     RowBox[{"14", ",", "1", ",", "10000000", ",", " ", "25", ",", " ", 
      RowBox[{"-", "1"}], ",", "1", ",", "16", ",", " ", 
      RowBox[{"{", 
       RowBox[{"p", ",", " ", "a"}], "}"}]}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.892277432385109*^9, 3.8922774478599863`*^9}, {
   3.892277486002925*^9, 3.89227751792494*^9}, {3.892277575890009*^9, 
   3.892277628393573*^9}, 3.892277835312179*^9, {3.8922778658666077`*^9, 
   3.892277866044043*^9}, {3.892278040661169*^9, 3.892278059204832*^9}, {
   3.8922783102385263`*^9, 3.892278310367772*^9}, {3.892293128570086*^9, 
   3.892293128974053*^9}, {3.892350850073522*^9, 3.892350850241357*^9}, {
   3.89239838535785*^9, 3.8923983860802097`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"59f6ae0c-1718-472f-8bb9-0f8efd12891e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"range", "=", 
   RowBox[{"Range", "[", 
    RowBox[{"1.6", ",", "2.5", ",", "0.1"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l1", "=", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"#", ",", 
        RowBox[{"shFn", "[", 
         RowBox[{"#", ",", "0"}], "]"}]}], "}"}], "&"}], ",", "range"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l2", "=", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"#", ",", 
        RowBox[{"shFn", "[", 
         RowBox[{"#", ",", 
          RowBox[{"-", "0.1"}]}], "]"}]}], "}"}], "&"}], ",", "range"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l3", "=", 
   RowBox[{"ParallelMap", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"#", ",", 
        RowBox[{"shFn", "[", 
         RowBox[{"#", ",", "0.1"}], "]"}]}], "}"}], "&"}], ",", "range"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.892277529231868*^9, 3.892277635907536*^9}, {
  3.89227783715867*^9, 3.892277853285212*^9}, {3.8922779024873238`*^9, 
  3.8922779025909357`*^9}, {3.892277938725355*^9, 3.892277948089374*^9}, {
  3.892278064979577*^9, 3.8922780715475082`*^9}, {3.892278199619801*^9, 
  3.892278204948538*^9}, {3.892278316415516*^9, 3.892278316729712*^9}, {
  3.892282303825553*^9, 3.8922823074217997`*^9}, {3.892288385743102*^9, 
  3.892288430991084*^9}, {3.89240556542804*^9, 3.892405612302891*^9}, {
  3.892475853332714*^9, 3.892475859287746*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"e08fdcb5-26ed-492f-97e5-cd6ec9bc829b"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", 
   RowBox[{"l1", ",", "l2", ",", "l3"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.892277647318041*^9, 3.892277651616905*^9}, {
  3.8922781103716784`*^9, 3.8922781162527323`*^9}, {3.892278214031816*^9, 
  3.892278214592691*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"b281205c-88ce-4024-bae1-a557059b5aeb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"range", "=", 
    RowBox[{"Range", "[", 
     RowBox[{"1.95", ",", "2.125", ",", "0.025"}], "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", " ", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l1", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM14E16N", "[", 
        RowBox[{"#", ",", "0", ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM14E16N", "[", 
        RowBox[{"#", ",", "0.1", ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l3", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM14E16N", "[", 
        RowBox[{"#", ",", 
         RowBox[{"-", "0.1"}], ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.892282374317274*^9, 3.892282401709289*^9}, {
   3.892282438632196*^9, 3.892282451649353*^9}, {3.892282487348776*^9, 
   3.892282537592512*^9}, 3.8922827245337067`*^9, {3.892282793355856*^9, 
   3.8922827941833353`*^9}, {3.89228293045715*^9, 3.892282955263584*^9}, {
   3.892283044430337*^9, 3.8922830645823708`*^9}, {3.8922832632278633`*^9, 
   3.892283285549306*^9}, {3.8922835387703543`*^9, 3.892283547919845*^9}, {
   3.892283689816313*^9, 3.892283692582142*^9}, 3.892284411877531*^9, {
   3.892284488991322*^9, 3.892284508963543*^9}, 3.892285527548739*^9, {
   3.892285565338516*^9, 3.892285569305408*^9}, {3.8922856999940243`*^9, 
   3.892285737378387*^9}, {3.8922860841600037`*^9, 3.8922860965988092`*^9}, {
   3.892288313304214*^9, 3.8922883747064323`*^9}, {3.892293156355908*^9, 
   3.89229315678574*^9}, {3.892405822571082*^9, 3.8924058305066338`*^9}, {
   3.894817247602705*^9, 3.894817247756214*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"40062b67-c874-4577-aa98-565de01e75f2"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", 
   RowBox[{"l1", ",", "l2", ",", "l3"}], "}"}], "]"}]], "Input",
 CellLabel->"In[73]:=",ExpressionUUID->"3814eae0-3b0b-4442-81a3-44aec2626ef8"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Ship-it for params : ",
 StyleBox["m = 14",
  FontWeight->"Bold"],
 ", sigma = 1, mean = \[Dash]1, ",
 StyleBox["error = 35",
  FontWeight->"Bold"]
}], "Subsection",
 CellChangeTimes->{{3.892277368430962*^9, 3.892277391776228*^9}, {
  3.892285825734497*^9, 3.8922858432304287`*^9}, {3.892286257661607*^9, 
  3.892286260889318*^9}, {3.892286356315919*^9, 3.8922863575499697`*^9}, {
  3.8923612451184*^9, 3.892361246855735*^9}, {3.892398416863777*^9, 
  3.892398417201788*^9}},ExpressionUUID->"fdb79382-5bdb-4bbd-93ae-\
c154c6bf6160"],

Cell["\<\
Shipit[m_, seed_, weeks_, trials_, mean_, sigma_, error_, params_]\
\>", "Text",
 CellChangeTimes->{
  3.8922774786249437`*^9},ExpressionUUID->"20b0f8f7-69cc-48df-ace0-\
3da783ce3880"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"range", " ", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{"2.0", ",", "2.15", ",", "0.025"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "50"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l14n1", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM14N", "[", 
        RowBox[{"#", ",", "0", ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l14n2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM14N", "[", 
        RowBox[{"#", ",", "0.1", ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l14n3", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM14N", "[", 
        RowBox[{"#", ",", 
         RowBox[{"-", "0.1"}], ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.892282374317274*^9, 3.892282401709289*^9}, {
   3.892282438632196*^9, 3.892282451649353*^9}, {3.892282487348776*^9, 
   3.892282537592512*^9}, 3.8922827245337067`*^9, {3.892282793355856*^9, 
   3.8922827941833353`*^9}, {3.89228293045715*^9, 3.892282955263584*^9}, {
   3.892283044430337*^9, 3.8922830645823708`*^9}, {3.8922832632278633`*^9, 
   3.892283285549306*^9}, {3.8922835387703543`*^9, 3.892283547919845*^9}, {
   3.892283689816313*^9, 3.892283692582142*^9}, 3.892284411877531*^9, {
   3.892284488991322*^9, 3.892284508963543*^9}, 3.892285527548739*^9, {
   3.892285565338516*^9, 3.892285569305408*^9}, {3.8922856999940243`*^9, 
   3.892285737378387*^9}, {3.8922860841600037`*^9, 3.8922860965988092`*^9}, {
   3.8922864572237988`*^9, 3.892286505667172*^9}, {3.8922865654147043`*^9, 
   3.892286614841487*^9}, {3.8922867151040087`*^9, 3.892286715883219*^9}, {
   3.892286816983045*^9, 3.892286825248002*^9}, {3.892286946226022*^9, 
   3.8922869463588343`*^9}, {3.892288456868019*^9, 3.8922884629572906`*^9}, {
   3.892350879548347*^9, 3.89235088456612*^9}, {3.892357410009234*^9, 
   3.892357410306396*^9}, {3.892358603497036*^9, 3.89235864918707*^9}, {
   3.892405785377605*^9, 3.892405791532846*^9}, {3.89243944808997*^9, 
   3.892439451701131*^9}, {3.892439494689988*^9, 3.8924395047240562`*^9}, {
   3.894817274106543*^9, 3.894817277894637*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"759a6d8c-5e63-456a-ab66-07fd769d58d0"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", 
   RowBox[{"l14n1", ",", "l14n2", ",", "l14n3"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.892439992938896*^9, 3.892440008828065*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"1ea0638f-fb43-45f6-a5a9-fea632adeef3"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Ship-it for params : ",
 StyleBox["m = 12,",
  FontWeight->"Bold"],
 " sigma = 1, mean = \[Dash]1, error = 35"
}], "Subsection",
 CellChangeTimes->{{3.8924434291539516`*^9, 3.892443438138631*^9}, {
  3.892455690088397*^9, 
  3.892455691251802*^9}},ExpressionUUID->"b8bd9fac-6881-472e-b919-\
59aeca396d17"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"shM12N", "[", 
    RowBox[{"#", ",", "1.0", ",", "50"}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"2.05", ",", "2.06", ",", " ", "2.07"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.892443595761956*^9, 3.8924435962501783`*^9}, {
  3.8948173248266277`*^9, 3.894817354809363*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"d9b44e0f-bceb-40ff-966b-03f5111e099f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"shM12N", "[", 
    RowBox[{"2.05", ",", "#", ",", "50"}], "]"}], "&"}], "/@", 
  RowBox[{"{", 
   RowBox[{"0.99", ",", "1.00", ",", " ", "1.01"}], "}"}]}]], "Input",
 CellChangeTimes->{{3.892443330673181*^9, 3.892443367951812*^9}, {
  3.894817385263833*^9, 3.894817415669621*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"088c9cfc-b01f-45a4-997c-08a7a9104304"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Ship-it for params : ",
 StyleBox["m = 20",
  FontWeight->"Bold"],
 ", sigma = 1, mean = \[Dash]1, error = 35"
}], "Subsection",
 CellChangeTimes->{{3.892277368430962*^9, 3.892277391776228*^9}, {
  3.892285825734497*^9, 3.8922858432304287`*^9}, {3.892286257661607*^9, 
  3.892286260889318*^9}, {3.892286356315919*^9, 3.8922863575499697`*^9}, {
  3.8923612451184*^9, 3.892361246855735*^9}, {3.892398416863777*^9, 
  3.892398417201788*^9}, {3.892405749048023*^9, 3.892405751343892*^9}, {
  3.892447353497397*^9, 
  3.8924473546921186`*^9}},ExpressionUUID->"2b0d9248-cc9b-49b0-978b-\
32da002db8a6"],

Cell["\<\
Shipit[m_, seed_, weeks_, trials_, mean_, sigma_, error_, params_]\
\>", "Text",
 CellChangeTimes->{
  3.8922774786249437`*^9},ExpressionUUID->"83e7ce2e-d86c-40b9-bbc1-\
ffeb373f4986"],

Cell[BoxData["d20"], "Input",
 CellChangeTimes->{{3.892405979257902*^9, 3.892405980183448*^9}, {
  3.8924473588185177`*^9, 3.892447359999831*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"a744ec68-f710-407c-9802-72f5e9c10607"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "150"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"range", " ", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{"0.98", ",", "1.02", ",", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l1", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM20N", "[", 
        RowBox[{"#", ",", "3.82", ",", " ", "2.0", ",", "3.62", ",", "n"}], 
        "]"}]}], "}"}], "&"}], "/@", "range"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.892456194361611*^9, 3.892456233390807*^9}, {
  3.892456339665936*^9, 3.892456381003249*^9}, {3.892456510666011*^9, 
  3.892456521774302*^9}, {3.89245660570461*^9, 3.892456639817802*^9}, {
  3.892456698627907*^9, 3.892456698806349*^9}, {3.8924567339321136`*^9, 
  3.892456755154916*^9}, {3.8924568295357103`*^9, 3.892456851816865*^9}, {
  3.89245691416536*^9, 3.8924569311515493`*^9}, {3.8924570099107943`*^9, 
  3.892457014764917*^9}, {3.8924583358447857`*^9, 3.892458335961912*^9}, {
  3.892458804980206*^9, 3.892458805385211*^9}, {3.89481782371692*^9, 
  3.894817853661405*^9}, {3.894858068722389*^9, 3.8948580693465567`*^9}, {
  3.894881860997266*^9, 3.894881861322342*^9}},
 CellLabel->
  "In[364]:=",ExpressionUUID->"56b9b514-65e1-4857-8797-34ae041ada1c"],

Cell[BoxData[
 RowBox[{"g20", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"{", "l1", "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.892441499752686*^9, 3.892441505151773*^9}, {
  3.892447673930769*^9, 3.8924476766063547`*^9}, {3.8924477455447702`*^9, 
  3.892447746802019*^9}, {3.8924561175392733`*^9, 3.89245612013244*^9}, {
  3.8948178271654263`*^9, 3.894817827593829*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"3921fd9d-2e74-490c-adf9-648d263e3b15"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "150"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"range", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{"0.97", ",", "1.03", ",", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l3", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM25N", "[", 
        RowBox[{"#", ",", "3.6", ",", "3.3", ",", "n"}], "]"}]}], "}"}], 
     "&"}], "/@", "range"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.894809750829803*^9, 3.894809762067403*^9}, {
   3.894809990536207*^9, 3.8948100532976303`*^9}, {3.8948101864453*^9, 
   3.894810214018952*^9}, {3.894810257363944*^9, 3.894810258048237*^9}, {
   3.8948103420501137`*^9, 3.894810351847691*^9}, {3.894810488543689*^9, 
   3.894810507772985*^9}, {3.894813254607153*^9, 3.89481325477771*^9}, 
   3.8948178910191927`*^9, 3.8948529233832207`*^9, {3.894858038392641*^9, 
   3.894858072998518*^9}, {3.894881831034482*^9, 3.894881842788335*^9}},
 CellLabel->
  "In[367]:=",ExpressionUUID->"68375d2a-5b96-46f6-9cda-0d9202b84034"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "150"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"range", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{"0.97", ",", "1.03", ",", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l4", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM25N", "[", 
        RowBox[{
         RowBox[{"#", "-", "0.1"}], ",", " ", "4.6", ",", "4.385", ",", "n"}],
         "]"}]}], "}"}], "&"}], "/@", "range"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.894810123658126*^9, 3.894810157622189*^9}, {
  3.8948101988935003`*^9, 3.89481021652915*^9}, {3.894810246693644*^9, 
  3.894810248850663*^9}, {3.894810303285919*^9, 3.894810308825193*^9}, {
  3.894810396590617*^9, 3.894810508998591*^9}, {3.894813244457574*^9, 
  3.894813267156644*^9}, {3.894817895471681*^9, 3.894817896421838*^9}, {
  3.894858042625918*^9, 3.89485807539923*^9}, {3.8948818443339252`*^9, 
  3.89488184447375*^9}},
 CellLabel->
  "In[370]:=",ExpressionUUID->"37fbce76-1c12-4df0-ba05-9119e1ad9639"],

Cell[BoxData[
 RowBox[{"{", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"shM20N", "[", 
    RowBox[{"0.995", ",", "3.82", ",", " ", "2.0", ",", "3.62", ",", "n"}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"shM25N", "[", 
    RowBox[{"0.99", ",", "3.6", ",", "3.3", ",", "n"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"shM25N", "[", 
    RowBox[{"0.99", ",", " ", "4.6", ",", "4.385", ",", "n"}], "]"}]}], 
  "\[IndentingNewLine]", "}"}]], "Input",
 CellChangeTimes->{{3.89489405494456*^9, 3.894894076987315*^9}, {
  3.8948941074524527`*^9, 3.894894145528406*^9}},
 CellLabel->
  "In[374]:=",ExpressionUUID->"5ae4295d-0502-403c-99d4-d9041a81422f"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"{", 
   RowBox[{"l1", ",", "l3", ",", "l4"}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.894852894014264*^9, 3.894852901925911*^9}},
 CellLabel->
  "In[373]:=",ExpressionUUID->"4b27ad9f-6b87-4b97-97d6-f18a0e952b74"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Ship-it for params : ",
 StyleBox["m = 30",
  FontWeight->"Bold"],
 ", sigma = 1, mean = \[Dash]1, error = 35"
}], "Subsection",
 CellChangeTimes->{{3.892277368430962*^9, 3.892277391776228*^9}, {
  3.892285825734497*^9, 3.8922858432304287`*^9}, {3.892286257661607*^9, 
  3.892286260889318*^9}, {3.892286356315919*^9, 3.8922863575499697`*^9}, {
  3.8923612451184*^9, 3.892361246855735*^9}, {3.892398416863777*^9, 
  3.892398417201788*^9}, {3.892405749048023*^9, 3.892405751343892*^9}, {
  3.892460108622243*^9, 
  3.892460109409259*^9}},ExpressionUUID->"26410a42-65e1-4586-a893-\
64559b44608d"],

Cell["\<\
Shipit[m_, seed_, weeks_, trials_, mean_, sigma_, error_, params_]\
\>", "Text",
 CellChangeTimes->{
  3.8922774786249437`*^9},ExpressionUUID->"143c9075-e3c0-4a23-8969-\
82bc36ad55f3"],

Cell[BoxData["d30"], "Input",
 CellChangeTimes->{{3.892405979257902*^9, 3.892405980183448*^9}, {
  3.892460113543948*^9, 3.8924601150763693`*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"9e4b6359-884f-4903-b8db-90317f1625b3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"range", " ", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{"0.73", ",", "0.76", ",", "0.005"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "50"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l1", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM30N", "[", 
        RowBox[{"#", ",", "1.0", ",", 
         RowBox[{"-", "0.02"}], ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.892282374317274*^9, 3.892282401709289*^9}, {
   3.892282438632196*^9, 3.892282451649353*^9}, {3.892282487348776*^9, 
   3.892282537592512*^9}, 3.8922827245337067`*^9, {3.892282793355856*^9, 
   3.8922827941833353`*^9}, {3.89228293045715*^9, 3.892282955263584*^9}, {
   3.892283044430337*^9, 3.8922830645823708`*^9}, {3.8922832632278633`*^9, 
   3.892283285549306*^9}, {3.8922835387703543`*^9, 3.892283547919845*^9}, {
   3.892283689816313*^9, 3.892283692582142*^9}, 3.892284411877531*^9, {
   3.892284488991322*^9, 3.892284508963543*^9}, 3.892285527548739*^9, {
   3.892285565338516*^9, 3.892285569305408*^9}, {3.8922856999940243`*^9, 
   3.892285737378387*^9}, {3.8922860841600037`*^9, 3.8922860965988092`*^9}, {
   3.8922864572237988`*^9, 3.892286505667172*^9}, {3.8922865654147043`*^9, 
   3.892286614841487*^9}, {3.8922867151040087`*^9, 3.892286715883219*^9}, {
   3.892286816983045*^9, 3.892286825248002*^9}, {3.892286946226022*^9, 
   3.8922869463588343`*^9}, {3.892288456868019*^9, 3.8922884629572906`*^9}, {
   3.892350879548347*^9, 3.89235088456612*^9}, {3.892357410009234*^9, 
   3.892357410306396*^9}, {3.892358603497036*^9, 3.89235864918707*^9}, {
   3.8924062243257103`*^9, 3.892406339703108*^9}, 3.8924064724896173`*^9, {
   3.892406601780075*^9, 3.8924066425109587`*^9}, {3.8924067950378036`*^9, 
   3.8924068163011017`*^9}, {3.8924069150330143`*^9, 3.892406916828528*^9}, {
   3.892439742966069*^9, 3.892439743123219*^9}, {3.892442810824926*^9, 
   3.892442817826147*^9}, {3.8924602483234663`*^9, 3.892460277959757*^9}, {
   3.892462164535028*^9, 3.892462174682685*^9}, {3.894817435077001*^9, 
   3.8948174578514347`*^9}, {3.8948531511519737`*^9, 3.8948531513804607`*^9}},
 
 CellLabel->
  "In[220]:=",ExpressionUUID->"bd1f14ba-14f0-48d4-bc68-2348f965ee76"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"range", " ", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{"0.74", ",", "0.77", ",", "0.005"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "50"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM30N", "[", 
        RowBox[{
         RowBox[{"#", "-", "0.12"}], ",", "1.0", ",", 
         RowBox[{"-", "0.024"}], ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8924621702125263`*^9, 3.892462183128545*^9}, {
  3.892522629892324*^9, 3.8925226317573357`*^9}, {3.89481747227179*^9, 
  3.89481752219164*^9}, {3.894864230472361*^9, 3.89486423098111*^9}, {
  3.894867923110067*^9, 
  3.894867924005185*^9}},ExpressionUUID->"16b05afa-8afb-418b-b18d-\
ae9a45499ca6"],

Cell[BoxData[
 RowBox[{"g30", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"{", 
    RowBox[{"l1", ",", "l2"}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.892441499752686*^9, 3.892441505151773*^9}, {
  3.892460294886755*^9, 3.8924602987133093`*^9}, {3.892462209079855*^9, 
  3.892462211582106*^9}},
 CellLabel->
  "In[230]:=",ExpressionUUID->"a2218c17-c871-4834-b3f5-435737ab01f0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"range", " ", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{"0.74", ",", "0.77", ",", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "150"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l1", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM30N", "[", 
        RowBox[{"#", ",", " ", "1.0", ",", " ", 
         RowBox[{"-", "0.02"}], ",", " ", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.892520503667542*^9, 3.892520508807613*^9}, {
   3.892520824603928*^9, 3.8925208310533752`*^9}, {3.8925220991874743`*^9, 
   3.8925221249459*^9}, {3.892522600695632*^9, 3.892522610120687*^9}, {
   3.892522664273591*^9, 3.892522664450912*^9}, {3.89421100329877*^9, 
   3.8942110043071737`*^9}, {3.894792056086093*^9, 3.894792056446705*^9}, {
   3.894793386843307*^9, 3.8947934079797707`*^9}, 3.894807579983337*^9, {
   3.894817549908659*^9, 3.89481755061871*^9}, 3.894817590833332*^9, {
   3.8948531930641403`*^9, 3.8948531934110603`*^9}, {3.8948779687064133`*^9, 
   3.894877972416082*^9}, {3.8948821668454027`*^9, 3.8948821740058737`*^9}},
 CellLabel->
  "In[337]:=",ExpressionUUID->"3e7145ea-1317-4046-b25f-3560eebc94f6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"range", " ", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{"0.74", ",", " ", "0.77", ",", " ", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "150"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM30N", "[", 
        RowBox[{
         RowBox[{"#", "+", "0.02"}], ",", " ", "1.0", ",", " ", 
         RowBox[{"-", "0.024"}], ",", " ", "n"}], "]"}]}], "}"}], "&"}], "/@",
     "range"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.892282374317274*^9, 3.892282401709289*^9}, {
   3.892282438632196*^9, 3.892282451649353*^9}, {3.892282487348776*^9, 
   3.892282537592512*^9}, 3.8922827245337067`*^9, {3.892282793355856*^9, 
   3.8922827941833353`*^9}, {3.89228293045715*^9, 3.892282955263584*^9}, {
   3.892283044430337*^9, 3.8922830645823708`*^9}, {3.8922832632278633`*^9, 
   3.892283285549306*^9}, {3.8922835387703543`*^9, 3.892283547919845*^9}, {
   3.892283689816313*^9, 3.892283692582142*^9}, 3.892284411877531*^9, {
   3.892284488991322*^9, 3.892284508963543*^9}, 3.892285527548739*^9, {
   3.892285565338516*^9, 3.892285569305408*^9}, {3.8922856999940243`*^9, 
   3.892285737378387*^9}, {3.8922860841600037`*^9, 3.8922860965988092`*^9}, {
   3.8922864572237988`*^9, 3.892286505667172*^9}, {3.8922865654147043`*^9, 
   3.892286614841487*^9}, {3.8922867151040087`*^9, 3.892286715883219*^9}, {
   3.892286816983045*^9, 3.892286825248002*^9}, {3.892286946226022*^9, 
   3.8922869463588343`*^9}, {3.892288456868019*^9, 3.8922884629572906`*^9}, {
   3.892350879548347*^9, 3.89235088456612*^9}, {3.892357410009234*^9, 
   3.892357410306396*^9}, {3.892358603497036*^9, 3.89235864918707*^9}, {
   3.8924062243257103`*^9, 3.892406339703108*^9}, 3.8924064724896173`*^9, {
   3.892406601780075*^9, 3.8924066425109587`*^9}, {3.8924067950378036`*^9, 
   3.8924068163011017`*^9}, {3.8924069150330143`*^9, 3.892406916828528*^9}, {
   3.892439742966069*^9, 3.892439743123219*^9}, {3.892442810824926*^9, 
   3.892442817826147*^9}, {3.8924602483234663`*^9, 3.892460277959757*^9}, {
   3.892462164535028*^9, 3.892462174682685*^9}, 3.894793364192031*^9, 
   3.8947934153884172`*^9, {3.894853191790222*^9, 3.8948532012340097`*^9}, {
   3.894867354674766*^9, 3.894867375886044*^9}, {3.8948774839151278`*^9, 
   3.894877485094228*^9}, {3.894877841124217*^9, 3.894877848155594*^9}, {
   3.894877975338067*^9, 3.894877977005871*^9}, {3.894881298014515*^9, 
   3.894881361059284*^9}, {3.894881393666973*^9, 3.894881393846649*^9}, {
   3.894881466032872*^9, 3.894881466325478*^9}, {3.894881504219091*^9, 
   3.894881555719398*^9}, {3.8948821299763393`*^9, 3.894882180463375*^9}, 
   3.8948822430817337`*^9, {3.8948827663842287`*^9, 
   3.894882766564659*^9}},ExpressionUUID->"727b3e2c-bfa9-4d1f-a9b9-\
19bbe3ad9074"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"range", " ", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{"0.74", ",", " ", "0.77", ",", " ", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "150"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l3", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM30N", "[", 
        RowBox[{
         RowBox[{"#", "+", "0.04"}], ",", " ", "1.0", ",", " ", 
         RowBox[{"-", "0.03"}], ",", " ", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.894882109509075*^9, 3.894882111861601*^9}, {
  3.894882152750001*^9, 3.894882190949717*^9}, {3.8948822346088448`*^9, 
  3.894882246260272*^9}},
 CellLabel->
  "In[347]:=",ExpressionUUID->"918d0dbf-e134-4bce-862d-6f065f8bf673"],

Cell[BoxData[
 RowBox[{"g30", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"{", 
    RowBox[{"l1", ",", "l2", ",", "l3"}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.892441499752686*^9, 3.892441505151773*^9}, {
  3.892460294886755*^9, 3.8924602987133093`*^9}, {3.892462209079855*^9, 
  3.892462211582106*^9}, {3.8948822004491*^9, 3.894882201502582*^9}},
 CellLabel->
  "In[353]:=",ExpressionUUID->"b1f25916-6c3d-4bfa-8bb6-094238a0660c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Save", "[", 
    RowBox[{
     RowBox[{"projectPath", "<>", "\"\</mem_shipit_new.nb\>\""}], ",", " ", 
     "ShipitM"}], "]"}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.8972898705635843`*^9, 
  3.897289870851883*^9}},ExpressionUUID->"2a29c559-4ba5-4f50-b519-\
07e3f0ff08db"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Ship-it for params : ",
 StyleBox["m = 32",
  FontWeight->"Bold"],
 ", sigma = 1, mean = \[Dash]1, error = 35"
}], "Subsection",
 CellChangeTimes->{{3.892277368430962*^9, 3.892277391776228*^9}, {
  3.892285825734497*^9, 3.8922858432304287`*^9}, {3.892286257661607*^9, 
  3.892286260889318*^9}, {3.892286356315919*^9, 3.8922863575499697`*^9}, {
  3.8923612451184*^9, 3.892361246855735*^9}, {3.892398416863777*^9, 
  3.892398417201788*^9}, {3.892405749048023*^9, 
  3.892405751343892*^9}},ExpressionUUID->"b4ea1d94-cb04-48fc-9e15-\
d94c9ab7487d"],

Cell["\<\
Shipit[m_, seed_, weeks_, trials_, mean_, sigma_, error_, params_]\
\>", "Text",
 CellChangeTimes->{
  3.8922774786249437`*^9},ExpressionUUID->"024adc26-0611-4f43-9ab9-\
df7b6f8ff795"],

Cell[BoxData["d32"], "Input",
 CellChangeTimes->{{3.892405979257902*^9, 3.892405980183448*^9}},
 CellLabel->
  "In[119]:=",ExpressionUUID->"c905f3bb-9b7e-43e5-9435-ebf01935a878"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"range", " ", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{"0.77", ",", "0.83", ",", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l1", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM32N", "[", 
        RowBox[{"#", ",", "1.0", ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM32N", "[", 
        RowBox[{"#", ",", "0.98", ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l3", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM32N", "[", 
        RowBox[{"#", ",", "1.02", ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.892282374317274*^9, 3.892282401709289*^9}, {
   3.892282438632196*^9, 3.892282451649353*^9}, {3.892282487348776*^9, 
   3.892282537592512*^9}, 3.8922827245337067`*^9, {3.892282793355856*^9, 
   3.8922827941833353`*^9}, {3.89228293045715*^9, 3.892282955263584*^9}, {
   3.892283044430337*^9, 3.8922830645823708`*^9}, {3.8922832632278633`*^9, 
   3.892283285549306*^9}, {3.8922835387703543`*^9, 3.892283547919845*^9}, {
   3.892283689816313*^9, 3.892283692582142*^9}, 3.892284411877531*^9, {
   3.892284488991322*^9, 3.892284508963543*^9}, 3.892285527548739*^9, {
   3.892285565338516*^9, 3.892285569305408*^9}, {3.8922856999940243`*^9, 
   3.892285737378387*^9}, {3.8922860841600037`*^9, 3.8922860965988092`*^9}, {
   3.8922864572237988`*^9, 3.892286505667172*^9}, {3.8922865654147043`*^9, 
   3.892286614841487*^9}, {3.8922867151040087`*^9, 3.892286715883219*^9}, {
   3.892286816983045*^9, 3.892286825248002*^9}, {3.892286946226022*^9, 
   3.8922869463588343`*^9}, {3.892288456868019*^9, 3.8922884629572906`*^9}, {
   3.892350879548347*^9, 3.89235088456612*^9}, {3.892357410009234*^9, 
   3.892357410306396*^9}, {3.892358603497036*^9, 3.89235864918707*^9}, {
   3.8924062243257103`*^9, 3.892406339703108*^9}, 3.8924064724896173`*^9, {
   3.892406601780075*^9, 3.8924066425109587`*^9}, {3.8924067950378036`*^9, 
   3.8924068163011017`*^9}, {3.8924069150330143`*^9, 3.892406916828528*^9}, {
   3.892439742966069*^9, 3.892439743123219*^9}, {3.892442810824926*^9, 
   3.892442817826147*^9}, {3.892471899861704*^9, 3.892471902105956*^9}, {
   3.894885127971137*^9, 
   3.894885132765396*^9}},ExpressionUUID->"07425afe-0209-4425-8c82-\
ced216fd676f"],

Cell[BoxData[
 RowBox[{"g32", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"{", 
    RowBox[{"l1", ",", "l2", ",", "l3"}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.892441499752686*^9, 3.892441505151773*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"ecef9d3f-f598-4eeb-ba07-f00dc24a2291"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"range", " ", "=", " ", 
   RowBox[{"Range", "[", 
    RowBox[{"0.78", ",", "0.81", ",", "0.01"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "400"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l1", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{"#", ",", 
       RowBox[{"shM32N", "[", 
        RowBox[{"#", ",", "1.0", ",", "n"}], "]"}]}], "}"}], "&"}], "/@", 
    "range"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", "l1", "]"}]}], "Input",
 CellChangeTimes->{{3.892551948292153*^9, 3.892552036591814*^9}, {
  3.894817677631288*^9, 3.894817696382351*^9}, {3.894858126095048*^9, 
  3.894858126244535*^9}, {3.8948581686693897`*^9, 3.8948581738918056`*^9}},
 CellLabel->
  "In[203]:=",ExpressionUUID->"c2df2c4c-e8f8-4c55-8f27-054dbd863261"],

Cell[BoxData[
 RowBox[{"g32", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"{", 
    RowBox[{"l1", ",", "l2", ",", "l3"}], "}"}], "]"}]}]], "Input",
 CellLabel->
  "In[207]:=",ExpressionUUID->"2dd7866b-9675-45f1-a975-a52535e5e27d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"pr", "[", "l_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "*", 
        RowBox[{"0.78", "/", "2.02"}]}], ",", 
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "&"}], "/@", "l"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g14", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"pr", "/@", 
       RowBox[{"{", 
        RowBox[{"l14n1", ",", "l14n2", ",", "l14n3"}], "}"}]}], "]"}], ",", 
     " ", 
     RowBox[{"PlotStyle", "->", "palette1"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"g32", ",", " ", "g14"}], "]"}]}], "Input",
 CellChangeTimes->{{3.892441508132124*^9, 3.8924415968869257`*^9}, {
   3.8924416479153013`*^9, 3.892441662839489*^9}, {3.8924417002848186`*^9, 
   3.892441737664797*^9}, {3.89244274503314*^9, 3.892442781456498*^9}, 
   3.892442880102994*^9, {3.892444246077093*^9, 3.892444312807691*^9}, {
   3.892444377485358*^9, 3.8924444183768263`*^9}, {3.892444493985228*^9, 
   3.892444580701071*^9}, {3.892444637241802*^9, 3.8924446629366217`*^9}, {
   3.892444849241233*^9, 3.892444900382159*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"eeaa0573-2a8b-4ee4-8bdf-bcca135324d7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Save", "[", 
    RowBox[{
     RowBox[{"projectPath", "<>", "\"\</mem_shipit_new.nb\>\""}], ",", " ", 
     "ShipitM"}], "]"}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.897289879229945*^9, 
  3.897289879470963*^9}},ExpressionUUID->"abccc816-eaa0-4496-8f48-\
81d8dc432126"]
}, Closed]],

Cell[CellGroupData[{

Cell["Top mean = -1, sigma = 1, error = 35", "Subsection",
 CellChangeTimes->{{3.892458766085561*^9, 3.8924587772037888`*^9}, {
  3.8925205420815077`*^9, 
  3.892520542485104*^9}},ExpressionUUID->"5936a48f-8b30-4a16-b0b9-\
e73071cf4351"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "[", 
   RowBox[{
    RowBox[{"Select", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", "\"\<mean\>\"", "]"}], "==", 
         RowBox[{"-", "1"}]}], " ", "&&", " ", 
        RowBox[{
         RowBox[{"#", "[", "\"\<sigma\>\"", "]"}], "==", "1"}], " ", "&&", 
        " ", 
        RowBox[{
         RowBox[{"#", "[", "\"\<error\>\"", "]"}], "==", "35"}]}], ")"}], 
      "&"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
     "\"\<result\>\"", ",", " ", "\"\<m\>\"", ",", " ", "\"\<p1\>\"", ",", 
      " ", "\"\<p2\>\"", ",", " ", "\"\<p3\>\"", ",", " ", "\"\<p4\>\""}], 
     "}"}]}], "]"}], " ", "//", " ", "Sort"}]], "Input",
 CellChangeTimes->{{3.892460017334794*^9, 3.892460059443842*^9}, {
  3.892574908195051*^9, 3.8925749363422947`*^9}},
 CellLabel->
  "In[119]:=",ExpressionUUID->"f45d0cac-1f0c-4b64-bd2b-d606169fc40e"],

Cell[CellGroupData[{

Cell["Values ", "Subsubsection",
 CellChangeTimes->{{3.894792145317854*^9, 3.894792147643272*^9}, {
  3.8948179333382673`*^9, 3.894817934565392*^9}, {3.8948180332626467`*^9, 
  3.894818037524411*^9}, {3.894869026401588*^9, 
  3.894869027141181*^9}},ExpressionUUID->"c21d5937-6bfe-4b7a-96aa-\
5e3019a4fdc1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"n", "=", "1000"}], ";"}]], "Input",
 CellChangeTimes->{{3.894818041762871*^9, 3.894818043444355*^9}, {
  3.894857830539405*^9, 3.8948578382948017`*^9}, {3.894869102881752*^9, 
  3.894869104438696*^9}, {3.894875662918879*^9, 3.894875663618547*^9}},
 CellLabel->
  "In[279]:=",ExpressionUUID->"42f71b08-a3d9-4a80-ab79-8a2e96bc2c1b"],

Cell[BoxData[
 RowBox[{"r14", "=", 
  RowBox[{"shM14N", "[", 
   RowBox[{"2.05", ",", "0", ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.892458918006386*^9, 3.892458919525056*^9}, {
  3.89245899976394*^9, 3.89245900151783*^9}},
 CellLabel->
  "In[254]:=",ExpressionUUID->"ca3fc5b0-9eff-440b-9dc1-4e808c8df027"],

Cell[BoxData[
 RowBox[{"r14a", "=", 
  RowBox[{"shM14N", "[", 
   RowBox[{"2.045", ",", "0", ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.89246061516192*^9, 3.892460633971552*^9}, {
  3.8948690329587708`*^9, 
  3.894869037449576*^9}},ExpressionUUID->"9e6f1b38-465c-480b-872c-\
b95953bd004d"],

Cell[BoxData[
 RowBox[{"r14b", "=", 
  RowBox[{"shM14N", "[", 
   RowBox[{"2.055", ",", "0", ",", "n"}], "]"}]}]], "Input",
 CellLabel->"In[19]:=",ExpressionUUID->"864c0dc5-870d-4d8d-9f3b-a737d0052f3b"],

Cell[BoxData[
 RowBox[{"r14d", "=", 
  RowBox[{"shM14N", "[", 
   RowBox[{"2.07", ",", "0", ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8928994101142073`*^9, 3.892899425432002*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"70cfa3f1-662c-44e1-a79b-354cb5621b0b"],

Cell[BoxData[
 RowBox[{"r20", "=", 
  RowBox[{"shM20N", "[", 
   RowBox[{"1.0", ",", "3.82", ",", " ", "2.0", ",", "3.62", ",", "n"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.892458783038447*^9, 3.892458817218967*^9}, {
  3.892458990129087*^9, 3.892458991258356*^9}, {3.892459144860362*^9, 
  3.892459145598254*^9}, {3.892460411985408*^9, 3.892460418411888*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"9a8b4263-2988-4963-8bbf-ea9e34845a52"],

Cell[BoxData[
 RowBox[{"r25", "=", 
  RowBox[{"shM25N", "[", 
   RowBox[{"1.0", ",", "3.82", ",", "3.62", ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.892822835041008*^9, 3.892822844200411*^9}, {
   3.892822928255378*^9, 3.892822936498021*^9}, {3.892824505119916*^9, 
   3.8928245053230333`*^9}, {3.89282548943591*^9, 3.892825490050296*^9}, {
   3.892827361170251*^9, 3.892827361886158*^9}, 3.892828882941411*^9},
 CellLabel->
  "In[209]:=",ExpressionUUID->"d26251fc-1862-405c-9531-66ecdcfc8e13"],

Cell[BoxData[
 RowBox[{"r25b", "=", 
  RowBox[{"shM25N", "[", 
   RowBox[{"1.0", ",", "3.6", ",", "3.3", ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8948091445399427`*^9, 3.894809171403282*^9}, 
   3.894851422934588*^9},
 CellLabel->
  "In[242]:=",ExpressionUUID->"780863c6-505d-47c4-81b3-aec3bd65bbb2"],

Cell[BoxData[
 RowBox[{"r25c", "=", 
  RowBox[{"shM25N", "[", 
   RowBox[{"0.917", ",", " ", "4.6", ",", "4.385", ",", "n"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{
  3.894809693145743*^9, {3.894810081245234*^9, 3.894810081378415*^9}, 
   3.894851426120532*^9},
 CellLabel->
  "In[243]:=",ExpressionUUID->"f08eb9d4-db14-45bf-a450-a01a3c8b5f43"],

Cell[BoxData[
 RowBox[{"r25d", "=", 
  RowBox[{"shM25N", "[", 
   RowBox[{"0.778", ",", " ", "7.0", ",", "6.85", ",", "n"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{
  3.894811097102765*^9, 3.894851428994317*^9, {3.894853048038772*^9, 
   3.8948530486563063`*^9}},
 CellLabel->
  "In[244]:=",ExpressionUUID->"0be7e7f0-6bd5-4ab3-88c1-50f4988a96dd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "1000"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"{", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"shM20N", "[", 
    RowBox[{"0.995", ",", "3.82", ",", " ", "2.0", ",", "3.62", ",", "n"}], 
    "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"shM25N", "[", 
    RowBox[{"0.99", ",", "3.6", ",", "3.3", ",", "n"}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"shM25N", "[", 
    RowBox[{"0.99", ",", " ", "4.6", ",", "4.385", ",", "n"}], "]"}]}], 
  "\[IndentingNewLine]", "}"}]}], "Input",
 CellChangeTimes->{{3.894894192681827*^9, 3.894894197952579*^9}},
 CellLabel->
  "In[375]:=",ExpressionUUID->"029f89c7-0152-49ce-86de-5682192761de"],

Cell[BoxData[
 RowBox[{"r30", "=", 
  RowBox[{"shM30N", "[", 
   RowBox[{"0.826", ",", "1.0", ",", 
    RowBox[{"-", "0.0304"}], ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.892551893328706*^9, 3.892551900056731*^9}},
 CellLabel->
  "In[255]:=",ExpressionUUID->"ac742760-a446-481e-b1ee-7db8e1dfd655"],

Cell[BoxData[
 RowBox[{"r30b", "=", 
  RowBox[{"shM30N", "[", 
   RowBox[{"0.75", ",", "1.0", ",", 
    RowBox[{"-", "0.02"}], ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8947934623596497`*^9, 3.894793496650413*^9}, {
  3.894818079247704*^9, 3.8948180805855703`*^9}},
 CellLabel->
  "In[256]:=",ExpressionUUID->"b7250de5-9298-474f-8de4-b5c3edf2984d"],

Cell[BoxData[
 RowBox[{"r30c", "=", 
  RowBox[{"shM30N", "[", 
   RowBox[{"0.74", ",", "1.0", ",", 
    RowBox[{"-", "0.02"}], ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.894858825792934*^9, 3.894858829111952*^9}},
 CellLabel->
  "In[280]:=",ExpressionUUID->"88a3e886-1cb7-4220-9be4-a67647691626"],

Cell[BoxData[
 RowBox[{
  RowBox[{"n", "=", "1000"}], ";"}]], "Input",
 CellChangeTimes->{{3.8948816648412046`*^9, 3.894881665158448*^9}, {
  3.894884005624662*^9, 3.894884006600745*^9}},
 CellLabel->
  "In[355]:=",ExpressionUUID->"a998b013-1dc9-4c50-a4a4-d5c1714d48dd"],

Cell[BoxData[
 RowBox[{"r30d", "=", 
  RowBox[{"shM30N", "[", 
   RowBox[{"0.77", ",", " ", "1.0", ",", " ", 
    RowBox[{"-", "0.024"}], ",", " ", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.894881625137517*^9, 3.894881631995442*^9}},
 CellLabel->
  "In[356]:=",ExpressionUUID->"649cf5ff-6922-4ae4-a6f1-2ff24eef1243"],

Cell[BoxData[
 RowBox[{"r30e", "=", 
  RowBox[{"shM30N", "[", 
   RowBox[{"0.78", ",", " ", "1.0", ",", " ", 
    RowBox[{"-", "0.028"}], ",", " ", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.894881641725272*^9, 3.894881648673324*^9}},
 CellLabel->
  "In[357]:=",ExpressionUUID->"8631e720-c0cc-49e7-bc57-f80c797950c2"],

Cell[BoxData[
 RowBox[{"r32", "=", 
  RowBox[{"shM32N", "[", 
   RowBox[{"0.79", ",", "1.0", ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{3.892555445189212*^9, 3.8928301888456373`*^9, 
  3.894865167598716*^9},
 CellLabel->
  "In[258]:=",ExpressionUUID->"77e5c8ff-ef4a-454d-8365-8974ce9b1ef4"],

Cell[BoxData[
 RowBox[{"r32b", "=", 
  RowBox[{"shM32N", "[", 
   RowBox[{"0.795", ",", "1.0", ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8948690905963306`*^9, 3.894869095034622*^9}},
 CellLabel->
  "In[259]:=",ExpressionUUID->"49fca561-3fd8-4e6e-9c25-b43e86865c0c"],

Cell[BoxData[
 RowBox[{"r35", "=", 
  RowBox[{"shM35N", "[", 
   RowBox[{"0.795", ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8928273803021593`*^9, 3.892827380973826*^9}, 
   3.8928274670119553`*^9, {3.8928921754289007`*^9, 3.8928921761378727`*^9}},
 CellLabel->
  "In[281]:=",ExpressionUUID->"422ab248-d557-4c40-a743-a2ddac3e0f12"],

Cell[BoxData[
 RowBox[{"r35a", "=", 
  RowBox[{"shM35N", "[", 
   RowBox[{"0.79", ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.893064162278492*^9, 3.893064170994123*^9}},
 CellLabel->
  "In[269]:=",ExpressionUUID->"c031cacf-e19b-4562-bb97-294db74c214d"],

Cell[BoxData[
 RowBox[{"r35b", "=", 
  RowBox[{"shM35N", "[", 
   RowBox[{"0.8293", ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.892894316466745*^9, 3.892894341004591*^9}, {
   3.8928950282665987`*^9, 3.8928950284404593`*^9}, 3.893064102364819*^9},
 CellLabel->
  "In[261]:=",ExpressionUUID->"af53355c-0f80-4829-a673-764b2dc22bbd"],

Cell[BoxData[
 RowBox[{"r36", "=", 
  RowBox[{"shM36N", "[", 
   RowBox[{
    RowBox[{"-", "0.045"}], ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.894873758325383*^9, 3.8948737716725073`*^9}},
 CellLabel->
  "In[282]:=",ExpressionUUID->"d80e69c1-773e-4275-b375-1a11954e76fa"],

Cell[BoxData[
 RowBox[{"r36b", "=", 
  RowBox[{"shM36N", "[", 
   RowBox[{
    RowBox[{"-", "0.042"}], ",", "n"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.894875454272731*^9, 3.894875456960639*^9}},
 CellLabel->
  "In[277]:=",ExpressionUUID->"a96b7fd9-9a9b-4e2c-91cb-62e4c5589a66"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Save", "[", 
    RowBox[{
     RowBox[{"projectPath", "<>", "\"\</mem_shipit_new.nb\>\""}], ",", " ", 
     "ShipitM"}], "]"}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.897289887484006*^9, 
  3.8972898879337*^9}},ExpressionUUID->"40a13840-9023-45be-9b32-82ba8e900774"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Bars", "Subsubsection",
 CellChangeTimes->{{3.8947921559485083`*^9, 
  3.8947921584468403`*^9}},ExpressionUUID->"4b627f6d-d6ef-4ee2-9948-\
cfa46bc78abe"],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"#", ",", " ", 
      RowBox[{"shM35N", "[", 
       RowBox[{"#", ",", "200"}], "]"}]}], "}"}], "&"}], "/@", 
   RowBox[{"Range", "[", 
    RowBox[{"0.77", ",", "0.81", ",", "0.005"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.892914752224948*^9, 3.892914793619033*^9}, {
  3.89295771164581*^9, 3.89295772055622*^9}, {3.8929607035487957`*^9, 
  3.892960704336725*^9}, {3.892965160951704*^9, 3.89296516529922*^9}, {
  3.892965209044793*^9, 3.892965209217126*^9}, {3.894818168959015*^9, 
  3.894818176648245*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"231da3b4-1a79-4b93-af3c-2835e1ad659d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Save", "[", 
    RowBox[{
     RowBox[{"projectPath", "<>", "\"\</mem_shipit_new.nb\>\""}], ",", " ", 
     "ShipitM"}], "]"}], ";"}], " "}]], "Input",
 CellChangeTimes->{{3.897289895325433*^9, 
  3.897289895608181*^9}},ExpressionUUID->"615376c6-a788-4111-a5f6-\
d206c69564f8"],

Cell[BoxData[
 RowBox[{"BarChart", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
     "r14", ",", "r14a", ",", "r14b", ",", " ", "r14d", ",", " ", "r20", ",", 
      "r25", ",", "r25b", ",", " ", "r30", ",", "r30b", ",", "r32", ",", 
      "r32b", ",", " ", "r35", ",", " ", "r35a", ",", " ", "r35b", ",", " ", 
      "r36", ",", "r36b"}], "}"}], "\[IndentingNewLine]", "}"}], ",", " ", 
   "\[IndentingNewLine]", 
   RowBox[{"ChartLegends", "->", 
    RowBox[{"{", 
     RowBox[{
     "\"\<r14\>\"", ",", "\"\<r14a\>\"", ",", "\"\<r14b\>\"", ",", 
      "\"\<r14d\>\"", ",", " ", "\"\<r20\>\"", ",", "\"\<r25\>\"", ",", 
      "\"\<r25b\>\"", ",", "\"\<r30\>\"", ",", "\"\<r30b\>\"", ",", " ", 
      "\"\<r32\>\"", ",", "\"\<r32b\>\"", ",", " ", "\"\<r35\>\"", ",", " ", 
      "\"\<r35a\>\"", ",", " ", "\"\<r35b\>\"", ",", " ", "\"\<r36\>\"", ",", 
      "\"\<r36b\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{"All", ",", " ", 
      RowBox[{"{", 
       RowBox[{"0.1123", ",", " ", "0.1129"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"GridLines", "->", "Automatic"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.8924590673962173`*^9, 3.892459079305307*^9}, {
   3.8924592352444763`*^9, 3.892459281346641*^9}, 3.892459320815229*^9, {
   3.8924594996420803`*^9, 3.892459624780456*^9}, {3.892517941623369*^9, 
   3.8925179443351192`*^9}, {3.8925203304430037`*^9, 3.89252034059309*^9}, {
   3.892530552381898*^9, 3.892530559262486*^9}, {3.89253353687348*^9, 
   3.892533542423685*^9}, {3.892536939036677*^9, 3.892536966660976*^9}, {
   3.8925423236715193`*^9, 3.892542340066722*^9}, {3.892552080182469*^9, 
   3.8925520888052483`*^9}, {3.8925703281940317`*^9, 3.892570361439563*^9}, 
   3.892572874577739*^9, {3.892574687739468*^9, 3.8925746966667767`*^9}, {
   3.892608010282041*^9, 3.892608012377296*^9}, {3.89260934032626*^9, 
   3.8926093583870497`*^9}, {3.892825455943256*^9, 3.8928254576704493`*^9}, {
   3.892830215397344*^9, 3.892830308956788*^9}, {3.892830443476215*^9, 
   3.892830479210063*^9}, {3.892831032854355*^9, 3.892831066176532*^9}, {
   3.892895006498568*^9, 3.892895016351403*^9}, {3.892896479565754*^9, 
   3.892896486827222*^9}, {3.892909452628734*^9, 3.892909478408846*^9}, {
   3.892919996213138*^9, 3.892919996885508*^9}, {3.892955622952342*^9, 
   3.892955625129017*^9}, {3.892955667493433*^9, 3.892955674724978*^9}, {
   3.894818196501461*^9, 3.8948182438563337`*^9}, {3.894864398104423*^9, 
   3.894864485380423*^9}, 3.894865066740109*^9, {3.8948690540020742`*^9, 
   3.894869074807336*^9}, {3.894871284031542*^9, 3.89487129349835*^9}, {
   3.894875212856573*^9, 3.8948752333418903`*^9}, {3.8948759894219646`*^9, 
   3.894875990578499*^9}, {3.89487661565556*^9, 
   3.894876617315218*^9}},ExpressionUUID->"983c2ef9-0f2f-42b5-89a7-\
a82f27ead282"],

Cell[BoxData[
 RowBox[{"BarChart", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Legended", "[", 
       RowBox[{"r14", ",", "\"\<q-criteria\>\""}], "]"}], ",", " ", 
      "\[IndentingNewLine]", 
      RowBox[{"Legended", "[", 
       RowBox[{"r25", ",", "\"\<moss-criteria-v1\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Legended", "[", 
       RowBox[{"r25b", ",", "\"\<moss-criteria-v2\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Legended", "[", 
       RowBox[{"r25c", ",", "\"\<moss-criteria-v3\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Legended", "[", 
       RowBox[{"r25d", ",", "\"\<moss-criteria-v4\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Legended", "[", 
       RowBox[{"r30c", ",", "\"\<g-30\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Legended", "[", 
       RowBox[{"r30d", ",", "\"\<g-30d\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Legended", "[", 
       RowBox[{"r35", ",", "\"\<g-35\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Legended", "[", 
       RowBox[{"r36", ",", "\"\<g-36\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Legended", "[", 
       RowBox[{"r36b", ",", "\"\<g-36b\>\""}], "]"}]}], "\[IndentingNewLine]",
      "}"}], "\[IndentingNewLine]", "}"}], ",", " ", "\[IndentingNewLine]", 
   RowBox[{"ChartLegends", "->", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"{", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.68", ",", "0.75"}], "}"}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{"All", ",", " ", 
      RowBox[{"{", 
       RowBox[{"0.1123", ",", " ", "0.1132"}], "}"}]}], "}"}]}], ",", " ", 
   RowBox[{"GridLines", "->", "Automatic"}]}], "\[IndentingNewLine]", 
  "]"}]], "Input",
 CellChangeTimes->{{3.892830320653126*^9, 3.892830335495615*^9}, {
   3.8928303772781*^9, 3.892830377535716*^9}, {3.89283042618227*^9, 
   3.8928304278346567`*^9}, {3.892891673790762*^9, 3.892891694408518*^9}, {
   3.8930639258612337`*^9, 3.893063932890774*^9}, {3.893073420319283*^9, 
   3.893073423762269*^9}, {3.894793510481769*^9, 3.894793513016035*^9}, {
   3.894793596376643*^9, 3.894793643657322*^9}, {3.894814057717119*^9, 
   3.89481407780646*^9}, {3.894814112675479*^9, 3.894814224926414*^9}, {
   3.8948530003252*^9, 3.8948530274457407`*^9}, {3.8948577431693172`*^9, 
   3.894857758607553*^9}, {3.894857901287962*^9, 3.894857901490054*^9}, {
   3.894858852883897*^9, 3.894858879641947*^9}, {3.894859478409841*^9, 
   3.8948594792354393`*^9}, 3.89486417075854*^9, {3.8948752437950153`*^9, 
   3.8948752534738283`*^9}, {3.8948754174552317`*^9, 
   3.8948754250125847`*^9}, {3.894875560724454*^9, 3.894875562318612*^9}, {
   3.894875756063795*^9, 3.894875766304764*^9}, {3.8948764948013372`*^9, 
   3.894876495765476*^9}, {3.894883987110826*^9, 3.894883990859145*^9}},
 CellLabel->
  "In[363]:=",ExpressionUUID->"662af821-3739-422f-aebb-bacbb35c7f13"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"meanB", ",", " ", "sigmaB"}], "}"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mean", " ", "=", " ", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "x"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sigma", " ", "=", 
   RowBox[{"Max", "[", 
    RowBox[{"0.01", ",", " ", 
     RowBox[{"1", "-", 
      RowBox[{"x", "/", "2.05"}], " ", "+", "y"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RegionPlot", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"RCndsM14", "[", 
      RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
       RowBox[{"{", 
        RowBox[{"2.05", ",", " ", "0"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"RCndsM25", "[", 
      RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
       RowBox[{"{", 
        RowBox[{"1.0", ",", " ", "3.82", ",", "3.62"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"RCndsM35", "[", 
      RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
       RowBox[{"{", "0.795", "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"RCndsM36", "[", 
      RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
       RowBox[{"{", 
        RowBox[{"-", "0.050"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"RCndsM36", "[", 
      RowBox[{"meanB", ",", " ", "sigmaB", ",", " ", 
       RowBox[{"{", 
        RowBox[{"-", "0.0522"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"y", ",", " ", 
     RowBox[{"-", "0.035"}], ",", " ", "0.02"}], "}"}], ",", " ", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<q\>\"", ",", "\"\<moss\>\"", ",", " ", "\"\<g\>\"", ",", " ", 
      "\"\<g-mod\>\""}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "Input",
 CellChangeTimes->{{3.89317722972639*^9, 3.893177231211244*^9}, {
  3.893177274114957*^9, 3.893177279183147*^9}, {3.8931773159055862`*^9, 
  3.89317732377923*^9}, {3.893177365299642*^9, 3.893177536009391*^9}, {
  3.893177595934888*^9, 3.8931776162046413`*^9}, {3.89317771857883*^9, 
  3.893177766313169*^9}, {3.893177798346896*^9, 3.893177805106058*^9}, {
  3.893177879363152*^9, 3.893177913486393*^9}, {3.893177951292557*^9, 
  3.8931780450990877`*^9}, {3.8931781565797863`*^9, 3.8931781959199343`*^9}, {
  3.8932570287887*^9, 3.893257077273903*^9}, {3.893257472969357*^9, 
  3.893257473116865*^9}, {3.893257513309516*^9, 3.8932576362306747`*^9}, {
  3.89420913232934*^9, 3.8942091991255836`*^9}, {3.8942092324418373`*^9, 
  3.894209243753742*^9}, {3.894793238609783*^9, 3.894793269501087*^9}, {
  3.894794223951523*^9, 3.894794232590351*^9}, {3.894794319766407*^9, 
  3.894794335008366*^9}},ExpressionUUID->"1e0a3d29-fadd-4e76-9445-\
5352a66969b4"]
}, Open  ]]
}, Closed]]
},
WindowSize->{1120, 710},
WindowMargins->{{Automatic, 184}, {55, Automatic}},
TaggingRules-><|"TryRealOnly" -> False|>,
Magnification:>1.25 Inherited,
FrontEndVersion->"13.2 for Mac OS X ARM (64-bit) (January 30, 2023)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"880e7b91-0ace-4762-9e8e-77b72db7dafc"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 149, 3, 51, "Input",ExpressionUUID->"397266cd-0831-451b-9d1f-bac49e87cbec"],
Cell[710, 25, 502, 13, 78, "Input",ExpressionUUID->"d0a556f2-30a3-426c-b627-1911bf2c4b2b"],
Cell[CellGroupData[{
Cell[1237, 42, 202, 4, 42, "Subsection",ExpressionUUID->"4f4cf1d8-f2d1-49b2-b312-b41c649c86d0"],
Cell[1442, 48, 168, 3, 43, "Text",ExpressionUUID->"c8efe1c7-01bc-49b3-b76c-cb7a0773460c"],
Cell[1613, 53, 427, 9, 51, "Input",ExpressionUUID->"1d132e17-1033-4b33-98bf-7e1016d58862"],
Cell[2043, 64, 358, 8, 51, "Input",ExpressionUUID->"720a1e1f-02e0-4bab-8467-9b41316284d1"],
Cell[2404, 74, 2068, 56, 186, "Input",ExpressionUUID->"7bfe74ec-87bd-462d-a1f5-1f06cf9bf641"],
Cell[4475, 132, 1933, 54, 434, "Input",ExpressionUUID->"c9ed0efc-6ff3-4438-9298-449b66eb500f"],
Cell[6411, 188, 1635, 43, 234, "Input",ExpressionUUID->"e55862e9-f56c-4767-80fb-8021be861057"],
Cell[8049, 233, 1376, 37, 248, "Input",ExpressionUUID->"53cf14ed-f079-45a3-8773-42ec02455173"],
Cell[9428, 272, 991, 25, 78, "Input",ExpressionUUID->"99d1b81c-810d-45d2-a29f-5a98cab26628"],
Cell[10422, 299, 450, 12, 82, "Input",ExpressionUUID->"71f1c380-61db-4fdd-a698-f40d657ddbd9"],
Cell[10875, 313, 160, 3, 51, "Input",ExpressionUUID->"565e36ec-b493-439c-9e9d-4434bd1e92d5"],
Cell[11038, 318, 3626, 88, 598, "Input",ExpressionUUID->"a8be6fec-fd30-4251-94a9-df5ecb9bf47c"],
Cell[14667, 408, 733, 19, 78, "Input",ExpressionUUID->"a8c6977b-ebc7-49f7-ab1a-f348e278e430"],
Cell[15403, 429, 372, 10, 51, "Input",ExpressionUUID->"3855a7a2-a15f-4806-8508-f3570d3d968c"],
Cell[15778, 441, 528, 11, 104, "Input",ExpressionUUID->"870dbba3-148c-40f0-b3b2-3a7b51335c47"]
}, Closed]],
Cell[CellGroupData[{
Cell[16343, 457, 407, 6, 41, "Subsection",ExpressionUUID->"6f934b23-5476-4ee8-b2b4-0542a1ea6f45"],
Cell[16753, 465, 2055, 48, 286, "Input",ExpressionUUID->"9fec5f42-608e-4f45-a0c2-1dde82975a15"],
Cell[18811, 515, 1043, 26, 156, "Input",ExpressionUUID->"020fd48c-7bdf-4092-a879-67c1ef5450dd"],
Cell[19857, 543, 812, 21, 130, "Input",ExpressionUUID->"e7ed0ad9-67be-4f38-bd33-31d1e9ad7d98"],
Cell[20672, 566, 1862, 39, 130, "Input",ExpressionUUID->"0ff4c4ee-e9b1-4fac-ba15-bbb8d9a9c570"],
Cell[22537, 607, 1111, 26, 156, "Input",ExpressionUUID->"8c076681-fcb3-4e04-accd-4a49bfb8b6fc"],
Cell[23651, 635, 1950, 40, 182, "Input",ExpressionUUID->"eb3e0a7f-70f5-4c96-b38f-8dbaff4603fb"],
Cell[25604, 677, 3911, 101, 416, "Input",ExpressionUUID->"4b106d67-bc3d-4779-b703-2dd01d37662a"],
Cell[29518, 780, 2696, 66, 312, "Input",ExpressionUUID->"76e61e73-2728-4ac1-b33a-208e4478c572"],
Cell[32217, 848, 1987, 41, 130, "Input",ExpressionUUID->"b3765f0e-452f-4f59-8b19-4d72aa3b2ca8"],
Cell[34207, 891, 2041, 40, 161, "Input",ExpressionUUID->"38395422-b3ea-4c19-b377-bc9972c313f5"],
Cell[36251, 933, 1893, 46, 213, "Input",ExpressionUUID->"bb9b86b7-1680-49dc-98c0-c347c4212a19"],
Cell[38147, 981, 3430, 89, 546, "Input",ExpressionUUID->"39620d84-e188-43b1-a9be-3199e4423c40"]
}, Closed]],
Cell[CellGroupData[{
Cell[41614, 1075, 274, 4, 41, "Subsection",ExpressionUUID->"4d936bf0-86a8-4962-aee0-a24846de7f29"],
Cell[41891, 1081, 236, 4, 51, "Input",ExpressionUUID->"7904828b-ce14-4fa8-bec9-5bc9c5d22922"],
Cell[42130, 1087, 782, 19, 78, "Input",ExpressionUUID->"5178ca27-634d-46f8-a10a-e8707cd1d3d9"],
Cell[42915, 1108, 2722, 69, 494, "Input",ExpressionUUID->"aa17f57c-d6a9-44e5-b478-d85f30070589"],
Cell[45640, 1179, 1349, 36, 130, "Input",ExpressionUUID->"e10344b9-4e08-47b2-82cf-7cc7fb59fc2c"],
Cell[46992, 1217, 2557, 69, 234, "Input",ExpressionUUID->"8ad11d71-7ca2-404e-9761-afe8feb98c0a"],
Cell[49552, 1288, 1965, 52, 234, "Input",ExpressionUUID->"2f3afbc6-e7e4-4619-8734-7988aa9e8c96"],
Cell[51520, 1342, 697, 17, 78, "Input",ExpressionUUID->"c05bb940-cee3-4754-a822-d2e17fb437af"]
}, Closed]],
Cell[CellGroupData[{
Cell[52254, 1364, 169, 3, 41, "Subsection",ExpressionUUID->"08679477-d019-4a1e-9406-dedb27a8c78c"],
Cell[52426, 1369, 650, 14, 51, "Input",ExpressionUUID->"38f9af7f-8d26-49f5-af85-be85fc6b7403"],
Cell[53079, 1385, 616, 13, 51, "Input",ExpressionUUID->"02920c6b-51f4-4bd8-a999-52cd7bf860a0"]
}, Closed]],
Cell[CellGroupData[{
Cell[53732, 1403, 248, 4, 41, "Subsection",ExpressionUUID->"bd8d119b-d1e7-44a4-a52e-87cfc5a6832b"],
Cell[53983, 1409, 309, 6, 51, "Input",ExpressionUUID->"60cee4bc-e606-4eb5-8a39-dba4a2812d39"],
Cell[54295, 1417, 1234, 33, 210, "Input",ExpressionUUID->"3c244c23-0c4d-4a38-85ea-633840ecce39"],
Cell[55532, 1452, 620, 10, 51, "Input",ExpressionUUID->"4e325b7e-ef20-4324-92e3-924a577ad2ef"],
Cell[56155, 1464, 435, 11, 51, "Input",ExpressionUUID->"176b11b4-56c5-4e39-b54e-9d6be2de5a02"],
Cell[56593, 1477, 2669, 67, 393, "Input",ExpressionUUID->"cf960611-826b-45e3-bc8e-8532f989fa4a"],
Cell[59265, 1546, 395, 8, 51, "Input",ExpressionUUID->"332717e4-74bd-4692-ae49-6a666b76c651"],
Cell[59663, 1556, 329, 7, 51, "Input",ExpressionUUID->"2febed07-3cbe-4188-8a54-8efefd07420b"],
Cell[59995, 1565, 602, 16, 51, "Input",ExpressionUUID->"fac211c4-1cb9-4162-b6bc-49dbebdb749b"],
Cell[60600, 1583, 745, 18, 51, "Input",ExpressionUUID->"2f39dd8a-877f-4fd8-b498-99dcd78d6037"],
Cell[61348, 1603, 521, 12, 51, "Input",ExpressionUUID->"30deb7bb-5bbf-430c-bd28-bb891ff26509"],
Cell[61872, 1617, 426, 10, 51, "Input",ExpressionUUID->"c1d66ae9-569f-46c3-9c6c-9fe99b3836ad"],
Cell[62301, 1629, 3434, 92, 210, "Input",ExpressionUUID->"7d565826-7f76-41ed-9285-6e8766d7c391"],
Cell[65738, 1723, 441, 9, 51, "Input",ExpressionUUID->"b17f8ced-bbd9-40ad-8f29-4cf4f10d8560"]
}, Closed]],
Cell[CellGroupData[{
Cell[66216, 1737, 444, 7, 41, "Subsection",ExpressionUUID->"5e7f1786-fb15-4f3b-ac11-3bd05c954d39"],
Cell[66663, 1746, 262, 6, 42, "Text",ExpressionUUID->"85f280bc-0c28-4db0-96b3-03d9fdda0152"],
Cell[66928, 1754, 655, 11, 51, "Input",ExpressionUUID->"c31bcb45-5180-408c-8ce9-0f6a1f07f214"],
Cell[67586, 1767, 522, 10, 51, "Input",ExpressionUUID->"06723046-0a50-4dcc-8018-b80f264bb2a6"],
Cell[68111, 1779, 462, 7, 51, "Input",ExpressionUUID->"d3cddb5c-2500-4b78-89b1-db1e8c1d0d96"],
Cell[68576, 1788, 201, 3, 42, "Text",ExpressionUUID->"22274dac-9e62-45b9-8b23-4f265e93906c"],
Cell[68780, 1793, 1093, 18, 51, "Input",ExpressionUUID->"3ad4cc1d-0033-437f-bc89-90b81446785b"],
Cell[69876, 1813, 699, 13, 51, "Input",ExpressionUUID->"8afb6bc9-e44c-432c-be57-ac25cf66fd0b"],
Cell[70578, 1828, 380, 7, 51, "Input",ExpressionUUID->"7694ba3d-a90a-49ac-9779-02768894680b"],
Cell[70961, 1837, 744, 13, 51, "Input",ExpressionUUID->"f95f5866-6295-41c9-b953-51a67ec23e2d"]
}, Closed]],
Cell[CellGroupData[{
Cell[71742, 1855, 417, 8, 41, "Subsection",ExpressionUUID->"f57e90de-117e-46ac-9594-26c3a878d228"],
Cell[72162, 1865, 247, 7, 100, "Text",ExpressionUUID->"27696cf3-4992-4cd7-8bc5-2ecf8b7f79f3"],
Cell[72412, 1874, 643, 11, 51, "Input",ExpressionUUID->"70234c47-ef84-4759-aa75-708aa6374e21"],
Cell[73058, 1887, 880, 22, 51, "Input",ExpressionUUID->"40510173-6732-45cd-8c1d-7ae5e5f4c7ee"],
Cell[73941, 1911, 295, 6, 51, "Input",ExpressionUUID->"c8f5cf24-f675-40c0-ae72-d365bf9735b5"],
Cell[74239, 1919, 742, 11, 51, "Input",ExpressionUUID->"7432a5b3-d03d-4a11-bd2b-bb8d3cf31732"],
Cell[74984, 1932, 416, 9, 51, "Input",ExpressionUUID->"cd6c4974-0ff4-45fa-868f-66caa80e9efc"],
Cell[75403, 1943, 396, 8, 51, "Input",ExpressionUUID->"c9c89444-deac-469e-bdb8-98b83f2dfd67"],
Cell[75802, 1953, 470, 9, 51, "Input",ExpressionUUID->"6d0dd8d7-8aaa-4da7-a5ed-8af5ee953617"],
Cell[76275, 1964, 586, 11, 51, "Input",ExpressionUUID->"b4a2eb16-ea9e-40e2-8198-6e673ecdf63f"],
Cell[76864, 1977, 625, 12, 51, "Input",ExpressionUUID->"61023dc5-5454-4bf5-86ef-f79d01826a07"],
Cell[77492, 1991, 668, 12, 51, "Input",ExpressionUUID->"cd137983-675e-4c0d-a82c-103f3169f4d5"],
Cell[78163, 2005, 3814, 98, 577, "Input",ExpressionUUID->"365712d6-efa5-4de6-8d2e-9bb1543147c7"],
Cell[81980, 2105, 379, 8, 51, "Input",ExpressionUUID->"7629dfa4-98c1-4279-a34d-6afedb12d480"],
Cell[82362, 2115, 466, 11, 51, "Input",ExpressionUUID->"7a451e3b-f521-4a00-9b8c-8bce42d7817d"],
Cell[82831, 2128, 372, 10, 51, "Input",ExpressionUUID->"6fd05142-f420-4631-9dc2-ea390b8c97f3"],
Cell[83206, 2140, 336, 7, 51, "Input",ExpressionUUID->"92f70153-9d40-47b1-bcd0-b5ab3f7e8dc6"],
Cell[83545, 2149, 528, 11, 105, "Input",ExpressionUUID->"1cb117e6-fff4-4583-9e9a-04b66c954d15"]
}, Closed]],
Cell[CellGroupData[{
Cell[84110, 2165, 393, 7, 41, "Subsection",ExpressionUUID->"d5626012-6c5d-495a-b7c9-e10ed4edbb8e"],
Cell[84506, 2174, 247, 7, 151, "Text",ExpressionUUID->"2562f774-c2d9-41a4-9227-a0b0ad8c167b"],
Cell[84756, 2183, 621, 11, 78, "Input",ExpressionUUID->"47669576-38a6-48d9-bd34-043292119571"],
Cell[85380, 2196, 827, 21, 118, "Input",ExpressionUUID->"f8ea8d90-afa4-495b-b2da-b318c64fdfcd"],
Cell[86210, 2219, 295, 6, 78, "Input",ExpressionUUID->"cb7b5284-ae62-4f96-aaa5-1073863d06c4"],
Cell[86508, 2227, 696, 11, 78, "Input",ExpressionUUID->"e506393a-4548-4a53-87c9-ffdf6005ea0d"],
Cell[87207, 2240, 346, 7, 78, "Input",ExpressionUUID->"c88c40fa-80ea-4445-9b30-e36c58c252b8"],
Cell[87556, 2249, 259, 5, 78, "Input",ExpressionUUID->"d8a496cd-a986-4f3f-8754-be3e0fa78fdd"],
Cell[87818, 2256, 422, 9, 78, "Input",ExpressionUUID->"19cd263b-7300-4475-be1e-f3a1bbf2c867"],
Cell[88243, 2267, 554, 12, 78, "Input",ExpressionUUID->"2f541537-b7d5-4ec5-ab9b-3e407dd89c38"],
Cell[88800, 2281, 432, 9, 78, "Input",ExpressionUUID->"3a2ebd83-467e-419d-a214-2275e9471a0a"],
Cell[89235, 2292, 432, 9, 78, "Input",ExpressionUUID->"fa4597b0-0840-466b-906d-4793afd7b85c"],
Cell[89670, 2303, 570, 11, 78, "Input",ExpressionUUID->"87494a31-f1d6-4bd1-8995-0d7eb1065a57"],
Cell[90243, 2316, 510, 10, 78, "Input",ExpressionUUID->"d9ae85d1-311d-4253-a212-e72c66451210"],
Cell[90756, 2328, 489, 10, 78, "Input",ExpressionUUID->"7fee60c9-6b82-4922-b756-9b1515850daf"],
Cell[91248, 2340, 558, 11, 78, "Input",ExpressionUUID->"a064c1d5-9dd8-476f-b8ff-dbc03374dcd1"],
Cell[91809, 2353, 468, 10, 78, "Input",ExpressionUUID->"80eb4451-d2de-45da-89af-f23146f1d8d6"],
Cell[92280, 2365, 3786, 98, 855, "Input",ExpressionUUID->"5df03ea6-3bcf-4d5d-9c6a-4b7cc388400f"],
Cell[96069, 2465, 379, 8, 78, "Input",ExpressionUUID->"75e87854-97bd-4825-a8c6-802c29142dcb"],
Cell[96451, 2475, 466, 11, 78, "Input",ExpressionUUID->"e470f69f-8b93-4c20-9a35-d3934d88258f"]
}, Closed]],
Cell[CellGroupData[{
Cell[96954, 2491, 242, 4, 41, "Subsection",ExpressionUUID->"eac29dc3-ffb9-4189-ae37-62b0961b373e"],
Cell[97199, 2497, 321, 4, 51, "Input",ExpressionUUID->"00815652-bf83-4001-8aa9-9b621f9df248"],
Cell[97523, 2503, 176, 2, 51, "Input",ExpressionUUID->"67358896-2e92-47c7-a66b-3bdda412471c"],
Cell[97702, 2507, 1860, 38, 234, "Input",ExpressionUUID->"001ea2e4-62e4-4aaa-a1d4-e3ae4b2d1829"],
Cell[99565, 2547, 1784, 41, 234, "Input",ExpressionUUID->"6b6352dd-6c70-409c-a7ed-a70f45f3cac9"],
Cell[101352, 2590, 576, 11, 51, "Input",ExpressionUUID->"1d72ea0a-69ea-4791-b7da-8dd5468a20f4"],
Cell[101931, 2603, 555, 13, 130, "Input",ExpressionUUID->"99731d28-9a44-468b-b117-9080e5dcafe9"]
}, Closed]],
Cell[CellGroupData[{
Cell[102523, 2621, 289, 4, 41, "Subsection",ExpressionUUID->"64966230-c00f-4c00-9795-bad0c7ee1069"],
Cell[102815, 2627, 424, 9, 75, "Input",ExpressionUUID->"3122e93f-25ab-4f21-9466-64b09e6a48d7"],
Cell[103242, 2638, 810, 14, 75, "Input",ExpressionUUID->"63f23d75-17c3-47ed-b54c-8ecb3f7bb301"],
Cell[104055, 2654, 1047, 21, 193, "Input",ExpressionUUID->"9bb06c9a-b635-41de-88cc-73292431abac"]
}, Closed]],
Cell[CellGroupData[{
Cell[105139, 2680, 339, 5, 41, "Subsection",ExpressionUUID->"461467d7-8212-49d3-916c-b6def20576c3"],
Cell[105481, 2687, 456, 11, 51, "Input",ExpressionUUID->"2fdc68bc-65d0-4d05-8ff6-4b471c186d72"],
Cell[105940, 2700, 810, 14, 51, "Input",ExpressionUUID->"3e382268-e028-4f51-9054-3ad0d574cabf"],
Cell[106753, 2716, 1100, 22, 131, "Input",ExpressionUUID->"23923018-d684-41d1-96fe-395a82c55278"]
}, Closed]],
Cell[CellGroupData[{
Cell[107890, 2743, 269, 4, 41, "Subsection",ExpressionUUID->"3fbacd10-c07b-41af-b25c-d9cba457eef9"],
Cell[108162, 2749, 239, 5, 51, "Input",ExpressionUUID->"e18a4dbb-dc6f-4359-9593-5949a867db27"],
Cell[108404, 2756, 605, 16, 51, "Input",ExpressionUUID->"9c64219a-d132-435c-9f99-c78840f78893"],
Cell[109012, 2774, 2080, 48, 288, "Input",ExpressionUUID->"9d163b7f-4f28-4bd5-8413-3ddaa13eabdc"],
Cell[111095, 2824, 2245, 50, 288, "Input",ExpressionUUID->"a2e28d99-75ee-4711-ba28-022aaadb6330"],
Cell[113343, 2876, 552, 15, 51, "Input",ExpressionUUID->"565733fc-b3a9-41ff-aaa1-97daad2d241a"],
Cell[113898, 2893, 655, 15, 72, "Text",ExpressionUUID->"90abd3a3-2556-49ca-9f28-e159214f4f47"],
Cell[114556, 2910, 1922, 46, 288, "Input",ExpressionUUID->"ed6f1265-02a3-4031-8256-9b6380b6220a"],
Cell[116481, 2958, 600, 16, 51, "Input",ExpressionUUID->"84ce365c-f28b-4758-aa56-27df99d4d922"],
Cell[117084, 2976, 2159, 53, 315, "Input",ExpressionUUID->"42a5c055-f0c9-4623-89c4-7cfa56a30532"],
Cell[119246, 3031, 362, 8, 51, "Input",ExpressionUUID->"949685b9-8161-4e1a-84b9-1f19282cc285"],
Cell[119611, 3041, 647, 17, 51, "Input",ExpressionUUID->"b0388cec-67f2-4a21-b087-16ee5a4eeb8d"],
Cell[120261, 3060, 2821, 66, 367, "Input",ExpressionUUID->"ef184899-e3d0-4976-833a-926045c4e70f"]
}, Closed]],
Cell[CellGroupData[{
Cell[123119, 3131, 492, 7, 41, "Subsection",ExpressionUUID->"22cb7753-475f-4950-8e9a-2aff206de546"],
Cell[123614, 3140, 861, 19, 51, "Input",ExpressionUUID->"2ecd6576-b7fa-473d-97d0-c801e6b43e73"],
Cell[124478, 3161, 735, 15, 156, "Input",ExpressionUUID->"7d9851a0-5966-4a91-85d0-786c4c302217"]
}, Closed]],
Cell[CellGroupData[{
Cell[125250, 3181, 446, 7, 41, "Subsection",ExpressionUUID->"fa13ef44-6239-4d5f-a712-65f88cd56462"],
Cell[125699, 3190, 873, 19, 51, "Input",ExpressionUUID->"355741b6-61ea-40ec-aba2-5fa6cb034e20"],
Cell[126575, 3211, 689, 15, 156, "Input",ExpressionUUID->"1cfaf6c4-f4b4-4626-9252-561875a44a0a"]
}, Closed]],
Cell[CellGroupData[{
Cell[127301, 3231, 335, 5, 41, "Subsection",ExpressionUUID->"7530264e-c265-4629-8d6b-082850e2e168"],
Cell[127639, 3238, 1152, 23, 51, "Input",ExpressionUUID->"1b0025ef-0b6c-4620-b41e-dedfa5e54765"],
Cell[128794, 3263, 910, 20, 157, "Input",ExpressionUUID->"6c26f93b-a35c-474d-ac78-ccf2e673d3f6"],
Cell[129707, 3285, 963, 23, 51, "Input",ExpressionUUID->"78b59404-8355-476b-b78e-25f722c8fc40"],
Cell[130673, 3310, 816, 19, 157, "Input",ExpressionUUID->"ea575283-d01f-4281-8ab2-8f3a74b6df3d"]
}, Closed]],
Cell[CellGroupData[{
Cell[131526, 3334, 338, 5, 41, "Subsection",ExpressionUUID->"4dd19af3-465a-410d-9ea2-61faad231029"],
Cell[131867, 3341, 638, 16, 51, "Input",ExpressionUUID->"31499883-a181-4119-b487-65659385c1eb"],
Cell[132508, 3359, 1173, 23, 51, "Input",ExpressionUUID->"d6972569-e99b-49f8-a0d3-b064e4bb7e98"],
Cell[133684, 3384, 984, 21, 157, "Input",ExpressionUUID->"b1785ff8-2350-4f11-ac19-0dbd655c8b32"],
Cell[134671, 3407, 2565, 60, 420, "Input",ExpressionUUID->"e3ebeda9-54b8-4093-9b3e-1cfae0fbfcee"],
Cell[137239, 3469, 305, 8, 71, "Text",ExpressionUUID->"eecbcec8-d92a-420b-b530-3ba499ae4336"],
Cell[137547, 3479, 1050, 30, 78, "Input",ExpressionUUID->"7d2f31d2-9ac7-434c-85a8-f3c245af1e96"],
Cell[138600, 3511, 1611, 44, 131, "Input",ExpressionUUID->"c31f9143-bba4-4459-adb6-d56948f1b2ad"],
Cell[140214, 3557, 2090, 53, 420, "Input",ExpressionUUID->"b96be2db-60e3-4818-8f71-755562949ede"]
}, Closed]],
Cell[CellGroupData[{
Cell[142341, 3615, 480, 12, 41, "Subsection",ExpressionUUID->"05396c5d-6a83-4e1e-b5be-2a9bee19953c"],
Cell[142824, 3629, 223, 3, 51, "Input",ExpressionUUID->"f20de964-d944-4544-87e5-072e24b2866e"],
Cell[143050, 3634, 194, 5, 43, "Text",ExpressionUUID->"5c2a1a40-41ef-4d98-8b67-5f040fdc3947"],
Cell[143247, 3641, 974, 19, 51, "Input",ExpressionUUID->"59f6ae0c-1718-472f-8bb9-0f8efd12891e"],
Cell[144224, 3662, 1667, 45, 130, "Input",ExpressionUUID->"e08fdcb5-26ed-492f-97e5-cd6ec9bc829b"],
Cell[145894, 3709, 368, 7, 51, "Input",ExpressionUUID->"b281205c-88ce-4024-bae1-a557059b5aeb"],
Cell[146265, 3718, 2060, 50, 156, "Input",ExpressionUUID->"40062b67-c874-4577-aa98-565de01e75f2"],
Cell[148328, 3770, 200, 4, 51, "Input",ExpressionUUID->"3814eae0-3b0b-4442-81a3-44aec2626ef8"]
}, Closed]],
Cell[CellGroupData[{
Cell[148565, 3779, 550, 13, 41, "Subsection",ExpressionUUID->"fdb79382-5bdb-4bbd-93ae-c154c6bf6160"],
Cell[149118, 3794, 194, 5, 43, "Text",ExpressionUUID->"20b0f8f7-69cc-48df-ace0-3da783ce3880"],
Cell[149315, 3801, 2486, 55, 156, "Input",ExpressionUUID->"759a6d8c-5e63-456a-ab66-07fd769d58d0"],
Cell[151804, 3858, 275, 5, 51, "Input",ExpressionUUID->"1ea0638f-fb43-45f6-a5a9-fea632adeef3"]
}, Closed]],
Cell[CellGroupData[{
Cell[152116, 3868, 323, 9, 41, "Subsection",ExpressionUUID->"b8bd9fac-6881-472e-b919-59aeca396d17"],
Cell[152442, 3879, 409, 9, 51, "Input",ExpressionUUID->"d9b44e0f-bceb-40ff-966b-03f5111e099f"],
Cell[152854, 3890, 406, 9, 51, "Input",ExpressionUUID->"088c9cfc-b01f-45a4-997c-08a7a9104304"]
}, Closed]],
Cell[CellGroupData[{
Cell[153297, 3904, 613, 13, 41, "Subsection",ExpressionUUID->"2b0d9248-cc9b-49b0-978b-32da002db8a6"],
Cell[153913, 3919, 194, 5, 43, "Text",ExpressionUUID->"83e7ce2e-d86c-40b9-bbc1-ffeb373f4986"],
Cell[154110, 3926, 229, 4, 51, "Input",ExpressionUUID->"a744ec68-f710-407c-9802-72f5e9c10607"],
Cell[154342, 3932, 1306, 28, 104, "Input",ExpressionUUID->"56b9b514-65e1-4857-8797-34ae041ada1c"],
Cell[155651, 3962, 460, 9, 51, "Input",ExpressionUUID->"3921fd9d-2e74-490c-adf9-648d263e3b15"],
Cell[156114, 3973, 1086, 25, 104, "Input",ExpressionUUID->"68375d2a-5b96-46f6-9cda-0d9202b84034"],
Cell[157203, 4000, 1074, 26, 104, "Input",ExpressionUUID->"37fbce76-1c12-4df0-ba05-9119e1ad9639"],
Cell[158280, 4028, 670, 15, 156, "Input",ExpressionUUID->"5ae4295d-0502-403c-99d4-d9041a81422f"],
Cell[158953, 4045, 270, 6, 51, "Input",ExpressionUUID->"4b27ad9f-6b87-4b97-97d6-f18a0e952b74"]
}, Closed]],
Cell[CellGroupData[{
Cell[159260, 4056, 611, 13, 41, "Subsection",ExpressionUUID->"26410a42-65e1-4586-a893-64559b44608d"],
Cell[159874, 4071, 194, 5, 43, "Text",ExpressionUUID->"143c9075-e3c0-4a23-8969-82bc36ad55f3"],
Cell[160071, 4078, 225, 3, 51, "Input",ExpressionUUID->"9e4b6359-884f-4903-b8db-90317f1625b3"],
Cell[160299, 4083, 2322, 43, 104, "Input",ExpressionUUID->"bd1f14ba-14f0-48d4-bc68-2348f965ee76"],
Cell[162624, 4128, 880, 24, 104, "Input",ExpressionUUID->"16b05afa-8afb-418b-b18d-ae9a45499ca6"],
Cell[163507, 4154, 386, 9, 51, "Input",ExpressionUUID->"a2218c17-c871-4834-b3f5-435737ab01f0"],
Cell[163896, 4165, 1286, 28, 104, "Input",ExpressionUUID->"3e7145ea-1317-4046-b25f-3560eebc94f6"],
Cell[165185, 4195, 2871, 50, 104, "Input",ExpressionUUID->"727b3e2c-bfa9-4d1f-a9b9-19bbe3ad9074"],
Cell[168059, 4247, 833, 23, 104, "Input",ExpressionUUID->"918d0dbf-e134-4bce-862d-6f065f8bf673"],
Cell[168895, 4272, 441, 9, 51, "Input",ExpressionUUID->"b1f25916-6c3d-4bfa-8bb6-094238a0660c"],
Cell[169339, 4283, 326, 9, 51, "Input",ExpressionUUID->"2a29c559-4ba5-4f50-b519-07e3f0ff08db"]
}, Closed]],
Cell[CellGroupData[{
Cell[169702, 4297, 562, 12, 41, "Subsection",ExpressionUUID->"b4ea1d94-cb04-48fc-9e15-d94c9ab7487d"],
Cell[170267, 4311, 194, 5, 43, "Text",ExpressionUUID->"024adc26-0611-4f43-9ab9-df7b6f8ff795"],
Cell[170464, 4318, 178, 3, 51, "Input",ExpressionUUID->"c905f3bb-9b7e-43e5-9435-ebf01935a878"],
Cell[170645, 4323, 2668, 58, 156, "Input",ExpressionUUID->"07425afe-0209-4425-8c82-ced216fd676f"],
Cell[173316, 4383, 293, 6, 51, "Input",ExpressionUUID->"ecef9d3f-f598-4eeb-ba07-f00dc24a2291"],
Cell[173612, 4391, 848, 22, 130, "Input",ExpressionUUID->"c2df2c4c-e8f8-4c55-8f27-054dbd863261"],
Cell[174463, 4415, 231, 6, 51, "Input",ExpressionUUID->"2dd7866b-9675-45f1-a975-a52535e5e27d"],
Cell[174697, 4423, 1386, 36, 104, "Input",ExpressionUUID->"eeaa0573-2a8b-4ee4-8bdf-bcca135324d7"],
Cell[176086, 4461, 324, 9, 51, "Input",ExpressionUUID->"abccc816-eaa0-4496-8f48-81d8dc432126"]
}, Closed]],
Cell[CellGroupData[{
Cell[176447, 4475, 237, 4, 41, "Subsection",ExpressionUUID->"5936a48f-8b30-4a16-b0b9-e73071cf4351"],
Cell[176687, 4481, 930, 25, 78, "Input",ExpressionUUID->"f45d0cac-1f0c-4b64-bd2b-d606169fc40e"],
Cell[CellGroupData[{
Cell[177642, 4510, 306, 5, 41, "Subsubsection",ExpressionUUID->"c21d5937-6bfe-4b7a-96aa-5e3019a4fdc1"],
Cell[177951, 4517, 365, 7, 51, "Input",ExpressionUUID->"42f71b08-a3d9-4a80-ab79-8a2e96bc2c1b"],
Cell[178319, 4526, 317, 7, 51, "Input",ExpressionUUID->"ca3fc5b0-9eff-440b-9dc1-4e808c8df027"],
Cell[178639, 4535, 299, 7, 51, "Input",ExpressionUUID->"9e6f1b38-465c-480b-872c-b95953bd004d"],
Cell[178941, 4544, 202, 4, 51, "Input",ExpressionUUID->"864c0dc5-870d-4d8d-9f3b-a737d0052f3b"],
Cell[179146, 4550, 269, 5, 51, "Input",ExpressionUUID->"70cfa3f1-662c-44e1-a79b-354cb5621b0b"],
Cell[179418, 4557, 446, 8, 51, "Input",ExpressionUUID->"9a8b4263-2988-4963-8bbf-ea9e34845a52"],
Cell[179867, 4567, 504, 9, 51, "Input",ExpressionUUID->"d26251fc-1862-405c-9531-66ecdcfc8e13"],
Cell[180374, 4578, 312, 7, 51, "Input",ExpressionUUID->"780863c6-505d-47c4-81b3-aec3bd65bbb2"],
Cell[180689, 4587, 348, 9, 51, "Input",ExpressionUUID->"f08eb9d4-db14-45bf-a450-a01a3c8b5f43"],
Cell[181040, 4598, 349, 9, 51, "Input",ExpressionUUID->"0be7e7f0-6bd5-4ab3-88c1-50f4988a96dd"],
Cell[181392, 4609, 693, 16, 182, "Input",ExpressionUUID->"029f89c7-0152-49ce-86de-5682192761de"],
Cell[182088, 4627, 308, 7, 51, "Input",ExpressionUUID->"ac742760-a446-481e-b1ee-7db8e1dfd655"],
Cell[182399, 4636, 359, 8, 51, "Input",ExpressionUUID->"b7250de5-9298-474f-8de4-b5c3edf2984d"],
Cell[182761, 4646, 306, 7, 51, "Input",ExpressionUUID->"88a3e886-1cb7-4220-9be4-a67647691626"],
Cell[183070, 4655, 270, 6, 51, "Input",ExpressionUUID->"a998b013-1dc9-4c50-a4a4-d5c1714d48dd"],
Cell[183343, 4663, 322, 7, 51, "Input",ExpressionUUID->"649cf5ff-6922-4ae4-a6f1-2ff24eef1243"],
Cell[183668, 4672, 322, 7, 51, "Input",ExpressionUUID->"8631e720-c0cc-49e7-bc57-f80c797950c2"],
Cell[183993, 4681, 297, 7, 51, "Input",ExpressionUUID->"77e5c8ff-ef4a-454d-8365-8974ce9b1ef4"],
Cell[184293, 4690, 276, 6, 51, "Input",ExpressionUUID->"49fca561-3fd8-4e6e-9c25-b43e86865c0c"],
Cell[184572, 4698, 341, 7, 51, "Input",ExpressionUUID->"422ab248-d557-4c40-a743-a2ddac3e0f12"],
Cell[184916, 4707, 261, 6, 51, "Input",ExpressionUUID->"c031cacf-e19b-4562-bb97-294db74c214d"],
Cell[185180, 4715, 339, 7, 51, "Input",ExpressionUUID->"af53355c-0f80-4829-a673-764b2dc22bbd"],
Cell[185522, 4724, 283, 7, 51, "Input",ExpressionUUID->"d80e69c1-773e-4275-b375-1a11954e76fa"],
Cell[185808, 4733, 282, 7, 51, "Input",ExpressionUUID->"a96b7fd9-9a9b-4e2c-91cb-62e4c5589a66"],
Cell[186093, 4742, 320, 8, 51, "Input",ExpressionUUID->"40a13840-9023-45be-9b32-82ba8e900774"]
}, Open  ]],
Cell[CellGroupData[{
Cell[186450, 4755, 159, 3, 41, "Subsubsection",ExpressionUUID->"4b627f6d-d6ef-4ee2-9948-cfa46bc78abe"],
Cell[186612, 4760, 691, 15, 51, "Input",ExpressionUUID->"231da3b4-1a79-4b93-af3c-2835e1ad659d"],
Cell[187306, 4777, 324, 9, 51, "Input",ExpressionUUID->"615376c6-a788-4111-a5f6-d206c69564f8"],
Cell[187633, 4788, 2928, 50, 234, "Input",ExpressionUUID->"983c2ef9-0f2f-42b5-89a7-a82f27ead282"],
Cell[190564, 4840, 3145, 66, 494, "Input",ExpressionUUID->"662af821-3739-422f-aebb-bacbb35c7f13"],
Cell[193712, 4908, 3052, 70, 390, "Input",ExpressionUUID->"1e0a3d29-fadd-4e76-9445-5352a66969b4"]
}, Open  ]]
}, Closed]]
}
]
*)