(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 201131, 5208] NotebookOptionsPosition[ 193335, 4940] NotebookOutlinePosition[ 193693, 4956] CellTagsIndexPosition[ 193650, 4953] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Import", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.5679689340112247`*^9, 3.567968969217003*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"data", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "630"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "560"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "520"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "480"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "440"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "405"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "380"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.567968429799335*^9, 3.567968520537718*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "630"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "560"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "520"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "480"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "440"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "405"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "380"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.567968524724689*^9, 3.568125254378591*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"plot2", "=", RowBox[{"ErrorListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"data", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"ErrorBar", "[", "5", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "700"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.567969191901072*^9, 3.567969194126856*^9}, { 3.5679694725354767`*^9, 3.567969505795827*^9}, {3.568125267381459*^9, 3.5681252858274927`*^9}, 3.5681370483252773`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit", "=", RowBox[{"NonlinearModelFit", "[", RowBox[{"data", ",", RowBox[{"630", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "k"}], "*", "x"}], "]"}]}], ",", RowBox[{"{", "k", "}"}], ",", "x"}], "]"}]}]], "Input", CellChangeTimes->{{3.5679692433980083`*^9, 3.567969250866273*^9}, { 3.567969286316657*^9, 3.567969294518751*^9}, {3.567969381849725*^9, 3.56796938370549*^9}, {3.56796941815075*^9, 3.567969450406928*^9}, { 3.567969533211123*^9, 3.5679695380170317`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"630", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.0443911837976932`"}], " ", "x"}]]}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Nonlinear", {$CellContext`k -> 0.0443911837976932}, {{$CellContext`x}, 630 E^(-$CellContext`k $CellContext`x)}}, {1}, {{0, 630}, {2, 560}, {4, 520}, {6, 480}, {8, 440}, {10, 405}, {12, 380}}, Function[Null, Internal`LocalizedBlock[{$CellContext`k, $CellContext`x}, #], { HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{3.5679694517990503`*^9, 3.567969538972855*^9, 3.568125254850161*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"k", ",", "\[CapitalDelta]k"}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{ RowBox[{"fit", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], ",", RowBox[{"1", "/", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679695449122334`*^9, 3.5679695481181*^9}, { 3.567970981570443*^9, 3.567970995961646*^9}, {3.567971293382681*^9, 3.5679713031739407`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.0443911837976932`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"0.0010842692881395599`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.567969548602797*^9, {3.567970986273917*^9, 3.567970996404764*^9}, { 3.567971300355423*^9, 3.567971303777936*^9}, 3.568125255654572*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"plot2", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fit", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "13"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.567969454937479*^9, 3.567969465271164*^9}, { 3.5679695002037697`*^9, 3.567969513538862*^9}, {3.56812529021879*^9, 3.568125291149341*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{0., 630.}, {2., 560.}, {4., 520.}, {6., 480.}, {8., 440.}, { 10., 405.}, {12., 380.}}], {{LineBox[{{0., 635.}, {0., 625.}}], LineBox[{ Offset[{1.5, 0}, {0., 635.}], Offset[{-1.5, 0}, {0., 635.}]}], LineBox[{ Offset[{1.5, 0}, {0., 625.}], Offset[{-1.5, 0}, {0., 625.}]}]}, { LineBox[{{2., 565.}, {2., 555.}}], LineBox[{ Offset[{1.5, 0}, {2., 565.}], Offset[{-1.5, 0}, {2., 565.}]}], LineBox[{ Offset[{1.5, 0}, {2., 555.}], Offset[{-1.5, 0}, {2., 555.}]}]}, { LineBox[{{4., 525.}, {4., 515.}}], LineBox[{ Offset[{1.5, 0}, {4., 525.}], Offset[{-1.5, 0}, {4., 525.}]}], LineBox[{ Offset[{1.5, 0}, {4., 515.}], Offset[{-1.5, 0}, {4., 515.}]}]}, { LineBox[{{6., 485.}, {6., 475.}}], LineBox[{ Offset[{1.5, 0}, {6., 485.}], Offset[{-1.5, 0}, {6., 485.}]}], LineBox[{ Offset[{1.5, 0}, {6., 475.}], Offset[{-1.5, 0}, {6., 475.}]}]}, { LineBox[{{8., 445.}, {8., 435.}}], LineBox[{ Offset[{1.5, 0}, {8., 445.}], Offset[{-1.5, 0}, {8., 445.}]}], LineBox[{ Offset[{1.5, 0}, {8., 435.}], Offset[{-1.5, 0}, {8., 435.}]}]}, { LineBox[{{10., 410.}, {10., 400.}}], LineBox[{ Offset[{1.5, 0}, {10., 410.}], Offset[{-1.5, 0}, {10., 410.}]}], LineBox[{ Offset[{1.5, 0}, {10., 400.}], Offset[{-1.5, 0}, {10., 400.}]}]}, { LineBox[{{12., 385.}, {12., 375.}}], LineBox[{ Offset[{1.5, 0}, {12., 385.}], Offset[{-1.5, 0}, {12., 385.}]}], LineBox[{ Offset[{1.5, 0}, {12., 375.}], Offset[{-1.5, 0}, {12., 375.}]}]}}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwdink01AkAx5ko9ugiR4Mx46hfhGrVOur3VV4rmVSkiUaOUImY0W+cYw6x OdOdx7alXo7E6hCTHIvWjlphvX1JF0tjkHRQTLO9/ePzPu/z3ocZcmRnGE1D Q4P9lf/dlV02+jB/A93aZFZdKUWc35Is7V0xpBZT6yr9a/trur556SsiZXx3 zrobUjz082Z2+p4gi9HRH31digzNPc4PfH8lrf2V+5+VSDHY29/W7FtFKsq/ hDRckuKkm3lOo28jeW9oDf34KSkUlFtMg28n6RckC3YRSHHe6GbuKa2XpNwi 1PWgsxQuF4mZCx4KUlp1VuxJk2L8ktvKvN8myM21vYWDcgmapgJvygw+kE6C 0r0n8yXwDYlOe+zwiUxXJLc9CJDgwPbx8seXVeSQN9fWliXB/aEj4Toamni1 WzeMPSJGSWVwoYnuHFQE8ZfK74jhU5elstqgjSUNHvXnUsXg/mWndYU9D+k5 PcVlXmIMl2dmNO3UBVMzZYBNF2P1n2Zre6Tf4lzt/LWBQyL0T9pkBuR9D1bz AUbObRG2cGN1/2lbgLyRtLduYhEKHtTQPn9aCHbV0dbMbSI0hvF9mlWLcKae MU/OEKHNUu50zFAP27PjjuztS8Xsgec8iZk+OBwFVyFMxeJHeW6JLksQJAtk KumpUJwtfOTmY4CAsutzFTIh3gyG3djEMURah+f60FAhen3kFuAbQVs/xfK4 lhBjP40pqSRj9LhPW2tXpKDlYiQvRbgUUbmMLgdOCpKM0nOF5+gIKBK+c1El I8SAq6otMoH/cpfPnNJkEI6dmhO1pnBeE28m8k5GVc3Flg+dZsg2mreCO52E iAabJ45/MzBfktmuU5IE9bvSjXcF5hgOf793YkcSBjwLm3gz5uAdHHwmpSXh Wvc9xplkJmajIt5m3E5E3+HyP27psFCa2aExFZKIax7TBbFZLDyPdWf1GCRi 4Ae9uzbGFvglf1i9sTUBNaHZXyRFFijRWjRfnZCAyJY1lhsZlvDKGnP+ZlUC 8hxLT38pt0TO+KvL3a/isVWRbMext4KZz7asyoJ4CCrM9CrrraAM1OZEs+Mh LR7vjdpijcTFv58X0+Kx7KlJS7vcGrzi72Ki6gVwtTKeZe1ZBsOf/dXhfAFe V/G5xv3LUJa4wo9uL0Bc9GyRIHA5Ojqq41+PUoh19SG6R5ajaZhzX3mVwly2 zjN5FIHNR1mn4/ZTmM47fEM/hgD/UvbkjlAKyq5OIZdH4NDr6n32IRQ6ORcY bygCTe0O4SP7KBTsXxG8WESg4u1Ti+AACvbJXoOckwSmq72Dd+ykwCk/MfLv HQKL+iKeu4KC5/j7OrtaApGnBvRMSArrV+3JEsgIpOfP2T2zngKrhmmr20hg NHylbp0LhbHm6ijbdgJdlXqmP66jIHnSM8HrI9B3JY22zo5CnKlTk6yfwKY6 pbnhSgoRQUX5Wi8IhDop2VM2FLyGwlafHSRglFrVXUNQMJj8yK8dI5DPI3Od rCjoOAa40yYIVDJ2MZdaUpgRNOhvnSRg7KVq/syi8EKVcfvpRwJ+drTV98wp dGP0mNUnApqHuOpCBoU26Xa/6BkCZQ4efSlmFO623bKuUX39W5taA00plOsa T6nVBBZGtt8nTSj8BzvjMBU= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0, 13}, {0, 700}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.567969465917431*^9, 3.5679695139206448`*^9}, 3.568125256020362*^9, 3.568125291285171*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "k"}], " ", "x"}], "]"}], "==", FractionBox["1", "2"]}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.567969632804729*^9, 3.567969696606801*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"x", "\[Rule]", TemplateBox[{"936.8714072400542`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}], "}"}]], "Output",\ CellChangeTimes->{{3.567969654832797*^9, 3.567969697154435*^9}, 3.568125256113106*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"Log", "[", "2", "]"}], "0.0443911837976932`"], ",", RowBox[{ FractionBox[ RowBox[{"Log", "[", "2", "]"}], SuperscriptBox["0.0443911837976932`", "2"]], "0.0010842692881395599`"}]}], "}"}]], "Input", CellChangeTimes->{{3.567969764476441*^9, 3.56796980857685*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"15.614523454000901`", ",", "0.3813898792892252`"}], "}"}]], "Output", CellChangeTimes->{3.5679698090501127`*^9, 3.568125256166539*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"\[Omega]avg", "[", RowBox[{"\[Omega]_", ",", "Tp_"}], "]"}], ":=", RowBox[{ FractionBox["1", "2"], "\[Omega]", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "k"}], " ", "Tp"}], "]"}]}], ")"}]}]}]], "Input", CellChangeTimes->{{3.56797089277136*^9, 3.567970976363999*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[CapitalDelta]\[Omega]avg", "[", RowBox[{ "\[Omega]_", ",", "\[CapitalDelta]\[Omega]_", ",", "Tp_", ",", "\[CapitalDelta]Tp_"}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "\[CapitalDelta]\[Omega]", RowBox[{"(", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "k"}], " ", "Tp"}], "]"}]}], ")"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "\[Omega]", " ", "\[CapitalDelta]k", " ", "Tp", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "k"}], " ", "Tp"}], "]"}]}], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox["1", "2"], "\[Omega]", " ", "k", " ", "\[CapitalDelta]Tp", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "k"}], " ", "Tp"}], "]"}]}], ")"}], "2"]}], "]"}]}]], "Input", CellChangeTimes->{{3.567971539662372*^9, 3.567971614102006*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Omega]", "1"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"700", ",", "620", ",", "550", ",", "400"}], "}"}], ",", RowBox[{"1", "/", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679712847407007`*^9, 3.567971327188026*^9}, { 3.5679714878975687`*^9, 3.5679715087760067`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"700"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"620"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"550"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"400"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.567971329184824*^9, {3.5679714946776876`*^9, 3.567971509404512*^9}, 3.5681252564048347`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]\[Omega]", "1"], "=", RowBox[{"Quantity", "[", RowBox[{"5", ",", RowBox[{"1", "/", "\"\\""}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567971631352887*^9, 3.5679716500227222`*^9}}], Cell[BoxData[ TemplateBox[{"5"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )]], "Output", CellChangeTimes->{3.567971651788453*^9, 3.568125256460265*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["T", "1"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"128", ",", "112", ",", "103", ",", "90"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.567971334768462*^9, 3.5679713546818867`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"128"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"112"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"103"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"90"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.567971365762528*^9, 3.568125256507058*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]T", "1"], "=", RowBox[{"Quantity", "[", RowBox[{"2", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.567971654549617*^9, 3.567971667469577*^9}}], Cell[BoxData[ TemplateBox[{"2"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]], "Output", CellChangeTimes->{3.567971668462635*^9, 3.56812525655061*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Omega]", RowBox[{"1", ",", "avg"}]], "=", RowBox[{"UnitConvert", "[", RowBox[{"\[Omega]avg", "[", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["T", "1"]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.567971370825431*^9, 3.567971415093999*^9}, { 3.568126293784307*^9, 3.568126296328045*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"11.139594100161112`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"9.922463177662802`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"8.830370786067034`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"6.451939088592533`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.56797138604604*^9, 3.5679714159764433`*^9}, { 3.567971497128119*^9, 3.567971511750588*^9}, 3.5681252569631233`*^9, 3.568126297129819*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]\[Omega]", RowBox[{"1", ",", "avg"}]], "=", RowBox[{"UnitConvert", "[", RowBox[{"\[CapitalDelta]\[Omega]avg", "[", RowBox[{ SubscriptBox["\[Omega]", "1"], ",", SubscriptBox["\[CapitalDelta]\[Omega]", "1"], ",", SubscriptBox["T", "1"], ",", SubscriptBox["\[CapitalDelta]T", "1"]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.567971674429204*^9, 3.567971688461843*^9}, { 3.568126299823997*^9, 3.5681263013998337`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.08089159460148923`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08090335295886578`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08090881491686389`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08094022938539701`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.567971691849608*^9, 3.568125259776175*^9, 3.568126304415615*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Iz", "[", RowBox[{"s_", ",", "m_", ",", "l_"}], "]"}], ":=", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Quantity", "[", RowBox[{"s", ",", RowBox[{"(", RowBox[{"\"\\"", "*", "\"\\""}], ")"}]}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}], "2"]], " ", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"m", "*", "9.85"}], ",", "\"\\""}], "]"}], RowBox[{"Quantity", "[", "\"\\"", "]"}], RowBox[{"Quantity", "[", RowBox[{"l", ",", "\"\\""}], "]"}]}], "//", "UnitConvert"}]}]], "Input", CellChangeTimes->{{3.567972371016336*^9, 3.567972371938212*^9}, { 3.567972497698328*^9, 3.567972581351408*^9}, {3.5679726482371683`*^9, 3.567972745719376*^9}, {3.567972863407454*^9, 3.5679728923018427`*^9}, { 3.567973359935553*^9, 3.567973360087282*^9}, {3.5679741791858*^9, 3.5679741832809753`*^9}, {3.5679744752474403`*^9, 3.567974490197126*^9}, { 3.567974785483264*^9, 3.5679747860787573`*^9}, {3.567975091037388*^9, 3.5679751451299257`*^9}, {3.567975289747861*^9, 3.56797528996835*^9}, { 3.568126633322749*^9, 3.568126634856821*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["plot3b", RowBox[{"1", ",", "15"}]], "=", RowBox[{"ErrorListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", RowBox[{"1", ",", "avg"}]], ",", SubscriptBox["T", "1"]}], "}"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{ SubscriptBox["\[CapitalDelta]\[Omega]", RowBox[{"1", ",", "avg"}]], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"QuantityMagnitude", "[", SubscriptBox["\[CapitalDelta]T", "1"], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", SubscriptBox["\[Omega]", RowBox[{"1", ",", "avg"}]], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "130"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.56797142055298*^9, 3.56797146865889*^9}, { 3.568126316423376*^9, 3.568126316511127*^9}, {3.568126404441372*^9, 3.5681264084405937`*^9}, {3.5681295874198914`*^9, 3.568129651016822*^9}, { 3.568129712514249*^9, 3.5681297355698547`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["fit3b", RowBox[{"1", ",", "15"}]], "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", RowBox[{"1", ",", "avg"}]], ",", SubscriptBox["T", "1"]}], "}"}], "]"}], "]"}], ",", "x", ",", "x", ",", RowBox[{"IncludeConstantBasis", "\[Rule]", "False"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.568126245563571*^9, 3.56812626706704*^9}, { 3.568126370485125*^9, 3.568126387924286*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"11.770862992630883`", " ", "x"}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {11.770862992630883`}, {{$CellContext`x}, {$CellContext`x}}, {0, 0}}, {{1., 1., 1., 1.}}, {{11.139594100161112`, 128}, {9.922463177662802, 112}, { 8.830370786067034, 103}, {6.451939088592533, 90}}, {{ 11.139594100161112`}, {9.922463177662802}, {8.830370786067034}, { 6.451939088592533}}, Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{{3.568126251154622*^9, 3.568126267623561*^9}, 3.568126322493807*^9, 3.5681263896157207`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["fit3b", RowBox[{"1", ",", "15"}]], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.568126418860054*^9, 3.568126427073533*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"x", "11.770862992630883`", "0.47458119787788533`", "24.80263239518319`", "0.00014369502563572615`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.56812642753617*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ SubscriptBox["plot3b", RowBox[{"1", ",", "15"}]], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ SubscriptBox["fit3b", RowBox[{"1", ",", "15"}]], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "700"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.568126274232353*^9, 3.568126286264758*^9}, { 3.568126328038095*^9, 3.5681263303498793`*^9}, {3.5681263987614193`*^9, 3.5681264152962313`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{11.139594100161112`, 128.}, {9.922463177662802, 112.}, { 8.830370786067034, 103.}, {6.451939088592533, 90.}}], {{ LineBox[{{11.220485694762601`, 128.}, {11.058702505559623`, 128.}}], LineBox[{ Offset[{0, 1.5}, {11.220485694762601`, 128.}], Offset[{0, -1.5}, {11.220485694762601`, 128.}]}], LineBox[{ Offset[{0, 1.5}, {11.058702505559623`, 128.}], Offset[{0, -1.5}, {11.058702505559623`, 128.}]}], LineBox[{{11.139594100161112`, 130.}, {11.139594100161112`, 126.}}], LineBox[{ Offset[{1.5, 0}, {11.139594100161112`, 130.}], Offset[{-1.5, 0}, {11.139594100161112`, 130.}]}], LineBox[{ Offset[{1.5, 0}, {11.139594100161112`, 126.}], Offset[{-1.5, 0}, {11.139594100161112`, 126.}]}]}, { LineBox[{{10.003366530621667`, 112.}, {9.841559824703937, 112.}}], LineBox[{ Offset[{0, 1.5}, {10.003366530621667`, 112.}], Offset[{0, -1.5}, {10.003366530621667`, 112.}]}], LineBox[{ Offset[{0, 1.5}, {9.841559824703937, 112.}], Offset[{0, -1.5}, {9.841559824703937, 112.}]}], LineBox[{{9.922463177662802, 114.}, {9.922463177662802, 110.}}], LineBox[{ Offset[{1.5, 0}, {9.922463177662802, 114.}], Offset[{-1.5, 0}, {9.922463177662802, 114.}]}], LineBox[{ Offset[{1.5, 0}, {9.922463177662802, 110.}], Offset[{-1.5, 0}, {9.922463177662802, 110.}]}]}, { LineBox[{{8.911279600983898, 103.}, {8.74946197115017, 103.}}], LineBox[{ Offset[{0, 1.5}, {8.911279600983898, 103.}], Offset[{0, -1.5}, {8.911279600983898, 103.}]}], LineBox[{ Offset[{0, 1.5}, {8.74946197115017, 103.}], Offset[{0, -1.5}, {8.74946197115017, 103.}]}], LineBox[{{8.830370786067034, 105.}, {8.830370786067034, 101.}}], LineBox[{ Offset[{1.5, 0}, {8.830370786067034, 105.}], Offset[{-1.5, 0}, {8.830370786067034, 105.}]}], LineBox[{ Offset[{1.5, 0}, {8.830370786067034, 101.}], Offset[{-1.5, 0}, {8.830370786067034, 101.}]}]}, { LineBox[{{6.53287931797793, 90.}, {6.370998859207136, 90.}}], LineBox[{ Offset[{0, 1.5}, {6.53287931797793, 90.}], Offset[{0, -1.5}, {6.53287931797793, 90.}]}], LineBox[{ Offset[{0, 1.5}, {6.370998859207136, 90.}], Offset[{0, -1.5}, {6.370998859207136, 90.}]}], LineBox[{{6.451939088592533, 92.}, {6.451939088592533, 88.}}], LineBox[{ Offset[{1.5, 0}, {6.451939088592533, 92.}], Offset[{-1.5, 0}, {6.451939088592533, 92.}]}], LineBox[{ Offset[{1.5, 0}, {6.451939088592533, 88.}], Offset[{-1.5, 0}, {6.451939088592533, 88.}]}]}}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk4lAkAB2B326h1h2xkIxvpWhkTjV9toxYpKkqjwzFaeUQMczgG8yXx xChHWgmTCrlHMpoZG5vNUZIlRHvklhQ2SXb3j/d5jb3PufkpyMnJ7f/P/0fW LdxIn52kuphWqnqS1tvfHP6Be5LbYp86tjz9V7IS7t7VS13H7bPf2HmEl03W xj1SfLYyd9ye83iBySebYLNtbe4cZ8E+r6E9mE22QnCn27dTHFVUU23ehpL3 QGB002ecYwDq4sTGEPJh5DU58Ec5Foin7209R/aFWZah+uN8Owj+1t+tr8GE 5yu75koaDf2OgTZpzjGYfs7s0dF1xse8l9zDRXyY8G20rCSuePAk5a2VwSWs Wd3uUL71CCJUwzYZb07B3NM9+iZTR2EdKcK0Rxr+ITd0Gl+nw1s3iM5WTUdB W8D+ecVTuCx5eCIhNRM7Uvx4XoOn8UKcMbbklI0IlxKKxXUf6DapeH3p+Rm/ Dc0O7XTxg9qHql0mx3JBUiv3cV7vj1TbWY/eZXl4b1XDaBw4gyxFetwbp3w8 GdtIsakPQGl4wrRpcQFq2IVL71IDsSayQ/+T4i38qBLorOUQhKRl/tsFtEIw NFyr9dSDsYzakO6VfxtcwzSCPhmM+E+M0YnhO7gYmkQ1fBWCFd4dsRX7imC0 /UJIXPN5vD3u2bm8oBiJs4X+BsJQPO3bpGc6VILxxRjatrQwSFSa85h7SrFW OWYoKpiJ4vslholJZRhkxcgHOoaDvehhrscoR4aVjVKPdQQKZsT+KtoVMJ5a 9YSlxUJbaZOhe00FhNP3IjIV2IiWbGWBUYmKUw65RyfZoOtals5oVkHQrnTJ pZkDyvftXqTqKvzE59J/EXGRI+woq/OuhjZF733AlUjIveRwW5VFcPSska8J jILAvWrdnVsiRDxaMR99NBq3N7gEGR6qAcsisSrSKgYS6eVtczM1eDA5YB6p wQO9eOu1M8L7MKIle73g8TB/jMO221eLFrcdbYuTPDS6uln3jtQilN+4heEb i1W5yemamQ/AF/0xO/I8FoyywKASSh0EpL7SIsc4UHXKRl+P1uEvnS7hTlkc djXydg1miJG71vvzmGU8aNYfNe1t6uFxoGVvtzAezxY7LlCG68GKejzzSosP z4uuYemXHmLwdOOAiMeHBv0UVWwuwe6AnPrWOT4OEB1F3B4Jvj6//POiL4Hk kJHUHI4U5e4LimMMAgUCdSIkSgo320nV388QEFfYsGk8KTKUOgxKAwmMTl88 PUlIYZSZZXsijMDe8xu27RRIsaXejCuJJ6AYGtDZf1uKQyoOn6LzCXDCJnS+ 6ZJiboyscFZI4MpVbdK7bimynm4geRQSKKq2+/KoV4r+rJWrNxcReDmTPHT2 tRS+Fl2UwQoC1kzL++JxKcIP+rLtGwjM7yCXWMrLoLfdPdbiEQFlJ6fCTAUZ 6vT3Jeo2EVA/fvKmvJIMX/60uDbVTOA7bsLVLhUZEpgfanOfEfAQd0dGrZDB 3PONLOk5AZ+W8fDhlTK0UrubI14QONe3FOyqJoP6V+KeAz0ELiyY+ZlqylA5 UfLatpdAmqrdyRQtGQ533Bgx6yeQY3Dw2Ly2DHOi1HdaAwTuWvge8lklQ1Z2 3MelQQLVtqz9bboy/AsU6kle "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0, 20}, {0, 130}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.568126286833856*^9, 3.568126330722931*^9, 3.568126415839522*^9, 3.5681297376383457`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Iz", "[", RowBox[{ RowBox[{"{", RowBox[{"11.7", ",", "0.5"}], "}"}], ",", "1", ",", "15"}], "]"}]], "Input", CellChangeTimes->{{3.5681263510200443`*^9, 3.568126356915777*^9}, { 3.568126443894246*^9, 3.568126447582797*^9}, {3.5681265639919643`*^9, 3.5681265666299667`*^9}, {3.568126732611164*^9, 3.568126733171013*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.004294121121733832`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )], ",", TemplateBox[{"0.00018350944964674493`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568126357766773*^9, 3.568126449200513*^9, 3.5681265678380957`*^9, 3.568126734226243*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Omega]", "rest"], "=", RowBox[{"UnitConvert", "[", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ "540", ",", "440", ",", "350", ",", "250", ",", "600", ",", "500", ",", "400", ",", "300", ",", "1200", ",", "1000", ",", "800", ",", "600"}], "}"}], ",", RowBox[{"1", "/", "\"\\""}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBmIQfWnz9KrYqa8c/Vme1YPoRzv+TAbRPFdnTAPR8e9a DoDoN2xmR0B08IGzN0C00PdrYPqikqdJHJDeXX/eDETLOBxtBtH/eE+A6e0z Ji8B0X0yOktBtNhllzUgWmTzfzBtnte8GUTfm/J6K4g2rBLaBaJXSa8B0+uV rx0E0axx4kdBtNUi/2cg+tMBsRcg+uAc658gWn+J1h8QPZM/jjEeSD8RSQTT q9J1eEG0mIshmA56w2cI5i9NBdPTYpabgWgBNgErEC0pN61xJZCWEhZtAtFc 9Qs7QXTH7jVdIBoAyT6byA== "]], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"9"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{FractionBox["22", "3"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{FractionBox["35", "6"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{FractionBox["25", "6"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{FractionBox["25", "3"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{FractionBox["20", "3"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"5"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"20"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{FractionBox["50", "3"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{FractionBox["40", "3"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"10"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.567971329184824*^9, {3.5679714946776876`*^9, 3.567971509404512*^9}, 3.567971875372465*^9, 3.567972039663752*^9, {3.567972772558605*^9, 3.567972791607115*^9}, 3.5679734070868196`*^9, 3.56797380863099*^9, 3.56797384773971*^9, {3.567973890370535*^9, 3.5679739296005983`*^9}, 3.567974209742097*^9, {3.5679743477860317`*^9, 3.567974372573872*^9}, 3.567974412014649*^9, 3.567974506460742*^9, 3.56797479609762*^9, { 3.567974838773329*^9, 3.5679748652946577`*^9}, 3.568125260354909*^9, 3.5681269935907784`*^9, 3.568127065866289*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]\[Omega]", "rest"], "=", RowBox[{"UnitConvert", "[", RowBox[{"Quantity", "[", RowBox[{"5", ",", RowBox[{"1", "/", "\"\\""}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.567971631352887*^9, 3.5679716500227222`*^9}, { 3.567971877527742*^9, 3.56797187851064*^9}, {3.567974798129486*^9, 3.5679747996639547`*^9}}], Cell[BoxData[ TemplateBox[{FractionBox["1", "12"]}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]], "Output", CellChangeTimes->{3.567971651788453*^9, 3.567971879609172*^9, 3.567974800329328*^9, 3.5681252604126053`*^9, 3.568127067676448*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["T", "rest"], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ "209", ",", "62", ",", "50", ",", "35", ",", "106", ",", "51", ",", "38", ",", "28", ",", "81", ",", "69", ",", "55", ",", "40"}], "}"}], ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.567971334768462*^9, 3.5679713546818867`*^9}, { 3.567971881223672*^9, 3.5679719102104387`*^9}, {3.567971995592412*^9, 3.5679719956951714`*^9}, 3.567972034253837*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"209"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"62"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"50"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"35"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"106"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"51"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"38"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"28"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"81"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"69"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"55"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"40"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.567971365762528*^9, 3.567971911814139*^9, 3.567971996220395*^9, 3.567972036115364*^9, 3.5681252605322313`*^9, 3.568127068829596*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]T", "rest"], "=", RowBox[{"Quantity", "[", RowBox[{"2", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.567971654549617*^9, 3.567971667469577*^9}, { 3.5679719145733843`*^9, 3.567971914870508*^9}}], Cell[BoxData[ TemplateBox[{"2"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]], "Output", CellChangeTimes->{3.567971668462635*^9, 3.567971915268775*^9, 3.568125260590948*^9, 3.568127069587317*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Omega]", RowBox[{"rest", ",", "avg"}]], "=", RowBox[{"UnitConvert", "[", RowBox[{"\[Omega]avg", "[", RowBox[{ SubscriptBox["\[Omega]", "rest"], ",", SubscriptBox["T", "rest"]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.567971370825431*^9, 3.567971415093999*^9}, { 3.5679719176293297`*^9, 3.567971921677565*^9}, {3.567974759411949*^9, 3.567974761466302*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"8.355297230155216`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"7.168939344200709`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"5.727409378089196`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"4.113411540206479`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"9.622859660418975`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"8.179043729385857`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"6.574257053281448`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"4.9487430353370705`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"19.418322506527087`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"16.251927412665037`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"13.06749920746213`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"9.854197477347101`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.56797138604604*^9, 3.5679714159764433`*^9}, { 3.567971497128119*^9, 3.567971511750588*^9}, 3.567971923176509*^9, 3.567972005306904*^9, 3.567972043674224*^9, {3.567972776229136*^9, 3.5679727950642443`*^9}, 3.567973412075498*^9, 3.567973816146276*^9, 3.5679739323933353`*^9, 3.567974212893895*^9, {3.567974355416874*^9, 3.567974383777173*^9}, 3.567974414842086*^9, 3.567974511073848*^9, 3.567974775568358*^9, {3.567974843322591*^9, 3.5679748680462923`*^9}, 3.5681252617685137`*^9, 3.5681270005374107`*^9, 3.5681270715006323`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UnitConvert", "[", RowBox[{ SubscriptBox["\[Omega]", RowBox[{"rest", ",", "avg"}]], ",", RowBox[{"1", "/", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.568125459681603*^9, 3.568125470833375*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"501.31783380931296`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"430.1363606520425`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"343.6445626853518`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"246.80469241238873`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"577.3715796251385`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"490.7426237631514`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"394.4554231968869`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"296.9245821202242`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"1165.0993503916252`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"975.1156447599022`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"784.0499524477278`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"591.2518486408261`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568125471837051*^9, 3.568127011035513*^9, 3.5681270721614647`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]\[Omega]", RowBox[{"rest", ",", "avg"}]], "=", RowBox[{"UnitConvert", "[", RowBox[{"\[CapitalDelta]\[Omega]avg", "[", RowBox[{ SubscriptBox["\[Omega]", "rest"], ",", SubscriptBox["\[CapitalDelta]\[Omega]", "rest"], ",", SubscriptBox["T", "rest"], ",", SubscriptBox["\[CapitalDelta]T", "rest"]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.567971674429204*^9, 3.567971688461843*^9}, { 3.567971925300803*^9, 3.567971941091967*^9}, {3.567974753379352*^9, 3.5679747552107763`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.07892865526308131`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.0817241476124699`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08196512751480756`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08233306746889624`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08096742534892461`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08208897540557689`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08234810097371921`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08256790049463317`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08325056707291628`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08269167173358934`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08246498826410073`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08250649412730059`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.567971691849608*^9, {3.5679719291471577`*^9, 3.567971949313348*^9}, 3.567972052391325*^9, 3.5679743825256844`*^9, 3.567974764358761*^9, 3.568125271784317*^9, 3.5681270217219057`*^9, 3.5681270822707367`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UnitConvert", "[", RowBox[{ SubscriptBox["\[CapitalDelta]\[Omega]", RowBox[{"rest", ",", "avg"}]], ",", RowBox[{"1", "/", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.5681254887974157`*^9, 3.568125489333282*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"4.735719315784879`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"4.903448856748194`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"4.917907650888454`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"4.939984048133774`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"4.858045520935477`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"4.925338524334613`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"4.940886058423152`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"4.95407402967799`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"4.995034024374977`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"4.9615003040153605`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"4.947899295846044`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )], ",", TemplateBox[{"4.950389647638035`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"minute\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal minutes"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Minutes\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568125490389358*^9, 3.5681270240305767`*^9, 3.5681270834943857`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["plot3b", RowBox[{"1", ",", "20"}]], "=", RowBox[{"ErrorListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", RowBox[{"rest", ",", "avg"}]], ",", SubscriptBox["T", "rest"]}], "}"}], "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{ SubscriptBox["\[CapitalDelta]\[Omega]", RowBox[{"rest", ",", "avg"}]], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"QuantityMagnitude", "[", SubscriptBox["\[CapitalDelta]T", "rest"], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "300"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679719596907682`*^9, 3.567971988248981*^9}, 3.567972071995885*^9, {3.567972755726912*^9, 3.567972756942607*^9}, { 3.567972824474661*^9, 3.567972826038867*^9}, {3.567973417067554*^9, 3.5679734180910063`*^9}, {3.567973589600059*^9, 3.567973592367592*^9}, { 3.567973688665675*^9, 3.567973697929756*^9}, {3.5679737414550743`*^9, 3.567973742566469*^9}, {3.567974220378639*^9, 3.567974221863943*^9}, { 3.5679745133955927`*^9, 3.567974514547524*^9}, {3.567974822174943*^9, 3.567974850964826*^9}, {3.5679750669671583`*^9, 3.5679750681747837`*^9}, { 3.5681253268422537`*^9, 3.568125331368145*^9}, {3.568126485108254*^9, 3.568126491475939*^9}, {3.568126692552297*^9, 3.568126696318098*^9}, { 3.568129759861764*^9, 3.56812985439228*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["fit3b", RowBox[{"1", ",", "20"}]], "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", RowBox[{"rest", ",", "avg"}]], ",", SubscriptBox["T", "rest"]}], "}"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"2", ";;", "4"}], "]"}], "]"}], ",", "x", ",", "x", ",", RowBox[{"IncludeConstantBasis", "\[Rule]", "False"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.56797283267833*^9, 3.567972854207795*^9}, 3.567973516326695*^9, {3.5679735508424053`*^9, 3.567973553200622*^9}, { 3.567973594503767*^9, 3.567973595831345*^9}, {3.56797367770646*^9, 3.5679736945412407`*^9}, {3.567973747061741*^9, 3.567973748525919*^9}, { 3.5679742258694553`*^9, 3.567974241966092*^9}, {3.567974520611005*^9, 3.567974521722575*^9}, {3.567974747532013*^9, 3.567974749340438*^9}, { 3.567974875715416*^9, 3.56797487781921*^9}, {3.567975072079918*^9, 3.56797507316637*^9}, {3.568125333441607*^9, 3.568125334935669*^9}, { 3.568126478436515*^9, 3.568126481452262*^9}, {3.568126681695097*^9, 3.568126683319212*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"8.651498347659382`", " ", "x"}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {8.651498347659382}, {{$CellContext`x}, {$CellContext`x}}, {0, 0}}, {{1., 1., 1.}}, {{7.168939344200709, 62}, {5.727409378089196, 50}, { 4.113411540206479, 35}}, {{7.168939344200709}, {5.727409378089196}, { 4.113411540206479}}, Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{ 3.567972854918892*^9, 3.567973421294551*^9, 3.5679735166780977`*^9, 3.5679735535528803`*^9, 3.5679735962251387`*^9, 3.5679736949597483`*^9, 3.567973748977968*^9, {3.5679738228110437`*^9, 3.567973827384906*^9}, { 3.567973885960182*^9, 3.567973937758902*^9}, {3.567974227782896*^9, 3.567974242339242*^9}, {3.56797436004148*^9, 3.567974388953849*^9}, 3.56797441908467*^9, 3.56797452223098*^9, 3.5679748782590647`*^9, 3.567975073482707*^9, 3.568125271937388*^9, 3.5681253354699373`*^9, 3.568126481877637*^9, 3.568126513895797*^9, 3.568126683979747*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["fit3b", RowBox[{"1", ",", "20"}]], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.568126521205071*^9, 3.568126525561672*^9}, { 3.5681266863660507`*^9, 3.568126687693823*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"x", "8.651498347659382`", "0.052014885630842854`", "166.327355001034`", "0.00003614507169880099`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.568126525999756*^9, 3.568126688157078*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ SubscriptBox["plot3b", RowBox[{"1", ",", "20"}]], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ SubscriptBox["fit3b", RowBox[{"1", ",", "20"}]], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1200"}], "}"}]}], "]"}]}], "]"}]], "Input",\ CellChangeTimes->{{3.56797348537669*^9, 3.567973519464126*^9}, 3.567973559889756*^9, {3.5679736000149717`*^9, 3.5679736030784817`*^9}, { 3.567973704143982*^9, 3.5679737068157377`*^9}, {3.56797395682373*^9, 3.567973959295212*^9}, {3.567974233525255*^9, 3.567974246772008*^9}, { 3.567974559495528*^9, 3.567974561959227*^9}, {3.567974883770495*^9, 3.567974885650052*^9}, {3.568125337911504*^9, 3.5681253417196608`*^9}, { 3.5681266996776876`*^9, 3.5681267060532293`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{8.355297230155216, 209.}, {7.168939344200709, 62.}, { 5.727409378089196, 50.}, {4.113411540206479, 35.}}], {{ LineBox[{{8.434225885418297, 209.}, {8.276368574892135, 209.}}], LineBox[{ Offset[{0, 1.5}, {8.434225885418297, 209.}], Offset[{0, -1.5}, {8.434225885418297, 209.}]}], LineBox[{ Offset[{0, 1.5}, {8.276368574892135, 209.}], Offset[{0, -1.5}, {8.276368574892135, 209.}]}], LineBox[{{8.355297230155216, 211.}, {8.355297230155216, 207.}}], LineBox[{ Offset[{1.5, 0}, {8.355297230155216, 211.}], Offset[{-1.5, 0}, {8.355297230155216, 211.}]}], LineBox[{ Offset[{1.5, 0}, {8.355297230155216, 207.}], Offset[{-1.5, 0}, {8.355297230155216, 207.}]}]}, { LineBox[{{7.250663491813179, 62.}, {7.087215196588239, 62.}}], LineBox[{ Offset[{0, 1.5}, {7.250663491813179, 62.}], Offset[{0, -1.5}, {7.250663491813179, 62.}]}], LineBox[{ Offset[{0, 1.5}, {7.087215196588239, 62.}], Offset[{0, -1.5}, {7.087215196588239, 62.}]}], LineBox[{{7.168939344200709, 64.}, {7.168939344200709, 60.}}], LineBox[{ Offset[{1.5, 0}, {7.168939344200709, 64.}], Offset[{-1.5, 0}, {7.168939344200709, 64.}]}], LineBox[{ Offset[{1.5, 0}, {7.168939344200709, 60.}], Offset[{-1.5, 0}, {7.168939344200709, 60.}]}]}, { LineBox[{{5.809374505604004, 50.}, {5.645444250574388, 50.}}], LineBox[{ Offset[{0, 1.5}, {5.809374505604004, 50.}], Offset[{0, -1.5}, {5.809374505604004, 50.}]}], LineBox[{ Offset[{0, 1.5}, {5.645444250574388, 50.}], Offset[{0, -1.5}, {5.645444250574388, 50.}]}], LineBox[{{5.727409378089196, 52.}, {5.727409378089196, 48.}}], LineBox[{ Offset[{1.5, 0}, {5.727409378089196, 52.}], Offset[{-1.5, 0}, {5.727409378089196, 52.}]}], LineBox[{ Offset[{1.5, 0}, {5.727409378089196, 48.}], Offset[{-1.5, 0}, {5.727409378089196, 48.}]}]}, { LineBox[{{4.195744607675375, 35.}, {4.031078472737582, 35.}}], LineBox[{ Offset[{0, 1.5}, {4.195744607675375, 35.}], Offset[{0, -1.5}, {4.195744607675375, 35.}]}], LineBox[{ Offset[{0, 1.5}, {4.031078472737582, 35.}], Offset[{0, -1.5}, {4.031078472737582, 35.}]}], LineBox[{{4.113411540206479, 37.}, {4.113411540206479, 33.}}], LineBox[{ Offset[{1.5, 0}, {4.113411540206479, 37.}], Offset[{-1.5, 0}, {4.113411540206479, 37.}]}], LineBox[{ Offset[{1.5, 0}, {4.113411540206479, 33.}], Offset[{-1.5, 0}, {4.113411540206479, 33.}]}]}}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVzXk4lAkAx3GUwqIDU5GRLqtDqZRjyq+V86k2Nm0hGqknV6SiyVGMcU1z vWaJFCpH5WxIMQbNK6aNhwoVLa2QY12561nb/vF9Pn9+9T0DnM4oyMnJHfrR /4qOfZ/8J392X6R8QI9D7WbL+BfubY7cNku14LQMb4Yy+B+iQqncPsttjxZR djBWQfhZ2LCQO21ZXVtxhMIwRFL/7alpzmIo/0Y5r8Qwwwq/tewxzgrkp0jD 5Bn2+D3fy3mYY4B5mvbCf6+cwHQDq3yIswe53Frb71e8IdJsVoth28El3S+d xr6KwM27miotnPDHl7F7f5UxQbGdFso0juNs+6WeKuUEfK1c4XPXxx2a+0e7 TgXxwfKgrkze5IleH7qLU1Yi8jgeTCuPMygettF/uzoZOgw3v5nocwjUa3Lf GJ2KnAftDTGXfJGZLTToL7qNxtj4stB759Ej7aVSBRlIaOlQ3dAYiJLOjJFr W+6iqfZ12FKrIHxrzvsmq7qHz6pd2wvbLsJyLMjI7XIWYoONMs0dL6OyojU7 Wy0H07uFzoyBYOwWTVib1efip9Y2O1rYFRhGeq0pufoQBcluM4PjDBybu4C+ JXmgFs0MHo4PRUSGWaxnXT50B1tu3VkYjs6xOxpJ9EIMhL3kZaZHQM/Uo1uJ V4T84MN04arrSPg7+YO5dzG24t3xxpbrSPRMn6jf9Rgapf7jnzIjsWp2wdrQ ZSLsr1g34HsqCrQze4LiO0WoKbKTN9Vh4rZYo4v9oAQ5jozyjz1MXN10iP44 uhQtzJfNs3ejMenvrGji+AQ+dAP2SAALw3Xl4najMjgafT1tYBaD9WoyQbDS U1y70ZnaMhGDKYPseP83T6GZ1HbxZHUsbE90CeMKn2F0++hD14g47DzV/3w+ rBzUihD5NNN4nHS6pe5rUwHRqMpcqUICFF0f+s+tEYNXJjliU5UAB7O4kZ4h MV4bRtgXsdlQNZJGT8oq4bbVPYPvcAO+M69o9JsSmK7Jp4gUOVhccG15jWcV QiWLtxU2cbC0si58rV41FIejsvS5XAyqlTEJVjWm6pUl/q48LBo4miicqEaa bH4ufDkfEou6Yj69BvRpFZvrgXxYz2R8Mq+rwfs5Hc+AVj5UYKgTYvIckzZ7 81NMBLgzvvIsPe05ylUoSj2EAM3aH6us5aXYcX9ip+6MAL80/rpOfF6KwzHd XP4xAlFDhje73kph68A9uPs4AW0Tq4LcVimgbqbScYJAcbgbGfhOCuMkLsvg JIFOdd6oXIcUmtlmYZLTBGjGE3b63VK01/K8hwIJTF2WzNLHpDinSDtgxybg O+/k2q1Ggi7rlR++QUDBzu/CoyUkXDiCqkQugVQ+K/biMhIHtfrMOwUE6vWf ihZokdi2gTAOvklgwwFd1fWrSUwd+EK9n0WgK65P7LWJxIhSYod9DoGQZrk3 W7aQ+PJqb+pILoEl2tr9E1tJvD+aqGWRR2Dvo4NaLGMSYq99qq8f//g1FPtn mZIo/blfFlJCwJjyJ9PfnETBUGKs7hMCMvfPKSY0EhmX+hW8nxGYHqG8qLUk kWIqrFavIMAz3d7B2U+C+L4vokRMYGOk/bizFYmE6n4LFwmBSpmnEtWaBDNa ODtfReDo8jBqrw2J/wA2qlgd "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0, 30}, {0, 300}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.567973504908064*^9, 3.567973519803852*^9}, { 3.567973555011314*^9, 3.567973560330319*^9}, 3.567973603618774*^9, 3.567973707345546*^9, 3.567973959807561*^9, {3.567974237152028*^9, 3.5679742473154707`*^9}, 3.567974562577361*^9, 3.567974886132134*^9, 3.5681252722905693`*^9, 3.5681253423045177`*^9, 3.568126516230536*^9, 3.5681267066031713`*^9, {3.5681298340812693`*^9, 3.568129856665515*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Iz", "[", RowBox[{ RowBox[{"{", RowBox[{"8.65", ",", "0.05"}], "}"}], ",", "1", ",", "20"}], "]"}]], "Input", CellChangeTimes->{{3.568126543289281*^9, 3.5681265543505573`*^9}, { 3.568126623178289*^9, 3.568126628684683*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.004232951305184917`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )], ",", TemplateBox[{"0.000024467926619565994`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5681265554970217`*^9, 3.568126637980709*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["plot3b", RowBox[{"2", ",", "15"}]], "=", RowBox[{"ErrorListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", RowBox[{"rest", ",", "avg"}]], ",", SubscriptBox["T", "rest"]}], "}"}], "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{ SubscriptBox["\[CapitalDelta]\[Omega]", RowBox[{"rest", ",", "avg"}]], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"QuantityMagnitude", "[", SubscriptBox["\[CapitalDelta]T", "rest"], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "5", ",", "8"}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "300"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679719596907682`*^9, 3.567971988248981*^9}, 3.567972071995885*^9, {3.567972755726912*^9, 3.567972756942607*^9}, { 3.567972824474661*^9, 3.567972826038867*^9}, {3.567973417067554*^9, 3.5679734180910063`*^9}, {3.567973589600059*^9, 3.567973592367592*^9}, { 3.567973688665675*^9, 3.567973697929756*^9}, {3.5679737414550743`*^9, 3.567973742566469*^9}, {3.567974220378639*^9, 3.567974221863943*^9}, { 3.5679745133955927`*^9, 3.567974514547524*^9}, {3.567974822174943*^9, 3.567974850964826*^9}, {3.5679750669671583`*^9, 3.5679750681747837`*^9}, { 3.5681253268422537`*^9, 3.568125331368145*^9}, {3.568126485108254*^9, 3.568126491475939*^9}, {3.568126692552297*^9, 3.568126696318098*^9}, { 3.568126758962031*^9, 3.568126766201724*^9}, {3.5681298938662443`*^9, 3.568129897733283*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["fit3b", RowBox[{"2", ",", "15"}]], "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", RowBox[{"rest", ",", "avg"}]], ",", SubscriptBox["T", "rest"]}], "}"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"6", ";;", "8"}], "]"}], "]"}], ",", "x", ",", "x", ",", RowBox[{"IncludeConstantBasis", "\[Rule]", "False"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.56797283267833*^9, 3.567972854207795*^9}, 3.567973516326695*^9, {3.5679735508424053`*^9, 3.567973553200622*^9}, { 3.567973594503767*^9, 3.567973595831345*^9}, {3.56797367770646*^9, 3.5679736945412407`*^9}, {3.567973747061741*^9, 3.567973748525919*^9}, { 3.5679742258694553`*^9, 3.567974241966092*^9}, {3.567974520611005*^9, 3.567974521722575*^9}, {3.567974747532013*^9, 3.567974749340438*^9}, { 3.567974875715416*^9, 3.56797487781921*^9}, {3.567975072079918*^9, 3.56797507316637*^9}, {3.568125333441607*^9, 3.568125334935669*^9}, { 3.568126478436515*^9, 3.568126481452262*^9}, {3.568126681695097*^9, 3.568126683319212*^9}, {3.568126769761269*^9, 3.568126775105089*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"5.984189494189047`", " ", "x"}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {5.984189494189047}, {{$CellContext`x}, {$CellContext`x}}, {0, 0}}, {{1., 1., 1.}}, {{8.179043729385857, 51}, {6.574257053281448, 38}, { 4.9487430353370705`, 28}}, {{8.179043729385857}, {6.574257053281448}, { 4.9487430353370705`}}, Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{ 3.567972854918892*^9, 3.567973421294551*^9, 3.5679735166780977`*^9, 3.5679735535528803`*^9, 3.5679735962251387`*^9, 3.5679736949597483`*^9, 3.567973748977968*^9, {3.5679738228110437`*^9, 3.567973827384906*^9}, { 3.567973885960182*^9, 3.567973937758902*^9}, {3.567974227782896*^9, 3.567974242339242*^9}, {3.56797436004148*^9, 3.567974388953849*^9}, 3.56797441908467*^9, 3.56797452223098*^9, 3.5679748782590647`*^9, 3.567975073482707*^9, 3.568125271937388*^9, 3.5681253354699373`*^9, 3.568126481877637*^9, 3.568126513895797*^9, 3.568126683979747*^9, 3.568126776041641*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["fit3b", RowBox[{"2", ",", "15"}]], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.568126521205071*^9, 3.568126525561672*^9}, { 3.5681266863660507`*^9, 3.568126687693823*^9}, {3.568126779047996*^9, 3.568126780247727*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"x", "5.984189494189047`", "0.1790300448473727`", "33.42561579142042`", "0.0008938375170327584`"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.568126525999756*^9, 3.568126688157078*^9, 3.568126780666151*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ SubscriptBox["plot3b", RowBox[{"2", ",", "15"}]], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ SubscriptBox["fit3b", RowBox[{"2", ",", "15"}]], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1200"}], "}"}]}], "]"}]}], "]"}]], "Input",\ CellChangeTimes->{{3.56797348537669*^9, 3.567973519464126*^9}, 3.567973559889756*^9, {3.5679736000149717`*^9, 3.5679736030784817`*^9}, { 3.567973704143982*^9, 3.5679737068157377`*^9}, {3.56797395682373*^9, 3.567973959295212*^9}, {3.567974233525255*^9, 3.567974246772008*^9}, { 3.567974559495528*^9, 3.567974561959227*^9}, {3.567974883770495*^9, 3.567974885650052*^9}, {3.568125337911504*^9, 3.5681253417196608`*^9}, { 3.5681266996776876`*^9, 3.5681267060532293`*^9}, {3.568126783432263*^9, 3.568126786783987*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{9.622859660418975, 106.}, {8.179043729385857, 51.}, { 6.574257053281448, 38.}, {4.9487430353370705`, 28.}}], {{LineBox[{{9.7038270857679, 106.}, {9.54189223507005, 106.}}], LineBox[{ Offset[{0, 1.5}, {9.7038270857679, 106.}], Offset[{0, -1.5}, {9.7038270857679, 106.}]}], LineBox[{ Offset[{0, 1.5}, {9.54189223507005, 106.}], Offset[{0, -1.5}, {9.54189223507005, 106.}]}], LineBox[{{9.622859660418975, 108.}, {9.622859660418975, 104.}}], LineBox[{ Offset[{1.5, 0}, {9.622859660418975, 108.}], Offset[{-1.5, 0}, {9.622859660418975, 108.}]}], LineBox[{ Offset[{1.5, 0}, {9.622859660418975, 104.}], Offset[{-1.5, 0}, {9.622859660418975, 104.}]}]}, { LineBox[{{8.261132704791434, 51.}, {8.09695475398028, 51.}}], LineBox[{ Offset[{0, 1.5}, {8.261132704791434, 51.}], Offset[{0, -1.5}, {8.261132704791434, 51.}]}], LineBox[{ Offset[{0, 1.5}, {8.09695475398028, 51.}], Offset[{0, -1.5}, {8.09695475398028, 51.}]}], LineBox[{{8.179043729385857, 53.}, {8.179043729385857, 49.}}], LineBox[{ Offset[{1.5, 0}, {8.179043729385857, 53.}], Offset[{-1.5, 0}, {8.179043729385857, 53.}]}], LineBox[{ Offset[{1.5, 0}, {8.179043729385857, 49.}], Offset[{-1.5, 0}, {8.179043729385857, 49.}]}]}, { LineBox[{{6.656605154255167, 38.}, {6.491908952307729, 38.}}], LineBox[{ Offset[{0, 1.5}, {6.656605154255167, 38.}], Offset[{0, -1.5}, {6.656605154255167, 38.}]}], LineBox[{ Offset[{0, 1.5}, {6.491908952307729, 38.}], Offset[{0, -1.5}, {6.491908952307729, 38.}]}], LineBox[{{6.574257053281448, 40.}, {6.574257053281448, 36.}}], LineBox[{ Offset[{1.5, 0}, {6.574257053281448, 40.}], Offset[{-1.5, 0}, {6.574257053281448, 40.}]}], LineBox[{ Offset[{1.5, 0}, {6.574257053281448, 36.}], Offset[{-1.5, 0}, {6.574257053281448, 36.}]}]}, { LineBox[{{5.031310935831704, 28.}, {4.866175134842437, 28.}}], LineBox[{ Offset[{0, 1.5}, {5.031310935831704, 28.}], Offset[{0, -1.5}, {5.031310935831704, 28.}]}], LineBox[{ Offset[{0, 1.5}, {4.866175134842437, 28.}], Offset[{0, -1.5}, {4.866175134842437, 28.}]}], LineBox[{{4.9487430353370705`, 30.}, {4.9487430353370705`, 26.}}], LineBox[{ Offset[{1.5, 0}, {4.9487430353370705`, 30.}], Offset[{-1.5, 0}, {4.9487430353370705`, 30.}]}], LineBox[{ Offset[{1.5, 0}, {4.9487430353370705`, 26.}], Offset[{-1.5, 0}, {4.9487430353370705`, 26.}]}]}}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVknk41HkAh5llCXkKUYmiJJWkTTnCx6ockehSyFE9T65lETuNJktGjJkx X4OIkStlKTGI3zTYLroc7aCVR3fjCF2OdGz7x/u8/7/PaxAU4XWUJicn5/6D /12778unt1UzdiFj3owYi+X2qbcP9Xpye+276tPDuoXyyPg3kaHPfWO/tKVE vlI4H4KXggcK3Cn721vN7p8VGiB7qGByiqOExUrHzXlCc+iEGbLfcXTgKNM5 kiZ0wP6qI3vHOMbo8w7+miL0xNSD5KZRzmYYzte4yxIGolaray6L7QwXd+YJ K98oRK7Z2HndxgvLXtTwTJwY0HaaErRremNDt5roIi0RH67rhBSHHILU0G1b dgsLyf76C3NWB0FpSWhPgikblRz/JEf/o7BRzFbbNsODLt03bPr0MWjQTInX foLyS/0PWDGh6JB+0/szVYCHKakNjJLfkF60L37JSDbSpE/UjB5GgjgID25a kYvOW93x8xyjEBVWY6LvdQ4v1Z6uv9Ibjd08t3tRVwqQEruuyNrzOOJZPaPb XhZiapNgL304Fo+soyd+XVEE1Z5e5y3xf0Aa9+x5+65iXM7xnR55T8es0GnB vOAS6FdPj+xMZcDg74lqtdxS6I1IzwkVTiK0g5/eJirDcPxdXlEhE/V9x7us ZRdQFbszULAoAeHGLepa2hdh+qPsQ2kCXANo6ZVml6BZF/7+WdGfMMpKiZoN qIADtXw4NCARK0UKuXOYf6G12lneUjcJgoWyBmZWJco96U0Dr5IgT1dHxc0q SJPuds0Un0bmjbXKWYOXERJozB6PSIam4p0lunOq4bnuw2FjKxY071WYFxZW 41T6YJ70IwtGrLTXtLVXoZXdG+3XkoLNzaqdDjevYmL9RIUP8wx83p45EOBV A30qTj7fMhUWdlb+NQM1qJ1Q+VxHS8O8uezcwZha8Boku7Y3p+FrZ1/0qLwI 3SZMl2o2G8MabYn/5Inga3rofIZrOmQuteb5JnWwXFalXavIQUFJl29OXR0Y EiWzK50c7GbwxeHu9VAcSywz4HKx2NldvLy/HpNtcyThPjw8JxUTopgG5Ld/ /3xSIwMBcjZFdNVrCJxS2Z4QmYGJoDvv9M5ew+PPukERPRlIcPwUW7C+EZ+2 21blWvBhuGhp/hdJI5pUtJVfET4Y8+Ntea5N2FD68Re9aT4epZzQ/PqsCTtZ L7gZ+wjsPsSkukZQcHLlum3yJogqtGC0/k4B6lYqTw78+HLHZJhlDAXzbG6y sR+BemncrpV0CloXrOIlhwkG9pzQoSVR6L/FCx6NJGDWnyprzKZwTHHLVmc2 gYSe1rpKQiGw/bX8WDrBe6MdtYUtFA5y+M2ZXALjbtUy7RsU3Ba8sR7kE/BW c84otFEwMyLmsWcJ/Pt5Hk+7KExulemXlhF835I1kPOKwrhy5hOXcoKNQ3s7 1GUUZPdt88YvEhzL0m5NHqbweE/mAptKgo63OaXR4xTER+zUumsICoV5oR4z FOpWDbXHiQgeufr43Z6lcHk0M0WvnkBpStfD9huF8zFDtOBGgkiPgg1rfhIj 11LQok4RlM76rShWFIN8sWOKxAR95frai5TFSGsZsjkoIVDdM6iUoSJG0mnB zPdmAnu58zM/zxXjP2saT90= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0, 30}, {0, 300}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.567973504908064*^9, 3.567973519803852*^9}, { 3.567973555011314*^9, 3.567973560330319*^9}, 3.567973603618774*^9, 3.567973707345546*^9, 3.567973959807561*^9, {3.567974237152028*^9, 3.5679742473154707`*^9}, 3.567974562577361*^9, 3.567974886132134*^9, 3.5681252722905693`*^9, 3.5681253423045177`*^9, 3.568126516230536*^9, 3.5681267066031713`*^9, 3.568126787209132*^9, 3.568129900267838*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Iz", "[", RowBox[{ RowBox[{"{", RowBox[{"6.0", ",", "0.2"}], "}"}], ",", "2", ",", "15"}], "]"}]], "Input",\ CellChangeTimes->{{3.568126543289281*^9, 3.5681265543505573`*^9}, { 3.568126623178289*^9, 3.568126628684683*^9}, {3.568126794694985*^9, 3.568126807322452*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.004404226791521879`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )], ",", TemplateBox[{"0.00014680755971739596`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5681265554970217`*^9, 3.568126637980709*^9, 3.568126808642894*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["plot3b", RowBox[{"2", ",", "20"}]], "=", RowBox[{"ErrorListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", RowBox[{"rest", ",", "avg"}]], ",", SubscriptBox["T", "rest"]}], "}"}], "]"}], "]"}], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{ SubscriptBox["\[CapitalDelta]\[Omega]", RowBox[{"rest", ",", "avg"}]], "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"QuantityMagnitude", "[", SubscriptBox["\[CapitalDelta]T", "rest"], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "9", ",", "12"}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "300"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679719596907682`*^9, 3.567971988248981*^9}, 3.567972071995885*^9, {3.567972755726912*^9, 3.567972756942607*^9}, { 3.567972824474661*^9, 3.567972826038867*^9}, {3.567973417067554*^9, 3.5679734180910063`*^9}, {3.567973589600059*^9, 3.567973592367592*^9}, { 3.567973688665675*^9, 3.567973697929756*^9}, {3.5679737414550743`*^9, 3.567973742566469*^9}, {3.567974220378639*^9, 3.567974221863943*^9}, { 3.5679745133955927`*^9, 3.567974514547524*^9}, {3.567974822174943*^9, 3.567974850964826*^9}, {3.5679750669671583`*^9, 3.5679750681747837`*^9}, { 3.5681253268422537`*^9, 3.568125331368145*^9}, {3.568126485108254*^9, 3.568126491475939*^9}, {3.568126692552297*^9, 3.568126696318098*^9}, { 3.5681268554277153`*^9, 3.568126860747425*^9}, {3.568129906294138*^9, 3.568129909573488*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["fit3b", RowBox[{"2", ",", "20"}]], "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", RowBox[{"rest", ",", "avg"}]], ",", SubscriptBox["T", "rest"]}], "}"}], "]"}], "]"}], "[", RowBox[{"[", RowBox[{"9", ";;", "12"}], "]"}], "]"}], ",", "x", ",", "x", ",", RowBox[{"IncludeConstantBasis", "\[Rule]", "False"}], ",", RowBox[{"Weights", "\[Rule]", RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{"QuantityMagnitude", "[", RowBox[{ SubscriptBox["\[CapitalDelta]\[Omega]", RowBox[{"rest", ",", "avg"}]], "[", RowBox[{"[", RowBox[{"9", ";;", "12"}], "]"}], "]"}], "]"}], ")"}], "2"]}]}], ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{"1", "&"}], ")"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.56797283267833*^9, 3.567972854207795*^9}, 3.567973516326695*^9, {3.5679735508424053`*^9, 3.567973553200622*^9}, { 3.567973594503767*^9, 3.567973595831345*^9}, {3.56797367770646*^9, 3.5679736945412407`*^9}, {3.567973747061741*^9, 3.567973748525919*^9}, { 3.5679742258694553`*^9, 3.567974241966092*^9}, {3.567974520611005*^9, 3.567974521722575*^9}, {3.567974747532013*^9, 3.567974749340438*^9}, { 3.567974875715416*^9, 3.56797487781921*^9}, {3.567975072079918*^9, 3.56797507316637*^9}, {3.568125333441607*^9, 3.568125334935669*^9}, { 3.568126478436515*^9, 3.568126481452262*^9}, {3.568126681695097*^9, 3.568126683319212*^9}, {3.568126863995165*^9, 3.568126866734334*^9}, { 3.568130019524645*^9, 3.568130022234634*^9}, {3.5681302052508783`*^9, 3.568130277835732*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"4.188051969571393`", " ", "x"}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {4.188051969571393}, {{$CellContext`x}, {$CellContext`x}}, {0, 0}}, {{144.2864669016161, 146.2434608755214, 147.0485671211152, 146.90065530914939`}}, {{19.418322506527087`, 81}, { 16.251927412665037`, 69}, {13.06749920746213, 55}, { 9.854197477347101, 40}}, {{19.418322506527087`}, {16.251927412665037`}, { 13.06749920746213}, {9.854197477347101}}, Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{ 3.567972854918892*^9, 3.567973421294551*^9, 3.5679735166780977`*^9, 3.5679735535528803`*^9, 3.5679735962251387`*^9, 3.5679736949597483`*^9, 3.567973748977968*^9, {3.5679738228110437`*^9, 3.567973827384906*^9}, { 3.567973885960182*^9, 3.567973937758902*^9}, {3.567974227782896*^9, 3.567974242339242*^9}, {3.56797436004148*^9, 3.567974388953849*^9}, 3.56797441908467*^9, 3.56797452223098*^9, 3.5679748782590647`*^9, 3.567975073482707*^9, 3.568125271937388*^9, 3.5681253354699373`*^9, 3.568126481877637*^9, 3.568126513895797*^9, 3.568126683979747*^9, 3.5681268671678877`*^9, 3.568127035000698*^9, 3.568127093475943*^9, { 3.568130239014804*^9, 3.568130278356341*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["fit3b", RowBox[{"2", ",", "20"}]], "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.568126521205071*^9, 3.568126525561672*^9}, { 3.5681266863660507`*^9, 3.568126687693823*^9}, 3.5681268693699083`*^9}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"x", "4.188051969571393`", "0.002748169496918307`", "1523.9423821084238`", "6.231095835475372`*^-10"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.568126525999756*^9, 3.568126688157078*^9, 3.568126872278308*^9, 3.5681270360840673`*^9, 3.568127094610793*^9, 3.568130281962009*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ SubscriptBox["plot3b", RowBox[{"2", ",", "20"}]], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ SubscriptBox["fit3b", RowBox[{"2", ",", "20"}]], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1200"}], "}"}]}], "]"}]}], "]"}]], "Input",\ CellChangeTimes->{{3.56797348537669*^9, 3.567973519464126*^9}, 3.567973559889756*^9, {3.5679736000149717`*^9, 3.5679736030784817`*^9}, { 3.567973704143982*^9, 3.5679737068157377`*^9}, {3.56797395682373*^9, 3.567973959295212*^9}, {3.567974233525255*^9, 3.567974246772008*^9}, { 3.567974559495528*^9, 3.567974561959227*^9}, {3.567974883770495*^9, 3.567974885650052*^9}, {3.568125337911504*^9, 3.5681253417196608`*^9}, { 3.5681266996776876`*^9, 3.5681267060532293`*^9}, {3.5681268748981333`*^9, 3.568126881721634*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{19.418322506527087`, 81.}, {16.251927412665037`, 69.}, { 13.06749920746213, 55.}, {9.854197477347101, 40.}}], {{ LineBox[{{19.501573073600003`, 81.}, {19.33507193945417, 81.}}], LineBox[{ Offset[{0, 1.5}, {19.501573073600003`, 81.}], Offset[{0, -1.5}, {19.501573073600003`, 81.}]}], LineBox[{ Offset[{0, 1.5}, {19.33507193945417, 81.}], Offset[{0, -1.5}, {19.33507193945417, 81.}]}], LineBox[{{19.418322506527087`, 83.}, {19.418322506527087`, 79.}}], LineBox[{ Offset[{1.5, 0}, {19.418322506527087`, 83.}], Offset[{-1.5, 0}, {19.418322506527087`, 83.}]}], LineBox[{ Offset[{1.5, 0}, {19.418322506527087`, 79.}], Offset[{-1.5, 0}, {19.418322506527087`, 79.}]}]}, { LineBox[{{16.334619084398625`, 69.}, {16.169235740931448`, 69.}}], LineBox[{ Offset[{0, 1.5}, {16.334619084398625`, 69.}], Offset[{0, -1.5}, {16.334619084398625`, 69.}]}], LineBox[{ Offset[{0, 1.5}, {16.169235740931448`, 69.}], Offset[{0, -1.5}, {16.169235740931448`, 69.}]}], LineBox[{{16.251927412665037`, 71.}, {16.251927412665037`, 67.}}], LineBox[{ Offset[{1.5, 0}, {16.251927412665037`, 71.}], Offset[{-1.5, 0}, {16.251927412665037`, 71.}]}], LineBox[{ Offset[{1.5, 0}, {16.251927412665037`, 67.}], Offset[{-1.5, 0}, {16.251927412665037`, 67.}]}]}, { LineBox[{{13.149964195726232`, 55.}, {12.98503421919803, 55.}}], LineBox[{ Offset[{0, 1.5}, {13.149964195726232`, 55.}], Offset[{0, -1.5}, {13.149964195726232`, 55.}]}], LineBox[{ Offset[{0, 1.5}, {12.98503421919803, 55.}], Offset[{0, -1.5}, {12.98503421919803, 55.}]}], LineBox[{{13.06749920746213, 57.}, {13.06749920746213, 53.}}], LineBox[{ Offset[{1.5, 0}, {13.06749920746213, 57.}], Offset[{-1.5, 0}, {13.06749920746213, 57.}]}], LineBox[{ Offset[{1.5, 0}, {13.06749920746213, 53.}], Offset[{-1.5, 0}, {13.06749920746213, 53.}]}]}, { LineBox[{{9.936703971474403, 40.}, {9.7716909832198, 40.}}], LineBox[{ Offset[{0, 1.5}, {9.936703971474403, 40.}], Offset[{0, -1.5}, {9.936703971474403, 40.}]}], LineBox[{ Offset[{0, 1.5}, {9.7716909832198, 40.}], Offset[{0, -1.5}, {9.7716909832198, 40.}]}], LineBox[{{9.854197477347101, 42.}, {9.854197477347101, 38.}}], LineBox[{ Offset[{1.5, 0}, {9.854197477347101, 42.}], Offset[{-1.5, 0}, {9.854197477347101, 42.}]}], LineBox[{ Offset[{1.5, 0}, {9.854197477347101, 38.}], Offset[{-1.5, 0}, {9.854197477347101, 38.}]}]}}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk01AkAB3DjucKWthzxTFmV2bxux5TwbXMWnlGkkKPTFVLKI2SYMebA b2ZNjsW4J2bIr1apht199ZbFo1ZDKtLhKkcJla3d/ePzPmZhMT4nVVVUVDz/ 8/+k39LHd7JPDgNvQmxHR4wdOQ+OKRkCpaOVvvy0QrromPskPYkqGHU8Vz0k yZJqQfRK1KUmWHBcGbOoiJYaIX/8l/kFviZCH2V4hkhpMIz6gTvLNwRH/S/R ESkdh2UnfKf4FiimnqX7Sd2w0JXZ8pZvi411jtmHpP4gV/d+x+K6obvZmzbQ FI5YS6uee3Y+6JJ/ebnWMB4Grgui9lX+mKuw0Ei2TsSHe4YR5RHH4HV3dKSw PxWZwVQj8aYw0ANmuzepM1HPD2buCz6JkfFbnPAQFkwSA6MWM85A1l4vW6rj oEY62MU6H4kAY0XbMwUP3WxOc1LFWTAUPCM97Vxk9z3V3dAdizELdzf/q3no uf8wWW/fOSxvKarvoArxSnd4W4MyHhRfYWv0AxHYCVskuxkXcKp2TUczIx8L NiLfxIkEiNWcmTu+iqHzWOm2J/kSjnA04pTlBZCLAxcn3yeC/8DPz9yyCNTG xUkvThL4uh4TpX8Xw3Syr6hE7TK+afdc+CO0BBPJHTmS0hSs5SwpdbTKIEvw ChWtSYOmWeCKA4Nl2Ix+/+6+NND0mb8HlUmw6mb0+xeSK5Dzlzq1Esqx9475 RGRIOs6G2R9k21fgt0Y3Ct2EiYsH2j8YUypRw0hsefaaide3aiZd+irRx+zo /VSeAV66Z7BLURUiQi240zGZKOxx3vQ8rhqMLR+OW+xiYWYHZwXXqQapvKHC vjkWUmeFsTrLarE6Xxkf1MbGBatZ2vrntZjZNnMtICULFY/0g/SqpKDeuUgp pnOwhp1Zt/LMNZAz2p9vqmZjXuHKqLOrQ06zwtulNRs6B3vPGVHq8fDHFPdG LhfsSNmkqbIegZuPleXu58Fu2Ht4vkQG+jqZAanOBz3ccfpVmBxJCs2tDT18 FCWk+UbaNkB9Kr3KTCCA7XCW7f1/GjD/5zJFdEAOTEfjbgVENKK4/dvny9/n 4qcxp7ChR40IXdB2SYvNBVP8pd3D5joGPpuExTzOxUJWQJCG5Do+utjLCqzz wKGVyqVqTWjRNtB6TeTBwUeLf/hUE3ZUzu00XczDRoWxmNHTBC/WS0GuHwHL fr1g650kXPcLPGz8CRhYGk9PWZHA8l3aT48QUE0xT621IbE9X5BpEUSg39ym 1GQ3idXVu5IVxwmwYgKGKHtJDN7PCX8bS2BEozq424vEGfU9Tm5cAlet7UJO R5AIbX9DmeIRyMhymlkXReIoP69VKCAQO+iZ9iSahIf+6O6hPAKuV0LKPONI bN1AbE+4SmCuM3N45yUS805j1MoqAt4nekJUWCSmtYRP3WsI7GkemLnNJjHW aV84XUuApv0yLZ5DYuCQUN+unsDXho9lb3gk7p5w0H3YRKDui/GLTiGJm7Tx 9os3CIi91sexfiYhfytkm/5KIF2ymQIxibLz46rhtwkcdYUZWUiigC5qW36H gHOh+/WoYhLEkkPKjbsEtr/z2buxhER227jdUQUBEwT2DpWSYGaIPn1rJaAp PBlaICHxLxeDUfw= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0, 30}, {0, 300}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.567973504908064*^9, 3.567973519803852*^9}, { 3.567973555011314*^9, 3.567973560330319*^9}, 3.567973603618774*^9, 3.567973707345546*^9, 3.567973959807561*^9, {3.567974237152028*^9, 3.5679742473154707`*^9}, 3.567974562577361*^9, 3.567974886132134*^9, 3.5681252722905693`*^9, 3.5681253423045177`*^9, 3.568126516230536*^9, 3.5681267066031713`*^9, 3.568126882024435*^9, 3.568127040204245*^9, 3.568127095710091*^9, 3.56812991213542*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Iz", "[", RowBox[{ RowBox[{"{", RowBox[{"4.18", ",", "0.03"}], "}"}], ",", "2", ",", "20"}], "]"}]], "Input", CellChangeTimes->{{3.568126543289281*^9, 3.5681265543505573`*^9}, { 3.568126623178289*^9, 3.568126628684683*^9}, {3.5681268876009207`*^9, 3.56812689400021*^9}, {3.56812704482261*^9, 3.568127045942285*^9}, { 3.5681271005629177`*^9, 3.5681271039543657`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.004091037330791434`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )], ",", TemplateBox[{"0.000029361511943479192`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.5681265554970217`*^9, 3.568126637980709*^9, 3.568126894871451*^9, 3.5681270474806213`*^9, 3.568127104999934*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Iz", "[", RowBox[{ RowBox[{"2", "*", RowBox[{"{", RowBox[{"4.18", ",", "0.03"}], "}"}]}], ",", "2", ",", "20"}], "]"}]], "Input", CellChangeTimes->{{3.568127425285231*^9, 3.5681274255172453`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.008182074661582868`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )], ",", TemplateBox[{"0.000058723023886958384`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568127426900345*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Mean", "[", RowBox[{"{", RowBox[{"0.0043", ",", "0.00423", ",", "0.0044", ",", "0.00409"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.568127566135721*^9, 3.568127584898377*^9}}], Cell[BoxData["0.004255`"], "Output", CellChangeTimes->{3.568127586035655*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"StandardDeviation", "[", RowBox[{"{", RowBox[{"0.0043", ",", "0.00423", ",", "0.0044", ",", "0.00409"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.568127590466401*^9, 3.568127595187477*^9}}], Cell[BoxData["0.00013025615788386628`"], "Output", CellChangeTimes->{3.5681275958503323`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["2", "5"], RowBox[{"Quantity", "[", RowBox[{"4.164", ",", "\"\\""}], "]"}], SuperscriptBox[ RowBox[{"Quantity", "[", RowBox[{"5.08", ",", "\"\\""}], "]"}], "2"]}], "//", "UnitConvert"}]], "Input", CellChangeTimes->{{3.5681277012325497`*^9, 3.568127723056355*^9}}], Cell[BoxData[ TemplateBox[{"0.004298313984`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )]], "Output", CellChangeTimes->{3.568127723644888*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[Omega]", "F"], "=", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"2", "\[Pi]", "*", RowBox[{"{", RowBox[{ "600", ",", "570", ",", "540", ",", "510", ",", "480", ",", "450", ",", "420", ",", "390", ",", "360", ",", "330"}], "}"}]}], ",", RowBox[{"1", "/", "\"\\""}]}], "]"}], "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.568130419374028*^9, 3.5681304608758793`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"62.83185307179586`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"59.690260418206066`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"56.548667764616276`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"53.40707511102649`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"50.26548245743669`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"47.12388980384689`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"43.982297150257104`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"40.840704496667314`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"37.69911184307752`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"34.55751918948772`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{ 3.5681304212973824`*^9, {3.568130451740675*^9, 3.568130461537344*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["\[CapitalDelta]\[Omega]", "F"], "=", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"2", "\[Pi]", "*", "5"}], ",", RowBox[{"1", "/", "\"\\""}]}], "]"}], "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.568130468051347*^9, 3.568130481613505*^9}}], Cell[BoxData[ TemplateBox[{"0.5235987755982988`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]], "Output", CellChangeTimes->{{3.568130471128298*^9, 3.56813048255742*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalOmega]", "=", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"20", RowBox[{"\[Pi]", "/", RowBox[{"{", RowBox[{ "17.0", ",", "18.4", ",", "19.0", ",", "20.8", ",", "21.2", ",", "23.2", ",", "25.4", ",", "27.2", ",", "28.3", ",", "30.9"}], "}"}]}]}], ",", RowBox[{"1", "/", "\"\\""}]}], "]"}], "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.568129118107683*^9, 3.568129161652609*^9}, { 3.568129271413957*^9, 3.568129324633659*^9}, {3.568130399571018*^9, 3.568130400882803*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"3.6959913571644627`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"3.4147746234671668`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"3.306939635357677`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"3.0207621669132623`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"2.963766654329994`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"2.708269528956718`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"2.4736950028266085`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"2.309994598227789`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"2.220206822324942`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"2.0333933032943645`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.5681291589199953`*^9, 3.568129162429221*^9}, 3.568129325930119*^9, 3.568130402819817*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[CapitalDelta]\[CapitalOmega]", "=", RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"20", RowBox[{"\[Pi]", "/", RowBox[{ RowBox[{"{", RowBox[{ "17.0", ",", "18.4", ",", "19.0", ",", "20.8", ",", "21.2", ",", "23.2", ",", "25.4", ",", "27.2", ",", "28.3", ",", "30.9"}], "}"}], "^", "2"}]}], "*", "0.5"}], ",", RowBox[{"1", "/", "\"\\""}]}], "]"}], "]"}], "//", "N"}]}]], "Input", CellChangeTimes->{{3.568129344857409*^9, 3.568129347784422*^9}, { 3.568130403332665*^9, 3.56813040590661*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.10870562815189597`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.09279278868117302`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08702472724625467`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.07261447516618419`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.06990015694174513`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.058367877779239616`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.04869478352020884`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.042463135996834364`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.039226268945670356`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.03290280426042661`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568129349469184*^9, 3.568130406858173*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"\[CapitalOmega]", ",", "\[CapitalDelta]\[CapitalOmega]"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.568129389701619*^9, 3.568129396479568*^9}, { 3.568130411418117*^9, 3.568130414745316*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ TemplateBox[{"3.6959913571644627`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.10870562815189597`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.4147746234671668`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.09279278868117302`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.306939635357677`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.08702472724625467`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"3.0207621669132623`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.07261447516618419`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.963766654329994`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.06990015694174513`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.708269528956718`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.058367877779239616`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.4736950028266085`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.04869478352020884`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.309994598227789`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.042463135996834364`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.220206822324942`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.039226268945670356`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}], ",", RowBox[{"{", RowBox[{ TemplateBox[{"2.0333933032943645`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.03290280426042661`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5681293975210953`*^9, 3.568130415826396*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"plot4b", "=", RowBox[{"ErrorListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[Omega]", "F"], "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"\[CapitalOmega]", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"ErrorBar", "[", RowBox[{ RowBox[{"QuantityMagnitude", "[", SubscriptBox["\[CapitalDelta]\[Omega]", "F"], "]"}], ",", RowBox[{"QuantityMagnitude", "[", RowBox[{"\[CapitalDelta]\[CapitalOmega]", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "\[CapitalOmega]", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "66"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input",\ CellChangeTimes->{{3.568130499332944*^9, 3.568130613213666*^9}, { 3.568130690129807*^9, 3.568130820937365*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit4b", "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"QuantityMagnitude", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ SubscriptBox["\[Omega]", "F"], ",", "\[CapitalOmega]"}], "}"}], "]"}], "]"}], ",", "x", ",", "x", ",", RowBox[{"IncludeConstantBasis", "\[Rule]", "False"}], ",", RowBox[{"Weights", "\[Rule]", RowBox[{"1", "/", SuperscriptBox[ RowBox[{"(", RowBox[{ "QuantityMagnitude", "[", "\[CapitalDelta]\[CapitalOmega]", "]"}], ")"}], "2"]}]}], ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{"1", "&"}], ")"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5681306266447783`*^9, 3.568130656122445*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"0.05777620282391258`", " ", "x"}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {0.05777620282391258}, {{$CellContext`x}, {$CellContext`x}}, {0, 0}}, {{84.62446578991693, 116.13725225638065`, 132.042779734531, 189.65032638931336`, 204.6650558534085, 293.52979696736793`, 421.73060710929644`, 554.5948990007995, 649.8991915311243, 923.7068671155403}}, {{62.83185307179586, 3.6959913571644627`}, { 59.690260418206066`, 3.4147746234671668`}, {56.548667764616276`, 3.306939635357677}, {53.40707511102649, 3.0207621669132623`}, { 50.26548245743669, 2.963766654329994}, {47.12388980384689, 2.708269528956718}, {43.982297150257104`, 2.4736950028266085`}, { 40.840704496667314`, 2.309994598227789}, {37.69911184307752, 2.220206822324942}, {34.55751918948772, 2.0333933032943645`}}, {{ 62.83185307179586}, {59.690260418206066`}, {56.548667764616276`}, { 53.40707511102649}, {50.26548245743669}, {47.12388980384689}, { 43.982297150257104`}, {40.840704496667314`}, {37.69911184307752}, { 34.55751918948772}}, Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}], VarianceEstimatorFunction -> (1& )]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{3.568130660657763*^9, 3.56813082258009*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"plot4b", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"fit4b", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "65"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.5681306639611883`*^9, 3.568130680804513*^9}, { 3.568130767754655*^9, 3.568130767986368*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{62.83185307179586, 3.6959913571644627`}, { 59.690260418206066`, 3.4147746234671668`}, {56.548667764616276`, 3.306939635357677}, {53.40707511102649, 3.0207621669132623`}, { 50.26548245743669, 2.963766654329994}, {47.12388980384689, 2.708269528956718}, {43.982297150257104`, 2.4736950028266085`}, { 40.840704496667314`, 2.309994598227789}, {37.69911184307752, 2.220206822324942}, {34.55751918948772, 2.0333933032943645`}}], {{ LineBox[{{63.355451847394164`, 3.6959913571644627`}, { 62.30825429619756, 3.6959913571644627`}}], LineBox[{ Offset[{0, 1.5}, {63.355451847394164`, 3.6959913571644627`}], Offset[{0, -1.5}, {63.355451847394164`, 3.6959913571644627`}]}], LineBox[{ Offset[{0, 1.5}, {62.30825429619756, 3.6959913571644627`}], Offset[{0, -1.5}, {62.30825429619756, 3.6959913571644627`}]}], LineBox[{{62.83185307179586, 3.8046969853163586`}, {62.83185307179586, 3.587285729012567}}], LineBox[{ Offset[{1.5, 0}, {62.83185307179586, 3.8046969853163586`}], Offset[{-1.5, 0}, {62.83185307179586, 3.8046969853163586`}]}], LineBox[{ Offset[{1.5, 0}, {62.83185307179586, 3.587285729012567}], Offset[{-1.5, 0}, {62.83185307179586, 3.587285729012567}]}]}, { LineBox[{{60.21385919380437, 3.4147746234671668`}, { 59.166661642607764`, 3.4147746234671668`}}], LineBox[{ Offset[{0, 1.5}, {60.21385919380437, 3.4147746234671668`}], Offset[{0, -1.5}, {60.21385919380437, 3.4147746234671668`}]}], LineBox[{ Offset[{0, 1.5}, {59.166661642607764`, 3.4147746234671668`}], Offset[{0, -1.5}, {59.166661642607764`, 3.4147746234671668`}]}], LineBox[{{59.690260418206066`, 3.50756741214834}, { 59.690260418206066`, 3.3219818347859937`}}], LineBox[{ Offset[{1.5, 0}, {59.690260418206066`, 3.50756741214834}], Offset[{-1.5, 0}, {59.690260418206066`, 3.50756741214834}]}], LineBox[{ Offset[{1.5, 0}, {59.690260418206066`, 3.3219818347859937`}], Offset[{-1.5, 0}, {59.690260418206066`, 3.3219818347859937`}]}]}, { LineBox[{{57.07226654021458, 3.306939635357677}, {56.025068989017974`, 3.306939635357677}}], LineBox[{ Offset[{0, 1.5}, {57.07226654021458, 3.306939635357677}], Offset[{0, -1.5}, {57.07226654021458, 3.306939635357677}]}], LineBox[{ Offset[{0, 1.5}, {56.025068989017974`, 3.306939635357677}], Offset[{0, -1.5}, {56.025068989017974`, 3.306939635357677}]}], LineBox[{{56.548667764616276`, 3.3939643626039318`}, { 56.548667764616276`, 3.2199149081114222`}}], LineBox[{ Offset[{1.5, 0}, {56.548667764616276`, 3.3939643626039318`}], Offset[{-1.5, 0}, {56.548667764616276`, 3.3939643626039318`}]}], LineBox[{ Offset[{1.5, 0}, {56.548667764616276`, 3.2199149081114222`}], Offset[{-1.5, 0}, {56.548667764616276`, 3.2199149081114222`}]}]}, { LineBox[{{53.93067388662479, 3.0207621669132623`}, { 52.883476335428185`, 3.0207621669132623`}}], LineBox[{ Offset[{0, 1.5}, {53.93067388662479, 3.0207621669132623`}], Offset[{0, -1.5}, {53.93067388662479, 3.0207621669132623`}]}], LineBox[{ Offset[{0, 1.5}, {52.883476335428185`, 3.0207621669132623`}], Offset[{0, -1.5}, {52.883476335428185`, 3.0207621669132623`}]}], LineBox[{{53.40707511102649, 3.0933766420794466`}, {53.40707511102649, 2.948147691747078}}], LineBox[{ Offset[{1.5, 0}, {53.40707511102649, 3.0933766420794466`}], Offset[{-1.5, 0}, {53.40707511102649, 3.0933766420794466`}]}], LineBox[{ Offset[{1.5, 0}, {53.40707511102649, 2.948147691747078}], Offset[{-1.5, 0}, {53.40707511102649, 2.948147691747078}]}]}, { LineBox[{{50.78908123303499, 2.963766654329994}, {49.74188368183839, 2.963766654329994}}], LineBox[{ Offset[{0, 1.5}, {50.78908123303499, 2.963766654329994}], Offset[{0, -1.5}, {50.78908123303499, 2.963766654329994}]}], LineBox[{ Offset[{0, 1.5}, {49.74188368183839, 2.963766654329994}], Offset[{0, -1.5}, {49.74188368183839, 2.963766654329994}]}], LineBox[{{50.26548245743669, 3.033666811271739}, {50.26548245743669, 2.893866497388249}}], LineBox[{ Offset[{1.5, 0}, {50.26548245743669, 3.033666811271739}], Offset[{-1.5, 0}, {50.26548245743669, 3.033666811271739}]}], LineBox[{ Offset[{1.5, 0}, {50.26548245743669, 2.893866497388249}], Offset[{-1.5, 0}, {50.26548245743669, 2.893866497388249}]}]}, { LineBox[{{47.647488579445195`, 2.708269528956718}, {46.60029102824859, 2.708269528956718}}], LineBox[{ Offset[{0, 1.5}, {47.647488579445195`, 2.708269528956718}], Offset[{0, -1.5}, {47.647488579445195`, 2.708269528956718}]}], LineBox[{ Offset[{0, 1.5}, {46.60029102824859, 2.708269528956718}], Offset[{0, -1.5}, {46.60029102824859, 2.708269528956718}]}], LineBox[{{47.12388980384689, 2.7666374067359576`}, {47.12388980384689, 2.6499016511774784`}}], LineBox[{ Offset[{1.5, 0}, {47.12388980384689, 2.7666374067359576`}], Offset[{-1.5, 0}, {47.12388980384689, 2.7666374067359576`}]}], LineBox[{ Offset[{1.5, 0}, {47.12388980384689, 2.6499016511774784`}], Offset[{-1.5, 0}, {47.12388980384689, 2.6499016511774784`}]}]}, { LineBox[{{44.505895925855405`, 2.4736950028266085`}, { 43.4586983746588, 2.4736950028266085`}}], LineBox[{ Offset[{0, 1.5}, {44.505895925855405`, 2.4736950028266085`}], Offset[{0, -1.5}, {44.505895925855405`, 2.4736950028266085`}]}], LineBox[{ Offset[{0, 1.5}, {43.4586983746588, 2.4736950028266085`}], Offset[{0, -1.5}, {43.4586983746588, 2.4736950028266085`}]}], LineBox[{{43.982297150257104`, 2.5223897863468174`}, { 43.982297150257104`, 2.4250002193063995`}}], LineBox[{ Offset[{1.5, 0}, {43.982297150257104`, 2.5223897863468174`}], Offset[{-1.5, 0}, {43.982297150257104`, 2.5223897863468174`}]}], LineBox[{ Offset[{1.5, 0}, {43.982297150257104`, 2.4250002193063995`}], Offset[{-1.5, 0}, {43.982297150257104`, 2.4250002193063995`}]}]}, { LineBox[{{41.364303272265616`, 2.309994598227789}, {40.31710572106901, 2.309994598227789}}], LineBox[{ Offset[{0, 1.5}, {41.364303272265616`, 2.309994598227789}], Offset[{0, -1.5}, {41.364303272265616`, 2.309994598227789}]}], LineBox[{ Offset[{0, 1.5}, {40.31710572106901, 2.309994598227789}], Offset[{0, -1.5}, {40.31710572106901, 2.309994598227789}]}], LineBox[{{40.840704496667314`, 2.3524577342246236`}, { 40.840704496667314`, 2.267531462230955}}], LineBox[{ Offset[{1.5, 0}, {40.840704496667314`, 2.3524577342246236`}], Offset[{-1.5, 0}, {40.840704496667314`, 2.3524577342246236`}]}], LineBox[{ Offset[{1.5, 0}, {40.840704496667314`, 2.267531462230955}], Offset[{-1.5, 0}, {40.840704496667314`, 2.267531462230955}]}]}, { LineBox[{{38.22271061867582, 2.220206822324942}, {37.175513067479216`, 2.220206822324942}}], LineBox[{ Offset[{0, 1.5}, {38.22271061867582, 2.220206822324942}], Offset[{0, -1.5}, {38.22271061867582, 2.220206822324942}]}], LineBox[{ Offset[{0, 1.5}, {37.175513067479216`, 2.220206822324942}], Offset[{0, -1.5}, {37.175513067479216`, 2.220206822324942}]}], LineBox[{{37.69911184307752, 2.2594330912706124`}, {37.69911184307752, 2.1809805533792717`}}], LineBox[{ Offset[{1.5, 0}, {37.69911184307752, 2.2594330912706124`}], Offset[{-1.5, 0}, {37.69911184307752, 2.2594330912706124`}]}], LineBox[{ Offset[{1.5, 0}, {37.69911184307752, 2.1809805533792717`}], Offset[{-1.5, 0}, {37.69911184307752, 2.1809805533792717`}]}]}, { LineBox[{{35.08111796508602, 2.0333933032943645`}, {34.03392041388942, 2.0333933032943645`}}], LineBox[{ Offset[{0, 1.5}, {35.08111796508602, 2.0333933032943645`}], Offset[{0, -1.5}, {35.08111796508602, 2.0333933032943645`}]}], LineBox[{ Offset[{0, 1.5}, {34.03392041388942, 2.0333933032943645`}], Offset[{0, -1.5}, {34.03392041388942, 2.0333933032943645`}]}], LineBox[{{34.55751918948772, 2.066296107554791}, {34.55751918948772, 2.000490499033938}}], LineBox[{ Offset[{1.5, 0}, {34.55751918948772, 2.066296107554791}], Offset[{-1.5, 0}, {34.55751918948772, 2.066296107554791}]}], LineBox[{ Offset[{1.5, 0}, {34.55751918948772, 2.000490499033938}], Offset[{-1.5, 0}, {34.55751918948772, 2.000490499033938}]}]}}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVj3k41HkAh80wxvUb5UhRj4SUFa2Q4zHfz7ASYX5ZoSIdJFM6JFdJhZKt pxIrWtrSylqlZ5IjEvE864oW2aV1To7KlSOMY7b9433e/97neXUOnnAPYEpJ Sbl+4393y25+F8gr5Jb3TKfWJYVylfM6RrYJksnnhA+HHbrdST5D8aim4CGR ePN5q7sPkhijrI0yggIiXxn3hN0dQgZ5Y3JzQdWEc0Y7YLHrErnrkhIxGdRK ljcdw2xXEpneeeTpeNAHonJO9cl01wPyoHWny1jQFElqHvCf6hKSl11+IcUO LHiumBevza0ibPZUZEW6Mmx7b28kW9+QIIWk2YlONWjpiby2OLeQp88tfhX4 aKI9a2ex775/yKD4aj8rWhvxwpr6Kq1OgolQxar4dSi57Mzdr91LgnsULyhA H+ZaqcM9D0XkllZU1aF6AxjMBIZKlvrJQM7oufzrhrCKFDl//GmIbIm1ZlE6 m1BlJxKfHPlEejyDP556ZAL6dK3UvN0I8eO23Pc3/R4Spz276PoxUhe+1yIt 0hQqBUWVOmpfiGvHAMvx3y0w/1lDiuEzQS6UBMRGWJqj4w9BUG/GJDEh9JBp tAVs+mNeLaubIjMjtgmHO7ci79Snst+UvxIb+1Rl3fVWaNfReHSVzJDUysm/ vBOtoa6fZtmSMEuyyuztVIZs0LqXM72mYY58t0+S5mFsC36hQ2bRnJjUbyg3 WnaTi/ZDzaOFWCCDaUPZHh0E2uY6RqyQRdJhHxvIuQEMWR1K9shYIi5Nqqvy uTxU3BJnyfdJyMKmPdzkPh5yZQ3fXk6QgqXOOoZFsh3mgxkPSo0YaGgWpafZ 2YNzwl3+yxsGMr325vD67SG5KDPo6s/EwkmPH7NTfkA498AdX7Y07vhKh/Ct HfBGSbsi+Z40rsnlBb5474D+UM/oBjMZKG1vE/cmbkPcZUtOUZsM6vYUMtyM HcHIPateG8yCOnNldli3I9jhQePXl8si85xJuShuOz7vKuZF5coi5jkeqxg4 4UbjhQ2BYGP4UovVUpsTysYn+2RFbKTqrrY2PuuMP/VqVBuj5NDoPfC35qYd 2M10XLldWx6+Lrkute934HEkEb6ukIehqp552XkXdDHTXvt7KSD2uHbpURNX pJpnZJeIFaCZ8bbAr9UVxlFMhsVtRcgnno1XD3PDFe/eceEGJcQp5kxe0ecj sEdQ0FenBNv9ie+4tXzoR+0atTpIYfgZu2NVAx8h99KFnf4UfmHHd0018lFZ 3R12MZCC+EnMYG4rHz7KAknNMQrFi6FzK3r4SHl4fpl3OAWzu35rxr7yIdv0 yDTsGgX1o+lCvgqNQV1xmLDwW1+t3eylKg0zJ2LjWUKhulyjyFCd/vYRJ5kr pRCqklLKWkljbQkngVdJobnkRnXpGhpebrppb+sp3JSLbzPYSKMmwqV0tIfC EWGVd4ohDY3MWzFJIgrwYb5nGtEIqGqztxigMJYf091pTIPBOdAQ/ZmCm1fU 0G0zGlZZZzqVvlJYzygRMCxoJNS8uP90lsJi7szw8a003o1IAjzmKeQthX5x sqZx0jJx9K4UB3E5z04X2dB45dskJNIc+LhPTOvZ0uDEqoWLWByYLWyOSOLS 8MnZbXNFjgPF7BNiCaHx+5tMiaEiB/8BBFwsNA== "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0, 66}, {0, 4}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.5681306748071012`*^9, 3.56813073390797*^9}, { 3.568130768454935*^9, 3.568130824000945*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fit4b", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.568130837115209*^9, 3.568130842733046*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"x", "0.05777620282391258`", "0.00038785288727670886`", "148.9642199896603`", "1.4073842693346774`*^-16"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.56813084324751*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"c", "/", RowBox[{"(", RowBox[{"x", "-", "d"}], ")"}]}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.568131199304997*^9, 3.568131205749506*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox["c", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "d"}], "+", "x"}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.568131206301647*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["J", "z"], ",", SubscriptBox["\[CapitalDelta]J", "z"]}], "}"}], "=", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"0.00426", ",", "0.00013"}], "}"}], ",", RowBox[{"\"\\"", " ", SuperscriptBox["\"\\"", "2"]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.568131311145541*^9, 3.5681313512280293`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.00426`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )], ",", TemplateBox[{"0.00013`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568131314570067*^9, 3.5681313520937433`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["J", "z"], "+", FractionBox[ SubscriptBox["J", "z"], RowBox[{"17.3", "-", "1"}]]}]], "Input", CellChangeTimes->{{3.568131356353053*^9, 3.568131370358653*^9}, { 3.568131539047186*^9, 3.5681315409830112`*^9}, {3.568131711060873*^9, 3.568131712147848*^9}, {3.56813181699721*^9, 3.568131818644878*^9}}], Cell[BoxData[ TemplateBox[{"0.0045213496932515335`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )]], "Output", CellChangeTimes->{3.5681315453434887`*^9, 3.568131712691016*^9, 3.56813182203573*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SubscriptBox["\[CapitalDelta]J", "z"], RowBox[{"17.3", "-", "1"}]], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ SubscriptBox["J", "z"], SuperscriptBox[ RowBox[{"(", RowBox[{"17.3", "-", "1"}], ")"}], "2"]], "0.1"}], ")"}], "2"]}]], ")"}], "2"], "+", SuperscriptBox[ SubscriptBox["\[CapitalDelta]J", "z"], "2"]}]]], "Input", CellChangeTimes->{{3.56813155189303*^9, 3.568131591020535*^9}, { 3.568131715084689*^9, 3.568131723995934*^9}, {3.568131831050976*^9, 3.568131840564489*^9}}], Cell[BoxData[ TemplateBox[{"0.0001302542850238159`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )]], "Output", CellChangeTimes->{3.5681315971649303`*^9, 3.568131724493807*^9, 3.5681318416294413`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"list", "=", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", RowBox[{"UnitConvert", "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "690", ",", "660", ",", "610", ",", "550", ",", "530", ",", "510", ",", "480", ",", "450", ",", "400", ",", "350"}], "}"}], ",", RowBox[{"{", RowBox[{ "650", ",", "620", ",", "570", ",", "515", ",", "500", ",", "480", ",", "450", ",", "425", ",", "380", ",", "330"}], "}"}]}], "}"}], ",", RowBox[{"1", "/", "\"\\""}]}], "]"}], "*", RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}]}], "]"}], "]"}], "//", "N"}], "//", "QuantityMagnitude"}]}]], "Input", CellChangeTimes->{{3.568132056974229*^9, 3.5681321450002604`*^9}, { 3.568132225107445*^9, 3.568132237978108*^9}, {3.5681324361659184`*^9, 3.568132443301338*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"72.25663103256524`", ",", "68.06784082777885`"}], "}"}], ",", RowBox[{"{", RowBox[{"69.11503837897544`", ",", "64.92624817418906`"}], "}"}], ",", RowBox[{"{", RowBox[{"63.87905062299246`", ",", "59.690260418206066`"}], "}"}], ",", RowBox[{"{", RowBox[{"57.59586531581287`", ",", "53.93067388662479`"}], "}"}], ",", RowBox[{"{", RowBox[{"55.50147021341968`", ",", "52.35987755982989`"}], "}"}], ",", RowBox[{"{", RowBox[{"53.40707511102649`", ",", "50.26548245743669`"}], "}"}], ",", RowBox[{"{", RowBox[{"50.26548245743669`", ",", "47.12388980384689`"}], "}"}], ",", RowBox[{"{", RowBox[{"47.12388980384689`", ",", "44.5058959258554`"}], "}"}], ",", RowBox[{"{", RowBox[{"41.88790204786391`", ",", "39.79350694547071`"}], "}"}], ",", RowBox[{"{", RowBox[{"36.65191429188092`", ",", "34.55751918948772`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.56813213979665*^9, 3.568132146386117*^9}, { 3.568132226658319*^9, 3.5681322392306013`*^9}, {3.568132439464123*^9, 3.568132443855001*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"UnitConvert", "[", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"5", "*", RowBox[{"(", RowBox[{"2", "\[Pi]"}], ")"}]}], ",", RowBox[{"1", "/", "\"\\""}]}], "]"}], "]"}], "//", "N"}]], "Input", CellChangeTimes->{{3.568132159218145*^9, 3.568132171938046*^9}, { 3.568132219978983*^9, 3.568132221195086*^9}}], Cell[BoxData[ TemplateBox[{"0.5235987755982988`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]], "Output", CellChangeTimes->{{3.568132169197895*^9, 3.568132172472745*^9}, 3.568132221828644*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"listplot", "=", RowBox[{"ErrorListPlot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"list", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"ErrorBar", "[", RowBox[{"0.5", ",", "0.5"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "list", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "75"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "75"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568132444885667*^9, 3.568132519535618*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"listfit", "=", RowBox[{"LinearModelFit", "[", RowBox[{"list", ",", "x", ",", "x", ",", RowBox[{"IncludeConstantBasis", "\[Rule]", "False"}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.5681325209718122`*^9, 3.5681325356538963`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"FittedModel", "[", TagBox[ PanelBox[ TagBox[ RowBox[{"0.9403735884898161`", " ", "x"}], Short], FrameMargins->5], Editable -> False], "]"}], InterpretTemplate[ FittedModel[{ "Linear", {0.9403735884898161}, {{$CellContext`x}, {$CellContext`x}}, {0, 0}}, {{1., 1., 1., 1., 1., 1., 1., 1., 1., 1.}}, {{72.25663103256524, 68.06784082777885}, {69.11503837897544, 64.92624817418906}, { 63.87905062299246, 59.690260418206066`}, {57.59586531581287, 53.93067388662479}, {55.50147021341968, 52.35987755982989}, { 53.40707511102649, 50.26548245743669}, {50.26548245743669, 47.12388980384689}, {47.12388980384689, 44.5058959258554}, { 41.88790204786391, 39.79350694547071}, {36.65191429188092, 34.55751918948772}}, {{72.25663103256524}, {69.11503837897544}, { 63.87905062299246}, {57.59586531581287}, {55.50147021341968}, { 53.40707511102649}, {50.26548245743669}, {47.12388980384689}, { 41.88790204786391}, {36.65191429188092}}, Function[Null, Internal`LocalizedBlock[{$CellContext`x}, #], {HoldAll}]]& ], Editable->False, SelectWithContents->True, Selectable->True]], "Output", CellChangeTimes->{3.5681325360326033`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"listplot", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"listfit", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "75"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.56813254238931*^9, 3.5681325525646133`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[{{72.25663103256524, 68.06784082777885}, {69.11503837897544, 64.92624817418906}, {63.87905062299246, 59.690260418206066`}, { 57.59586531581287, 53.93067388662479}, {55.50147021341968, 52.35987755982989}, {53.40707511102649, 50.26548245743669}, { 50.26548245743669, 47.12388980384689}, {47.12388980384689, 44.5058959258554}, {41.88790204786391, 39.79350694547071}, { 36.65191429188092, 34.55751918948772}}], {{ LineBox[{{72.75663103256524, 68.06784082777885}, {71.75663103256524, 68.06784082777885}}], LineBox[{ Offset[{0, 1.5}, {72.75663103256524, 68.06784082777885}], Offset[{0, -1.5}, {72.75663103256524, 68.06784082777885}]}], LineBox[{ Offset[{0, 1.5}, {71.75663103256524, 68.06784082777885}], Offset[{0, -1.5}, {71.75663103256524, 68.06784082777885}]}], LineBox[{{72.25663103256524, 68.56784082777885}, {72.25663103256524, 67.56784082777885}}], LineBox[{ Offset[{1.5, 0}, {72.25663103256524, 68.56784082777885}], Offset[{-1.5, 0}, {72.25663103256524, 68.56784082777885}]}], LineBox[{ Offset[{1.5, 0}, {72.25663103256524, 67.56784082777885}], Offset[{-1.5, 0}, {72.25663103256524, 67.56784082777885}]}]}, { LineBox[{{69.61503837897544, 64.92624817418906}, {68.61503837897544, 64.92624817418906}}], LineBox[{ Offset[{0, 1.5}, {69.61503837897544, 64.92624817418906}], Offset[{0, -1.5}, {69.61503837897544, 64.92624817418906}]}], LineBox[{ Offset[{0, 1.5}, {68.61503837897544, 64.92624817418906}], Offset[{0, -1.5}, {68.61503837897544, 64.92624817418906}]}], LineBox[{{69.11503837897544, 65.42624817418906}, {69.11503837897544, 64.42624817418906}}], LineBox[{ Offset[{1.5, 0}, {69.11503837897544, 65.42624817418906}], Offset[{-1.5, 0}, {69.11503837897544, 65.42624817418906}]}], LineBox[{ Offset[{1.5, 0}, {69.11503837897544, 64.42624817418906}], Offset[{-1.5, 0}, {69.11503837897544, 64.42624817418906}]}]}, { LineBox[{{64.37905062299245, 59.690260418206066`}, {63.37905062299246, 59.690260418206066`}}], LineBox[{ Offset[{0, 1.5}, {64.37905062299245, 59.690260418206066`}], Offset[{0, -1.5}, {64.37905062299245, 59.690260418206066`}]}], LineBox[{ Offset[{0, 1.5}, {63.37905062299246, 59.690260418206066`}], Offset[{0, -1.5}, {63.37905062299246, 59.690260418206066`}]}], LineBox[{{63.87905062299246, 60.190260418206066`}, {63.87905062299246, 59.190260418206066`}}], LineBox[{ Offset[{1.5, 0}, {63.87905062299246, 60.190260418206066`}], Offset[{-1.5, 0}, {63.87905062299246, 60.190260418206066`}]}], LineBox[{ Offset[{1.5, 0}, {63.87905062299246, 59.190260418206066`}], Offset[{-1.5, 0}, {63.87905062299246, 59.190260418206066`}]}]}, { LineBox[{{58.09586531581287, 53.93067388662479}, {57.09586531581287, 53.93067388662479}}], LineBox[{ Offset[{0, 1.5}, {58.09586531581287, 53.93067388662479}], Offset[{0, -1.5}, {58.09586531581287, 53.93067388662479}]}], LineBox[{ Offset[{0, 1.5}, {57.09586531581287, 53.93067388662479}], Offset[{0, -1.5}, {57.09586531581287, 53.93067388662479}]}], LineBox[{{57.59586531581287, 54.43067388662479}, {57.59586531581287, 53.43067388662479}}], LineBox[{ Offset[{1.5, 0}, {57.59586531581287, 54.43067388662479}], Offset[{-1.5, 0}, {57.59586531581287, 54.43067388662479}]}], LineBox[{ Offset[{1.5, 0}, {57.59586531581287, 53.43067388662479}], Offset[{-1.5, 0}, {57.59586531581287, 53.43067388662479}]}]}, { LineBox[{{56.00147021341968, 52.35987755982989}, {55.00147021341968, 52.35987755982989}}], LineBox[{ Offset[{0, 1.5}, {56.00147021341968, 52.35987755982989}], Offset[{0, -1.5}, {56.00147021341968, 52.35987755982989}]}], LineBox[{ Offset[{0, 1.5}, {55.00147021341968, 52.35987755982989}], Offset[{0, -1.5}, {55.00147021341968, 52.35987755982989}]}], LineBox[{{55.50147021341968, 52.85987755982989}, {55.50147021341968, 51.85987755982989}}], LineBox[{ Offset[{1.5, 0}, {55.50147021341968, 52.85987755982989}], Offset[{-1.5, 0}, {55.50147021341968, 52.85987755982989}]}], LineBox[{ Offset[{1.5, 0}, {55.50147021341968, 51.85987755982989}], Offset[{-1.5, 0}, {55.50147021341968, 51.85987755982989}]}]}, { LineBox[{{53.90707511102649, 50.26548245743669}, {52.90707511102649, 50.26548245743669}}], LineBox[{ Offset[{0, 1.5}, {53.90707511102649, 50.26548245743669}], Offset[{0, -1.5}, {53.90707511102649, 50.26548245743669}]}], LineBox[{ Offset[{0, 1.5}, {52.90707511102649, 50.26548245743669}], Offset[{0, -1.5}, {52.90707511102649, 50.26548245743669}]}], LineBox[{{53.40707511102649, 50.76548245743669}, {53.40707511102649, 49.76548245743669}}], LineBox[{ Offset[{1.5, 0}, {53.40707511102649, 50.76548245743669}], Offset[{-1.5, 0}, {53.40707511102649, 50.76548245743669}]}], LineBox[{ Offset[{1.5, 0}, {53.40707511102649, 49.76548245743669}], Offset[{-1.5, 0}, {53.40707511102649, 49.76548245743669}]}]}, { LineBox[{{50.76548245743669, 47.12388980384689}, {49.76548245743669, 47.12388980384689}}], LineBox[{ Offset[{0, 1.5}, {50.76548245743669, 47.12388980384689}], Offset[{0, -1.5}, {50.76548245743669, 47.12388980384689}]}], LineBox[{ Offset[{0, 1.5}, {49.76548245743669, 47.12388980384689}], Offset[{0, -1.5}, {49.76548245743669, 47.12388980384689}]}], LineBox[{{50.26548245743669, 47.62388980384689}, {50.26548245743669, 46.62388980384689}}], LineBox[{ Offset[{1.5, 0}, {50.26548245743669, 47.62388980384689}], Offset[{-1.5, 0}, {50.26548245743669, 47.62388980384689}]}], LineBox[{ Offset[{1.5, 0}, {50.26548245743669, 46.62388980384689}], Offset[{-1.5, 0}, {50.26548245743669, 46.62388980384689}]}]}, { LineBox[{{47.62388980384689, 44.5058959258554}, {46.62388980384689, 44.5058959258554}}], LineBox[{ Offset[{0, 1.5}, {47.62388980384689, 44.5058959258554}], Offset[{0, -1.5}, {47.62388980384689, 44.5058959258554}]}], LineBox[{ Offset[{0, 1.5}, {46.62388980384689, 44.5058959258554}], Offset[{0, -1.5}, {46.62388980384689, 44.5058959258554}]}], LineBox[{{47.12388980384689, 45.0058959258554}, {47.12388980384689, 44.0058959258554}}], LineBox[{ Offset[{1.5, 0}, {47.12388980384689, 45.0058959258554}], Offset[{-1.5, 0}, {47.12388980384689, 45.0058959258554}]}], LineBox[{ Offset[{1.5, 0}, {47.12388980384689, 44.0058959258554}], Offset[{-1.5, 0}, {47.12388980384689, 44.0058959258554}]}]}, { LineBox[{{42.38790204786391, 39.79350694547071}, {41.38790204786391, 39.79350694547071}}], LineBox[{ Offset[{0, 1.5}, {42.38790204786391, 39.79350694547071}], Offset[{0, -1.5}, {42.38790204786391, 39.79350694547071}]}], LineBox[{ Offset[{0, 1.5}, {41.38790204786391, 39.79350694547071}], Offset[{0, -1.5}, {41.38790204786391, 39.79350694547071}]}], LineBox[{{41.88790204786391, 40.29350694547071}, {41.88790204786391, 39.29350694547071}}], LineBox[{ Offset[{1.5, 0}, {41.88790204786391, 40.29350694547071}], Offset[{-1.5, 0}, {41.88790204786391, 40.29350694547071}]}], LineBox[{ Offset[{1.5, 0}, {41.88790204786391, 39.29350694547071}], Offset[{-1.5, 0}, {41.88790204786391, 39.29350694547071}]}]}, { LineBox[{{37.15191429188092, 34.55751918948772}, {36.15191429188092, 34.55751918948772}}], LineBox[{ Offset[{0, 1.5}, {37.15191429188092, 34.55751918948772}], Offset[{0, -1.5}, {37.15191429188092, 34.55751918948772}]}], LineBox[{ Offset[{0, 1.5}, {36.15191429188092, 34.55751918948772}], Offset[{0, -1.5}, {36.15191429188092, 34.55751918948772}]}], LineBox[{{36.65191429188092, 35.05751918948772}, {36.65191429188092, 34.05751918948772}}], LineBox[{ Offset[{1.5, 0}, {36.65191429188092, 35.05751918948772}], Offset[{-1.5, 0}, {36.65191429188092, 35.05751918948772}]}], LineBox[{ Offset[{1.5, 0}, {36.65191429188092, 34.05751918948772}], Offset[{-1.5, 0}, {36.65191429188092, 34.05751918948772}]}]}}}, {}}, {}}, {{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVxXk4lHkAB3BUmyibcnQwS2XocpZGMu/XkWFimt/7lGzEUmnpsiXliB5T Zh0zxKybaB0lUyTkSPYplRY5GtNhn1RUE1HI6Hgeu/vH5/kYBx6l96upqKh4 /uf/q72+f/4grWcnts/8NGFyk51wz09OxJlUXPnD/hZmBpX6LC6KIS6j4kIG U1OZpZRkUNIxW1xHCbifQk4xa6kMRf6UUnSfEjQodx1i3qP0D61I+iSSU4Lx SF4Qs4/aJd23c1T0lhKIm9z3Mt9Qyo5zDSMiJRXnu+d+AHOKqtbpXhCfpI4J uZ5Ov85chK7d0HXLfhFePU6/edBEG3ocpaRt8RI4fCnxdC7Ww8Qt/ZCLIQz0 lFUEe+cY4Jw/Y0nmmhWwl83q5Ooao0LkL3D2N8Hl3Ctr1JeuwvII30PTZ83Q TWVFXtcyRdnl5x3xYWuhonVNFtq9Gp3ChLqoP83hYYzJjkfrkCjrn2/SaYki v2+GVK4Fulp7ohc6W0PedDqft84Kg/MHLK/JbTAy0rCg45I1hOHmRZvJRsy2 FglkmhugtJXsjHhviyvZBj7S5I3Q7JO7bYlmwSKUVxH1wyZczfSdHh63Q62P 7qzHQSwwKqeHeQn2aA/Obvw2aAfDYVluwWwHDCVfj5C62+N99MOUogtsiHp+ zzZv3wJpOC9AshTQFqralHLYWI8n3p0yIIf/Y0/ZZQqLaw6PvyxyhDfjcHCT BHBsXPn+4C9OGGLkjyg4jvir0k2VtdwZL70KKtKUjigjEQ3/DDljpVGM4cpa J8gED7u/XHTBu+Nm56cPOCMkwDRp7OhWTHpX1dSYuYCYT+w1tXPFkROa+qND LohNfpEjm3RFiIFl1MGMrdDJkB/f08KBdIdNatdOV3y0/FjuE+OGY/qqlyLV OWA0nlTNY7mjRLvw+4U6Dqo/anytUePCKN9QTXrCDSl1zXzX21wYVO/XmGG6 o2d1jHtl0jb4706+w3rrDt/1foWpXA+sSj4dW5fDBctIqlc9xxPen6lTVdxt iGqea3GtyxO9YwPG6fM8MGc0rsRYzMOjMI/O+kYPTD2Y13zYZzsWJ2WsfRDt iby2ma+nF/Fx90lVK9nMQ4BSw/VMKB/KysxAo2Eenn5dHni0j49jy3wr+8q3 47OrgzR7I8Em4QkVhTkfDRp66kNpBB/yTDjF8XxYF0/aGE4TbP3mEtQ7xAcv /rU41YvGi4K2H0rYBByu2MPWm0bgkacFViCAlp1G/8803jgobJsdCawyxOdM 99AY7lc/IHch0Cm1i27eS0O5zO3+vG0Ez1tTgkdCaWhn3hMe2UXw65wtLm5J NJxS7qizQgkC2t6ojibTaPXrLbz7G8Fu0fnb6WIabuavWeQ4gYfu280vztPY 3qEWHBJOYGGSZhWeRcNH06ktL5pgyuUdo7iERpiwJUE1gWBMPb3fvYzGtFeX sTiR4F27Q87YJRpRzIH6ZckET3ek69pX0DjTOqOwSSFo2see33OdhmgWxQ36 g6DGTNF28gaNhb28V+MZBFdH0oWGtTTSL/pFxmYRFIYp1ILraeQ4xpRn5RJk syQtWo00DLXFTib5BGnf2TE3mmgUDuQ/qyogSGxR2O9uprGiUnqMXUggOCv5 MnObRmnsLY2/iwj+BcV6Mes= "]]}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{None, None}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0, 75}, {0, 75}}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.568132553114826*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"listfit", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.568132557026999*^9, 3.568132561853223*^9}}], Cell[BoxData[ StyleBox[ TagBox[GridBox[{ {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", "\<\"t\ \[Hyphen]Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"}, {"x", "0.9403735884898161`", "0.001301288944311046`", "722.6477967102742`", "9.473273293150771`*^-23"} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxDividers->{ "ColumnsIndexed" -> {2 -> GrayLevel[0.7]}, "RowsIndexed" -> {2 -> GrayLevel[0.7]}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{ "ColumnsIndexed" -> {2 -> 1}, "RowsIndexed" -> {2 -> 0.75}}], "Grid"], "DialogStyle", StripOnInput->False]], "Output", CellChangeTimes->{3.568132562306323*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ FractionBox[ SubscriptBox["J", "z"], ".94"]], "Input", CellChangeTimes->{{3.568132857500287*^9, 3.568132862583809*^9}}], Cell[BoxData[ TemplateBox[{"0.004531914893617021`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )]], "Output", CellChangeTimes->{3.56813286293784*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ SubscriptBox["\[CapitalDelta]J", "z"], ".94"], ")"}], "2"], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ SubscriptBox["J", "z"], SuperscriptBox[".94", "2"]], "0.001"}], ")"}], "2"]}]]], "Input", CellChangeTimes->{{3.568132870035301*^9, 3.568132886742841*^9}}], Cell[BoxData[ TemplateBox[{"0.00013838188222771515`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"kg\"", "\[ThinSpace]", SuperscriptBox["\"m\"", "2"]}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: kilogram meters squared"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", RowBox[{"\"Kilograms\"", " ", SuperscriptBox["\"Meters\"", "2"]}]}], "]"}]& )]], "Output", CellChangeTimes->{3.568132888607245*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UnitConvert", "[", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"0.044", ",", "0.001"}], "}"}], ",", RowBox[{"1", "/", "\"\\""}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.568133068902657*^9, 3.568133088449293*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"0.0007333333333333332`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )], ",", TemplateBox[{"0.000016666666666666667`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox[ RowBox[{"\"per \"", "\[InvisibleSpace]", "\"second\""}], "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: reciprocal seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", FractionBox["1", "\"Seconds\""]}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{{3.568133080446446*^9, 3.568133088973157*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"UnitConvert", "[", RowBox[{"Quantity", "[", RowBox[{ RowBox[{"{", RowBox[{"15.6", ",", "0.4"}], "}"}], ",", "\"\\""}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5681331524507236`*^9, 3.568133162940207*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"936.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )], ",", TemplateBox[{"24.`"}, "QuantityUnit", DisplayFunction->(TooltipBox[ StyleBox[ RowBox[{#, StyleBox["\"s\"", "QuantityUnitTraditionalLabel"]}], ShowStringCharacters -> False], "Unit: seconds"]& ), InterpretationFunction->(RowBox[{"Quantity", "[", RowBox[{#, ",", "\"Seconds\""}], "]"}]& )]}], "}"}]], "Output", CellChangeTimes->{3.568133163387259*^9}] }, Open ]] }, WindowSize->{740, 701}, WindowMargins->{{345, Automatic}, {Automatic, 28}}, FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 20, \ 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 148, 2, 28, "Input"], Cell[CellGroupData[{ Cell[730, 26, 598, 18, 28, "Input"], Cell[1331, 46, 546, 17, 28, "Output"] }, Open ]], Cell[1892, 66, 847, 24, 46, "Input"], Cell[CellGroupData[{ Cell[2764, 94, 538, 12, 28, "Input"], Cell[3305, 108, 833, 25, 44, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4175, 138, 548, 14, 28, "Input"], Cell[4726, 154, 1163, 29, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5926, 188, 403, 10, 28, "Input"], Cell[6332, 200, 3951, 80, 279, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10320, 285, 275, 8, 48, "Input"], Cell[10598, 295, 559, 15, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11194, 315, 355, 10, 50, "Input"], Cell[11552, 327, 178, 4, 28, "Output"] }, Open ]], Cell[11745, 334, 372, 11, 48, "Input"], Cell[12120, 347, 1128, 35, 67, "Input"], Cell[CellGroupData[{ Cell[13273, 386, 376, 9, 28, "Input"], Cell[13652, 397, 1998, 53, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15687, 455, 259, 6, 28, "Input"], Cell[15949, 463, 512, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16498, 481, 295, 8, 28, "Input"], Cell[16796, 491, 1508, 39, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18341, 535, 225, 5, 28, "Input"], Cell[18569, 542, 409, 10, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19015, 557, 378, 10, 32, "Input"], Cell[19396, 569, 2105, 53, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21538, 627, 517, 12, 32, "Input"], Cell[22058, 641, 2034, 52, 46, "Output"] }, Open ]], Cell[24107, 696, 1257, 28, 106, "Input"], Cell[25367, 726, 1708, 46, 117, "Input"], Cell[CellGroupData[{ Cell[27100, 776, 595, 17, 56, "Input"], Cell[27698, 795, 854, 24, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28589, 824, 192, 4, 32, "Input"], Cell[28784, 830, 772, 18, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29593, 853, 516, 14, 35, "Input"], Cell[30112, 869, 5085, 101, 271, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35234, 975, 362, 8, 28, "Input"], Cell[35599, 985, 1245, 31, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36881, 1021, 794, 19, 80, "Input"], Cell[37678, 1042, 6213, 155, 124, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43928, 1202, 402, 9, 28, "Input"], Cell[44333, 1213, 602, 14, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44972, 1232, 524, 12, 28, "Input"], Cell[45499, 1246, 4379, 113, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49915, 1364, 279, 6, 28, "Input"], Cell[50197, 1372, 457, 11, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50691, 1388, 438, 11, 32, "Input"], Cell[51132, 1401, 6285, 154, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57454, 1560, 251, 6, 35, "Input"], Cell[57708, 1568, 5799, 148, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[63544, 1721, 581, 13, 32, "Input"], Cell[64128, 1736, 5967, 150, 80, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70132, 1891, 268, 6, 35, "Input"], Cell[70403, 1899, 5798, 148, 63, "Output"] }, Open ]], Cell[76216, 2050, 2130, 50, 117, "Input"], Cell[CellGroupData[{ Cell[78371, 2104, 1251, 27, 56, "Input"], Cell[79625, 2133, 1271, 30, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[80933, 2168, 243, 5, 32, "Input"], Cell[81179, 2175, 794, 18, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82010, 2198, 839, 19, 35, "Input"], Cell[82852, 2219, 5352, 105, 242, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88241, 2329, 264, 7, 28, "Input"], Cell[88508, 2338, 1199, 30, 35, "Output"] }, Open ]], Cell[89722, 2371, 2183, 51, 117, "Input"], Cell[CellGroupData[{ Cell[91930, 2426, 1297, 27, 56, "Input"], Cell[93230, 2455, 1301, 31, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[94568, 2491, 292, 6, 32, "Input"], Cell[94863, 2499, 817, 19, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[95717, 2523, 889, 20, 35, "Input"], Cell[96609, 2545, 5353, 105, 276, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[101999, 2655, 310, 8, 28, "Input"], Cell[102312, 2665, 1223, 31, 35, "Output"] }, Open ]], Cell[103550, 2699, 2184, 51, 117, "Input"], Cell[CellGroupData[{ Cell[105759, 2754, 1884, 42, 114, "Input"], Cell[107646, 2798, 1560, 34, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[109243, 2837, 268, 5, 32, "Input"], Cell[109514, 2844, 892, 20, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[110443, 2869, 891, 20, 35, "Input"], Cell[111337, 2891, 5420, 106, 276, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[116794, 3002, 412, 9, 28, "Input"], Cell[117209, 3013, 1270, 31, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[118516, 3049, 241, 7, 28, "Input"], Cell[118760, 3058, 1175, 30, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[119972, 3093, 215, 5, 28, "Input"], Cell[120190, 3100, 78, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[120305, 3106, 228, 5, 28, "Input"], Cell[120536, 3113, 94, 1, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[120667, 3119, 366, 10, 49, "Input"], Cell[121036, 3131, 565, 14, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[121638, 3150, 529, 14, 63, "Input"], Cell[122170, 3166, 4860, 124, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[127067, 3295, 366, 10, 28, "Input"], Cell[127436, 3307, 531, 13, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128004, 3325, 653, 17, 80, "Input"], Cell[128660, 3344, 4884, 124, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[133581, 3473, 664, 17, 80, "Input"], Cell[134248, 3492, 4850, 123, 80, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[139135, 3620, 270, 6, 28, "Input"], Cell[139408, 3628, 10440, 264, 182, "Output"] }, Open ]], Cell[149863, 3895, 1361, 37, 97, "Input"], Cell[CellGroupData[{ Cell[151249, 3936, 794, 21, 78, "Input"], Cell[152046, 3959, 1513, 33, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[153596, 3997, 358, 9, 28, "Input"], Cell[153957, 4008, 11501, 211, 285, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[165495, 4224, 145, 2, 28, "Input"], Cell[165643, 4228, 777, 18, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[166457, 4251, 218, 6, 28, "Input"], Cell[166678, 4259, 206, 7, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[166921, 4271, 430, 12, 35, "Input"], Cell[167354, 4285, 1170, 30, 35, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[168561, 4320, 353, 8, 48, "Input"], Cell[168917, 4330, 620, 15, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[169574, 4350, 802, 25, 80, "Input"], Cell[170379, 4377, 623, 15, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[171039, 4397, 1020, 26, 114, "Input"], Cell[172062, 4425, 1151, 26, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[173250, 4456, 387, 11, 28, "Input"], Cell[173640, 4469, 558, 14, 28, "Output"] }, Open ]], Cell[174213, 4486, 799, 24, 46, "Input"], Cell[CellGroupData[{ Cell[175037, 4514, 269, 6, 28, "Input"], Cell[175309, 4522, 1254, 29, 42, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[176600, 4556, 312, 8, 28, "Input"], Cell[176915, 4566, 11185, 210, 243, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[188137, 4781, 147, 2, 28, "Input"], Cell[188287, 4785, 774, 18, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[189098, 4808, 137, 3, 48, "Input"], Cell[189238, 4813, 570, 14, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[189845, 4832, 402, 13, 70, "Input"], Cell[190250, 4847, 573, 14, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[190860, 4866, 287, 7, 28, "Input"], Cell[191150, 4875, 1071, 27, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[192258, 4907, 264, 7, 28, "Input"], Cell[192525, 4916, 794, 21, 62, "Output"] }, Open ]] } ] *) (* End of internal cache information *)