-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathBasicCalculations.nb
More file actions
74 lines (65 loc) · 2.1 KB
/
BasicCalculations.nb
File metadata and controls
74 lines (65 loc) · 2.1 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 12.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 1990, 66]
NotebookOptionsPosition[ 1417, 48]
NotebookOutlinePosition[ 1813, 64]
CellTagsIndexPosition[ 1770, 61]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Basic constants", "Subsection",
CellChangeTimes->{{3.907075959618394*^9,
3.9070759622978277`*^9}},ExpressionUUID->"dbcea411-9f54-441f-9c0c-\
fd4665ba75b7"],
Cell[BoxData[{
RowBox[{
RowBox[{"c", "=",
RowBox[{"2.99792458", " ",
SuperscriptBox["10", "8"]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[HBar]", "=",
RowBox[{"1.054571628", " ",
SuperscriptBox["10",
RowBox[{"-", "34"}]]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"h", "=",
RowBox[{"2", " ", "\[Pi]", " ", "\[HBar]"}]}], ";"}]}], "Input",
CellLabel->"In[1]:=",ExpressionUUID->"4e4167e2-cf01-4f2f-92f9-c45ddd2589ba"]
}, Open ]],
Cell["Trap frequency conversions", "Subsection",
CellChangeTimes->{{3.907075932164359*^9,
3.907075941356963*^9}},ExpressionUUID->"4d4999d0-c673-428e-9c48-\
8ff1d20d103c"]
},
WindowSize->{808, 816},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
FrontEndVersion->"12.3 for Mac OS X ARM (64-bit) (September 30, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"93d5a3ea-b8a4-421a-92dc-e674c7de242d"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 165, 3, 54, "Subsection",ExpressionUUID->"dbcea411-9f54-441f-9c0c-fd4665ba75b7"],
Cell[748, 27, 476, 13, 73, "Input",ExpressionUUID->"4e4167e2-cf01-4f2f-92f9-c45ddd2589ba"]
}, Open ]],
Cell[1239, 43, 174, 3, 54, "Subsection",ExpressionUUID->"4d4999d0-c673-428e-9c48-8ff1d20d103c"]
}
]
*)