1 | (* Content-type: application/mathematica *)
|
---|
2 |
|
---|
3 | (*** Wolfram Notebook File ***)
|
---|
4 | (* http://www.wolfram.com/nb *)
|
---|
5 |
|
---|
6 | (* CreatedBy='Mathematica 7.0' *)
|
---|
7 |
|
---|
8 | (*CacheID: 234*)
|
---|
9 | (* Internal cache information:
|
---|
10 | NotebookFileLineBreakTest
|
---|
11 | NotebookFileLineBreakTest
|
---|
12 | NotebookDataPosition[ 145, 7]
|
---|
13 | NotebookDataLength[ 16891, 387]
|
---|
14 | NotebookOptionsPosition[ 15815, 346]
|
---|
15 | NotebookOutlinePosition[ 16192, 363]
|
---|
16 | CellTagsIndexPosition[ 16149, 360]
|
---|
17 | WindowFrame->Normal*)
|
---|
18 |
|
---|
19 | (* Beginning of Notebook Content *)
|
---|
20 | Notebook[{
|
---|
21 | Cell[BoxData[
|
---|
22 | RowBox[{"Quit", "[", "]"}]], "Input",
|
---|
23 | CellChangeTimes->{{3.7638865422974358`*^9, 3.763886542860983*^9}, {
|
---|
24 | 3.767372147789777*^9, 3.7673721483716993`*^9}}],
|
---|
25 |
|
---|
26 | Cell[CellGroupData[{
|
---|
27 |
|
---|
28 | Cell["Setup", "Section",
|
---|
29 | CellChangeTimes->{{3.518892288721245*^9, 3.518892291440427*^9}, {
|
---|
30 | 3.648272586359296*^9, 3.648272589589151*^9}, {3.744951163067635*^9,
|
---|
31 | 3.744951164882929*^9}}],
|
---|
32 |
|
---|
33 | Cell[BoxData[{
|
---|
34 | RowBox[{
|
---|
35 | RowBox[{"$FeynRulesPath", "=",
|
---|
36 | RowBox[{"SetDirectory", "[", "\"\<<FeynRules-path>\>\"", "]"}]}],
|
---|
37 | ";"}], "\[IndentingNewLine]",
|
---|
38 | RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
|
---|
39 | RowBox[{
|
---|
40 | RowBox[{"SetDirectory", "[",
|
---|
41 | RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
|
---|
42 | ";"}], "\[IndentingNewLine]",
|
---|
43 | RowBox[{
|
---|
44 | RowBox[{"LoadModel", "[",
|
---|
45 | RowBox[{"\"\<sm.fr\>\"", ",", "\"\<dmsimpt_v1.2.fr\>\""}], "]"}],
|
---|
46 | ";"}]}], "Input",
|
---|
47 | CellChangeTimes->{{3.715342142509688*^9, 3.715342163031452*^9}, {
|
---|
48 | 3.715344057238492*^9, 3.715344058291609*^9}, {3.7178506900799713`*^9,
|
---|
49 | 3.717850690973333*^9}, {3.7180002809816017`*^9, 3.718000300883692*^9}, {
|
---|
50 | 3.718000394980835*^9, 3.7180003951009827`*^9}, {3.745153113604156*^9,
|
---|
51 | 3.745153113886346*^9}, {3.757403422964182*^9, 3.757403423697225*^9}, {
|
---|
52 | 3.758251145793989*^9, 3.7582511468706083`*^9}, 3.7582513470889874`*^9, {
|
---|
53 | 3.76335111930016*^9, 3.763351139093457*^9}, {3.7633511693483973`*^9,
|
---|
54 | 3.763351173687544*^9}, {3.763886545633397*^9, 3.763886571907737*^9},
|
---|
55 | 3.767099220292862*^9, {3.767374514400957*^9, 3.767374515454331*^9}, {
|
---|
56 | 3.767375022418717*^9, 3.76737502255937*^9}, {3.7674580186709423`*^9,
|
---|
57 | 3.767458019546134*^9}, {3.767610478088133*^9, 3.767610507175609*^9}, {
|
---|
58 | 3.767610538533186*^9, 3.76761053951677*^9}, {3.767610603703107*^9,
|
---|
59 | 3.7676106297846937`*^9}, {3.7676900131323767`*^9,
|
---|
60 | 3.7676900151887627`*^9}, {3.76858524470041*^9, 3.768585245204138*^9},
|
---|
61 | 3.7813360361054363`*^9, {3.787998176454199*^9, 3.787998182520714*^9}, {
|
---|
62 | 3.787998229044076*^9, 3.7879982315047207`*^9}}]
|
---|
63 | }, Open ]],
|
---|
64 |
|
---|
65 | Cell[CellGroupData[{
|
---|
66 |
|
---|
67 | Cell["Some tests with the model", "Section",
|
---|
68 | CellChangeTimes->{{3.767692787921207*^9, 3.7676927912711573`*^9}}],
|
---|
69 |
|
---|
70 | Cell[BoxData[
|
---|
71 | RowBox[{
|
---|
72 | RowBox[{"ldmt", " ", "=", " ",
|
---|
73 | RowBox[{"ExpandIndices", "[", "LDMSIMPt", "]"}]}], ";"}]], "Input",
|
---|
74 | CellChangeTimes->{{3.781336183950905*^9, 3.781336191215129*^9}}],
|
---|
75 |
|
---|
76 | Cell[BoxData[
|
---|
77 | RowBox[{"GetMassSpectrum", "[", "ldmt", "]"}]], "Input",
|
---|
78 | CellChangeTimes->{{3.767610740950831*^9, 3.7676107602572117`*^9}, {
|
---|
79 | 3.781336051591538*^9, 3.78133606108606*^9}, 3.7813361099861307`*^9, {
|
---|
80 | 3.781336188767009*^9, 3.7813361897629137`*^9}}],
|
---|
81 |
|
---|
82 | Cell[BoxData[
|
---|
83 | RowBox[{"CheckDiagonalQuadraticTerms", "[", "ldmt", "]"}]], "Input",
|
---|
84 | CellChangeTimes->{{3.7676895540665007`*^9, 3.7676895951953173`*^9}, {
|
---|
85 | 3.781336198255192*^9, 3.781336198734817*^9}}],
|
---|
86 |
|
---|
87 | Cell[BoxData[
|
---|
88 | RowBox[{"CheckKineticTermNormalisation", "[", "ldmt", "]"}]], "Input",
|
---|
89 | CellChangeTimes->{{3.7676896174849567`*^9, 3.767689625546659*^9}, {
|
---|
90 | 3.781336201268805*^9, 3.781336201722522*^9}}],
|
---|
91 |
|
---|
92 | Cell[BoxData[
|
---|
93 | RowBox[{"CheckMassSpectrum", "[", "ldmt", "]"}]], "Input",
|
---|
94 | CellChangeTimes->{{3.767689518861446*^9, 3.767689528147897*^9}, {
|
---|
95 | 3.781341832372389*^9, 3.781341832878992*^9}}]
|
---|
96 | }, Open ]],
|
---|
97 |
|
---|
98 | Cell[CellGroupData[{
|
---|
99 |
|
---|
100 | Cell["Generating the NLO contributions", "Section",
|
---|
101 | CellChangeTimes->{{3.642999850465013*^9, 3.642999854784058*^9}}],
|
---|
102 |
|
---|
103 | Cell[BoxData[{
|
---|
104 | RowBox[{
|
---|
105 | RowBox[{"SetDirectory", "[",
|
---|
106 | RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
|
---|
107 | ";"}], "\[IndentingNewLine]",
|
---|
108 | RowBox[{"LoadRestriction", "[",
|
---|
109 | RowBox[{"\"\<DiagonalCKM.rst\>\"", ",", "\"\<Massless_5f.rst\>\""}],
|
---|
110 | "]"}], "\[IndentingNewLine]",
|
---|
111 | RowBox[{
|
---|
112 | RowBox[{"Lren", "=",
|
---|
113 | RowBox[{"OnShellRenormalization", "[",
|
---|
114 | RowBox[{
|
---|
115 | RowBox[{"ExpandIndices", "[",
|
---|
116 | RowBox[{"LSM", "+", "LDMSIMPt"}], "]"}], ",",
|
---|
117 | RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
|
---|
118 | RowBox[{"FlavorMixing", "\[Rule]", "False"}]}], "]"}]}],
|
---|
119 | ";"}], "\[IndentingNewLine]",
|
---|
120 | RowBox[{
|
---|
121 | RowBox[{"WriteFeynArtsOutput", "[",
|
---|
122 | RowBox[{"Lren", ",",
|
---|
123 | RowBox[{"Output", "\[Rule]", "\"\<DMsimpt_v1_2_FA\>\""}], ",",
|
---|
124 | RowBox[{"ConservedQuantumNumbers", "\[Rule]", "Q"}]}], "]"}],
|
---|
125 | ";"}]}], "Input",
|
---|
126 | CellChangeTimes->{{3.6429998579231567`*^9, 3.642999859329811*^9}, {
|
---|
127 | 3.643276600822646*^9, 3.643276602600128*^9}, 3.643452302817659*^9, {
|
---|
128 | 3.643480537105691*^9, 3.643480544715995*^9}, {3.643505764015731*^9,
|
---|
129 | 3.643505765417059*^9}, {3.644167428496661*^9, 3.644167429429887*^9}, {
|
---|
130 | 3.644562474709917*^9, 3.6445624788370237`*^9}, {3.6446876189863234`*^9,
|
---|
131 | 3.644687621537224*^9}, {3.644687662149605*^9, 3.644687673094878*^9}, {
|
---|
132 | 3.644687705747959*^9, 3.6446877072824593`*^9}, {3.644716329653895*^9,
|
---|
133 | 3.644716337245138*^9}, {3.653766992283938*^9, 3.6537669926652613`*^9}, {
|
---|
134 | 3.66486033666195*^9, 3.664860348452221*^9}, {3.6651967505902653`*^9,
|
---|
135 | 3.66519675295021*^9}, {3.666353407678645*^9, 3.6663534078574247`*^9}, {
|
---|
136 | 3.6696408162954607`*^9, 3.6696408168073807`*^9}, {3.680924453059774*^9,
|
---|
137 | 3.680924453696932*^9}, {3.684872238601376*^9, 3.684872238783848*^9}, {
|
---|
138 | 3.685101810835946*^9, 3.6851018117067204`*^9}, {3.685258606756963*^9,
|
---|
139 | 3.685258632938881*^9}, {3.7022822288595123`*^9, 3.7022822295009947`*^9}, {
|
---|
140 | 3.705919839077444*^9, 3.7059198410538063`*^9}, {3.7196587589519463`*^9,
|
---|
141 | 3.7196587651284313`*^9}, {3.7676928183490562`*^9,
|
---|
142 | 3.7676928418497753`*^9}, {3.767692880674725*^9, 3.767692886898861*^9}, {
|
---|
143 | 3.767693498862368*^9, 3.767693501513042*^9}, {3.767696534455364*^9,
|
---|
144 | 3.7676965469737167`*^9}, {3.781341692617463*^9, 3.781341693849312*^9}, {
|
---|
145 | 3.7813418682918777`*^9, 3.7813418691373663`*^9}}],
|
---|
146 |
|
---|
147 | Cell[BoxData[
|
---|
148 | RowBox[{"Quit", "[", "]"}]], "Input",
|
---|
149 | CellChangeTimes->{{3.642999917153137*^9, 3.642999917670817*^9}}],
|
---|
150 |
|
---|
151 | Cell[CellGroupData[{
|
---|
152 |
|
---|
153 | Cell["The following part takes about 2 hours", "Subsubsection",
|
---|
154 | CellChangeTimes->{{3.768618629083808*^9, 3.768618637043517*^9}}],
|
---|
155 |
|
---|
156 | Cell[BoxData[{
|
---|
157 | RowBox[{"<<", " ", "FeynArts`"}], "\[IndentingNewLine]",
|
---|
158 | RowBox[{
|
---|
159 | RowBox[{"SetDirectory", "[", "\"\<<FeynRules-path\>\"", "]"}],
|
---|
160 | ";"}], "\[IndentingNewLine]",
|
---|
161 | RowBox[{"<<", " ", "NLOCT`"}], "\[IndentingNewLine]",
|
---|
162 | RowBox[{
|
---|
163 | RowBox[{"SetDirectory", "[",
|
---|
164 | RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
|
---|
165 | ";"}], "\[IndentingNewLine]",
|
---|
166 | RowBox[{
|
---|
167 | RowBox[{"WriteCT", "[",
|
---|
168 | RowBox[{
|
---|
169 | "\"\<DMsimpt_5FNS_FA/DMsimpt_v1_2_FA\>\"", ",",
|
---|
170 | "\"\<DMsimpt_5FNS_FA/DMsimpt_v1_2_FA\>\"", ",", "\[IndentingNewLine]",
|
---|
171 | RowBox[{"Output", "->", "\"\<DMsimpt_v1_2\>\""}], ",",
|
---|
172 | "\[IndentingNewLine]",
|
---|
173 | RowBox[{"LabelInternal", "\[Rule]", "True"}], ",",
|
---|
174 | RowBox[{"QCDOnly", "\[Rule]", "True"}], ",",
|
---|
175 | RowBox[{"KeptIndices", "\[Rule]",
|
---|
176 | RowBox[{"{", "}"}]}], ",",
|
---|
177 | RowBox[{"ZeroMom", "\[Rule]",
|
---|
178 | RowBox[{"{",
|
---|
179 | RowBox[{"{",
|
---|
180 | RowBox[{"aS", ",",
|
---|
181 | RowBox[{"{",
|
---|
182 | RowBox[{
|
---|
183 | RowBox[{"F", "[", "7", "]"}], ",",
|
---|
184 | RowBox[{"V", "[", "4", "]"}], ",",
|
---|
185 | RowBox[{"-",
|
---|
186 | RowBox[{"F", "[", "7", "]"}]}]}], "}"}], ",", "0"}], "}"}],
|
---|
187 | "}"}]}], ",", "\[IndentingNewLine]",
|
---|
188 | RowBox[{"Assumptions", "->",
|
---|
189 | RowBox[{"{", "\[IndentingNewLine]",
|
---|
190 | RowBox[{
|
---|
191 | RowBox[{"MT", ">", "0"}], ",", "\[IndentingNewLine]",
|
---|
192 | RowBox[{"MXs", ">", "0"}], ",",
|
---|
193 | RowBox[{"MXm", ">", "0"}], ",",
|
---|
194 | RowBox[{"MXv", ">", "0"}], ",",
|
---|
195 | RowBox[{"MXc", ">", "0"}], ",",
|
---|
196 | RowBox[{"MXw", ">", "0"}], ",",
|
---|
197 | RowBox[{"MXd", ">", "0"}], ",", " ",
|
---|
198 | RowBox[{"MYS3Qu1", ">", "0"}], ",",
|
---|
199 | RowBox[{"MYS3Qu2", ">", "0"}], ",",
|
---|
200 | RowBox[{"MYS3Qu3", ">", "0"}], ",",
|
---|
201 | RowBox[{"MYS3u1", ">", "0"}], ",",
|
---|
202 | RowBox[{"MYS3u2", ">", "0"}], ",",
|
---|
203 | RowBox[{"MYS3u3", ">", "0"}], ",", "\[IndentingNewLine]",
|
---|
204 | RowBox[{"MYS3Qd1", ">", "0"}], ",",
|
---|
205 | RowBox[{"MYS3Qd2", ">", "0"}], ",",
|
---|
206 | RowBox[{"MYS3Qd3", ">", "0"}], ",",
|
---|
207 | RowBox[{"MYS3d1", ">", "0"}], ",",
|
---|
208 | RowBox[{"MYS3d2", ">", "0"}], ",",
|
---|
209 | RowBox[{"MYS3d3", ">", "0"}], ",", " ",
|
---|
210 | RowBox[{"MYF3Qu1", ">", "0"}], ",",
|
---|
211 | RowBox[{"MYF3Qu2", ">", "0"}], ",",
|
---|
212 | RowBox[{"MYF3Qu3", ">", "0"}], ",",
|
---|
213 | RowBox[{"MYF3u1", ">", "0"}], ",",
|
---|
214 | RowBox[{"MYF3u2", ">", "0"}], ",",
|
---|
215 | RowBox[{"MYF3u3", ">", "0"}], ",", "\[IndentingNewLine]",
|
---|
216 | RowBox[{"MYF3Qd1", ">", "0"}], ",",
|
---|
217 | RowBox[{"MYF3Qd2", ">", "0"}], ",",
|
---|
218 | RowBox[{"MYF3Qd3", ">", "0"}], ",",
|
---|
219 | RowBox[{"MYF3d1", ">", "0"}], ",",
|
---|
220 | RowBox[{"MYF3d2", ">", "0"}], ",",
|
---|
221 | RowBox[{"MYF3d3", ">", "0"}]}], "\[IndentingNewLine]", "}"}]}], ",",
|
---|
222 | "\[IndentingNewLine]",
|
---|
223 | RowBox[{"CTparameters", "\[Rule]", "True"}], ",",
|
---|
224 | RowBox[{"MaxDim", "\[Rule]", "4"}], ",",
|
---|
225 | RowBox[{"EvenOnly", "\[Rule]", "False"}], ",",
|
---|
226 | RowBox[{"IsFeynmanGauge", "\[Rule]", "True"}]}], "]"}], ";"}]}], "Input",
|
---|
227 | CellChangeTimes->{{3.642999923841711*^9, 3.642999971642317*^9}, {
|
---|
228 | 3.6430000242728033`*^9, 3.6430000258010807`*^9}, {3.643000095706285*^9,
|
---|
229 | 3.643000131827043*^9}, 3.643130451253806*^9, {3.64348055340506*^9,
|
---|
230 | 3.6434805576479883`*^9}, {3.643505367192779*^9, 3.64350537935256*^9}, {
|
---|
231 | 3.644148039245747*^9, 3.644148042099621*^9}, {3.6441484397475653`*^9,
|
---|
232 | 3.644148448904045*^9}, {3.6441699926794443`*^9, 3.644170028874009*^9}, {
|
---|
233 | 3.644562487653529*^9, 3.644562523323406*^9}, {3.644688360980824*^9,
|
---|
234 | 3.644688386313058*^9}, {3.6446884667375603`*^9, 3.644688489652257*^9}, {
|
---|
235 | 3.644688523143263*^9, 3.644688525417777*^9}, {3.644688597819372*^9,
|
---|
236 | 3.64468860628026*^9}, {3.644688740582252*^9, 3.644688753170827*^9}, {
|
---|
237 | 3.644689067130622*^9, 3.6446890722102203`*^9}, {3.644716655505249*^9,
|
---|
238 | 3.644716662092123*^9}, {3.6537477330376*^9, 3.653747733378034*^9}, {
|
---|
239 | 3.653767291988488*^9, 3.653767310117466*^9}, {3.664861289489751*^9,
|
---|
240 | 3.664861292258481*^9}, 3.664863692532228*^9, {3.664867992675673*^9,
|
---|
241 | 3.664867993234062*^9}, {3.664868576870771*^9, 3.664868577096312*^9}, {
|
---|
242 | 3.665197213131104*^9, 3.6651972517927322`*^9}, 3.665224591796699*^9, {
|
---|
243 | 3.6652246469325542`*^9, 3.6652246689666843`*^9}, 3.66522470623314*^9, {
|
---|
244 | 3.666353902841914*^9, 3.666353914000782*^9}, {3.680925124972067*^9,
|
---|
245 | 3.680925151786419*^9}, {3.68487289426202*^9, 3.68487290445006*^9}, {
|
---|
246 | 3.685102785032526*^9, 3.685102805534514*^9}, {3.6852586646434383`*^9,
|
---|
247 | 3.685258799023717*^9}, {3.685296637485779*^9, 3.6852966377979794`*^9}, {
|
---|
248 | 3.702282507829064*^9, 3.702282517906333*^9}, {3.7059200467759657`*^9,
|
---|
249 | 3.705920084081114*^9}, {3.7155691757631693`*^9, 3.715569226231048*^9}, {
|
---|
250 | 3.7196601365561113`*^9, 3.719660158999943*^9}, {3.767693883945985*^9,
|
---|
251 | 3.767694033308322*^9}, {3.781413981225663*^9, 3.7814140015802794`*^9}, {
|
---|
252 | 3.78799824185106*^9, 3.787998260428205*^9}, {3.7879982967676897`*^9,
|
---|
253 | 3.7879983127861757`*^9}}]
|
---|
254 | }, Open ]]
|
---|
255 | }, Open ]],
|
---|
256 |
|
---|
257 | Cell[CellGroupData[{
|
---|
258 |
|
---|
259 | Cell["Generating the UFO model files", "Section",
|
---|
260 | CellChangeTimes->{{3.518892302672626*^9, 3.518892305688608*^9}}],
|
---|
261 |
|
---|
262 | Cell[BoxData[
|
---|
263 | RowBox[{"Quit", "[", "]"}]], "Input",
|
---|
264 | CellChangeTimes->{{3.643510536070684*^9, 3.643510536921255*^9}, {
|
---|
265 | 3.685115982897347*^9, 3.685115983927444*^9}}],
|
---|
266 |
|
---|
267 | Cell[BoxData[{
|
---|
268 | RowBox[{
|
---|
269 | RowBox[{"$FeynRulesPath", "=",
|
---|
270 | RowBox[{"SetDirectory", "[", "\"\<<FeynRules-path\>\"", "]"}]}],
|
---|
271 | ";"}], "\[IndentingNewLine]",
|
---|
272 | RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
|
---|
273 | RowBox[{
|
---|
274 | RowBox[{"SetDirectory", "[",
|
---|
275 | RowBox[{"NotebookDirectory", "[", "]"}], "]"}],
|
---|
276 | ";"}], "\[IndentingNewLine]",
|
---|
277 | RowBox[{
|
---|
278 | RowBox[{"LoadModel", "[",
|
---|
279 | RowBox[{"\"\<sm.fr\>\"", ",", "\"\<dmsimpt_v1.2.fr\>\""}], "]"}],
|
---|
280 | ";"}], "\[IndentingNewLine]",
|
---|
281 | RowBox[{
|
---|
282 | RowBox[{"LoadRestriction", "[",
|
---|
283 | RowBox[{"\"\<DiagonalCKM.rst\>\"", ",", "\"\<Massless_5f.rst\>\""}], "]"}],
|
---|
284 | ";"}], "\[IndentingNewLine]",
|
---|
285 | RowBox[{
|
---|
286 | RowBox[{"Get", "[", "\"\<DMsimpt_v1_2.nlo\>\"", "]"}],
|
---|
287 | ";"}], "\[IndentingNewLine]",
|
---|
288 | RowBox[{
|
---|
289 | RowBox[{"WriteUFO", "[",
|
---|
290 | RowBox[{
|
---|
291 | RowBox[{"ExpandIndices", "[",
|
---|
292 | RowBox[{"LSM", "+", "LDMSIMPt"}], "]"}], ",",
|
---|
293 | RowBox[{"UVCounterterms", "\[Rule]",
|
---|
294 | RowBox[{"(",
|
---|
295 | RowBox[{"UV$vertlist", "/.",
|
---|
296 | RowBox[{"{",
|
---|
297 | RowBox[{
|
---|
298 | RowBox[{"FR$IR", "\[Rule]", "1"}], ",",
|
---|
299 | RowBox[{"FR$IRLog", "\[Rule]", "1"}]}], "}"}]}], ")"}]}], " ", ",",
|
---|
300 | RowBox[{"R2Vertices", "\[Rule]", "R2$vertlist"}], ",", " ",
|
---|
301 | RowBox[{"CTParameters", "\[Rule]",
|
---|
302 | RowBox[{"(",
|
---|
303 | RowBox[{"FR$CTparam", "/.",
|
---|
304 | RowBox[{"{",
|
---|
305 | RowBox[{
|
---|
306 | RowBox[{"FR$IR", "\[Rule]", "1"}], ",",
|
---|
307 | RowBox[{"FR$IRLog", "\[Rule]", "1"}]}], "}"}]}], ")"}]}], ",",
|
---|
308 | RowBox[{"Output", "\[Rule]", "\"\<DMSimpt_NLO_v1_2_UFO\>\""}], ",",
|
---|
309 | RowBox[{"ConservedQuantumNumbers", "\[Rule]", "Q"}]}], "]"}],
|
---|
310 | ";"}]}], "Input",
|
---|
311 | CellChangeTimes->{{3.616474426822394*^9, 3.616474431300906*^9}, {
|
---|
312 | 3.616474476497079*^9, 3.616474500189231*^9}, 3.616474613066862*^9, {
|
---|
313 | 3.616494779207423*^9, 3.616494783828376*^9}, {3.616580249965948*^9,
|
---|
314 | 3.616580268353311*^9}, {3.616580334915408*^9, 3.616580354074359*^9}, {
|
---|
315 | 3.616730859450924*^9, 3.6167308627148323`*^9}, {3.618221520121941*^9,
|
---|
316 | 3.618221562907246*^9}, {3.618575869806182*^9, 3.6185758768210573`*^9}, {
|
---|
317 | 3.622267142817052*^9, 3.622267158950058*^9}, {3.622517903231851*^9,
|
---|
318 | 3.6225179034762793`*^9}, {3.643130455506323*^9, 3.643130457362434*^9}, {
|
---|
319 | 3.6434346190475397`*^9, 3.643434619424014*^9}, {3.64348057990516*^9,
|
---|
320 | 3.643480585441132*^9}, {3.643510546826219*^9, 3.643510547036009*^9},
|
---|
321 | 3.643510612235943*^9, {3.644167155986382*^9, 3.644167191812931*^9},
|
---|
322 | 3.644167230066971*^9, {3.6441963555808783`*^9, 3.644196376311118*^9}, {
|
---|
323 | 3.644655765357386*^9, 3.644655792069653*^9}, {3.644657487967403*^9,
|
---|
324 | 3.644657488293757*^9}, {3.644690534728881*^9, 3.644690564194496*^9}, {
|
---|
325 | 3.644718127240486*^9, 3.644718150450329*^9}, {3.644773045108694*^9,
|
---|
326 | 3.64477305063905*^9}, {3.6648679275349216`*^9, 3.664867941450377*^9}, {
|
---|
327 | 3.66486800077952*^9, 3.664868030360639*^9}, 3.665157439581449*^9, {
|
---|
328 | 3.665167780369707*^9, 3.665167780545179*^9}, {3.665168588211299*^9,
|
---|
329 | 3.665168592717914*^9}, {3.6651971988810463`*^9, 3.66519722299328*^9}, {
|
---|
330 | 3.665202155064212*^9, 3.665202192262845*^9}, {3.665203934931046*^9,
|
---|
331 | 3.665203948163241*^9}, {3.6652275940615873`*^9, 3.665227626288574*^9}, {
|
---|
332 | 3.666370588762989*^9, 3.666370599370613*^9}, {3.6809283770423527`*^9,
|
---|
333 | 3.680928391177864*^9}, {3.6809284597589483`*^9, 3.680928468565295*^9}, {
|
---|
334 | 3.6850905415403833`*^9, 3.685090563522331*^9}, {3.685115987844707*^9,
|
---|
335 | 3.685116002486989*^9}, {3.685296608849427*^9, 3.68529667156424*^9},
|
---|
336 | 3.685296720871242*^9, {3.7004397932622633`*^9, 3.700439818286146*^9}, {
|
---|
337 | 3.702287485923066*^9, 3.702287489851747*^9}, {3.7027196245861387`*^9,
|
---|
338 | 3.702719662830946*^9}, {3.70593026317251*^9, 3.705930278721766*^9}, {
|
---|
339 | 3.7059383683537188`*^9, 3.70593839697304*^9}, {3.719671059944165*^9,
|
---|
340 | 3.7196710793237*^9}, 3.719671534996559*^9, {3.767696470779224*^9,
|
---|
341 | 3.767696479654022*^9}, {3.767696557679223*^9, 3.767696575761361*^9}, {
|
---|
342 | 3.767703118281695*^9, 3.7677030816273823`*^9}, {3.76770356577351*^9,
|
---|
343 | 3.767703584369676*^9}, {3.781509394665051*^9, 3.78150943303577*^9}, {
|
---|
344 | 3.787998319494505*^9, 3.7879983270071917`*^9}}]
|
---|
345 | }, Open ]]
|
---|
346 | },
|
---|
347 | WindowSize->{1311, 939},
|
---|
348 | WindowMargins->{{Automatic, 78}, {30, Automatic}},
|
---|
349 | ShowSelection->True,
|
---|
350 | FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 11, \
|
---|
351 | 2016)",
|
---|
352 | StyleDefinitions->"Default.nb"
|
---|
353 | ]
|
---|
354 | (* End of Notebook Content *)
|
---|
355 |
|
---|
356 | (* Internal cache information *)
|
---|
357 | (*CellTagsOutline
|
---|
358 | CellTagsIndex->{}
|
---|
359 | *)
|
---|
360 | (*CellTagsIndex
|
---|
361 | CellTagsIndex->{}
|
---|
362 | *)
|
---|
363 | (*NotebookFileOutline
|
---|
364 | Notebook[{
|
---|
365 | Cell[545, 20, 171, 3, 28, "Input"],
|
---|
366 | Cell[CellGroupData[{
|
---|
367 | Cell[741, 27, 188, 3, 64, "Section"],
|
---|
368 | Cell[932, 32, 1604, 29, 80, "Input"]
|
---|
369 | }, Open ]],
|
---|
370 | Cell[CellGroupData[{
|
---|
371 | Cell[2573, 66, 112, 1, 64, "Section"],
|
---|
372 | Cell[2688, 69, 194, 4, 28, "Input"],
|
---|
373 | Cell[2885, 75, 264, 4, 28, "Input"],
|
---|
374 | Cell[3152, 81, 202, 3, 28, "Input"],
|
---|
375 | Cell[3357, 86, 202, 3, 28, "Input"],
|
---|
376 | Cell[3562, 91, 188, 3, 28, "Input"]
|
---|
377 | }, Open ]],
|
---|
378 | Cell[CellGroupData[{
|
---|
379 | Cell[3787, 99, 117, 1, 64, "Section"],
|
---|
380 | Cell[3907, 102, 2279, 42, 80, "Input"],
|
---|
381 | Cell[6189, 146, 118, 2, 28, "Input"],
|
---|
382 | Cell[CellGroupData[{
|
---|
383 | Cell[6332, 152, 129, 1, 35, "Subsubsection"],
|
---|
384 | Cell[6464, 155, 4908, 97, 250, "Input"]
|
---|
385 | }, Open ]]
|
---|
386 | }, Open ]],
|
---|
387 | Cell[CellGroupData[{
|
---|
388 | Cell[11421, 258, 115, 1, 64, "Section"],
|
---|
389 | Cell[11539, 261, 167, 3, 28, "Input"],
|
---|
390 | Cell[11709, 266, 4090, 77, 148, "Input"]
|
---|
391 | }, Open ]]
|
---|
392 | }
|
---|
393 | ]
|
---|
394 | *)
|
---|
395 |
|
---|