Units.nb

(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      5945,        178]
NotebookOptionsPosition[      5629,        163]
NotebookOutlinePosition[      5970,        178]
CellTagsIndexPosition[      5927,        175]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.728079184883792*^9, 3.7280791898232183`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "CGS", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"e", "=", 
     RowBox[{"4.80320451", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "10"}]]}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"charge", " ", "of", " ", "electron", " ", "in", " ", "esu"}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"me", "=", 
     RowBox[{"9.1095", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "28"}]]}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"mass", " ", "of", " ", "electron", " ", "in", " ", "grams"}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"h", "=", 
     RowBox[{"6.6262", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "27"}]]}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Planck", " ", "constant", " ", "in", " ", "erg", "*", "sec"}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[HBar]", "=", 
     FractionBox["h", 
      RowBox[{"2", "\[Pi]"}]]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
    "Reduced", " ", "Planck", " ", "constant", " ", "in", " ", "erg", "*", 
     "sec"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a0", "=", 
     FractionBox[
      SuperscriptBox["\[HBar]", "2"], 
      RowBox[{"me", " ", 
       SuperscriptBox["e", "2"]}]]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Bohr", " ", "radius", " ", "in", " ", "cm"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"c", "=", "29979245800"}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Speed", " ", "of", " ", "light", " ", "in", " ", 
     RowBox[{"cm", "/", "sec"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Alpha]", "=", 
     FractionBox[
      SuperscriptBox["e", "2"], 
      RowBox[{"\[HBar]", " ", "c"}]]}], ";"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"Fine", " ", "structure", " ", "constant"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mn", "=", 
     RowBox[{"1.674929", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "24"}]]}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"mass", " ", "of", " ", "neutron", " ", "in", " ", "grams"}], " ",
     "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"mp", "=", 
     RowBox[{"1.672623", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "24"}]]}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"mass", " ", "of", " ", "proton", " ", "in", " ", "grams"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ergtoeV", "=", 
     RowBox[{"6.2415", " ", 
      SuperscriptBox["10", "11"]}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"1", "erg", " ", "*", " ", "ergtoeV"}], " ", "=", " ", "eV"}], 
    " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kB", "=", 
     RowBox[{"1.38064852", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "16"}]]}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Boltzmann", " ", "constant", " ", "in", " ", 
     RowBox[{"ergs", "/", "Kelvin"}]}], " ", "*)"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.728078860765715*^9, 3.728078910330825*^9}, {
  3.7280789415948563`*^9, 3.728079082777921*^9}, {3.72807911598355*^9, 
  3.728079167013605*^9}, {3.728659573801427*^9, 3.72865959017381*^9}, {
  3.7293704400637236`*^9, 3.7293704960389404`*^9}, {3.7293707057201767`*^9, 
  3.7293707398360786`*^9}, {3.7321377178760424`*^9, 3.7321377444778214`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "SI", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"h", "=", 
     RowBox[{"6.62607004", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "34"}]]}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Planck", " ", "constant", " ", "in", " ", "J", "*", "sec"}], " ",
     "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[HBar]", "=", 
     FractionBox["h", 
      RowBox[{"2", "\[Pi]"}]]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
    "Reduce", " ", "Planck", " ", "constant", " ", "in", " ", "J", "*", 
     "sec"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"kB", "=", 
     RowBox[{"1.38064852", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "23"}]]}]}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Boltzmann", " ", "constant", " ", "in", " ", 
     RowBox[{"Joules", "/", "Kelvin"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Epsilon]0", "=", 
     RowBox[{"8.854187817", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "12"}]]}]}], ";", 
    RowBox[{"(*", " ", 
     RowBox[{"vacuum", " ", "permeability", " ", "in", " ", 
      RowBox[{"Farads", "/", "meter"}]}], " ", "*)"}], 
    "\[IndentingNewLine]"}]}]}]], "Input",
 CellChangeTimes->{{3.7294555841017323`*^9, 3.729455663510697*^9}, {
  3.7321376729520874`*^9, 3.7321377040453625`*^9}, {3.745532219980118*^9, 
  3.745532294295002*^9}}]
},
WindowSize->{766, 772},
WindowMargins->{{-7, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 160, 3, 30, "Input"],
Cell[721, 25, 3463, 95, 351, "Input"],
Cell[4187, 122, 1438, 39, 155, "Input"]
}
]
*)