(* 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[     10995,        290]
NotebookOptionsPosition[     10591,        273]
NotebookOutlinePosition[     11042,        291]
CellTagsIndexPosition[     10999,        288]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Useful", " ", "keyboard", " ", 
      RowBox[{"shortcuts", ":", "\[IndentingNewLine]", "  ", 
       RowBox[{
        RowBox[{"Ctrl", " ", "6", "      ", 
         RowBox[{"(", 
          RowBox[{
          "hold", " ", "down", " ", "Ctrl", " ", "and", " ", "6", " ", "keys",
            " ", "together"}], ")"}], " ", "superscript", " ", 
         RowBox[{"(", 
          RowBox[{
          "to", " ", "raise", " ", "something", " ", "to", " ", "a", " ", 
           "power"}], ")"}], "\[IndentingNewLine]", "Ctrl"}], " ", "-", 
        "       ", 
        RowBox[{"subscript", "\[IndentingNewLine]", 
         RowBox[{"Ctrl", " ", "/", "       ", "create"}], " ", "a", " ", 
         "fraction", "\[IndentingNewLine]", "Ctrl", " ", "2", "       ", 
         "create", " ", "a", " ", "square", " ", "root"}]}]}]}], 
     "\[IndentingNewLine]", "      ", "->", "         ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
       "hyphen", " ", "followed", " ", "by", " ", "\"\<greater than\>\"", " ",
         "symbol"}], ")"}], " ", "\[Rule]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
         "special", " ", "arrow", " ", "used", " ", "for", " ", "things", " ",
           "such", " ", "as", " ", "PlotRange"}], "\[Rule]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}], "."}]}], ")"}], 
       "\[IndentingNewLine]", "Esc", " ", "ii", " ", "Esc", "   ", "press", 
       " ", "the", " ", "Esc", " ", "key"}]}]}], ",", " ", 
    RowBox[{"then", " ", "type", " ", "ii"}], ",", " ", 
    RowBox[{
     RowBox[{
     "then", " ", "the", " ", "Esc", " ", "key", "  ", "\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
       "the", " ", "special", " ", "i", " ", "that", " ", "means", " ", 
        SqrtBox[
         RowBox[{"-", "1"}]]}], ")"}], "\[IndentingNewLine]", "Esc", " ", 
      "ee", " ", "Esc", "   ", "\[ExponentialE]", " ", 
      RowBox[{"(", 
       RowBox[{
       "the", " ", "special", " ", "e", " ", "that", " ", "means", " ", 
        RowBox[{"Euler", "'"}], "s", " ", "e", " ", 
        RowBox[{"(", "2.71828", ")"}]}], " ", ")"}], "\[IndentingNewLine]", 
      "Esc", " ", "inf", " ", "Esc", "  ", "\[Infinity]", 
      "\[IndentingNewLine]", "Esc", " ", "elem", " ", "Esc"}], " ", 
     "\[Element]", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"\"\<element of\>\"", " ", "symbol"}], ")"}], 
      "\[IndentingNewLine]", "Esc", " ", "p", " ", "Esc", "    ", "\[Pi]", 
      "\[IndentingNewLine]", "Esc", " ", "a", " ", "Esc", "    ", "\[Alpha]", 
      "\[IndentingNewLine]", "Esc", " ", "b", " ", "Esc", "    ", "\[Beta]", 
      "\[IndentingNewLine]", "Esc", " ", "g", " ", "Esc", "    ", "\[Gamma]", 
      "\[IndentingNewLine]", "Esc", " ", "d", " ", "Esc", "    ", "\[Delta]", 
      "\[IndentingNewLine]", "Esc", " ", "D", " ", "Esc", "    ", 
      "\[CapitalDelta]", "\[IndentingNewLine]", "Esc", " ", "ce", " ", "Esc", 
      "   ", "\[CurlyEpsilon]", "\[IndentingNewLine]", "Esc", " ", "k", " ", 
      "Esc", "    ", "\[Kappa]", "\[IndentingNewLine]", "Esc", " ", "l", " ", 
      "Esc", "    ", "\[Lambda]", "\[IndentingNewLine]", "Esc", " ", "m", " ",
       "Esc", "    ", "\[Mu]", "\[IndentingNewLine]", "Esc", " ", "n", " ", 
      "Esc", "    ", "\[Nu]", "\[IndentingNewLine]", "Esc", " ", "ps", " ", 
      "Esc", "   ", "\[Psi]", "\[IndentingNewLine]", "Esc", " ", "Ps", " ", 
      "Esc", "   ", "\[CapitalPsi]", "\[IndentingNewLine]", "Esc", " ", "ph", 
      " ", "Esc", "   ", "\[Phi]", "\[IndentingNewLine]", "Esc", " ", "cph", 
      " ", "Esc", "  ", "\[CurlyPhi]", "\[IndentingNewLine]", "Esc", " ", "r",
       " ", "Esc", "    ", "\[Rho]", "\[IndentingNewLine]", "Esc", " ", "s", 
      " ", "Esc", "    ", "\[Sigma]", " ", "\[IndentingNewLine]", "Esc", " ", 
      "t", " ", "Esc", "    ", "\[Tau]", "\[IndentingNewLine]", "Esc", " ", 
      "th", " ", "Esc", "   ", "\[Theta]", "\[IndentingNewLine]", "Esc", " ", 
      "w", " ", "Esc", "    ", "\[Omega]", "\[IndentingNewLine]", "Esc", " ", 
      "x", " ", "Esc", "    ", "\[Xi]"}]}]}], "      ", "*)"}], 
  "\[IndentingNewLine]", " ", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.416264191203125*^9, 3.41626461246875*^9}, {
  3.416264694984375*^9, 3.4162647653125*^9}, {3.416264875640625*^9, 
  3.4162652764375*^9}, {3.4162653220625*^9, 3.41626535921875*^9}, {
  3.41626540259375*^9, 3.416265453578125*^9}, {3.4929595750879974`*^9, 
  3.4929596702475123`*^9}, {3.525035578416*^9, 3.5250356294440002`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"me", "=", 
   RowBox[{"9.1093826", "\[Times]", 
    SuperscriptBox["10", 
     RowBox[{"-", "31"}]]}]}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"mass", " ", "of", " ", "electron"}], ",", " ", "kg"}], " ", 
   "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mp", " ", "=", " ", 
   RowBox[{"1.672621637", "\[Times]", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "27"}]]}]}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"mass", " ", "of", " ", "proton"}], ",", " ", "kg"}], " ", "*)"}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mn", "=", 
   RowBox[{"1.674927211", "\[Times]", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "27"}]]}]}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"mass", " ", "of", " ", "neutron"}], ",", " ", "kg"}], " ", 
   "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e", "=", 
   RowBox[{"1.60217653", "\[Times]", 
    SuperscriptBox["10", 
     RowBox[{"-", "19"}]]}]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"charge", " ", "of", " ", "electron"}], ",", " ", "C"}], " ", 
   "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "=", 
   RowBox[{"6.6260693", "\[Times]", 
    SuperscriptBox["10", 
     RowBox[{"-", "34"}]]}]}], "   ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Planck", "'"}], "s", " ", "constant"}], ",", " ", 
    RowBox[{"J", " ", "s"}]}], " ", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hbar", "=", 
   FractionBox["h", 
    RowBox[{"2", " ", "\[Pi]"}]]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kB", "=", 
   RowBox[{"1.3806505", "\[Times]", 
    SuperscriptBox["10", 
     RowBox[{"-", "23"}]]}]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Boltzmann", "'"}], "s", " ", "constant"}], ",", " ", 
    RowBox[{"J", "/", "K"}]}], " ", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c", "=", 
   RowBox[{"2.99792458", "\[Times]", 
    SuperscriptBox["10", "8"]}]}], "   ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"speed", " ", "of", " ", "light"}], ",", " ", 
    RowBox[{"m", "/", "s"}]}], " ", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"e0", "=", 
   RowBox[{"8.854187817", "\[Times]", 
    SuperscriptBox["10", 
     RowBox[{"-", "12"}]]}]}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"permittivity", " ", "of", " ", "free", " ", "space"}], ",", " ", 
    RowBox[{
     RowBox[{
      SuperscriptBox["C", "2"], "/", "N"}], " ", 
     SuperscriptBox["m", 
      RowBox[{"2", " "}]]}]}], "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Mu]0", "=", 
   RowBox[{"4", " ", "\[Pi]", "\[Times]", 
    SuperscriptBox["10", 
     RowBox[{"-", "7"}]]}]}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"permeability", " ", "of", " ", "free", " ", "space"}], ",", " ", 
    RowBox[{"N", "/", 
     SuperscriptBox["A", "2"]}]}], " ", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"a0", "=", 
   RowBox[{"5.2917720859", "\[Times]", 
    SuperscriptBox["10", 
     RowBox[{"-", "11"}]]}]}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Bohr", " ", "radius"}], ",", " ", "m"}], " ", "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"NA", "=", 
   RowBox[{"6.02214179", "\[Times]", 
    SuperscriptBox["10", "23"]}]}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Avogadro", "'"}], "s", " ", "number"}], " ", "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "=", 
   RowBox[{"6.67428", "\[Times]", 
    SuperscriptBox["10", 
     RowBox[{"-", "11"}]]}]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Gravitational", " ", "constant"}], ",", " ", 
    RowBox[{
     RowBox[{
      SuperscriptBox["m", "3"], "/", "kg"}], " ", "s"}]}], " ", "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u", "=", 
   RowBox[{
    RowBox[{"1", "/", "NA"}], "/", "1000"}]}], "   ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"atomic", " ", "mass", " ", "unit"}], ",", " ", "kg"}], " ", 
   "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ZeroC", "=", "273.15"}], "   ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Zero", " ", "degrees", " ", "Celsius"}], ",", " ", 
    RowBox[{"in", " ", "K"}]}], " ", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RT", "=", "293.15"}], "   ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Room", " ", "temperature"}], ",", " ", 
    RowBox[{"in", " ", "K"}]}], " ", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Msun", " ", "=", " ", 
   RowBox[{"1.9891", "\[Times]", 
    SuperscriptBox["10", "30"]}]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Solar", " ", "mass"}], ",", " ", "kg"}], " ", "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Mearth", " ", "=", " ", 
   RowBox[{"5.9736", "\[Times]", 
    SuperscriptBox["10", "24"]}]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Earth", " ", "mass"}], ",", " ", "kg"}], " ", "*)"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.416262877578125*^9, 3.416263210484375*^9}, {
  3.416263338421875*^9, 3.416263392890625*^9}, {3.4162634244375*^9, 
  3.416263472640625*^9}, {3.4162635076875*^9, 3.41626354009375*^9}, {
  3.4162635876875*^9, 3.416263619703125*^9}, {3.4162637623125*^9, 
  3.416263794765625*^9}, {3.416263826125*^9, 3.41626384796875*^9}, {
  3.525035644934*^9, 3.5250356915557623`*^9}}]
},
WindowSize->{1224, 1016},
WindowMargins->{{38, Automatic}, {Automatic, -36}},
DockedCells->FEPrivate`FrontEndResource[
 "FEExpressions", "CompatibilityToolbar"],
Magnification->1.,
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 4606, 87, 680, "Input"],
Cell[5154, 109, 5433, 162, 397, "Input"]
}
]
*)

(* End of internal cache information *)