(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     26180,        617]
NotebookOptionsPosition[     25089,        581]
NotebookOutlinePosition[     25435,        596]
CellTagsIndexPosition[     25392,        593]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"T", "[", "m_", "]"}], ":=", 
  RowBox[{"2", " ", "Pi", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"m", "+", 
       RowBox[{"ms", "/", "3"}]}], ")"}], "/", "k"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.562935841322732*^9, 3.562935870405732*^9}, {
  3.562935913103732*^9, 3.562935919452732*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"nlm", "[", 
    RowBox[{"data_", ",", "ms0_", ",", "k0_"}], "]"}], ":=", 
   RowBox[{"NonlinearModelFit", "[", 
    RowBox[{"data", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"T", "[", "m", "]"}], ",", 
       RowBox[{"k", ">", "0"}], ",", 
       RowBox[{"ms", "\[GreaterEqual]", "0"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"ms", ",", "ms0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "k0"}], "}"}]}], "}"}], ",", "m", ",", 
     RowBox[{"ConfidenceLevel", "\[Rule]", "0.95"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5629358794747324`*^9, 3.562935890030732*^9}, {
   3.5629359314957323`*^9, 3.5629359774367323`*^9}, {3.5629362722107325`*^9, 
   3.562936280494732*^9}, 3.562937634253732*^9, {3.5629378601397324`*^9, 
   3.5629378781337323`*^9}, {3.5629379176017323`*^9, 
   3.5629379328567324`*^9}, {3.562939450906732*^9, 3.562939460313732*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"25", ",", "12"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"50", ",", "14"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"75", ",", "18"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"100", ",", "19"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"125", ",", "20"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"150", ",", "23"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"175", ",", "24"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"200", ",", "27"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"225", ",", "27"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"250", ",", "29"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"275", ",", "31"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ms0", "=", "50"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k0", "=", "13"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mMax", "=", "300"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5629395859537325`*^9, 3.562939682468732*^9}, {
  3.562940544810732*^9, 3.5629405490217323`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dataTickner", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"10", ",", "0.956"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"20", ",", "1.003"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"30", ",", "1.037"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"40", ",", "1.104"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"50", ",", "1.12"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"60", ",", "1.157"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"70", ",", "1.21"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"80", ",", "1.27"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"90", ",", "1.32"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ms0", "=", "50"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k0", "=", "300"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mMax", "=", "100"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5629477399767323`*^9, 3.562947801590732*^9}, {
  3.5629480071657324`*^9, 3.562948008069732*^9}, {3.562948065322732*^9, 
  3.5629480668647323`*^9}, {3.5629524377137322`*^9, 3.5629524430787325`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dataAlshumemry", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"20", ",", "0.447"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"30", ",", "0.542"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"40", ",", "0.555"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"50", ",", "0.62"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"60", ",", "0.663"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"70", ",", "0.703"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"80", ",", "0.744"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"90", ",", "0.79"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"100", ",", "0.82"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mMax", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k0", "=", "1500"}], ";"}]}], "Input",
 CellChangeTimes->{{3.562952445734732*^9, 3.562952489037732*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dataVillamizar", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"100", ",", "0.85"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"150", ",", "1.008"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"200", ",", "1.161"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"250", ",", "1.28"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"300", ",", "1.393"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"350", ",", "1.513"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"400", ",", "1.616"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"450", ",", "1.695"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"500", ",", "1.796"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k0", "=", "6200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mMax", "=", "500"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5629508499237323`*^9, 3.5629509108967323`*^9}, {
  3.562951809869732*^9, 3.562951825312732*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", "dataAlshumemry"}], ";"}]], "Input",
 CellChangeTimes->{{3.5629518278117323`*^9, 3.562951834154732*^9}, 
   3.5629524993317323`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"modle", "=", 
   RowBox[{"nlm", "[", 
    RowBox[{"data", ",", "ms0", ",", "k0"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"data", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "\[Rule]", "0.02"}]}], "]"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"modle", "[", "m", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "0", ",", "mMax"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Thick", ",", "Dashed", ",", "Red"}], "]"}]}]}], "]"}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Nonlinear Model\>\""}], ",", " ", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<mass (g)\>\"", ",", "\"\<period (s)\>\""}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"modle", "[", "\"\<ParameterConfidenceIntervalTable\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"modle", "[", "\"\<RSquared\>\"", "]"}]}], "Input",
 CellChangeTimes->{{3.562936021918732*^9, 3.5629360327527323`*^9}, {
  3.562936099442732*^9, 3.5629361307037325`*^9}, {3.562936174742732*^9, 
  3.5629362411047325`*^9}, {3.5629364099107323`*^9, 3.562936421714732*^9}, {
  3.562936506675732*^9, 3.562936536487732*^9}, {3.5629367856467323`*^9, 
  3.562936793306732*^9}, {3.562937108610732*^9, 3.5629371213247323`*^9}, {
  3.5629372199157324`*^9, 3.5629372407887325`*^9}, {3.562937670392732*^9, 
  3.562937670984732*^9}, {3.562937948256732*^9, 3.5629379506587324`*^9}, {
  3.562938017926732*^9, 3.5629380241807323`*^9}, {3.5629398279237323`*^9, 
  3.5629398347717323`*^9}, {3.5629399435027323`*^9, 3.5629399472787323`*^9}, {
  3.5629400204797325`*^9, 3.5629400280087323`*^9}, {3.562940103657732*^9, 
  3.562940107129732*^9}, {3.5629405543147326`*^9, 3.5629405550007324`*^9}, {
  3.562944184279732*^9, 3.5629441974487324`*^9}, {3.5629442376477323`*^9, 
  3.5629442451967325`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {GrayLevel[0], PointSize[0.02], 
    PointBox[{{20., 0.447}, {30., 0.542}, {40., 0.555}, {50., 0.62}, {60., 
     0.663}, {70., 0.703}, {80., 0.744}, {90., 0.79}, {100., 
     0.82}}]}, {{}, {}, 
    {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[CompressedData["
1:eJwVj3k4lAkcgF1RWU9pk5Qnkl2xtbFJmdLvl3KEcYyRT0VyzAwSOSplpWPV
ZCrHarcVsTkSMY2so0Z4HFE6ZuSYmcrMZIxPB6qdpbD1x/u8f77PuzIkhhau
oaamRv3KN5tdmr6ev6J5a15HylDiXiHUzrU0iWZdgwzB9SaP/UJoPlpZtJpV
BVHGfIYZQwjt1oeY2qz70FTEMOyKEcIDjsD1E/MJNDZeXKV7WgidlNP1b5iv
wFM3spxeJoSuTPEhJfM9dBy2CNP9JAQ3vo6ngjkLo7qxJevZPdCtZzdPK3Ah
Knxcecp7z8HxklNTqddSvNVQUXGluxfC103p2eiZIoYUey3v7gOqZfj4Ehdz
fLaBXV3e2w+8nl8TOzetxuyZM9qDrQOweZFVldaJNdgl/z2nnC8C5uesvGLC
Gn8OEWgfLBNDTPvw+irqLxgyR//ssRQJnN+t/cP0AVvsCT2wszLoBYR2HGfY
sOxw7HirwtjqJTTrGPlEBWzCtft0go++eQk2+qmXRxIouOVv+/mGDa8g+IPD
Gs8DW/Bxy3BSJWUQCvPbjFUXtqKk7gRdlDcI1RcpYgEN8bcm+bjG9CAkNDh4
53lsQ01Z+pxRXync7yqeYO9xxOTq2IduXClEuNjzI4jtGHgZ+vu0ZHD1hk1N
VOQOjGdw8huDZJD5gX8y9ogT8vzGzINqZKC4mXiYFeeMk1Mnl3dpyaHVOevP
U6dcsMBmoTIxQA7qXiLZpVRXNFsUk0UplYPatn/UC5J2YqM8+rPPhBzOGaqo
grNuOGr+qOeC42uI3R3aojrtjp5tLydpnNcgPWkbBjkeuFcaRpiKX8Pi7Csi
diEVSzLeD+2zGIKShVZJHbmeqFu6/hY7egia40ycLMq9UDDDdSioG4J80wJj
B7o3JmRdkz2dHgJ+8pQa66k3GnGDFUJUwEp3nS+r/H1wARiEl51TwJ0nlukD
PT64wYQ/JutSAKd9xto0kIaLnaOe9eoPQ3b8SGSwhIaDUwMk3XcYkg1WLDAL
8EWKyr5hIGsYyizndCUM+uIKjtExtb5h0P6obtQcREfqczvuWwMllFrfTskf
pmPOmqYlzAAlWIbc9JyO9sN7ubSK8b+UIN5Zz/Mb9UOqtC06qU8JguvH1kL8
Lix6tyTt8NIR+K/aZ4vZxC50s3bcy6GPwGxdXE3aQX9MnZt5m7w4Au7Wzk7J
n/yxzj1Wvax7BDoC10VExRPYrGJ3VuiQsCiUdTcvkcDHa/W4lXNJCGIV6j09
QuCGdzkc7jwS/o37nmebTOCRqnsWd3RJMD+nmpo+Q6Br5glFwwISUnn3ORmX
CTyj8SKt3ZAEio43t6aewAcpX3b3WpCQ9h1bQ3mXwPiZSK2+1SQ802+hL2sk
sLNUs6jPkgSWse1kSguBlV9q2/p/IuEPm6WOrg8J1HD1yBatI+HjnkGhSEIg
I8GEkGwkAfcb/aj3isCi+towySYS0hm0oyAl8Lw5hymxJ8HsUKtx0dDXvuyt
l2QzCT5pN8Kj3xF4y/5OuRhIuJourb02RqCdwiNSjCQoM5bNF0wQKC20MhFv
+/qTy6m0UxHoV1sfJdpOwqOCNrWISQLHXaM1RTtIMCyZoeV+JtA/IDJzwImE
kPKNxd3TBL7R5BkMOJNQyY1Vzc4SKAl1yuh3IeF/A9tdVg==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"mass (g)\"", TraditionalForm], 
    FormBox["\"period (s)\"", TraditionalForm]},
  Frame->True,
  ImageSize->{653., Automatic},
  PlotLabel->FormBox["\"Nonlinear Model\"", TraditionalForm],
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.562937606638732*^9, {3.562937641748732*^9, 3.5629376712727323`*^9}, 
   3.562937953517732*^9, 3.562938025227732*^9, 3.5629394729207325`*^9, 
   3.5629396956537323`*^9, 3.562939839458732*^9, 3.562940033674732*^9, 
   3.5629401114827323`*^9, 3.562944202060732*^9, 3.5629442512137322`*^9, 
   3.5629478063637323`*^9, 3.562948013664732*^9, 3.5629480692907324`*^9, {
   3.562950899652732*^9, 3.562950913312732*^9}, 3.562952504025732*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FittedModel", "::", "\<\"constr\"\>"}], 
  RowBox[{
  ":", " "}], "\<\"\\!\\(\\*StyleBox[\\\"\\\\\\\"The property values \\\\\\\"\
\\\", \\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\!\\({\\\"\
ParameterConfidenceIntervalTable\\\"}\\), \
\\\"MT\\\"]\\)\[NoBreak]\\!\\(\\*StyleBox[\\\"\\\\\\\" assume an \
unconstrained model. The results for these properties may not be valid, \
particularly if the fitted parameters are near a constraint boundary.\\\\\\\"\
\\\", \\\"MT\\\"]\\) \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/FittedModel\\\", ButtonNote -> \
\\\"FittedModel::constr\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.562937641638732*^9, 3.5629376712527323`*^9}, 
   3.5629379534897323`*^9, 3.562938025202732*^9, 3.562939472892732*^9, 
   3.5629396956257324`*^9, 3.5629398394297323`*^9, 3.5629400336377325`*^9, 
   3.5629401114537325`*^9, 3.5629442020267324`*^9, 3.5629442511807323`*^9, 
   3.562947806404732*^9, 3.562948013695732*^9, 3.562948069320732*^9, {
   3.5629508996807323`*^9, 3.562950913346732*^9}, 3.562952504058732*^9}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", \
"\<\"Confidence Interval\"\>"},
     {"ms", "47.09559320121226`", "7.1682662818248275`", 
      RowBox[{"{", 
       RowBox[{"30.145336909334432`", ",", "64.04584949309009`"}], "}"}]},
     {"k", "6771.975587354453`", "229.0410535231281`", 
      RowBox[{"{", 
       RowBox[{"6230.379557583303`", ",", "7313.571617125603`"}], "}"}]}
    },
    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.562937606638732*^9, {3.562937641748732*^9, 3.5629376712727323`*^9}, 
   3.562937953517732*^9, 3.562938025227732*^9, 3.5629394729207325`*^9, 
   3.5629396956537323`*^9, 3.562939839458732*^9, 3.562940033674732*^9, 
   3.5629401114827323`*^9, 3.562944202060732*^9, 3.5629442512137322`*^9, 
   3.5629478063637323`*^9, 3.562948013664732*^9, 3.5629480692907324`*^9, {
   3.562950899652732*^9, 3.562950913312732*^9}, 3.5629525040817323`*^9}],

