(* 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[      7155,        209]
NotebookOptionsPosition[      6602,        184]
NotebookOutlinePosition[      6960,        200]
CellTagsIndexPosition[      6917,        197]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"data", " ", "=", " ", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"400", ",", "1503"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"425", ",", "1777"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"450", ",", "1809"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"475", ",", "1848"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"500", ",", "1823"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"525", ",", "1889"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"550", ",", "1901"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"575", ",", "1918"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"600", ",", "1914"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"625", ",", "1933"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"650", ",", "1992"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"675", ",", "2012"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"700", ",", "1945"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"725", ",", "2151"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"750", ",", "2169"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"775", ",", "2198"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"800", ",", "2269"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"825", ",", "2220"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"850", ",", "2263"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"875", ",", "2451"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"900", ",", "2600"}], "}"}]}], "\[IndentingNewLine]", 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.57980502932861*^9, 3.579805378619232*^9}, {
  3.579805465899529*^9, 3.5798054663564262`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"400", ",", "1503"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"425", ",", "1777"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"450", ",", "1809"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"475", ",", "1848"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"500", ",", "1823"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"525", ",", "1889"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"550", ",", "1901"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"575", ",", "1918"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"600", ",", "1914"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"625", ",", "1933"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"650", ",", "1992"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"675", ",", "2012"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"700", ",", "1945"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"725", ",", "2151"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"750", ",", "2169"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"775", ",", "2198"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"800", ",", "2269"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"825", ",", "2220"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"850", ",", "2263"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"875", ",", "2451"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"900", ",", "2600"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.579805076196419*^9, {3.5798051150159492`*^9, 3.5798051563808603`*^9}, 
   3.579805190167605*^9, {3.5798052400964327`*^9, 3.579805276972291*^9}, 
   3.579805326934147*^9, {3.5798053692333813`*^9, 3.579805378982185*^9}, 
   3.579805468908036*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "@", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.579805415904127*^9, 3.579805423717307*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "38.76854394996026`", ",", "42.15447781671598`", ",", "42.532340636273474`",
    ",", "42.988370520409354`", ",", "42.69660408041839`", ",", 
   "43.46262762420146`", ",", "43.60045871318328`", ",", "43.79497688091638`",
    ",", "43.749285708454714`", ",", "43.965895873961216`", ",", 
   "44.63182720884279`", ",", "44.85532298401161`", ",", "44.10215414239989`",
    ",", "46.37887450122092`", ",", "46.57252408878007`", ",", 
   "46.88283267892417`", ",", "47.634021455258214`", ",", 
   "47.11687595755899`", ",", "47.57099956906519`", ",", "49.50757517794625`",
    ",", "50.99019513592785`"}], "}"}]], "Output",
 CellChangeTimes->{{3.579805420500786*^9, 3.5798054241213303`*^9}, 
   3.5798054704093723`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"data", ",", 
   RowBox[{"AxesOrigin", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"350", ",", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.579805076720039*^9, 3.579805080412592*^9}, {
  3.57980525569637*^9, 3.5798052698545427`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQGVDmCqZjqEnlAFoY/MhtAKNRDaZQ6E3lALoR9A
+Q71UP1QfkYDhG6ZC6ENGiH0Fij/B5T/A8o/0AShX0D5Hc0Q2mQehA5ogbpj
PoSWaIXQBVD+Ayg/Bap+RRuEPrcAqq4dQn+C8i06ILTOQgjN0Amhd0H5J6D8
CCh/QheEXgflR3RDaLXFUHf1QN25xAEA4Cc4LA==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{350, 0},
  Method->{},
  PlotRange->{{350, 900.}, {0, 2600.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{11., 11.}, {52., 52.}}]], "Output",
 CellChangeTimes->{
  3.579805081579286*^9, {3.579805115950202*^9, 3.5798051381518784`*^9}, 
   3.579805191389955*^9, {3.579805240980722*^9, 3.579805278757279*^9}, 
   3.579805328735669*^9, {3.579805370301324*^9, 3.579805379899776*^9}, 
   3.579805476134869*^9}]
}, Open  ]]
},
WindowSize->{740, 701},
WindowMargins->{{Automatic, 192}, {Automatic, 36}},
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[CellGroupData[{
Cell[579, 22, 2101, 48, 403, "Input"],
Cell[2683, 72, 1666, 49, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4386, 126, 231, 6, 28, "Input"],
Cell[4620, 134, 756, 13, 63, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5413, 152, 295, 7, 28, "Input"],
Cell[5711, 161, 875, 20, 270, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)