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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      7551,        236]
NotebookOptionsPosition[      7126,        216]
NotebookOutlinePosition[      7472,        231]
CellTagsIndexPosition[      7429,        228]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Logistic curve", "Section",
 CellChangeTimes->{{3.761107339652303*^9, 3.761107344620699*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"y", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.04", ",", "0.35", ",", "1.05", ",", "1.9", ",", "1.98", ",", "1.97", 
     ",", "1.99", ",", "1.999"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "t_", "]"}], ":=", 
   FractionBox["x0", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        FractionBox["x0", "k"]}], ")"}], 
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "r"}], " ", "t"}], ")"}]}]}], "+", 
     FractionBox["x0", "k"]}]]}], ";"}]}], "Input",
 CellChangeTimes->{{3.761063880119059*^9, 3.761063896721076*^9}, {
  3.761064022255937*^9, 3.7610640229583125`*^9}, {3.761064072738594*^9, 
  3.7610640987447543`*^9}, {3.7610643238790197`*^9, 3.761064325221117*^9}, {
  3.761064388561472*^9, 3.761064389495679*^9}, {3.7610738814117928`*^9, 
  3.7610739029022017`*^9}, {3.7611073584478188`*^9, 3.761107485022258*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["MEMS accelerometers", "Section",
 CellChangeTimes->{{3.7611073289187126`*^9, 3.761107334808909*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"rawData", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "11718.`"}], ",", "966306.`", ",", "31738.`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "14648.`"}], ",", "938278.4`", ",", "209862.4`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "17577.8`"}], ",", "891403.8`", ",", "365428.2`"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "21386.4`"}], ",", "815134.2`", ",", "519431.4`"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "26171.4`"}], ",", "710251.8`", ",", "662986.2`"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "31151.4`"}], ",", "583006.`", ",", "778122.8`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "37109.`"}], ",", "440330.4`", ",", "874997.`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "42675.2`"}], ",", "277831.`", ",", "941500.8`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "47851.`"}], ",", "112108.8`", ",", "983199.8`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "53124.4`"}], ",", 
       RowBox[{"-", "58593.`"}], ",", "993258.6`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "271343.5714285714`", ",", "488907.4285714286`", ",", 
       "780340.7142857143`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"494627.`", ",", "249413.`", ",", "780759.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"566795.2`", ",", 
       RowBox[{"-", "59472.2`"}], ",", "779294.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"474412.4`", ",", 
       RowBox[{"-", "366600.4`"}], ",", "775680.8`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"239842.6`", ",", 
       RowBox[{"-", "586619.2`"}], ",", "771286.8`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "80956.4`"}], ",", 
       RowBox[{"-", "656833.6`"}], ",", "766696.6`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "378986.3333333333`"}], ",", 
       RowBox[{"-", "561766.`"}], ",", "763750.5`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "597068.4`"}], ",", 
       RowBox[{"-", "326463.8`"}], ",", "763278.6`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "668943.`"}], ",", 
       RowBox[{"-", "8984.2`"}], ",", "765623.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "573533.4`"}], ",", "296189.8`", ",", "769626.6`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "337498.6`"}], ",", "513182.`", ",", "774020.8`"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "503904.`"}], ",", "852243.2`", ",", "22851.`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "884177.2`"}], ",", "491209.`", ",", "13671.`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1.028903`*^6"}], ",", "4979.8`", ",", "7324.`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "917673.2`"}], ",", 
       RowBox[{"-", "493357.6`"}], ",", "4296.4`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "562888.4`"}], ",", 
       RowBox[{"-", "874118.4`"}], ",", "5371.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "69432.8`"}], ",", 
       RowBox[{"-", "1.0236296`*^6"}], ",", "9277.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"413377.6`", ",", 
       RowBox[{"-", "911911.4`"}], ",", "16698.6`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"787302.2`", ",", 
       RowBox[{"-", "571872.8`"}], ",", "24804.4`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"943681.8333333334`", ",", 
       RowBox[{"-", "52815.333333333336`"}], ",", "31167.666666666668`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "830889.3333333334`", ",", "433998.8333333333`", ",", 
       "34504.333333333336`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"483494.6`", ",", "812399.4`", ",", "33788.6`"}], "}"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"axhat", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.028903`*^6"}], ",", "4979.8`", ",", "7324.`"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ayhat", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "69432.8`"}], ",", 
     RowBox[{"-", "1.0236296`*^6"}], ",", "9277.`"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"azhat", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "53124.4`"}], ",", 
     RowBox[{"-", "58593.`"}], ",", "993258.6`"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"initial", "=", 
   RowBox[{"{", 
    RowBox[{"9.83413891705775`*^-6", ",", "0", ",", "0", ",", 
     RowBox[{"-", "2.7372070119105277`*^-8"}], ",", "9.910940576168197`*^-6", 
     ",", "0", ",", "3.564501971908757`*^-7", ",", "3.196718804591536`*^-7", 
     ",", "9.921457959338485`*^-6", ",", "0.6263910931195998`", ",", 
     "0.7463968839513291`", ",", "0.5751184073988737`"}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.7611070009288683`*^9, 3.76110703517483*^9}, 
   3.761107256830163*^9}]
}, Open  ]]
},
WindowSize->{1520, 781},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (September 21, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 99, 1, 70, "Section"],
Cell[682, 25, 964, 25, 81, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1683, 55, 106, 1, 70, "Section"],
Cell[1792, 58, 5318, 155, 240, "Input"]
}, Open  ]]
}
]
*)