(* 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[     11723,        301]
NotebookOptionsPosition[     11318,        284]
NotebookOutlinePosition[     11769,        302]
CellTagsIndexPosition[     11726,        299]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 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]",
         "Esc", " ", "ii", " ", "Esc", "   ", "press", " ", "the", " ", "Esc",
         " ", "key"}]}]}]}], ",", " ", 
    RowBox[{"then", " ", "type", " ", "ii"}], ",", " ", 
    RowBox[{
     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", " ", "hb", " ", "Esc", " ", "\[HBar]", "  ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
          "This", " ", "is", " ", "not", " ", "normally", " ", "pre"}], "-", 
          "defined"}], ",", " ", 
         RowBox[{
         "though", " ", "it", " ", "is", " ", "defined", " ", "in", " ", 
          "the", " ", "list", " ", 
          RowBox[{"below", "."}]}]}], ")"}], "\[IndentingNewLine]", "Esc", 
       " ", "inf", " ", "Esc", "  ", "\[Infinity]", "\[IndentingNewLine]", 
       "Esc", " ", "intt", " ", "Esc", " ", "integral", "\[IndentingNewLine]",
        "Esc", " ", "dintt", " ", "Esc", " ", "definite", " ", "integral", 
       "\[IndentingNewLine]", "Esc", " ", "pd", " ", "Esc", " ", "then", " ", 
       "Ctrl"}], " ", "-", "  ", 
      RowBox[{"partial", " ", "derivative", " ", 
       RowBox[{
        SubscriptBox["\[PartialD]", "\[Placeholder]"], "  ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"To", " ", "take", " ", "second", " ", "deriv"}], ",", " ", 
          RowBox[{"for", " ", "example", " ", "WRT", " ", "x"}], ",", " ", 
          RowBox[{"type", " ", "\"\<x, x\>\"", " ", "in", " ", "the", " ", 
           RowBox[{"subscript", ":", " ", 
            SubscriptBox["\[PartialD]", 
             RowBox[{"x", ",", "x"}]]}]}]}], " ", ")"}]}], 
       "\[IndentingNewLine]", "Esc", " ", "elem", " ", "Esc"}]}], " ", 
     "\[Element]", "  ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"element", " ", "of"}], ")"}], "\[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.480012419711*^9, 
  3.4800125517790003`*^9}, {3.480012620689*^9, 3.480012685153*^9}, {
  3.4800127468*^9, 3.4800127884779997`*^9}, {3.4800128430769997`*^9, 
  3.480012878825*^9}, {3.4800130052650003`*^9, 3.480013010007*^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[{"\[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[{"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.4800128854709997`*^9, 3.480012886266*^9}}]
},
WindowSize->{1224, 1016},
WindowMargins->{{38, Automatic}, {Automatic, -36}},
DockedCells->FEPrivate`FrontEndResource[
 "FEExpressions", "CompatibilityToolbar"],
Magnification->1.,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 5445, 100, 740, "Input"],
Cell[5993, 122, 5321, 160, 397, "Input"]
}
]
*)

(* End of internal cache information *)