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:
|
---|
10 | NotebookFileLineBreakTest
|
---|
11 | NotebookFileLineBreakTest
|
---|
12 | NotebookDataPosition[ 158, 7]
|
---|
13 | NotebookDataLength[ 5111, 179]
|
---|
14 | NotebookOptionsPosition[ 4219, 143]
|
---|
15 | NotebookOutlinePosition[ 4554, 158]
|
---|
16 | CellTagsIndexPosition[ 4511, 155]
|
---|
17 | WindowFrame->Normal*)
|
---|
18 |
|
---|
19 | (* Beginning of Notebook Content *)
|
---|
20 | Notebook[{
|
---|
21 |
|
---|
22 | Cell[CellGroupData[{
|
---|
23 | Cell[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 |
|
---|
48 | Cell[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 |
|
---|
53 | Cell[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 |
|
---|
58 | Cell[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 |
|
---|
63 | Cell[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 |
|
---|
68 | Cell[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 |
|
---|
74 | Cell[CellGroupData[{
|
---|
75 |
|
---|
76 | Cell[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 |
|
---|
92 | Cell[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 |
|
---|
101 | Cell[CellGroupData[{
|
---|
102 |
|
---|
103 | Cell[BoxData[
|
---|
104 | RowBox[{"3.747", "/", "1.672"}]], "Input",
|
---|
105 | CellChangeTimes->{{3.693149861678934*^9, 3.693149869796105*^9}}],
|
---|
106 |
|
---|
107 | Cell[BoxData["2.2410287081339715`"], "Output",
|
---|
108 | CellChangeTimes->{3.693149869958685*^9}]
|
---|
109 | }, Open ]],
|
---|
110 |
|
---|
111 | Cell[CellGroupData[{
|
---|
112 |
|
---|
113 | Cell[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 |
|
---|
121 | Cell[BoxData["1000000000000000"], "Output",
|
---|
122 | CellChangeTimes->{3.693149886381607*^9}]
|
---|
123 | }, Open ]],
|
---|
124 |
|
---|
125 | Cell[CellGroupData[{
|
---|
126 |
|
---|
127 | Cell[BoxData[
|
---|
128 | RowBox[{"ScientificForm", "[",
|
---|
129 | RowBox[{"N", "[",
|
---|
130 | RowBox[{"1000000000000000", ",", "16"}], "]"}], "]"}]], "Input",
|
---|
131 | NumberMarks->False],
|
---|
132 |
|
---|
133 | Cell[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 | },
|
---|
144 | WindowSize->{808, 911},
|
---|
145 | WindowMargins->{{556, Automatic}, {57, Automatic}},
|
---|
146 | FrontEndVersion->"11.0 for Linux x86 (64-bit) (July 28, 2016)",
|
---|
147 | StyleDefinitions->"Default.nb"
|
---|
148 | ]
|
---|
149 | (* End of Notebook Content *)
|
---|
150 |
|
---|
151 | (* Internal cache information *)
|
---|
152 | (*CellTagsOutline
|
---|
153 | CellTagsIndex->{}
|
---|
154 | *)
|
---|
155 | (*CellTagsIndex
|
---|
156 | CellTagsIndex->{}
|
---|
157 | *)
|
---|
158 | (*NotebookFileOutline
|
---|
159 | Notebook[{
|
---|
160 | Cell[CellGroupData[{
|
---|
161 | Cell[580, 22, 820, 23, 124, "Input"],
|
---|
162 | Cell[1403, 47, 211, 3, 30, "Output"],
|
---|
163 | Cell[1617, 52, 211, 3, 34, "Output"],
|
---|
164 | Cell[1831, 57, 194, 3, 30, "Output"],
|
---|
165 | Cell[2028, 62, 211, 3, 34, "Output"],
|
---|
166 | Cell[2242, 67, 188, 3, 30, "Output"]
|
---|
167 | }, Open ]],
|
---|
168 | Cell[CellGroupData[{
|
---|
169 | Cell[2467, 75, 458, 14, 85, "Input"],
|
---|
170 | Cell[2928, 91, 248, 6, 42, "Output"]
|
---|
171 | }, Open ]],
|
---|
172 | Cell[CellGroupData[{
|
---|
173 | Cell[3213, 102, 123, 2, 30, "Input"],
|
---|
174 | Cell[3339, 106, 88, 1, 30, "Output"]
|
---|
175 | }, Open ]],
|
---|
176 | Cell[CellGroupData[{
|
---|
177 | Cell[3464, 112, 206, 6, 42, "Input"],
|
---|
178 | Cell[3673, 120, 85, 1, 30, "Output"]
|
---|
179 | }, Open ]],
|
---|
180 | Cell[CellGroupData[{
|
---|
181 | Cell[3795, 126, 156, 4, 32, "Input"],
|
---|
182 | Cell[3954, 132, 249, 8, 81, "Output"]
|
---|
183 | }, Open ]]
|
---|
184 | }
|
---|
185 | ]
|
---|
186 | *)
|
---|
187 |
|
---|
188 | (* End of internal cache information *)
|
---|
189 |
|
---|