Cell[BoxData["0.9997416254811157`"], "Output",
 CellChangeTimes->{
  3.562937606638732*^9, {3.562937641748732*^9, 3.5629376712727323`*^9}, 
   3.562937953517732*^9, 3.562938025227732*^9, 3.5629394729207325`*^9, 
   3.5629396956537323`*^9, 3.562939839458732*^9, 3.562940033674732*^9, 
   3.5629401114827323`*^9, 3.562944202060732*^9, 3.5629442512137322`*^9, 
   3.5629478063637323`*^9, 3.562948013664732*^9, 3.5629480692907324`*^9, {
   3.562950899652732*^9, 3.562950913312732*^9}, 3.562952504102732*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dataLinear", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"data", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"data", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "[", 
         RowBox[{"[", "2", "]"}], "]"}], "^", "2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "data", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"modellinear", "=", 
   RowBox[{"LinearModelFit", "[", 
    RowBox[{"dataLinear", ",", "m", ",", "m"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"dataLinear", ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "\[Rule]", "0.02"}]}], "]"}]}]}], "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"modellinear", "[", "m", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "0", ",", "mMax"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Thick", ",", "Dashed", ",", "Red"}], "]"}]}]}], "]"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<mass (g)\>\"", ",", "\"\<period squared (s^2)\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Linear Model\>\""}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Normal", "[", "modellinear", "]"}], "\[IndentingNewLine]", 
 RowBox[{"modellinear", "[", "\"\<BestFitParameters\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"modellinear", "[", "\"\<ParameterConfidenceIntervalTable\>\"", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"modellinear", "[", "\"\<RSquared\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"4", " ", 
  RowBox[{
   RowBox[{"Pi", "^", "2"}], "/", 
   RowBox[{
    RowBox[{"modellinear", "[", "\"\<BestFitParameters\>\"", "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"3", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"modellinear", "[", "\"\<BestFitParameters\>\"", "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}], "/", 
   RowBox[{
    RowBox[{"modellinear", "[", "\"\<BestFitParameters\>\"", "]"}], "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5629402354827323`*^9, 3.562940538898732*^9}, {
   3.562940582284732*^9, 3.562940590926732*^9}, {3.5629407310267324`*^9, 
   3.562940745891732*^9}, {3.5629409024697323`*^9, 3.5629409089297323`*^9}, {
   3.562943058070732*^9, 3.562943087754732*^9}, 3.5629431493577323`*^9, {
   3.562943288992732*^9, 3.562943290800732*^9}, {3.562943583867732*^9, 
   3.5629436167907324`*^9}, {3.5629436821327324`*^9, 3.562943765557732*^9}, {
   3.562943868136732*^9, 3.562943906753732*^9}, {3.5629470202907324`*^9, 
   3.5629470416987324`*^9}, {3.5629510319227324`*^9, 3.562951044593732*^9}, {
   3.562951745800732*^9, 3.5629517745817323`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {GrayLevel[0], PointSize[0.02], 
    PointBox[{{100., 0.7224999999999999}, {150., 1.016064}, {200., 
     1.3479210000000001`}, {250., 1.6384}, {300., 1.940449}, {350., 
     2.289169}, {400., 2.6114560000000004`}, {450., 2.873025}, {500., 
     3.225616}}]}, {{}, {}, 
    {RGBColor[1, 0, 0], Thickness[Large], Dashing[{Small, Small}], 
     LineBox[CompressedData["
1:eJwVjmk81HkcgGfGOH6rlFuXo9ndGMq62hwzv68SGWRV69MhHVOOSYbczPxH
jqLdLclRUmYUIsuUI81mKs1nlV6IYklSjhU1YYaQa9sXz+d5+TxmR7m7jlNI
JJLPN/73R8W8t3vQEPNwnJEF26oenypJsHMTPcG55U6ZLifqcbymPGiV6CVu
6QkY0a+ox0nSUhJVNIDtQVT+dMM9vJCf6jMrVGJ1RKdvojVgKVWhVApVoLrA
2XJ2lQQbO1t4TAh1YbExcOMFdSne2SkbHxPSYGdK++WDE00YLqZqbo+2h30V
0a9rY55jbaW/+CKbCecXXpY117Zh5l/xfvyVbnCiKsW8saADC6Okf77Z6wkL
vn0eOzq68VvP3vY5953wKZ1Kzm3uxce9EuVHW/3As/NEpbP6e+wqmaa2hu+B
LvmhObHpANZseE9a894f8ny3GKobDGHLCY9wl4x9IC4PptxyGMZO91c/YlAC
YMYnSWJhM4KrPQ/98Dc3EHixV3Kr13/Ejd+tXNTOPAwB+VqQzJTj1Q2lPeIn
R4BDCblns3kMr0+di5QYsWHUdtmSQeU4DrRF2WeDj4G0dMTOsGECa1v43JQV
HYdy7NiqfleBuQxfbpgiCB7vsW9f91iJ3a6ctUrbFALj50XO30snsUyHKFZL
DwWf7ZJlv7yYwnERG4u9OzjwlLF3jN/7BYv0dXMoK8LgwIGQLYVd0ziuq55J
Y5+ENVO0kb4PM1jWn9VTIwwHZY0fSW94Fru10SgaXVwYqaVasN59xQ3hkoiB
nAhYbsu+X/J5DmcaEd2JtpHg8cpOPDE6j39qE1736I0EsaJaiz2/gMfnisy/
pJ2CzbvvEJ0aSziMJbkdYBYFnLBs+jUyCRrL7H6baYkCX7no2ZFMErSYP2V7
h0bD4+TRq8YaZJhY40hOocaAa91UbEAaGeTr0NynyhjoLutU3ahJgZJtk/IV
rFiYrxxvnsqggG08kxEyGQsOEe8YftoqkPTiRnr8pTiY246Gb2apQG/BUDbH
Oh5aH0xeTlhOBf3oM/MXu+JBMlG3+C6HCihy66HI2ASwdRTng64qtPMOGp8x
S4SHzORB20JVqPu6p5j3LBEODuk4la5Xg92FwSaWQUmQfv1tk7ZQDZq9u2e0
VvJApp+8tMJcHb6YBj2vqOLBhaL9XLUydcDBrUfNWXwIbZke5tM0IPBBvn+P
gg/7azh6GRUasMUhaZt7FgH/VBlEnzNH0Jm0la56iQDeDpu1jXQEMU1IW5ZL
gFm/l2zMCsFd38tvXa8SEKZ/Wu9XGwRWnLoERikBZN7HWhMnBKZFY9X2Dwiw
9Hw0VeuFAKFja2kfCEgeCI3rC0dwy9dSpX+UgB/5aSY6kQjc8xQjQjkBzw2K
mt2iEKTRTt8zVhJgwHplWBGHYJFxfdfqRQJui5kN0ckIFKe6MrT1BNDB151F
2Qiy7hdxXxgIINFwk8glB4E1Kdj/wioBmN7Z4cnNQxD2xxRtuYkAOIP8K68K
EPxbpvNQgy6AJdYHx6Ib33qfu0uarQRwc5DS31aCgOYg+v2MtQBYxLpz1FsI
DjdZ76c6CCD3zq7XoZXffjSm4cnPAnD0OplSWIXgmq90Q4qTAPoGz9JbxQhc
8tK1XBkCSCeK28k1CF6/8Z5awgKgGzUm2tch+A/XLS9V
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"mass (g)\"", TraditionalForm], 
    FormBox["\"period squared (s^2)\"", TraditionalForm]},
  Frame->True,
  ImageSize->{585., Automatic},
  PlotLabel->FormBox["\"Linear Model\"", TraditionalForm],
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{
  3.562940560268732*^9, 3.562940591544732*^9, 3.5629407464537325`*^9, 
   3.5629409098217325`*^9, 3.562943097301732*^9, 3.5629431501377325`*^9, 
   3.562943622409732*^9, {3.562943758866732*^9, 3.562943767322732*^9}, {
   3.5629438838577323`*^9, 3.5629439083837323`*^9}, {3.562947033334732*^9, 
   3.562947042414732*^9}, 3.5629478178637323`*^9, 3.562948032049732*^9, 
   3.562948171556732*^9, 3.5629509397787323`*^9, {3.5629510289697323`*^9, 
   3.562951045494732*^9}, {3.562951752325732*^9, 3.562951775470732*^9}}],

Cell[BoxData[
 RowBox[{"0.0866147333333333`", "\[InvisibleSpace]", "+", 
  RowBox[{"0.006253728666666669`", " ", "m"}]}]], "Output",
 CellChangeTimes->{
  3.562940560268732*^9, 3.562940591544732*^9, 3.5629407464537325`*^9, 
   3.5629409098217325`*^9, 3.562943097301732*^9, 3.5629431501377325`*^9, 
   3.562943622409732*^9, {3.562943758866732*^9, 3.562943767322732*^9}, {
   3.5629438838577323`*^9, 3.5629439083837323`*^9}, {3.562947033334732*^9, 
   3.562947042414732*^9}, 3.5629478178637323`*^9, 3.562948032049732*^9, 
   3.562948171556732*^9, 3.5629509397787323`*^9, {3.5629510289697323`*^9, 
   3.562951045494732*^9}, {3.562951752325732*^9, 3.5629517754767323`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.0866147333333333`", ",", "0.006253728666666669`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.562940560268732*^9, 3.562940591544732*^9, 3.5629407464537325`*^9, 
   3.5629409098217325`*^9, 3.562943097301732*^9, 3.5629431501377325`*^9, 
   3.562943622409732*^9, {3.562943758866732*^9, 3.562943767322732*^9}, {
   3.5629438838577323`*^9, 3.5629439083837323`*^9}, {3.562947033334732*^9, 
   3.562947042414732*^9}, 3.5629478178637323`*^9, 3.562948032049732*^9, 
   3.562948171556732*^9, 3.5629509397787323`*^9, {3.5629510289697323`*^9, 
   3.562951045494732*^9}, {3.562951752325732*^9, 3.562951775477732*^9}}],

Cell[BoxData[
 StyleBox[
  TagBox[GridBox[{
     {"\<\"\"\>", "\<\"Estimate\"\>", "\<\"Standard Error\"\>", \
"\<\"Confidence Interval\"\>"},
     {"1", "0.0866147333333333`", "0.016192527605223564`", 
      RowBox[{"{", 
       RowBox[{"0.04832548986343602`", ",", "0.12490397680323059`"}], "}"}]},
     {"m", "0.006253728666666669`", "0.0000495792878484107`", 
      RowBox[{"{", 
       RowBox[{"0.006136492280243618`", ",", "0.00637096505308972`"}], "}"}]}
    },
    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.562940560268732*^9, 3.562940591544732*^9, 3.5629407464537325`*^9, 
   3.5629409098217325`*^9, 3.562943097301732*^9, 3.5629431501377325`*^9, 
   3.562943622409732*^9, {3.562943758866732*^9, 3.562943767322732*^9}, {
   3.5629438838577323`*^9, 3.5629439083837323`*^9}, {3.562947033334732*^9, 
   3.562947042414732*^9}, 3.5629478178637323`*^9, 3.562948032049732*^9, 
   3.562948171556732*^9, 3.5629509397787323`*^9, {3.5629510289697323`*^9, 
   3.562951045494732*^9}, {3.562951752325732*^9, 3.5629517754797325`*^9}}],

Cell[BoxData["0.9995602260438208`"], "Output",
 CellChangeTimes->{
  3.562940560268732*^9, 3.562940591544732*^9, 3.5629407464537325`*^9, 
   3.5629409098217325`*^9, 3.562943097301732*^9, 3.5629431501377325`*^9, 
   3.562943622409732*^9, {3.562943758866732*^9, 3.562943767322732*^9}, {
   3.5629438838577323`*^9, 3.5629439083837323`*^9}, {3.562947033334732*^9, 
   3.562947042414732*^9}, 3.5629478178637323`*^9, 3.562948032049732*^9, 
   3.562948171556732*^9, 3.5629509397787323`*^9, {3.5629510289697323`*^9, 
   3.562951045494732*^9}, {3.562951752325732*^9, 3.562951775480732*^9}}],

Cell[BoxData["6312.780695904419`"], "Output",
 CellChangeTimes->{
  3.562940560268732*^9, 3.562940591544732*^9, 3.5629407464537325`*^9, 
   3.5629409098217325`*^9, 3.562943097301732*^9, 3.5629431501377325`*^9, 
   3.562943622409732*^9, {3.562943758866732*^9, 3.562943767322732*^9}, {
   3.5629438838577323`*^9, 3.5629439083837323`*^9}, {3.562947033334732*^9, 
   3.562947042414732*^9}, 3.5629478178637323`*^9, 3.562948032049732*^9, 
   3.562948171556732*^9, 3.5629509397787323`*^9, {3.5629510289697323`*^9, 
   3.562951045494732*^9}, {3.562951752325732*^9, 3.5629517754817324`*^9}}],

Cell[BoxData["41.55028365477531`"], "Output",
 CellChangeTimes->{
  3.562940560268732*^9, 3.562940591544732*^9, 3.5629407464537325`*^9, 
   3.5629409098217325`*^9, 3.562943097301732*^9, 3.5629431501377325`*^9, 
   3.562943622409732*^9, {3.562943758866732*^9, 3.562943767322732*^9}, {
   3.5629438838577323`*^9, 3.5629439083837323`*^9}, {3.562947033334732*^9, 
   3.562947042414732*^9}, 3.5629478178637323`*^9, 3.562948032049732*^9, 
   3.562948171556732*^9, 3.5629509397787323`*^9, {3.5629510289697323`*^9, 
   3.562951045494732*^9}, {3.562951752325732*^9, 3.562951775499732*^9}}]
}, Open  ]]
},
WindowSize->{896, 854},
WindowMargins->{{135, Automatic}, {11, Automatic}},
FrontEndVersion->"7.0 for Microsoft Windows (64-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 367, 10, 31, "Input"],
Cell[915, 32, 986, 24, 52, "Input"],
Cell[1904, 58, 1160, 35, 112, "Input"],
Cell[3067, 95, 1134, 31, 112, "Input"],
Cell[4204, 128, 935, 28, 92, "Input"],
Cell[5142, 158, 997, 29, 92, "Input"],
Cell[6142, 189, 179, 4, 31, "Input"],
Cell[CellGroupData[{
Cell[6346, 197, 2102, 42, 132, "Input"],
Cell[8451, 241, 2852, 53, 439, "Output"],
Cell[11306, 296, 1161, 19, 56, "Message"],
Cell[12470, 317, 1351, 28, 67, "Output"],
Cell[13824, 347, 503, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14364, 359, 3174, 76, 252, "Input"],
Cell[17541, 437, 3007, 55, 397, "Output"],
Cell[20551, 494, 669, 10, 30, "Output"],
Cell[21223, 506, 649, 11, 30, "Output"],
Cell[21875, 519, 1446, 29, 67, "Output"],
Cell[23324, 550, 581, 8, 30, "Output"],
Cell[23908, 560, 582, 8, 30, "Output"],
Cell[24493, 570, 580, 8, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)