Blog: Update 2/22: optical depth.nb

File optical depth.nb, 5.2 KB (added by adebrech, 8 years ago)
Line 
1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 11.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[ 158, 7]
13NotebookDataLength[ 5111, 179]
14NotebookOptionsPosition[ 4219, 143]
15NotebookOutlinePosition[ 4554, 158]
16CellTagsIndexPosition[ 4511, 155]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell[BoxData[{
24 RowBox[{
25 RowBox[{"\[Lambda]0", "=",
26 RowBox[{"1.21", "*",
27 SuperscriptBox["10",
28 RowBox[{"-", "5"}]]}]}], ";"}], "\[IndentingNewLine]",
29 RowBox[{
30 RowBox[{"m", "=",
31 RowBox[{"1.673", "*",
32 SuperscriptBox["10",
33 RowBox[{"-", "24"}]]}]}], ";"}], "\[IndentingNewLine]",
34 RowBox[{
35 RowBox[{"T", "=",
36 SuperscriptBox["10", "4"]}], ";"}], "\[IndentingNewLine]",
37 RowBox[{
38 RowBox[{"k", "=",
39 RowBox[{"1.38", "*",
40 SuperscriptBox["10",
41 RowBox[{"-", "16"}]]}]}], ";"}], "\[IndentingNewLine]",
42 RowBox[{
43 RowBox[{"\[Tau]", "=", "1"}], ";"}]}], "Input",
44 CellChangeTimes->{{3.693149401072982*^9, 3.693149513153232*^9}, {
45 3.69314957230229*^9, 3.693149574850312*^9}, {3.693149730327201*^9,
46 3.693149759558419*^9}, {3.693149795977573*^9, 3.6931498256398907`*^9}}],
47
48Cell[BoxData["0.000012100000000000001`"], "Output",
49 CellChangeTimes->{
50 3.693149532721239*^9, 3.69314959380131*^9, {3.6931497326134*^9,
51 3.693149760051299*^9}, {3.693149796410542*^9, 3.693149808755703*^9}}],
52
53Cell[BoxData["1.6730000000000002`*^-24"], "Output",
54 CellChangeTimes->{
55 3.693149532721239*^9, 3.69314959380131*^9, {3.6931497326134*^9,
56 3.693149760051299*^9}, {3.693149796410542*^9, 3.693149808759062*^9}}],
57
58Cell[BoxData["10000"], "Output",
59 CellChangeTimes->{
60 3.693149532721239*^9, 3.69314959380131*^9, {3.6931497326134*^9,
61 3.693149760051299*^9}, {3.693149796410542*^9, 3.6931498087622833`*^9}}],
62
63Cell[BoxData["1.3799999999999997`*^-16"], "Output",
64 CellChangeTimes->{
65 3.693149532721239*^9, 3.69314959380131*^9, {3.6931497326134*^9,
66 3.693149760051299*^9}, {3.693149796410542*^9, 3.693149808765291*^9}}],
67
68Cell[BoxData["1"], "Output",
69 CellChangeTimes->{
70 3.693149532721239*^9, 3.69314959380131*^9, {3.6931497326134*^9,
71 3.693149760051299*^9}, {3.693149796410542*^9, 3.693149808768132*^9}}]
72}, Open ]],
73
74Cell[CellGroupData[{
75
76Cell[BoxData[
77 RowBox[{"Solve", "[",
78 RowBox[{
79 RowBox[{"\[Tau]", "==",
80 RowBox[{
81 SqrtBox[
82 FractionBox["m",
83 RowBox[{"2", " ", "k", " ", "T"}]]],
84 FractionBox[
85 SuperscriptBox["\[Lambda]0", "3"],
86 RowBox[{"8",
87 SuperscriptBox["\[Pi]",
88 FractionBox["3", "2"]]}]],
89 SuperscriptBox["10", "9"], "nl"}]}], ",", "nl"}], "]"}]], "Input",
90 CellChangeTimes->{{3.693149535355034*^9, 3.693149590193371*^9}}],
91
92Cell[BoxData[
93 RowBox[{"{",
94 RowBox[{"{",
95 RowBox[{"nl", "\[Rule]", "3.229722846436252`*^13"}], "}"}],
96 "}"}]], "Output",
97 CellChangeTimes->{{3.693149590582018*^9, 3.6931495961613626`*^9},
98 3.6931497623559313`*^9, 3.6931498105211277`*^9}]
99}, Open ]],
100
101Cell[CellGroupData[{
102
103Cell[BoxData[
104 RowBox[{"3.747", "/", "1.672"}]], "Input",
105 CellChangeTimes->{{3.693149861678934*^9, 3.693149869796105*^9}}],
106
107Cell[BoxData["2.2410287081339715`"], "Output",
108 CellChangeTimes->{3.693149869958685*^9}]
109}, Open ]],
110
111Cell[CellGroupData[{
112
113Cell[BoxData[
114 RowBox[{
115 SuperscriptBox["10",
116 RowBox[{"-", "9"}]], "/",
117 SuperscriptBox["10",
118 RowBox[{"-", "24"}]]}]], "Input",
119 CellChangeTimes->{{3.6931498801876297`*^9, 3.693149886209989*^9}}],
120
121Cell[BoxData["1000000000000000"], "Output",
122 CellChangeTimes->{3.693149886381607*^9}]
123}, Open ]],
124
125Cell[CellGroupData[{
126
127Cell[BoxData[
128 RowBox[{"ScientificForm", "[",
129 RowBox[{"N", "[",
130 RowBox[{"1000000000000000", ",", "16"}], "]"}], "]"}]], "Input",
131 NumberMarks->False],
132
133Cell[BoxData[
134 TagBox[
135 InterpretationBox[
136 RowBox[{"\<\"1.000000000000000\"\>", "\[Times]",
137 SuperscriptBox["10", "\<\"15\"\>"]}],
138 1.`16.*^15,
139 AutoDelete->True],
140 ScientificForm]], "Output",
141 CellChangeTimes->{3.6931498892190933`*^9}]
142}, Open ]]
143},
144WindowSize->{808, 911},
145WindowMargins->{{556, Automatic}, {57, Automatic}},
146FrontEndVersion->"11.0 for Linux x86 (64-bit) (July 28, 2016)",
147StyleDefinitions->"Default.nb"
148]
149(* End of Notebook Content *)
150
151(* Internal cache information *)
152(*CellTagsOutline
153CellTagsIndex->{}
154*)
155(*CellTagsIndex
156CellTagsIndex->{}
157*)
158(*NotebookFileOutline
159Notebook[{
160Cell[CellGroupData[{
161Cell[580, 22, 820, 23, 124, "Input"],
162Cell[1403, 47, 211, 3, 30, "Output"],
163Cell[1617, 52, 211, 3, 34, "Output"],
164Cell[1831, 57, 194, 3, 30, "Output"],
165Cell[2028, 62, 211, 3, 34, "Output"],
166Cell[2242, 67, 188, 3, 30, "Output"]
167}, Open ]],
168Cell[CellGroupData[{
169Cell[2467, 75, 458, 14, 85, "Input"],
170Cell[2928, 91, 248, 6, 42, "Output"]
171}, Open ]],
172Cell[CellGroupData[{
173Cell[3213, 102, 123, 2, 30, "Input"],
174Cell[3339, 106, 88, 1, 30, "Output"]
175}, Open ]],
176Cell[CellGroupData[{
177Cell[3464, 112, 206, 6, 42, "Input"],
178Cell[3673, 120, 85, 1, 30, "Output"]
179}, Open ]],
180Cell[CellGroupData[{
181Cell[3795, 126, 156, 4, 32, "Input"],
182Cell[3954, 132, 249, 8, 81, "Output"]
183}, Open ]]
184}
185]
186*)
187
188(* End of internal cache information *)
189