-
Notifications
You must be signed in to change notification settings - Fork 4
/
Semianalytic_BBN_Estimates.nb
4962 lines (4914 loc) · 280 KB
/
Semianalytic_BBN_Estimates.nb
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 10.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 286976, 4953]
NotebookOptionsPosition[ 285588, 4904]
NotebookOutlinePosition[ 285944, 4920]
CellTagsIndexPosition[ 285901, 4917]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{
RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",
CellChangeTimes->{{3.645555709931423*^9, 3.6455557157447233`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"\[Lambda]", "=",
RowBox[{"\[Lambda]", "/.",
RowBox[{"FindRoot", "[",
RowBox[{
RowBox[{
SuperscriptBox["E", "\[Lambda]"], "\[Equal]",
FractionBox[
SuperscriptBox["\[Lambda]", "2"],
RowBox[{"0.244", " ", "6.1", " ",
SuperscriptBox["10",
RowBox[{"-", "10"}]],
SuperscriptBox["\[Pi]", "2"]}]]}], ",",
RowBox[{"{",
RowBox[{"\[Lambda]", ",", "25"}], "}"}]}], "]"}]}]}]], "Input",
CellChangeTimes->{{3.645553876058344*^9, 3.645553908471695*^9}, {
3.6455556481970997`*^9, 3.645555651426736*^9}, {3.6455566965110607`*^9,
3.645556724531884*^9}, {3.6455586077207737`*^9, 3.645558614292801*^9}, {
3.645866535746426*^9, 3.6458665359468803`*^9}}],
Cell[BoxData["26.924783829541823`"], "Output",
CellChangeTimes->{
3.645553908856587*^9, 3.645555717251058*^9, {3.64555669848993*^9,
3.645556724920947*^9}, 3.645556822368637*^9, 3.645556915426033*^9, {
3.64555853237582*^9, 3.645558566372389*^9}, 3.6455586149993057`*^9,
3.645559109294951*^9, 3.645589100968039*^9, 3.645781067842011*^9,
3.6458195030712337`*^9, {3.645819612918515*^9, 3.6458196276613073`*^9}, {
3.645866536864749*^9, 3.645866540721848*^9}, 3.6458759517767467`*^9}]
}, Open ]],
Cell[BoxData[{
RowBox[{
RowBox[{"M", "=",
RowBox[{"1.22", " ",
SuperscriptBox["10", "22"]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"G", "=",
FractionBox["1",
SuperscriptBox["M", "2"]]}], ";"}], "\n",
RowBox[{
RowBox[{
SubscriptBox["G", "F"], "=",
FractionBox["1",
SuperscriptBox[
RowBox[{"(",
RowBox[{"3", "*",
SuperscriptBox["10", "5"]}], ")"}], "2"]]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"s", "=",
FractionBox[
SuperscriptBox["10", "22"], "6.58"]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"g", "[", "n_", "]"}], ":=",
RowBox[{"2", "+",
RowBox[{
FractionBox["7", "8"], "2", "n",
SuperscriptBox[
RowBox[{"(",
FractionBox["11", "4"], ")"}],
FractionBox["4", "3"]]}]}]}], ";"}]}], "Input",
CellChangeTimes->{{3.645555310029166*^9, 3.645555332392488*^9}, {
3.645555726517138*^9, 3.6455557308483686`*^9}, {3.645556200663785*^9,
3.645556220981102*^9}, {3.645588897512582*^9, 3.6455889209823837`*^9}, {
3.645591435368639*^9, 3.645591451055191*^9}, {3.645876103423553*^9,
3.645876111700657*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"\[CapitalDelta]m", "=", "1.2933"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"Tn", "[",
RowBox[{"n_:", "3"}], "]"}], ":=",
SuperscriptBox[
RowBox[{"(",
FractionBox[
RowBox[{"1.66", " ",
SqrtBox[
RowBox[{
RowBox[{"g", "[", "n", "]"}], " "}]]}],
RowBox[{"30", " ", "1.2", " ", "M", " ",
SuperscriptBox[
SubscriptBox["G", "F"], "2"]}]], ")"}],
FractionBox["1", "3"]]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Td", "=", "0.065"}], ";",
RowBox[{"(*",
RowBox[{"0.065", ";"}], "*)"}],
FractionBox["2.22", "\[Lambda]"]}]}], "Input",
CellChangeTimes->{{3.645553979319117*^9, 3.645553985395838*^9}, {
3.64555529866495*^9, 3.645555300568426*^9}, {3.6455555624121113`*^9,
3.645555604242697*^9}, {3.645555775319998*^9, 3.645555791663764*^9}, {
3.645555944760846*^9, 3.645555944834841*^9}, {3.645556019861967*^9,
3.645556022298883*^9}, 3.645556104200638*^9, {3.645557094499249*^9,
3.64555711093154*^9}, {3.645558428158024*^9, 3.645558562625246*^9}, {
3.645558620055236*^9, 3.645558622247027*^9}, {3.645591386811392*^9,
3.645591492719453*^9}, {3.645780618941352*^9, 3.645780693386689*^9}, {
3.645781284535418*^9, 3.645781305853764*^9}, {3.6457819672918653`*^9,
3.645782025742618*^9}, {3.645819454644137*^9, 3.645819519721299*^9}, {
3.645819643463416*^9, 3.6458196440970907`*^9}, {3.645820116244124*^9,
3.645820146524569*^9}, 3.645865114905396*^9, {3.6458760136841288`*^9,
3.6458760154599037`*^9}}],
Cell[BoxData["0.08245191545657723`"], "Output",
CellChangeTimes->{3.645865115436445*^9, 3.64586654298059*^9,
3.645875953176991*^9, 3.645876016206942*^9, 3.6458761135626583`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Tn", "[", "3", "]"}], "\[IndentingNewLine]",
RowBox[{"Tn", "[",
RowBox[{"3", "+",
RowBox[{
FractionBox["7", "8"], "4"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"Tn", "[", "19", "]"}]}], "Input",
CellChangeTimes->{{3.645820068832122*^9, 3.645820102165543*^9}}],
Cell[BoxData["0.5245551088148862`"], "Output",
CellChangeTimes->{{3.6458200811013393`*^9, 3.645820148197878*^9},
3.645875954178492*^9, 3.645876019056345*^9, 3.6458761368399143`*^9}],
Cell[BoxData["0.5917819189510999`"], "Output",
CellChangeTimes->{{3.6458200811013393`*^9, 3.645820148197878*^9},
3.645875954178492*^9, 3.645876019056345*^9, 3.645876136850932*^9}],
Cell[BoxData["0.704195100225897`"], "Output",
CellChangeTimes->{{3.6458200811013393`*^9, 3.645820148197878*^9},
3.645875954178492*^9, 3.645876019056345*^9, 3.645876136860196*^9}]
}, Open ]],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"t", "[",
RowBox[{"T_", ",", "g_"}], "]"}], ":=",
FractionBox["M",
RowBox[{"2", " ",
SuperscriptBox["T", "2"], "1.66", " ",
SqrtBox["g"]}]]}], ";"}], "\n",
RowBox[{
RowBox[{
RowBox[{"\[CapitalDelta]", "[",
RowBox[{"nd_", ",", "nn_"}], "]"}], ":=",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"t", "[",
RowBox[{"Td", ",",
RowBox[{"g", "[", "nd", "]"}]}], "]"}], "-",
RowBox[{"t", "[",
RowBox[{
RowBox[{"Tn", "[", "nn", "]"}], ",",
RowBox[{"g", "[", "nn", "]"}]}], "]"}]}], ")"}], "/", "s"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Tau]", "=", "885.7"}], ";"}], "\n",
RowBox[{
RowBox[{"np", "[",
RowBox[{"nd_", ",", "nn_"}], "]"}], ":=",
RowBox[{"N", "[",
RowBox[{
SuperscriptBox["E",
RowBox[{"-",
FractionBox["\[CapitalDelta]m",
RowBox[{"Tn", "[", "nn", "]"}]]}]],
SuperscriptBox["E",
RowBox[{"-",
FractionBox[
RowBox[{"\[CapitalDelta]", "[",
RowBox[{"nd", ",", "nn"}], "]"}], "\[Tau]"]}]]}], "]"}]}]}], "Input",
CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQB2IQzeNfsCZc87WjxxaXzSA6RPeLXQSQLvq10xFEp0UE
1oFovZo2MF0WKHMQRM9ONT0KFl9tcw6sTnTVVRD92SvkFogOiNO/DaJ1mq0Y
I4E0X1sMmL557x4niJbj8+QC0UdEP6mC6B07qtVBdLWSlhGI9sopBtNzVuha
g+g3i8RtQHTLlOC9IPqGXgWYjlHQE40C2VsUKQmi93y6ZACirbuXGIHolVPn
bcsA0hJBl8G06l6FEyA6IOzraRDtk7D7Ooju0z4Bpkv8C9+AaKYFX96DaCOW
hxGZQNplnUosiP7mHCh6Aki3fT8uAaL56/XcbwLp4/1yniB6gt25ABA9Le5X
BIje9Lg7AUT7nbBMBNEAK7+n4A==
"]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"\[CapitalDelta]", "[",
RowBox[{"3.31", ",", "17.9"}], "]"}], "\[IndentingNewLine]",
RowBox[{"np", "[",
RowBox[{"3.31", ",", "17.9"}], "]"}]}], "Input",
CellChangeTimes->{{3.6455557596758537`*^9, 3.645555760585688*^9}, {
3.645556447500079*^9, 3.645556451534356*^9}, {3.6455591177343073`*^9,
3.6455591184093857`*^9}, {3.645784282614518*^9, 3.645784287030444*^9}, {
3.6458195681705017`*^9, 3.6458196069704247`*^9}, {3.645820003823094*^9,
3.64582002760572*^9}, {3.645875937304772*^9, 3.6458759452215137`*^9}}],
Cell[BoxData["115.60577085427461`"], "Output",
CellChangeTimes->{
3.645555761085219*^9, {3.6455558095109997`*^9, 3.645555824101612*^9},
3.6455559525699244`*^9, 3.645556026242622*^9, {3.645556109857646*^9,
3.6455561155001574`*^9}, {3.645556224493189*^9, 3.6455562632352324`*^9},
3.645556398889682*^9, 3.6455564437508993`*^9, {3.6455567306986732`*^9,
3.6455567481868887`*^9}, 3.64555682682703*^9, 3.645556919036553*^9, {
3.645557041015119*^9, 3.6455570589366217`*^9}, {3.645557107636832*^9,
3.645557141236767*^9}, 3.6455582533546467`*^9, {3.645558433366324*^9,
3.64555856664371*^9}, 3.645558625678523*^9, {3.6455589701077127`*^9,
3.6455589796507597`*^9}, {3.6455591137793903`*^9,
3.6455591190114317`*^9}, {3.645559176208921*^9, 3.645559190839183*^9},
3.645588923643826*^9, {3.645589091473179*^9, 3.6455891010358143`*^9}, {
3.64558917438813*^9, 3.645589184314571*^9}, 3.6455893808269863`*^9, {
3.645590232305934*^9, 3.6455902510700493`*^9}, 3.645591495601284*^9,
3.645782030899843*^9, {3.645784274518923*^9, 3.645784287521723*^9}, {
3.645819528058798*^9, 3.645819564269597*^9}, {3.6458195943881683`*^9,
3.645819631449601*^9}, 3.645819662391738*^9, {3.645820008270734*^9,
3.645820032194201*^9}, 3.6458201515635643`*^9, {3.645875946028101*^9,
3.645875959501728*^9}, 3.645876021330124*^9, 3.6458761425127707`*^9}],
Cell[BoxData["0.13736087209932113`"], "Output",
CellChangeTimes->{
3.645555761085219*^9, {3.6455558095109997`*^9, 3.645555824101612*^9},
3.6455559525699244`*^9, 3.645556026242622*^9, {3.645556109857646*^9,
3.6455561155001574`*^9}, {3.645556224493189*^9, 3.6455562632352324`*^9},
3.645556398889682*^9, 3.6455564437508993`*^9, {3.6455567306986732`*^9,
3.6455567481868887`*^9}, 3.64555682682703*^9, 3.645556919036553*^9, {
3.645557041015119*^9, 3.6455570589366217`*^9}, {3.645557107636832*^9,
3.645557141236767*^9}, 3.6455582533546467`*^9, {3.645558433366324*^9,
3.64555856664371*^9}, 3.645558625678523*^9, {3.6455589701077127`*^9,
3.6455589796507597`*^9}, {3.6455591137793903`*^9,
3.6455591190114317`*^9}, {3.645559176208921*^9, 3.645559190839183*^9},
3.645588923643826*^9, {3.645589091473179*^9, 3.6455891010358143`*^9}, {
3.64558917438813*^9, 3.645589184314571*^9}, 3.6455893808269863`*^9, {
3.645590232305934*^9, 3.6455902510700493`*^9}, 3.645591495601284*^9,
3.645782030899843*^9, {3.645784274518923*^9, 3.645784287521723*^9}, {
3.645819528058798*^9, 3.645819564269597*^9}, {3.6458195943881683`*^9,
3.645819631449601*^9}, 3.645819662391738*^9, {3.645820008270734*^9,
3.645820032194201*^9}, 3.6458201515635643`*^9, {3.645875946028101*^9,
3.645875959501728*^9}, 3.645876021330124*^9, 3.645876142520255*^9}]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"He", "[",
RowBox[{"nd_", ",", "nn_"}], "]"}], ":=",
FractionBox[
RowBox[{"2",
RowBox[{"np", "[",
RowBox[{"nd", ",", "nn"}], "]"}]}],
RowBox[{"1", "+",
RowBox[{"np", "[",
RowBox[{"nd", ",", "nn"}], "]"}]}]]}]], "Input",
CellChangeTimes->{{3.6455564550296593`*^9, 3.6455564553359013`*^9}, {
3.645556488250684*^9, 3.645556560030846*^9}, {3.6455566207693987`*^9,
3.645556653463723*^9}, {3.645558988334592*^9, 3.6455589964598417`*^9}, {
3.645784294391615*^9, 3.645784302951356*^9}, {3.6458196684875813`*^9,
3.645819673463912*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"He", "[",
RowBox[{"3", ",", "19"}], "]"}], "\[IndentingNewLine]",
RowBox[{"He", "[",
RowBox[{"3.046", ",", "19"}], "]"}], "\[IndentingNewLine]",
RowBox[{"He", "[",
RowBox[{"4", ",", "20"}], "]"}]}], "Input",
CellChangeTimes->{{3.645556534130163*^9, 3.645556534905869*^9}, {
3.64555674069238*^9, 3.645556788719174*^9}, {3.645559000221465*^9,
3.645559006138241*^9}, {3.6457843207489843`*^9, 3.64578432856699*^9}, {
3.645819676161406*^9, 3.645819684983251*^9}, {3.645820039811534*^9,
3.645820051315838*^9}}],
Cell[BoxData["0.24410484410219352`"], "Output",
CellChangeTimes->{
3.645556535615451*^9, 3.645556626002472*^9, 3.645556661113199*^9, {
3.64555673303153*^9, 3.6455567891281633`*^9}, 3.645556829410243*^9,
3.6455569213623943`*^9, {3.645557044633562*^9, 3.645557061142722*^9}, {
3.6455571160890512`*^9, 3.645557162380356*^9}, 3.645558167293436*^9,
3.645558255767705*^9, {3.6455584365986757`*^9, 3.645558566791067*^9},
3.645558627792334*^9, {3.645558997824565*^9, 3.6455590066061373`*^9},
3.645559120951961*^9, {3.645559178224125*^9, 3.645559192779139*^9},
3.6455891011173887`*^9, 3.645589186511742*^9, 3.645589382820065*^9,
3.645591499357842*^9, 3.645782052239316*^9, 3.645784328955318*^9, {
3.645819677233904*^9, 3.6458196855080347`*^9}, {3.645820040846319*^9,
3.645820051954516*^9}, 3.645820155476413*^9, 3.6458761873628893`*^9}],
Cell[BoxData["0.24430772140082632`"], "Output",
CellChangeTimes->{
3.645556535615451*^9, 3.645556626002472*^9, 3.645556661113199*^9, {
3.64555673303153*^9, 3.6455567891281633`*^9}, 3.645556829410243*^9,
3.6455569213623943`*^9, {3.645557044633562*^9, 3.645557061142722*^9}, {
3.6455571160890512`*^9, 3.645557162380356*^9}, 3.645558167293436*^9,
3.645558255767705*^9, {3.6455584365986757`*^9, 3.645558566791067*^9},
3.645558627792334*^9, {3.645558997824565*^9, 3.6455590066061373`*^9},
3.645559120951961*^9, {3.645559178224125*^9, 3.645559192779139*^9},
3.6455891011173887`*^9, 3.645589186511742*^9, 3.645589382820065*^9,
3.645591499357842*^9, 3.645782052239316*^9, 3.645784328955318*^9, {
3.645819677233904*^9, 3.6458196855080347`*^9}, {3.645820040846319*^9,
3.645820051954516*^9}, 3.645820155476413*^9, 3.645876187371398*^9}],
Cell[BoxData["0.25113052024368054`"], "Output",
CellChangeTimes->{
3.645556535615451*^9, 3.645556626002472*^9, 3.645556661113199*^9, {
3.64555673303153*^9, 3.6455567891281633`*^9}, 3.645556829410243*^9,
3.6455569213623943`*^9, {3.645557044633562*^9, 3.645557061142722*^9}, {
3.6455571160890512`*^9, 3.645557162380356*^9}, 3.645558167293436*^9,
3.645558255767705*^9, {3.6455584365986757`*^9, 3.645558566791067*^9},
3.645558627792334*^9, {3.645558997824565*^9, 3.6455590066061373`*^9},
3.645559120951961*^9, {3.645559178224125*^9, 3.645559192779139*^9},
3.6455891011173887`*^9, 3.645589186511742*^9, 3.645589382820065*^9,
3.645591499357842*^9, 3.645782052239316*^9, 3.645784328955318*^9, {
3.645819677233904*^9, 3.6458196855080347`*^9}, {3.645820040846319*^9,
3.645820051954516*^9}, 3.645820155476413*^9, 3.645876187378127*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Row", "[",
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"He", "[",
RowBox[{"n", ",", "19"}], "]"}], ",", "0.2565", ",", "0.2635", ",",
"0.2495"}], "}"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "0", ",", "10"}], "}"}], ",",
RowBox[{
"PlotLabel", "\[Rule]",
"\"\<He dependence on \!\(\*SubscriptBox[\(N\), \(eff\)]\) at \
BBN\>\""}], ",",
RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"He", "[",
RowBox[{"3", ",", "n"}], "]"}], ",", "0.2565", ",", "0.2635", ",",
"0.2495"}], "}"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "15", ",", "25"}], "}"}], ",",
RowBox[{
"PlotLabel", "\[Rule]",
"\"\<He dependence on \!\(\*SubscriptBox[\(N\), \(eff\)]\) at n \
decoupling\>\""}], ",",
RowBox[{"ImageSize", "\[Rule]", "300"}]}], "]"}]}],
"\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]",
RowBox[{"Plot3D", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"He", "[",
RowBox[{"n", ",", "m"}], "]"}], ",", "0.2565", ",", "0.2635", ",",
"0.2495"}], "}"}], ",",
RowBox[{"{",
RowBox[{"n", ",", "0", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"m", ",", "15", ",", "25"}], "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{",",
RowBox[{"Opacity", "[", "0.3", "]"}], ",",
RowBox[{"Opacity", "[", "0.3", "]"}], ",",
RowBox[{"Opacity", "[", "0.3", "]"}]}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"ContourPlot", "[",
RowBox[{
RowBox[{"He", "[",
RowBox[{"nd", ",", "nn"}], "]"}], ",",
RowBox[{"{",
RowBox[{"nd", ",", "0", ",", "10"}], "}"}], ",",
RowBox[{"{",
RowBox[{"nn", ",", "15", ",", "25"}], "}"}], ",",
RowBox[{"Contours", "\[Rule]",
RowBox[{"{",
RowBox[{"0.2495", ",", "0.2565", ",", "0.2635"}], "}"}]}], ",",
RowBox[{"PlotLegends", "\[Rule]", "Automatic"}], ",",
RowBox[{"ColorFunction", "\[Rule]",
RowBox[{"ColorData", "[", "\"\<Pastel\>\"", "]"}]}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\<\!\(\*SubscriptBox[\(N\), \(eff\)]\) at BBN\>\"", ",",
"\"\<\!\(\*SubscriptBox[\(N\), \(eff\)]\) at n decoupling\>\""}],
"}"}]}], ",",
RowBox[{"Frame", "\[Rule]", "False"}], ",",
RowBox[{"Axes", "->", "True"}], ",",
RowBox[{"Epilog", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"PointSize", "[", "Large", "]"}], ",",
RowBox[{"Point", "[",
RowBox[{"{",
RowBox[{"3.046", ",", "19"}], "}"}], "]"}], ",",
RowBox[{"Text", "[",
RowBox[{"\"\<SBBN\>\"", ",",
RowBox[{"{",
RowBox[{"3.046", ",", " ", "18.5"}], "}"}]}], "]"}]}], "}"}]}], ",",
RowBox[{
"PlotLabel", "\[Rule]",
"\"\<He dependence on \!\(\*SubscriptBox[\(N\), \(\(eff\)\(\\\ \)\)]\)at \
BBN and n decoupling time\>\""}]}], "]"}]}], "Input",
CellChangeTimes->{{3.645556790200067*^9, 3.645556797906446*^9}, {
3.6455568384262457`*^9, 3.645556855553071*^9}, {3.645556892874282*^9,
3.645556893016878*^9}, {3.645559008415736*^9, 3.645559009033658*^9},
3.645784189118361*^9, {3.645818451946741*^9, 3.6458184765329638`*^9}, {
3.645818527621443*^9, 3.645818545893365*^9}, {3.6458197026610117`*^9,
3.64581984519669*^9}, {3.645819890163197*^9, 3.645819940744782*^9}, {
3.645820176120729*^9, 3.645820186449194*^9}, 3.64582039261621*^9, {
3.6458204251498203`*^9, 3.6458204401803837`*^9}, {3.645864137834684*^9,
3.645864150397016*^9}, {3.6458641912068253`*^9, 3.6458643348883266`*^9}, {
3.645864374183629*^9, 3.645864525037445*^9}, {3.645864561547241*^9,
3.6458646345090103`*^9}, {3.6458647337235126`*^9, 3.645864914499692*^9}}],
Cell[BoxData[
TemplateBox[{GraphicsBox[{{{}, {}, {
Directive[
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJwV1Xs0lXkXB3CXIs0xb4dc47g8xkxKQ1K5dPaPRpKTpGZcVy5hpCORWUJT
ukjlHOQkFd4oSbzooklqJPfLeZ7np5O8ya1ck1503MrtfeaPvfb6rLX/2Gv/
8d0GAeFuQXIyMjKnmPqn7/P+IyfCn4LIkMufTwAJOTGcz8ZjNLw0v/PDuT0k
sN9MuilvwLCbW3rx+T4S3MK9fk4MxJDg+P39T+4ktOX+MBzbimGLZ1rzBj8S
OhSeewYUtcIWqdZL56Mk9OFhW3NfCRQoyynOJZNgFOqiVZQuAep9MrskjYRg
+bIpI7EEHgc8eOR5lYRhy1MlmlavQelomkFmNgmjN9T0ZVTbQLO0k9tURMJ0
oL08Xf8G5h3SFwbqSVD6mtnE39ABd2MNMgtnSdia+DZ2l38HePxRnPH7HAkh
ahrrf7rSAXV+apv0F0moN09L7vvaAT2X9ePOyVNwLvTCPq+6d6AesPuU9vcU
yHRGdTn6dEE+bVCbYEhBXE/+cbZDL9y3WDOWtZOCtHyHvfEHeqE5Wabw/S4K
CsP6145F98LDMYVNxG4KOuYM3okLeyFomC/J2kvBVs3sbRdWvQdumRzrsBcF
064iuaV378HX6FJczGEKIqpPCUYj+0A+tLjqUhIFs+wrxe+S+iCXL5vHF1Jw
0r+Aas7rg9Ffyix5KRQIZFpX3XvTB4oLTtHLRBQUcA3Tg6z7QVG3ZsrzBgW9
FbXZ3bIDYEjmNWUVUOD6SKkUpw7CiK2g4N81FLTLcfCLe4PAOp53j1tHwQG3
jRMl1YOw6QnZ0VlPAX/Cy0I4OQgeLEmHajMFF37+zxMnjyGos+CW8DEFL4pc
qqr1hmHUuPKwuJOCDXmi1rKSj8CulUo9JilYfc1spqrpIyy4kvf7piiYSyJ1
yP6PsP+G6Cl/hoLGY4ohA9oj0G8Z/SzmGwUB2+MW1RJHQM6GfHNKhob0DwHr
on0/wW93R+WBRcO8/sYEq1WfoS6WfybLkIYBlxCdnq3j4BguY+HlTMPqer7R
SYdxMI6fWIzm0WC/LWK9rts4bD+d++rKbhpy1sXaeh8eBz29nqste2jwWSHw
ac8eh0bljKem+2l49bI0i5abgDxDIr3Oh4bKTTM6VeIJOENpneeF0ZChfV43
108K5Trur6aTaJjuo+66HJHC2gpPkVRAw/5ijY3zcVIIEy6cGxPSoILu7XDP
kEKn5/XF/hQaBEHicGVKCvwTlYfqRTTE31epjrGZhGeWw8qBmTSE7LgZ7KY+
Bcc07K+zC2mwiiwvlRdPg4FZRWhIHQ14yeZAxNtp2OMXpW1ZT0Ow8AWrZ3Aa
5hQCrWQbaEgrqD9UITsDbQqpDRmNNIx0vyYitszAW55oS2ULDVnOExndt2ag
/nPC9HgrDYtGJvFPY2bB/pHA9ksXDTXtma7hP34Djz/Tfjk7SYO5YJGr6bQA
neo1RerKGBwHrXvM3GXQoNmf3e0cDEOmfzlMjsoiKO6dPWSKIW7+osXzWHl0
24MtMLHGoMgePrTfZDkKNbY7d2UHhuXkcsfv/lZA225Kc1buxTBHFfPTIlYg
3o385x7eGAbcS7Q4nJXooQvrwGUmV+wuHAlrLP4OXV80so7lY0hfLFfa7quM
7MAyITgKg7dODa9T+j06CUVsuzgMrKp1o4a/rkLXIg6y1p7BEGR5a8pzPRsl
TR21ibmAIfrkcTf9KTbqMW29tSBkcmtEJKEoFTTeGXU/U4SBZ/KvAtYNVVSt
UW2bdA2DsHhzFc9/NfpUxa/gZGNo3nd7PspKDfXmlam05mKoIsMF6+XV0Vdn
Hm/2DoaHoaeRuEsdKWuvU+IWYuA4w9YjZRrIHsuHWpVg2L7kc/bmCU1kpidM
qHmAIfDNiy/lv2oh/R1K68IeY+CePvPYX18bSU62uj4ox5AWPvGMNaSN7tiX
j1U/w/Ah/s7gzco1yLnQbEhaieFT0NPA6kQdFLbprjL9EsN4mIoi6a+LHFn/
U2qsxVDi1DIfbMpBlt5zbZENGAZDzDbLT3HQoX2bJTNNGLSLOkSJpB5KMa6s
vS7GcNYv8hbprI+WOO3qsxSGmXktofNTfeTwo+lABJPrPz3LuN5sZICuufou
NUkwWB6s28O+aIC4suoGQ23MPbLUNMVTBkhgLLjD+S8zX6V2ycXbEOXwjvjp
dTB/Y/mo7qtKQ5Q9PStR6GT2fddf02RCoAR+SqJiN4bwLKHqxRQCNeTjxPYe
DGJZo7Fdlwlk8dLgdA9jk98rmlkiAiGbwzFDjPvNh06nXiXQbfPh4BnGHg1o
PCObQLu9Uy01ejHYf5GK84sIJFzRkvsbY/WdXudrGwiUkRDx5DXjY8Xj/ueb
CJQeZZPayRirJG7b2UKg7r+XhfQzTup6NNlCEcjZ+urqScYyx5QPStoIhCUV
/qrvMYxkV8GHPgIpcazFexk7yruvyRsgkJWVaron47yQz9NBQwSyVR3z8Wfs
a6Fd8nGEQHc7Sj8eZfy68ZjOxASB1K94z6QwNt+wcvahlEAuZ13LMxgni3Ik
UVPMfl1Ox28ydjpAXpqdJdD2gl1TJYzzaw4GV3wj0NwZt4d/MV629pvdiXkC
BWX7Hqlk7J+cqstdJFD8+si19YwrpcZfl5YIZBd0qY9k/H9Jx/xH
"]]}, {
Directive[
Opacity[1.],
RGBColor[0.880722, 0.611041, 0.142051],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQPbcuic0wpdvuotLtn3VZF+wfJq4Teyu/0x7Grw7M
TngtfxLO5/w5+2SO3i04v/BQfc+bosdwvt6SyRe3rHsJ5z/1y5C5b/EBzp8u
1Sa7MOEznG9ZtGM985lvcP7h67MD8tV/wfmGPf/sJDz/wvnuz6zuG4QzOMD4
z3W3uX55wwjnV//pNN5TxQznswu+yAzRYoXzWc+yunPvZYPzf59bmzOpkAPO
fxq+TlJOjgvOd+zIyz2xlhvOn/pvB6dzPC+cHy1z2OfOZz44n+eA9hulUAE4
P9V00ddIHUE4v7yuIkjhK4Lf+mry5XPnhOB8Hy3+FTyzhOH83rVmB3wSReD8
U8GL/5RYisL5B87m9+gwi8H5m7IaHc7cRfDlvO0t8raIw/nO/2Oa59dIwPkp
1/Z/2hEqCefbNTZtTVSQgvMn5X/czfMcwX/UsPTZ/H3ScP7r1J0ph9pl4PwP
uULsZxNl4fx1nqf/pOnKwfnPMgzMmL8i+FKrb01uPysP5zcnFC06660A53//
I9nrvRPB19g9feYpFUU43zT5qL9gJ4J/YI6oxJmvCL7GAdEuv2glON+X9Y3s
pX0I/ofbTw6f1FKG8/Pn9Ap39iP4Yh5RbUeOI/j7Pqv9/P8fwQcA096wuQ==
"]]}, {
Directive[
Opacity[1.],
RGBColor[0.560181, 0.691569, 0.194885],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQPbcuic0wpduufN98Kf27F+wfJq4Teyu/0x7Grw7M
TngtfxLO5/w5+2SO3i04v/BQfc+bosdwvt6SyRe3rHsJ5z/1y5C5b/EBzp8u
1Sa7MOEznG9ZtGM985lvcP7h67MD8tV/wfmGPf/sJDz/wvnuz6zuG4QzOMD4
z3W3uX55wwjnV//pNN5TxQznswu+yAzRYoXzWc+yunPvZYPzf59bmzOpkAPO
fxq+TlJOjgvOd+zIyz2xlhvOn/pvB6dzPC+cHy1z2OfOZz44n+eA9hulUAE4
P9V00ddIHUE4v7yuIkjhK4Lf+mry5XPnhOB8Hy3+FTyzhOH83rVmB3wSReD8
U8GL/5RYisL5B87m9+gwi8H5m7IaHc7cRfDlvO0t8raIw/nO/2Oa59dIwPkp
1/Z/2hEqCefbNTZtTVSQgvMn5X/czfMcwX/UsPTZ/H3ScP7r1J0ph9pl4PwP
uULsZxNl4fx1nqf/pOnKwfnPMgzMmL8i+FKrb01uPysP5zcnFC06660A53//
I9nrvRPB19g9feYpFUU43zT5qL9gJ4J/YI6oxJmvCL7GAdEuv2glON+X9Y3s
pX0I/ofbTw6f1FKG8/Pn9Ap39iP4Yh5RbUeOI/j7Pqv9/P8fwQcAXeGL9Q==
"]]}, {
Directive[
Opacity[1.],
RGBColor[0.922526, 0.385626, 0.209179],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQPbcuic0wpdsujE9309z35+0fJq4Teyu/0x7Grw7M
TngtfxLO5/w5+2SO3i04v/BQfc+bosdwvt6SyRe3rHsJ5z/1y5C5b/EBzp8u
1Sa7MOEznG9ZtGM985lvcP7h67MD8tV/wfmGPf/sJDz/wvnuz6zuG4QzOMD4
z3W3uX55wwjnV//pNN5TxQznswu+yAzRYoXzWc+yunPvZYPzf59bmzOpkAPO
fxq+TlJOjgvOd+zIyz2xlhvOn/pvB6dzPC+cHy1z2OfOZz44n+eA9hulUAE4
P9V00ddIHUE4v7yuIkjhK4Lf+mry5XPnhOB8Hy3+FTyzhOH83rVmB3wSReD8
U8GL/5RYisL5B87m9+gwi8H5m7IaHc7cRfDlvO0t8raIw/nO/2Oa59dIwPkp
1/Z/2hEqCefbNTZtTVSQgvMn5X/czfMcwX/UsPTZ/H3ScP7r1J0ph9pl4PwP
uULsZxNl4fx1nqf/pOnKwfnPMgzMmL8i+FKrb01uPysP5zcnFC06660A53//
I9nrvRPB19g9feYpFUU43zT5qL9gJ4J/YI6oxJmvCL7GAdEuv2glON+X9Y3s
pX0I/ofbTw6f1FKG8/Pn9Ap39iP4Yh5RbUeOI/j7Pqv9/P8fwQcAYgCDBQ==
"]]}}}, {
DisplayFunction -> Identity, AspectRatio ->
NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True},
AxesLabel -> {None, None}, AxesOrigin -> {0, 0.227}, DisplayFunction :>
Identity, Frame -> {{False, False}, {False, False}},
FrameLabel -> {{None, None}, {None, None}},
FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}},
GridLines -> {None, None}, GridLinesStyle -> Directive[
GrayLevel[0.5, 0.4]], ImageSize -> 300,
Method -> {
"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
PlotLabel ->
FormBox["\"He dependence on \\!\\(\\*SubscriptBox[\\(N\\), \\(eff\\)]\\) \
at BBN\"", TraditionalForm],
PlotRange -> {{0, 10}, {0.22849999999999998`, 0.26378199787867024`}},
PlotRangeClipping -> True, PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],
GraphicsBox[{{{}, {}, {
Directive[
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJwVzntUjAkYBvDpZisVjtDIMbW5tI4+c2vmo/K+ypASKxalccvMkZ04dhQt
USK1aliVlZiNSlpSyCWVdUy3rW3m+6ZBLplSyiUqo3Rlv/3jOc/5/fGc87hu
3RUsM2exWEFM/m9fu6djWCwCswPTyicUaaH6mtLqlBmBYjU7+jDjgFUOljMs
CLyRtHSOiXHwaT8z/zEEVhDnDhuKtbDV5drwCTsC+0dEptM3tJAgTOjhsAlU
Becapt7WQmWYxzPgE5iR1pk1vUILSwrjCw9tI9AgcV0/uV4LtcblciVNYNS0
vd1T3mph1khNLSGeh8Jwr9EqSx0sWsAOen92HgZU2jRncnTw8Uh1b6oFF9ls
RKm3Dgq2NE2wFXHxg0ytfb1WB27Hhhc8UHBxue/0mGClDvZX2PRFX+TiakWr
rkOlg4dvuhN+N3DRQhyXs+6yDmrDOp07bHkoPyO3ztbooLzqdpLah4dAOOqp
FzpQwe7Edbt4mP81yG1Rnw445j6pAXk8vNdtU3j/Owr+LG3ZfuEJD7PqFlg9
n0jBy9KMIL4DH3N8xm9vcqFguM5To/Hjo3Kb0Trag4IxdKF9aRQfDQMflc7z
KaA44i1vrvDRxuCoPCehIDn8TPL+l3zsmmLJmbOKArMe2zL/SQKcdWirUSWl
YF3q9tjJgQJck3fU6mwEBVkctaN/rAClprOKe3soUA+1l9y8KcCFdRONV+Mo
OFlnMSehQ4CK1IL+u8cp2HzFnrvaSYjzivWw5zQF3QZ3kK4QovpWbMvIBQoU
Jme3+jghyoa6Ci5dpeByqMt45R0hJr/nNLPvUqDRj1M5fxCi36riUG8NBf/C
k5bZHE/0eldDHmugIL2vyHvnT574c3PO+D+aKAjI3hzplOSJYbziYf0rCowb
RghNqSeekNhlVnVRINhcMJjf7YnWJYPWMV8oiAohMntcRZjSnta10YyG6KzK
Rcr1Itx4fYmHuR0NMj3/75DjImwd9PZ9PokGwdSUBqwQYdkvfQ07OTQ8+Ku/
fYtJhO77zjWV/UCDF3c+3TFTjJHSshOLBTREfU2pzgsTY/mj/tQEHxpSm+uX
y06J0ee3xvcHltKQfv1VflKlGEMyX5y/8yMNoVpbu44hMW56HPQuN5QGhxZb
Sb4HieO+Re1+HE5Dtnm/Q8QmEr0J9uxaBQ29kZ9at2WQaCxptYiIpoGnrU6u
rCFR//1e99WHaGhhndqbV0viQFWb7lfGKoFUlvgPs1eMRl1k3HXGhP71JLpM
I+/3Mr4U7jJQryXx5MGGhSfjaJg2GCNvfETiYM9xVkM8DdYzPPxetZGY5/E5
UXKEhjtrB7iadhL3q+daRjKWJ2um574m8W2zY1w6Y83HkCFZJ4lK1z5lG+OD
pYnX374j8bz7l8D4ozR8XtHC6e1l/mU5VpQn0pATf8Ve/4nEHRvWzGxnHFwS
PXzDROLLQEnK2GM0FLHtn+zpI3Gqk9faUMY72uerBgZITKzZ9+wLY6cpVgee
DpJYvm8xyUmioWYZFXFviMTgsQ/TlzCeUSSXHBgh8dbcxmUZjBtbeQLpKImx
nfKL5YwPO466LPxKYs7zq4NtjLlLax0430h04+StHJtMgzEmbeQb4081K3P5
jP8DmClRVg==
"]]}, {
Directive[
Opacity[1.],
RGBColor[0.880722, 0.611041, 0.142051],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7cRzk42BQc/hotLtn3VZF+yPxOjesjdC8N3WNq6t
T0HwT9z3SSu+iOCr/Tl+Qs9cH853tJL0fT0LwX/XcuxjL7MBnL8y8YYglxmC
r9z+2+pADoJfvZfza9kiBP/Qi/fNE68g+Cdinks/4zKE8/cc3dYxzxbB77Mv
bAvPR/DlmWx7vZYi+PN3PshYeB3Bv7dzqq8RnxGc//uU6eHDzgg+28W1vDtL
EfwL8uaJL1Yj+J3JMzqr7yH4jB+4dnuIGsP54b0ZtWLeCP5s+XkiHrUI/rxf
T7Zs3ozgTzjFrNX8DMFPWM1rECxhAue/v6JhH+uH4Od8llY+3YDgr4hSECje
juAfvsTfJ/0WwT9jf/2BurwpnD/l63qbvFAE32tBQq5EB4J/P/qP3uGdCL5x
wsqfy98j+KWRejM/KJrB+WWzjzgWRyD4qZeM9kd2I/jGUj1nHfYi+AdWfXuS
+BnBtzawvPhM1Rxh/r+eY0tjEPzeu6d9Uich+FM2PlrecQTBjzrHxfPsF4LP
94DLdbmuBZy/gOkbX2Y8gv8x99PDlKkIvuG5Y51HjiP4HCq6zo8eI/j3Kyf/
+f8fwQcAy0qvUQ==
"]]}, {
Directive[
Opacity[1.],
RGBColor[0.560181, 0.691569, 0.194885],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7cRzk42BQc+hfN98Kf27F+yPxOjesjdC8N3WNq6t
T0HwT9z3SSu+iOCr/Tl+Qs9cH853tJL0fT0LwX/XcuxjL7MBnL8y8YYglxmC
r9z+2+pADoJfvZfza9kiBP/Qi/fNE68g+Cdinks/4zKE8/cc3dYxzxbB77Mv
bAvPR/DlmWx7vZYi+PN3PshYeB3Bv7dzqq8RnxGc//uU6eHDzgg+28W1vDtL
EfwL8uaJL1Yj+J3JMzqr7yH4jB+4dnuIGsP54b0ZtWLeCP5s+XkiHrUI/rxf
T7Zs3ozgTzjFrNX8DMFPWM1rECxhAue/v6JhH+uH4Od8llY+3YDgr4hSECje
juAfvsTfJ/0WwT9jf/2BurwpnD/l63qbvFAE32tBQq5EB4J/P/qP3uGdCL5x
wsqfy98j+KWRejM/KJrB+WWzjzgWRyD4qZeM9kd2I/jGUj1nHfYi+AdWfXuS
+BnBtzawvPhM1Rxh/r+eY0tjEPzeu6d9Uich+FM2PlrecQTBjzrHxfPsF4LP
94DLdbmuBZy/gOkbX2Y8gv8x99PDlKkIvuG5Y51HjiP4HCq6zo8eI/j3Kyf/
+f8fwQcAVU2KjQ==
"]]}, {
Directive[
Opacity[1.],
RGBColor[0.922526, 0.385626, 0.209179],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQ7cRzk42BQc8hjE9309z35+2PxOjesjdC8N3WNq6t
T0HwT9z3SSu+iOCr/Tl+Qs9cH853tJL0fT0LwX/XcuxjL7MBnL8y8YYglxmC
r9z+2+pADoJfvZfza9kiBP/Qi/fNE68g+Cdinks/4zKE8/cc3dYxzxbB77Mv
bAvPR/DlmWx7vZYi+PN3PshYeB3Bv7dzqq8RnxGc//uU6eHDzgg+28W1vDtL
EfwL8uaJL1Yj+J3JMzqr7yH4jB+4dnuIGsP54b0ZtWLeCP5s+XkiHrUI/rxf
T7Zs3ozgTzjFrNX8DMFPWM1rECxhAue/v6JhH+uH4Od8llY+3YDgr4hSECje
juAfvsTfJ/0WwT9jf/2BurwpnD/l63qbvFAE32tBQq5EB4J/P/qP3uGdCL5x
wsqfy98j+KWRejM/KJrB+WWzjzgWRyD4qZeM9kd2I/jGUj1nHfYi+AdWfXuS
+BnBtzawvPhM1Rxh/r+eY0tjEPzeu6d9Uich+FM2PlrecQTBjzrHxfPsF4LP
94DLdbmuBZy/gOkbX2Y8gv8x99PDlKkIvuG5Y51HjiP4HCq6zo8eI/j3Kyf/
+f8fwQcAWWyBnQ==
"]]}}}, {
DisplayFunction -> Identity, AspectRatio ->
NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True},
AxesLabel -> {None, None}, AxesOrigin -> {16., 0.23800000000000002`},
DisplayFunction :> Identity, Frame -> {{False, False}, {False, False}},
FrameLabel -> {{None, None}, {None, None}},
FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}},
GridLines -> {None, None}, GridLinesStyle -> Directive[
GrayLevel[0.5, 0.4]], ImageSize -> 300,
Method -> {
"DefaultBoundaryStyle" -> Automatic, "ScalingFunctions" -> None},
PlotLabel ->
FormBox["\"He dependence on \\!\\(\\*SubscriptBox[\\(N\\), \\(eff\\)]\\) \
at n decoupling\"", TraditionalForm],
PlotRange -> {{15, 25}, {0.23971769054204817`, 0.27399889036234903`}},
PlotRangeClipping -> True, PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}]},
"RowDefault"]], "Output",
CellChangeTimes->{
3.645556798693771*^9, {3.6455568307497187`*^9, 3.645556844608363*^9}, {
3.6455568947210083`*^9, 3.645556922720807*^9}, {3.645557047623783*^9,
3.6455570621128273`*^9}, {3.64555711914196*^9, 3.6455571638308163`*^9},
3.645558168706262*^9, 3.6455582572236423`*^9, {3.6455584379220552`*^9,
3.6455585669095173`*^9}, 3.645558628817944*^9, 3.645559009561829*^9,
3.645559122425706*^9, {3.645559179255281*^9, 3.645559193885158*^9},
3.6455891012370853`*^9, 3.645589190537532*^9, 3.645589384032464*^9,
3.645591500391839*^9, 3.64578205402127*^9, 3.645784190073577*^9,
3.645784331455513*^9, 3.6458184788889647`*^9, {3.64581853098263*^9,
3.6458185471070223`*^9}, {3.64581970724776*^9, 3.645819734431921*^9}, {
3.645819770445191*^9, 3.645819816968657*^9}, {3.64581989213552*^9,
3.645819942936677*^9}, {3.6458201680595207`*^9, 3.645820186992209*^9}, {
3.645820388371325*^9, 3.645820394034503*^9}, 3.645820440926263*^9, {
3.645864130433173*^9, 3.6458641508152113`*^9}, {3.645864198545808*^9,
3.64586423469518*^9}, {3.645864297314762*^9, 3.645864335394161*^9}, {
3.64586440111736*^9, 3.6458644213514967`*^9}, {3.6458644932577953`*^9,
3.6458645256308603`*^9}, 3.645864571529272*^9, {3.645864610413555*^9,
3.645864634974394*^9}, 3.645864740936974*^9, {3.645864775175905*^9,
3.645864785038313*^9}, {3.64586483139083*^9, 3.645864879766736*^9},
3.645864916202528*^9}],
Cell[BoxData[
Graphics3DBox[GraphicsComplex3DBox[CompressedData["
1:eJyMnXl8TOf3+IMYYkmFGCIxEobWHksWtcxVa2xVe4WiqBax79oa+77FTu2q
9iVq31JVu2QmRauhgiDUvgSlye/OTc597j3nPN/fJ398vPr+nD5z5j03t8+c
c9wn5MuBbXrn9PLyau3v5ZVL/fNclcV3trz+qd7dLa+LeXlVUd4dGFD15z1n
HTkPzc4ckHzXAfzsuDzdq6ZccFz50uUYkJyu81JjuiR95broaP/y4bhYew4F
+C/f/Oh/8tMEh2P/sxsxyRadpza4W//G2gRH+THpjqjYAjrvX75HxuhrCY4Z
q/77NNbup/OCs4ZXzOOT6MjUforoPKD91hFfVkp0DOuRc1dMslXnle5eOt8+
KtFx/4R39+R9ATovfep41A89Eh1f2PMUiooN0vk3OevM/HxEouP3yT7x+2JK
6XzWuf29O0xLdGx4kTsy1h6i8+bPS7UqvTTR0U1bp7TOZ68+fbXcxkRHifZ5
0zIzy+h80b6ue/fEJTrA89rkN0/2xVRV8r/od3u3zzndM/D6fRpWHOK4qHsG
3qrogEOdqifonoGfb/PnD6X2CM/A261s8ai0JVH3rMcf3nPzy/qJumfgdXY/
7hUzQHgGfurQ+oyKscIz8DZNzkwbtFN4Bn651Yz8704Lz8BjW+yLfn5NeAZ+
ZO8vU0KeCM/Ab1W5tDggU3gG7r9n0Y/rLC7dM/CAm1OW/lvApXuuYvnv9r6Y
UKVgZKOPHF2EZ+D99wdEX18uPANfMjv+Yrt5wjPw0sGTOg4vnKh7Bv7Tg+hJ
Hb4SnoGP6dmha811wjPwDdtiNu5LFJ6BF8pXpuylF8Iz8A6735XZk9elewa+
Y8Hw1OJFXbpn4GculYraVcqlewZeb0e5tBsfuXTPwNc9r5/3WahL9wz8r339
lgRECs/AA0OXNplQT3ieqb2/akrUm6afr9kqPAN/lb7sh6PPhWfgJ/aer7Tl
gfAM/HhKm91FBwjPwD9fcDDq/AnhGXifKwtbKJnCM/AfHqxavdzq0j0Dt3sf
O3dF9QCegc8fktvrtwjhGfjbiVeToxoKz8DLrW158V0r4Rl4mYChAz7pJDwD
r+Loc7xPd+EZ+IC0AeHr+gjPwNe0rvOwxADhOS0843BMcjVlbm6lSOE3wjPw
cxPH3OvQJEH3DPzV0bi3q9Tfd/AMvLjzn2dNTgnPwJd+VWBtakGX7hl44dHf
r+xTyaV7Bv7OFVdoWQPhGXjLCOdZrw7CM/AC9kErCvcWnoEnfXGy2d7BwjPw
bfXy73Z+KzwDf/F2UY/rk4Vn4KG5W/la5wjPwB++qbirxyLhGXjU6a9P3F8h
PDdKzPgwKra64rshpOO5+ud1z8D/i575252lwjPwdmfWbBm8SHgGXjNX/nM/
qj7BM/B+sws0PRMpPAOfqwy9Oa+j8AzcJ7JEyOsBwjPwQf8s3D5tvPAM/MT+
8XFH5gnPwHfOq2f5dqXwDLxlwNS/u20SnoFfn+V/zL1beAb+/eFFOUoeEp6B
7781s9ToX4Rnff0jrmcfnBGe1/XJXGCPqqH41Aka/Xaa8AzcFXWv25p7wjPw
r2bdK9X5rvAMvMiK5ru2hQvPwP8pUDyq8pfCM/AlB367EjleeAb+4Y85/nYv
FZ6BTzvWfsPMrcKznmeVB7NSDgnPwH8vXqD/4dPCM/DdR7qf2pckPAP/aV6a
d91rwjPwsIMLPlqeKjwD31J5bbDlofAMPI//45Ctz4XnrPdRQ0nbvPbuuYvC
M/B/vn3YdX+NRN0z8NsTKjVqVMKlewZeMOTjSm2+EJ6Bd95ysE/lGcIz8NKD
EweN3iw8A9/3WdFuDX4RnoGvLuu4VeaS8Aw8YsHhEUtvC8/Ao/28r81+KjwD
f5H52dXV74Rn/f3WH7S3Vm637hn42e7jP9hU0K17Bn4gqmDzMkXdumfg3aov
fXk50K177rLUq3/yvppKk7Ebz/cudEH3DLxW/MerO3wnPANPPv1z0eKK8Az8
QLOKdbZPEp6B1zk94+8bu4Rn4Al+ZYv2dQnPwPNMml+hZ5rwDLz11GF5vnkn
PAM/m9yi7Pt8bt0z8Cm+DUrmL+7WPQNPa/Hjo+pl3Lpn4I5ppfbcqCQ8A//e
0uPHL8KEZ+CPoossTasjPANvnOLov6mB8HwwNMef+2LClN3zv1n5qLXwDLxI
xet//HhSeAaer4Tj3cFewjPwoArNdiRtFp6BV4grHvf5FeEZeOXPgp6UShee
gdfY9Mn0xr5u3TPwh/VDhg0Kceuegedp/SB/SDXhGfiQD2x7mtYTnoFX7N9j
4eQo4Rl4bOHryxu2FZ6Bt4+eMv/3aOEZ+ORiTQ706yk8A7fOjq8f2Vd4tp7N
0TDWHq502rdv7oS5wjPw1/YSM1K9Xbpn4P1qLJ5Vd5rwDLxb2N+9L18UnoFX
+Cwtffu/wjPw1LcdwneUcOuegZ/+eORFrxrCM/DMekfmtmwsPAO/8CZ6fYkO
wjPwDZkp9s49hWfgmx5G9Ng6QHgGnhhVIv+3o4Rn4HWSk8aWGC88A3888350
/DThGfiu4n9VWjZXeB6q5RuufJxnxpv6F4Rn4CNCJy4cVE54Br6y69j9e7YI
z8ALPiq9+NRT4Rn4h2MfF3hc0q17Bt41fXvfcvWEZ+AvvT+Zu76D8Ax8b/e5
uQv3FZ6BF9n748Z/RwvPwE+2OPbxZ1OFZ+DHW638cF+s8Az87A7fm0t+EJ6B
/1OkULNGPwrPwCdf/WLQm23CM/Cr1uMh1/cIz663OYOiYiOUo9cr/dg4z0Xd
M3DLpWU+libCM/AKDr/nFS8Iz8D3FJr6cm9ht+4Z+OdFOyWVV4Rn4N3t0VOX
dhee9XXCH9+oN1p4Bt5i9ldvLs4SnoGHTrvb2P2D8Aw897Yr1eptEZ6Bfx/9
osq+vcIz8JeVvGI2HReegac3b9Ou1xnhGfjpsE3t7C7hWX+/x9ZP9v9DeK4c
m2uaPSpS2TO+cZnNivAMfMjVhxvivhKegc/a07D3zw+FZ+CpHc/f3l1DeAbe
wGJLHNhDeAYe+CylSpEJwjPw4cvLjbi5XHgGPvjz+1Xm7RCegccsSu64/Zjw
DLz3ob/Tql4QnoG369qi26E/hGfgOTNKrT5yU3gGvvnpP/OnPBCegc/5vJ+l
7XPhGXhTxx/Rrd4Kz7MreL/MzIxUtty5kTlulPAMvMOHC3JOnCw8A38/qqtf
5wJu3TPwBcuqLjvdVngGvixsSeeL44Vn4Ltap7rWrxOegX+n/iYtPSw8A/83
8I9aXyUKz8AfHnWM+OGG8Az8xVc/WGo+Ep6BF83M8bXrjfAM/PgPEVVu5UzS
Pevv95/K8QfzJ+megRfIf7JpbJEk3TPwR3s29F9aIskR/XXecYOSrzgaNngz
MXlfFcW9IGb3lKALun/gtoxde8reOOs4ciTPt/aoMgrw18ENih9JEfVA4H1i
p3+Zon5/gfW7/p2rXuyGSOVWufx9LlwTdULgzZbG7DzZ5aK+PvC2t77Mu8mS
pHPIv8Szhi0rFxP5Qx1yWPK28NOPzuvxwL+oUyT/0m0iH1in3pIVaXP+FfnD
617rEz+zUL4kh+9v/303NPmUo+jr1xdjoqsofh1Gnuhb87zjn7x5q8duKKMA
/37hwDxpZxP1+OHe3gFRSZFK2QGTZ8fnSNTjgY/+O3nMtkJJugdYZ02TfyNm
nD2rx0P+VqcjYNdOsT7kP3N4zS4RhUT+sL712rVt0YVF/rBOTJ2BGyaXPK/H
w+vWaOg8/eiC+FxgnSHxf4Tt6HtRzwded+rJoYvTiic5vEw/6vVTOvnt931d
jv0xyfti1N9TnqcTHhVrj/L8nvLxFsLLav9CAcKz1vEjPOuf/SXrWwkf4MHq
7yn/ukGEX/OEq7+nfD4hhNu1/6O0JE+7hHt5aWnFVCWeeZ5OOHjm4y2Eg2d+
HT/CwTO/vpVw8My/bhDh4JnPJ4Rw8MznaZdw8Bwq8Yx5OuFmzzjeQrjZM17H
j3CzZ7y+lXCzZ/y6QYSbPeN8Qgg3e8Z52iXcyytrvWrEM8/TCQfPfLyFcPDM
r+NHOHjm17cSDp751w0iHDzz+YQQDp75PO0S7uWVlS/1zPN0wsEzH28hHDzz
6/gRDp759a2Eg2f+dYMIB898PiGEg2c+T7uEe3llvX514pnn6YSDZz7eQjh4
5tfxIxw88+tbCQfP/OsGEQ6e+XxCCAfPfJ52CffyWqD9izWIZ56nEw6e+XgL
4eCZX8ePcPDMr28lHDzzrxtEOHjm8wkhHDzzedol3Msrh/a/NYlnnqcTDp75
eAvh4Jlfx49w8MyvbyUcPPOvG0Q4eObzCSEcPPN52iXcy2uglhf1zPN0wsEz
H28hHDzz6/gRDp759a2Eg2f+dYMIB898PiGEg2c+T7uEe3ld114njHjmeTrh
4JmPtxAOnvl1/AgHz/z6VsLBM/+6QYSDZz6fEMLBM5+nXcK9vJpr64UTzzxP
Jxw88/EWwsEzv44f4eCZX99KOHjmXzeIcPDM5xNCOHjm87RLuJfXQS1f6pnn
6YSDZz7eQjh45tfxIxw88+tbCQfP/OsGEQ6e+XxCCAfPfJ52Cffy+lD79yKI
Z56nEw6e+XgL4eCZX8ePcPDMr28lHDzzrxtEOHjm8wkhHDzzedol3MtrkfYv
RhLPPE8nHDzz8RbCwTO/jh/h4Jlf30o4eOZfN4hw8MznE0I4eObztEs4/NQi
nnmeTjh45uMthJvrdXgdP8LBM7++lXBzvQ6/bhDh5nodzieEcPDM52knPCvP
K9l50Toe5trLRpVR+Hg74bB+M8+/uIF+vpjD+jIuyz+L0zwxN8dTP/h1s+JP
Zf0ZjeqlG8oomEO89nkmRZJ4zMGDbH0+/1PS/PH65nj6eeHXhXxk+fOvCz9V
lJHHVpeoep3W1c08nXDz7ymOtxCO6+rmdfwIz/pnf8n6VsJxXd38ukGE47q6
OZ8Qws2/pzhPu4SLujr2zPN0wsEzH28hHNfVsWfMwTO/vpVwXFfHnjHHdXXs
GXPwzOdpl3BRV+c9Y55OuNkzjrcQjuvqvOdQiWe8vpVwXFfnPYdKPON8Qgg3
e8Z52iVc1NWxZ56nEw6e+XgL4biujj1jDp759a2E47o69ow5rqtjz5iDZz5P
u4SLujr2zPN0wsEzH28hHNfVsWfMwTO/vpVwXFfHnjHHdXXsGXPwzOdpl3BR
V8eeeZ5OOHjm4y2E47o69ow5eObXtxKO6+rYM+a4ro49Yw6e+TztEi7q6tgz
z9MJB898vIVwXFfHnjEHz/z6VsJxXR17xhzX1bFnzMEzn6ddwkVdHXvmeTrh
4JmPtxCO6+rYM+bgmV/fSjiuq2PPmOO6OvaMOXjm87RLuKirY888TyccPPPx
FsJxXR17xhw88+tbCcd1dewZc1xXx54xB898nnYJF3V17Jnn6YSDZz7eQjiu
q2PPmINnfn0r4biujj1jjuvq2DPm4JnP0y7hoq6OPfM8nXDwzMdbCMd1dewZ
c/DMr28lHNfVsWfMcV0de8YcPPN52iVc1NWxZ56nEw6e+XgL4biujj1jDp75
9a2E47o69ow5rqtjz5iDZz5Pu4SLujr2zPN0wsEzH28hHNfVsWfMwTO/vpVw
XFfHnjHHdXXsGXPwzOdpl3BRV8eeeZ5OOHjm4y2E47o69ow5eObXtxKO6+rY
M+a4ro49Yw6e+TztEg4/tYhnnqcTDp75eAvhuK6OPWMOnvn1rYTjujr2jDmu
q2PPmINnPk874biujv1jrr2soa6O18cc19Xx+pjD+jIuyz+L0zwxx3V1nD9+
XVxXN/k31NVxPNSlcTzm4EG2Pp//KWn+eH1cV8fx+HUhH1n+/OvCTxWlg2/l
uJVPEkld3czTCTf/nuJ4C+G4rm5ex4/wrH/2l6xvJRzX1c2vG0Q4rqub8wkh
3Px7ivO0S7ioq2PPPE8nHDzz8RbCcV0de8YcPPPrWwnHdXXsGXNcV8eeMQfP
fJ52CRd1dd4z5umEmz3jeAvhuK7Oew6VeMbrWwnHdXXec6jEM84nhHCzZ5yn
XcJFXR175nk64eCZj7cQjuvq2DPm4Jlf30o4rqtjz5jjujr2jDl45vO0S7io
q2PPPE8nHDzz8RbCcV0de8YcPPPrWwnHdXXsGXNcV8eeMQfPfJ52CRd1deyZ
5+mEg2c+3kI4rqtjz5iDZ359K+G4ro49Y47r6tgz5uCZz9Mu4aKujj3zPJ1w
8MzHWwjHdXXsGXPwzK9vJRzX1bFnzHFdHXvGHDzzedolXNTVsWeepxMOnvl4
C+G4ro49Yw6e+fWthOO6OvaMOa6rY8+Yg2c+T7uEi7o69szzdMLBMx9vIRzX
1bFnzMEzv76VcFxXx54xx3V17Blz8MznaZdwUVfHnnmeTjh45uMthOO6OvaM
OXjm17cSjuvq2DPmuK6OPWMOnvk87RIu6urYM8/TCQfPfLyFcFxXx54xB8/8
+lbCcV0de8Yc19WxZ8zBM5+nXcJFXR175nk64eCZj7cQjuvq2DPm4Jlf30o4
rqtjz5jjujr2jDl45vO0S7ioq2PPPE8nHDzz8RbCcV0de8YcPPPrWwnHdXXs
GXNcV8eeMQfPfJ52CRd1deyZ5+mEg2c+3kI4rqtjz5iDZ359K+G4ro49Y47r
6tgz5uCZz9Mu4fBTi3jmeTrh4JmPtxCO6+rYM+bgmV/fSjiuq2PPmOO6OvaM
OXjm87QTjuvq2D/m2ssa6up4fcxxXR2vjzmsL+Oy/LM4zRNzXFfH+ePXxXV1
k39DXR3HQ10ax2MOHmTr8/mfkuaP18d1dRyPXxfykeXPv26q/hzvke/Lvzj4
54Vs/lJ//sy6FW/ud1p4UecQn7PhnnyrXwHP0OMfzoq15ghO0DnEX/1oS87L
E4B768/JqVB00Sb3KMEhvlhg50/WXgPuo8ff3VCmydX9gkN85KTv73UOgvfl
q8e36P1P05X3EnQO8dvm/Db+xxbZ8U7xXPe6pWIXDikoOMTX6vJXxJ0h4r6B
n/eeFS+e9364b/8e+xuJePzccogHHm/95fXprRAvng+/8saWLTOiBYf4A4eV
fn/+AusE6vG/3q26IHaA4BC/fm/5VUUvwzo2Pf78uUJvO44THOJnzLz0zOdu
NleC9fi0bydd/2SO4BC/quig2bZX8LriufSvHYcGr18hOMTfLdvqkzY5svs7
8eJ59Q23/lHu158SdQ7xE9603hCTx6Vft/Dc791rSvb2qSGuT51/ZLmT3kZc
h/rzw1tOsW2+Ka434J/1DP2nd51E/brSn9Nevf7PZ78V1xXwh+2uP164XVwn
wINWvGn/8SXxuePnqMPnDnxzzKMcf1lc+ucL/HSJmcMy/Vz65wj83ap1E/cH
uvTPC3in1k+LN7W79M8FeMvvJ7e7W9Gl+we+esRXlQ5XF/6B94tO3H43UniG
535/vNjv5NXpwjPwZVvmvt+xTXgGfrBcvc4XdZ/e+vPDC607PmbQUuEZ+MyB
n5YfeVV4Bl6hguPkF7ldumfgz+Zes98qLvrj+Dnq4Bn4pEtja90LE56Bn8oR
8ONH9YVn4Ne65S7ytpnwDPxdpSq21W2FZ+DT/OwxraOFZ+BHSk7qGv6l8Ay8
8OKpLQd/LTzDc7/H1+0aNOC68Azcr+8faQVyJeqegW+p1GfutIXCM/DjN2su
yftMeAaeL+L1sfYBLt0z8AVNHrytUV14Bh6b+mOeu42EZ/wcdfAMPDX+sx6h
PYVn4D0+ta+eNUB4Bj594cu+w0YJz8Brll3tU3W88Ay8aY3d655PE5719VuF
vE6bKzwDvzzs97jqi4Vn/fnkJfeWy1klQfcM3LLp2YZWHYRn4M+n+P4RcF94
Bl7+2do8EWVcumfgZXu5nW0bCs/AnVf/HdS3q/AMfObKCW2iBgvP+Dnq4Bl4
dy/v6lfmCM/A/3BPqtZiufAMfPs3u2KabRCedV5wZULx7cIz8J7ph18/+ll4
Bv4uZaDPy8PCM/B5kWH/Nj8hPMNzv/vbFn92fqzwDLxY8y/Xb90oPOvPFb/z
lbtLSZfuGfigew3f9W8hPANfkTx8pTtGeAbuPliteKmpwjPwgrc3WMuvEJ7x
c9TBM/D7p18/eXVAeAZed/ronyedFJ6BH7eemrQ0QXgGXm7Wyzuj/xCegXcY
uuZ5txvCM/BRo1+WG35XeAbern2lX/56KDzDc7/fLQ1e+faU8Ax8ZtNVce1f
Cs/APx1xvs3FhsIz8CteM844hgnPwCc/6vLg/iLhGXj90v/902+n8Ax856s2
A1f/Kjzj56iDZ+B+A1ukbr4pPAP/r3nahNaPhGfgX/VfXmL0a+EZePqW3af7
e7l1z8CHF51brGdet+4Z+Mffn/h7ygdu3TPwj/5ds+ZtUbfuGZ77Hb31+zYH
PkjUPQMv2jPp+pFSLt0z8Dl7nzR71Vd4Bv64cdrMU8uFZ+DrataL23NEeAY+
b21g56+vCM/Al2bmvvvrA+EZP0cdPAN3j4n7xcfHrXsG3rDJt91O+7t1z8CP
bTiVmauUW/cMvN6CPa19PhKegc+t/FmrD0KFZ+CRo/qXrh8hPAMPyvE+Nr6u
8AzP/b7y082VVToIz8Djg3NWC24oPANf/u1nX9+fKzwD/yTtcBVrvPAMfFHZ
6nkb3hKegUesUBaVfy88A3/VbMSprYXcumf8HHXwDHxb0cJvK1QVnoHPaTHt
bMbHwrP+XPfrVeJbNRKegZfP8axY71bCM/DTzfdFjOkgPAMfFbB4xcGuwjPw
vkX/imrUS3iG537nbrakkHO58Aw8bOiERn36CM/A746cPvjIHuEZeFO/f7bV
TxWegTcYm1Zwh8WtewZ+J/fB5BPBbt0z8DM9lvTuGyY84+eog2fg++0+OULa
Cc/An7ba3zBfd+EZ+A9T/37Qv6/wDPz9oLH7FgwVnoHPTjk4fP9Y4Rl41V8j
X+aaKDwDfxfcf8SK6cIzPPc7veusDy5eE56BHypSN23ddOEZ+OzWv40bd0V4
Bt74YcHWnfO4dc/AbQuaV81VQXgG/lmD/nsaNRSegUc+vdXV73PhGT9HHTwD
H9ZkQ+x/I4Vn4GuKP130bqLwDHx/V79PB80RnoGvv73J+6clwjPw29XOpf25
WngGHrzJ27/6T8Iz8IzCTy2XtwvP8NzvqXn/WLrM16V7Bt7B6+vBt7YIz8Dt
H+8P/eSN8Aw8qtnzmwPLC8/Ar1WJad+2hfAMfPDk4iVPfCU8A79V59KJXWOF
Z/wcdfAMPK5k5HXXcuEZ+MznbV7f2ig86+/rl9ah3+wWnoFvqtGy1c5DwjPw
I7NLpD4+ITwDf9LsbLt254Rn4MPGV47O6Rae4bnfHcYPP3O3svAMfN+MpY9r
nBee9fiRg9yFA9y6Z+D2ty//mNdMeAb+16lahbfHCM/6c9FbN4tvPE14Bt51
a9GWHVcKz/g56uAZuHfAjbjNR4Rn4ANXXGmYeEZ4Bl7iWsWhX/0uPAPvXmbG
uMPXhGf9Oe1rp3XOe0d41p8D/zBm5+iHwrP+/Pl24wZXfyE8w3Obx+b48oNh
PYVn/TnY4fmabHggPAPf8HvbiRmRwjPw/B17jDrXV3gGfn1K2VMl5wjPwCuX
auh3c5PwDHzNpcXOwseEZ/wcdfAMPHrzpR2LrgvPej6OY6UT7gvPwNc/P/nr
8JfCM/DkRoObX/1PeAZ+YHfr3DUsSbpn4C8r7bu1s2CS7lObi1CqKguVwRX3
p4s6Z2PP95fCVZXIHmFtE66LeuYsz/f01CrKxqlrmpT4QtSL3DHvR3rq5Jcr
Z455sUXUIa113622T6+iRB29t2zXdVFv7FLg39OeOu2dHmsup3uhumLlKkrH
vYdPViwh6kX3JHVFjav5/+Rcctp3tagHVvI8/17Nv0HZXUc/2yTqfkOiXvXx
5P+BO0fxuB2ivre/+Mu5nvwP5n8562icqOP9d+/5fk/+5+Mzf7jxs6jXfeJ5
7r6a/4tD9iL99oq68Ree/VuHUKXp8lP7938k6hVZnkOVLybF+gfVEXWh9Z7v
L+VDlWkpMQv6HhM+s/yHKlNOHMp3uICoV2ie06sqrb4cM3SzIupCxTyez1ZV
mtef7XrdS/jUPK+oquQafb12iXHC5zpJ3VVbX82/0Y1/xh33Et87hl1+l9+T
f/hPQ47G5xbfO7TPV81/Zd/29Vv6iO8dBzf8W8OTv3/Sg1nb8ovvdwc8ntX8
R96Zc8O/oPh+p3lW81/0QfUcu4Cr9wHNs5r/+zr5Vq4Crno+7Nm/Faym/Oru
uezROOFZ858eqjT8+/q9fYuFZ+2PFNVz/N02j0qIeoXm/2yosmz9H83W9BWe
Nf9xocoHETsr7lgtPN/31E9WqO/r4+kLXp4UnrX61aRQ5db9ehNf3fgf65xq
/iHb/1znEyo8Z32+oYqSkVylV5jwrPlX81974ev9jWsJz5p/Nf/c3hu6vq0t
PGv+1fwnViqbHFdXeM66HkKVQ92+67CynvCcMfRttCf/vxbbfrtaT3gu7tm/
naymvCl3JOXG78Kz5n97NcX7dPr8u4+E564e/4urKeWOeB1/OFR4znr9asrT
g97DnpwUnjX/36jxlonxBd4Jz5r/NtWUtH6nu60qhOpvtasphUt16DXV9j/W
OdX8f632Z8jMrsKz5l/NP21jnlq1egrPmn81/9cNxpTu30d4Hurxr+b/rnK9
Zf37Cs+afzX/iSuWXRjcX3jW/Kv5d7LUqLcxRniO9vhX81+/4lGFigOE5+Ge
/dvY6sqUPRkB5+2iXqH571VdeV+z3/0H9UW94pDHf8vqSsfWjd1bzgrPmv/w
6krjI3El0/XfF58s/8HVlRvDe0ZMLi++32n+faord2u3+i5/XeFZq189r6b8
FHoxV8fm/2OdU82/+c/XwnpPF541/2r+H88fua3HXOFZ86/mvzHHiLQbC4Rn
l8e/mn+bcp/WKr9EeNb8q/nb4w86hi8TnjX/av4bi9ovP14uPB/w+Ffzj5rX
dOz+FcJzkmf/Vr2Gsjah/jd3hgjPmv/AGorXtodv3scKz8U8/r1rKOMG/lKr
mr5/9lY0/4+qK2eGXJhyP0J41vxfqa60rXtu7PO2wnNWXtWVtA8nl7rZR3jW
6lebqyulV+bcPX3E/1jnVPNvc2bk/L17hGfNv5p/7orzjr07iOr2av4tXeuO
xx8Tnit7/Kv5X7zTd2irE8Kz5l/N/5cjxdOunRSeNf9q/sNWXmi+5JTwXNTj
X83/t8+3fLn6tPBc1bN/u19Dqbflu37djgnPmv+kGkrU7G5PPr0pPGvnzByu
odxw1KlrDxeeNf8baijnyzf2iekuPGv+Z9dQ/qpf58r9b4Vnzf+IGkpYrosj
a89H9bduNZSkRwVsddb8j3VONf/mvVKvLb6G6slq/q8O26aXvo3q9mr+2xus
qlYhTXjWzttR80+OmOd484/wrPlX8x/vm1bht8fCs+Zfzf/I5YVDjzwVnod4
/HevoRx9cr2k13PheZZnX7e6pvKwRYHnvfKI79Ga/+k1lX+/ufpimlXsh90e
/0NqKjm9Qmuf6iI8a/6jaypJz7bnXDZVeNb8N6ypfFcg74eTNgjPmv/KNZUZ
RSP/rnFQeNbqV1Y1n8Y/FZl25n+sc6r5Lyr/RckQb7Ef1vyr+Zev+N2wx/nE
fljzr+Z/fGSTvGGFxH74nse/mv+Au5dPO/zFfljzr+b/X7ee85sUM3zv8PhX
8w8b/KbGqADxvSPR41/N//Opfz97UUJ879DOO+oQpmS+fLW6ZCvhWfPvCFOG
V63cNLy28FzF4798mNJ73NFdlSYIz5r/wmHK9OvDhk3cLjxr/t/VVH7YWvD2
H+eEZ81/ak3le6/y1W7eEJ61+tXFmkr9K81/n/Tkf6xzqvnnclzI37eC8Kz5
V/Mf8dA5b3g14Vnzr+Yf2/bRptfhwnNDbV8apij9Lv1Wu7bwrPlX87/Vf8hH
Y+sJz5p/Nf+NmV0f3lSE50oe/2r+tyvfmhv7ifDcODr3hX0Fw5XbT/cN2B4r
PGv+08OUbosaXjvxhfA80+P/hsr7Lgzot1F41vyfDVMGvX7+qZIkPGv+48KU
jR/m/PLtE+FZ878iTEnds6dsp9yo/jYpTJkR/cM3TYqK73f/Z51Tzb+0/+2u
kz9F9WQ1/zb/Dr9xvoPwrPlX83+93tZjShfhea22Lw1TjiY0cXv1EJ41/2r+
o68FuIf1Ep41/2r+Twe1O+XbR3ieru1Lw5TIzB7fPPtaeF7vOXfrZLgSUind
FnZZeNb8bw9XmsS9v+0YLzynefwvDlcW525cZcFZ4VnzPy5cOT7k1L6br4Rn
zf834crHzzcHvysivkdr/tuEK0nK4plbywvPWv2qdrgy/lfLy1u1/sc6p5r/
4Ts1vScPFZ41/2r+JUr/vCjXWOFZ86/mf2pj/E8vnMJzhse/mv9XMzasWztZ
eNb8q/kPLDJrUpPpwrPmX82/66WS7/xmCc93tX1puHI1pOTrMnOEZ69Zlg0x
YyOUF5uiW9zPJ+oVmv9eEcqKjtMKH10nPDfy+G8ZoXzk1z1g7z/Cs+Y/PEKZ
Mnt9tVHFRb1C818qQll2scbbR+HCs+bfJ0KxlrdMfdhCeNbqV8/DldwZL5O/
7io8/591TjX/Ox+U6zZ6Maonq/nXuH7p08qrUN1ezb/15xPbtd4gPEdr+9II
ZcTp082rbhaeNf9q/gktiszx3i48a/7V/L+c4/b9b6fw3EDbl4Yrw9cNflU7
Tnju6jkvrnqk0jPu8arWFYRnzX9gpDKsdtippr8Kz+s8/r0jldk+aRtuFBB1
Ic3/owhlu73ejcIfC8+a/ysRyuGD/dve7CQ8a/6PRyivZgScqDAQ1d82Ryhd
z3X1uT/uf6xzqvlPn9m+/+ADqJ6s5r+uy4f1O8Wjur2a/47eXyRuPSU8H9D2
pRFKwfdjvj54XnjW/Kv5L7cuP3I4UXjW/Kv5B1VLy5mSJDyv0falEcqDHg+W
RF0Wno96zqO7H6k0KDL26OFuwrN2Xp/nnLi0oCpPbwnPOTz+D0cqX+3+vkdw
ZeFZO/dvQ6TyQ6F1PxzvLDxr95/ZkUpI+Sqtbo8WnrX7/4hIJShHrSXD5gnP
mv9ukcrjKVV8h6z9/9c5Q7V9aaRy7uLhR2OuCs9Z+9JIZXnHndGxN4XnrH1p
pOI7I6aWf5rwnLUvjVTOelVq2uqR8Kxd/2r+vs66s8c+E561+4+a/z+DNo4/
+1L4nDLlaZ79lasoo4Y8Ldlo5wXd/9Rs/tZpC70AdSeVZ71OVaVIypZv/XKI
feB/2v42Uvm0wOkxq5savtdn8xFV60V9/Vp8vkeyP8fb80L3dyyUpHO9vhrc
Kt9of1EnhDm0ZUdv11q0/oLOtfFYcu7Yy+w/8XODX0riMyTxGZL47HoCifeW
nIPmI4n3kcT7SuJ9+Xin5Jw+p+RcOSc9pw84nw89vw84v36gZP1Ayfo2yfo2
Pl69ztl4lfP50HMDgbPxcJ3j+HjZ+Xep5Ny6LP5SwjMk3FvhuY+E+/LcKTnn
zknPszN/jjg+UBJv47nuH69Dz7kz+8Trp+p/3x/75HmGhHtLznHzkXBfnjsl
59k56bl14JOPD5TE23iu+uTXoefZgU9+/VT97/VjnzzPkHBvyXltPhLuy3On
5Nw6Jz2fDnzy8YGSeBvPVZ/8OvTcOvDJr59KzpsDnzzPkHBvyblsPhLuy3On
5Hw6Jz2HDnzy8YGSeBvPVZ/8OvR8OvDJr59KzpUDnzzPkHBvyflrPhLuy3On
5Bw6Jz1vDnzy8YGSeBvPVZ/8OvQcOvDJr59Kzo8DnzzPkHBvyTlrPhLuy3On
5Lw5Jz1XDnzy8YGSeBvPVZ/8OvS8OfDJr59KzokDnzzPkHBvyXlqPhLuy3On
5Fw5Jz0/Dnzy8YGSeBvPVZ/8OvRcOfDJr59KzoMDnzzPkHBvyblpPhLuy3On
5Pw4Jz0nDnzy8YGSeBvPVZ/8OvT8OPDJr59Kzn0DnzzPkHBvyfloPhLuy3On
5Jw4Jz0PDnzy8YGSeBvPVZ/8OvScOPDJr59KzncDnzzPkHBvyTloPhLuy3On
5Dw4Jz33DXzy8YGSeBvPPfUEdh16Hhz45NdPJee4gU+eZ0i4t+S8Mx8J9+W5
U3Lum5Oe7wY++fhASbyN56pPfh167hv45NdPJee1gU+eZ0i4t+RcMx8J9+W5
U3K+m5Oe4wY++fhASbyN56pPfh16vhv45NdPzf4Tnxv1UsIzJBzqQpj7SLgv
z51+Ek7PawOffHygJN7Gc72ugteh57iZvCm0/qZpLkzrbNrlnErrZvx5bT6K
dnueTutg8PessTdtmcq0rsXnGaCwecL3dJKnTYnh8lS9sXnC90pyflmqQ1un
A60XZa1H60Xa+uVpvSgrf1ovynp8A60rauucpfVDbVuxgtYJ+Tyzrzecp+qN
z9PG56l6Y/NUvbF5wvdxnCfU3wrS+oZ2XaVTn9ofKdRn1utSn1r+cbT+luWN
1t+062eSpP5G8gzI9kB98nna+DxVn2yecB3iPKFehPOE+ttJ6lN7fsZ2Wi/S
PC+m9aKs16f1Ii3/b2i9SMu/jaReVFtSfyN5ZtczcZ6qTz5PG58n/F7jPKG+
gfOE6xPnCfW3sbRepD0foxetF2meW9J6kZZ/OK0XaX8E03qRlr+PpF70XFJ/
I3lm1zNxnqpPPk8bnyf89wXnCfUNnCfUi3CeUH+rTutFBzz5B9J6kebZm9aL
tPwfUZ9a/leoz6y8qE8t/82S+hvJM7ueifNUffJ52vg8VZ9snlDfwHlCvQjn
CfW3+9RnOU/+SdSn5vkw9Zn1vBdaf9Pyn03rb1r+I2j9Tcu/u6T+RvLMrmfi
PFWffJ42Pk/VJ5sn1DdwnlAvwnlC/W0NrRct1PYJtF6keR5C60Va/tG0XqTl
35DWi7T8K0vqRVZJ/Y3kmV3PxHmqPvk8bXyeqk82T6hv4DyhXoTzhPpbB1ov
yqm9Dq0XaZ7L03qRln9hWi/S8n9HfWr5p1KfWv4XJfU3kmd2PRPnqfrk87Tx
eXr+/gKXJ9Q3cJ5QL8J5Qv2tIK1vDNL2IdSn5jmF+tTyP0t9avnH0fqblv8K
Wn/T8p8kqb+RPLPrmThP1Sefp43PU/XJ5gn1DZwn1ItwnlB/O0l9/q3tQ2i9
SPO8mNaLtPydtF6k5f8NrRdp+beR1ItqS+pvJM/seibOU/XJ52nj81R9snlC
fQPnCfUinCfU38bSelELbR9C60Wa55a0XqTlH07rRVr+wbRepOXvI6kXPZfU
30ie2fVMnKfqk8/Txuep+mTzhPoGzhPqRThPqL9Vp/WiQ9o+hNaLNM/etF6k
5f+I+tTyv0J9avnHU59a/psl9TeSZ3Y9E+ep+uTztPF5qj7ZPFWfubg8oV6E
81R9avvq+9Qnf3467JeoT/7c+ez+xWxaf9PyH0Hrb5rn7rT+toDNM0Bh89T3
S9Qnmyf0L3Ceqk82T9XbNa4+o3qW8az5cPp9n32/aryMs5+XPucjqWuReaRU
cl45fO4QjzkfnyGJz5DEi3kzzPl4H0m8jyTeVxLvy8cb5s0w5+Pp+fXA+Xzo
ufbA+fUDJesHSta3Sda38fGGeTPM+XxC+HgnPf9d44Z5M8z5/FPJee5Z/KWE
Z0i4mDfjrxPMfXnulJz/7qTnvJs/RxwfKIm38dwwb8Z7DpX4xOuLeTPsk+cZ
Eu4tOd/cR8J9ee6UnPPupOe5g08+PlASb+O5Yd4M+2R5vOycdzFvhn3yPEPC
xbwZ9slzX547Jee5O+m57eCTjw+UxNt4bpg3wz5ZHi87z13Mm2GfPM+QcDFv
hn3y3JfnTsm57U56Pjv45OMDJfE2nhvmzbBPlsfLzm0X82bYJ88zJNxbci65
j4T78twpOZ/dSc9hB598fKAk3sZzw7wZ9snyeNn57KnkXHXwyfMMCRfzZtgn
z3157pScw+6k562DTz4+UBJv47lh3gz7ZHm87Bz2VHJ+OvjkeYaEe0vOGfeR
cF+eOyXnrTvpuergk48PlMTbeG6YN8M+WR4vO289lZyTDj55niHhYt4M++S5
L8+dknPVnfT8dPDJxwdK4m08N8ybYZ8sj5edq55KzkMHnzzPkHBvybnhPhLu
y3On5Px0Jz0nHXzy8YGSeBvPDfNm2CfL42Xnp6eSc8/BJ88zJNxbcj64j4T7
8twpOSfdSc9DB598fKAk3sZzw7wZ9snyeNk56ankfHPwyfMMCfeWnAPuI+G+
PHdKzkN30nPPwScfHyiJt/HcMG+GfbI8XnYeeio5xxx88jxDwr0l5337SLgv
z52Sc8+d9Hxz8MnHB0ribTw3zJthnyyPl517LubNsE+eZ0i4mDfDPnnuy3On
5HxzJz3HHHzy8YGSeBvPDfNm2Ce/jpg3w940zYVpnU27nFNp3Yw/x1zMm2Fv
7HnZhnkz1hvJU8ybYW98nmLeDHtj8zTMm2Fv2jodaL0oaz1aL9LWL0/rRVn5
03qRtn46rStq65yl9UNtW7GC1gn5PMW8GfbG52nj8zTMm2FvbJ6GeTPsU/tY
CtL6Bsybsb+/KdRn1utSn1r+cbT+luWN1t+062eSpP5G8hTzZuzvL8nTxudp
mDdjr0Ocp2HeDPvU+EnqE+bNsE+Y42Lvh05aL9Ly/4bWi7T820jqRbUl9TeS
p5g3wz75PG18noZ5M+yzLJenYd4M+4Q5LuwT5s2wT5jjYu+T4bRepP0RTOtF
Wv4+knrRc0n9jeQp5s2wTz5PG5+nYd4M+1zA5WmYN8M+YY4L+4R5M+wT5riw
T5jjwj5hjov973U89QlzXNgnn6eYN8M++TxtfJ6GeTPsMweXp2HeDPuEOS7s
E+bNsE+Y48I+YY4L+4Q5LuwT5s2wT5jjwj75PMW8GfbJ52nj8zTMm2GfA7k8
DfNm2CfMcWGfMG+GfcIcF/YJc1zYJ8xxYZ8wb4Z9whwX9snnKebNsE8+Txuf
p2HeDPu8zuVpmDfDPmGOC/uEeTPsE+a4sE+Y48I+YY4L+4R5M+wT5riwTz5P
MW+GffJ52vg8DfNm2GdzLk/DvBn2CXNc2CfMm2GfMMeFfcIcF/YJc1zYJ8yb
YZ8wx4V98nmKeTPsk8/TxudpmDfDPg9yeRrmzbBPmOPCPmHeDPuEOS7sE+a4
sE+Y48I+Yd4M+4Q5LuyTz1PMm2GffJ42Pk/DvBn2+SGXp2HeDPuEOS7sE+bN
sE+Y48I+YY4L+4Q5LuwT5s2wT5jjwj75PMW8GfbJ52nj8zTMm2Gfi7g8DfNm
2CfMcWGfMG+GfcIcF/YJc1zYJ8xxYZ8wb4Z9whwX9snnKebNsE8+Txufp2He
DPvMxeVpmDfDPrV99X3qE+a4+P0S9QlzXNgnzHFhnzDHhX3CnBW/X6I+2TwN
82b8fonW39g8DfNm2BvMlWHPMg7zZngd9v0a5s0wZz8vw7wZXj/rT1q3yZpX
qYrOhxXzZpjz8RmS+AxJvJg3w5yP95HE+0jifSXxvny8Yd4Mcz7eKom3SvIJ
4OMN82bmdQIl6wdK1rdJ1rfx8YZ5M8z5fEL4eMO8mYkb5s0w5/MX82b89YZ5
hoSLeTP+OsHcl+eGeTP+88XrBEjiAyXxNp4b5s14z6ESn3h9MW+GffI8Q8LF
vBn2yXNfnhvmzbBPfp0ASXygJN7Gc8O8GfbJcsO8GfYJc1PYJ88zJFzMm2Gf
PPfluWHeDPvk1wmQxAdK4m08N8ybYZ8sN8ybYZ8wN4V98jxDwsW8GfbJc1+e
G+bNsE9+nQBJfKAk3sZzw7wZ9slyw7wZ9glzU9gnzzMkXMybYZ889+W5Yd4M
++TXCZDEB0ribTw3zJthnyw3zJthnzA3hX3yPEPCxbwZ9slzX54b5s2wT36d
AEl8oCTexnPDvBn2yXLDvBn2CXNT2CfPMyRczJthnzz35blh3gz75NcJkMQH