(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      2866,        109]
NotebookOptionsPosition[      2189,         79]
NotebookOutlinePosition[      2526,         94]
CellTagsIndexPosition[      2483,         91]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Useful approximations", "Section",
 CellChangeTimes->{{3.4336012686045303`*^9, 3.433601271665682*^9}}],

Cell[CellGroupData[{

Cell["\<\
1 year is ten million pi seconds to better than 1/2 %\
\>", "Subsection",
 CellChangeTimes->{{3.433601274193655*^9, 3.433601282577902*^9}, {
  3.4336013879741592`*^9, 3.433601419979553*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Y", "=", 
   RowBox[{"365", " ", "24", " ", "3600.0"}]}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.4336012856280003`*^9, 3.433601310498654*^9}, {
  3.433601367637669*^9, 3.4336013678423853`*^9}}],

Cell[BoxData["3.1536`*^7"], "Output",
 CellChangeTimes->{{3.433601291602393*^9, 3.4336013125874643`*^9}, 
   3.433601368319586*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AY", "=", 
  RowBox[{
   RowBox[{"Pi", " ", 
    SuperscriptBox["10", "7"]}], "//", "N"}]}]], "Input",
 CellChangeTimes->{{3.433601293537318*^9, 3.4336013151706657`*^9}, {
  3.433601393682695*^9, 3.433601399716885*^9}}],

Cell[BoxData["3.1415926535897933`*^7"], "Output",
 CellChangeTimes->{{3.433601297823778*^9, 3.433601315614049*^9}, {
  3.433601394421399*^9, 3.433601400225902*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox[
  RowBox[{"Abs", "[", 
   RowBox[{"Y", "-", "AY"}], "]"}], "Y"]], "Input",
 CellChangeTimes->{{3.433601318836419*^9, 3.433601334918952*^9}, {
  3.433601402654114*^9, 3.4336014058148537`*^9}}],

Cell[BoxData["0.003807504569446571`"], "Output",
 CellChangeTimes->{3.433601335548921*^9, 3.433601406193057*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{28, Automatic}, {Automatic, 64}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (March 13, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 108, 1, 67, "Section"],
Cell[CellGroupData[{
Cell[723, 28, 200, 4, 35, "Subsection"],
Cell[CellGroupData[{
Cell[948, 36, 249, 6, 43, "Input"],
Cell[1200, 44, 131, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1368, 51, 243, 6, 30, "Input"],
Cell[1614, 59, 164, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1815, 66, 219, 5, 46, "Input"],
Cell[2037, 73, 112, 1, 27, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)