-
Notifications
You must be signed in to change notification settings - Fork 0
/
NN50.nb
3192 lines (3075 loc) · 131 KB
/
NN50.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 8.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 157, 7]
NotebookDataLength[ 133934, 3183]
NotebookOptionsPosition[ 129406, 3034]
NotebookOutlinePosition[ 129845, 3052]
CellTagsIndexPosition[ 129802, 3049]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Calculation of eikonal corrections at KE = 50 MeV", "Title",
CellChangeTimes->{{3.58783893472805*^9, 3.587838967532401*^9},
3.588435989091402*^9}],
Cell["9/17/13", "Subsubtitle",
CellChangeTimes->{{3.58784408294383*^9, 3.5878440862374496`*^9}, {
3.588436078742413*^9, 3.58843607979189*^9}}],
Cell[CellGroupData[{
Cell["Define Constants", "Section",
CellChangeTimes->{{3.5878452824422293`*^9, 3.587845286977789*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"mp", "=", "0.938272046"}], ";"}],
RowBox[{"(*",
RowBox[{"GeV", "/",
RowBox[{"c", "^", "2"}]}], "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"mn", "=",
RowBox[{"1.00137842", "*", "mp"}]}],
RowBox[{"(*",
RowBox[{"GeV", "/",
RowBox[{"c", "^", "2"}]}], "*)"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"M", "=",
RowBox[{
RowBox[{"2", "*", "mp"}], "+",
RowBox[{"2", "*", "mn"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"m", "=",
RowBox[{"M", "/", "4"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[HBar]c", "=", "0.19732697178"}],
RowBox[{"(*",
RowBox[{"Giga", " ", "ElectronVolt", "*", "Femto", " ", "Meter"}], "*)"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r", "=",
RowBox[{".535", "^",
RowBox[{"(",
RowBox[{
RowBox[{"-", "1"}], "/", "2"}], ")"}]}]}],
RowBox[{"(*",
RowBox[{"Femto", " ", "Meter"}], "*)"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"B", "=",
RowBox[{
RowBox[{"1", "/", "4"}], "*",
RowBox[{
RowBox[{"r", "^", "2"}], "/",
RowBox[{"\[HBar]c", "^", "2"}]}]}]}],
RowBox[{"(*",
RowBox[{
RowBox[{"(",
RowBox[{"c", "/", "GeV"}], ")"}], "^", "2"}], "*)"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"A", "=", "4"}], ";"}]}], "Input",
CellChangeTimes->{{3.5874084444526567`*^9, 3.58740844476388*^9}, {
3.5877515704162197`*^9, 3.587751588861207*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"En", "=",
RowBox[{"50", "/", "1000."}]}],
RowBox[{"(*", "GeV", "*)"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"EnL", "=",
RowBox[{"En", "+", "mp"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"s", "=",
RowBox[{
RowBox[{"mp", "^", "2"}], "+",
RowBox[{"M", "^", "2"}], "+",
RowBox[{"2", "*", "M", "*", "EnL"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Epsilon]", "=",
RowBox[{"EnL", "/",
RowBox[{"(",
RowBox[{"M", "/",
RowBox[{"Sqrt", "[", "s", "]"}]}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"P", "=",
RowBox[{"Sqrt", "[",
RowBox[{
RowBox[{"EnL", "^", "2"}], "-",
RowBox[{"mp", "^", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"k", "=",
RowBox[{"P", "*",
RowBox[{"(",
RowBox[{"M", "/",
RowBox[{"Sqrt", "[", "s", "]"}]}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"s2", "=",
RowBox[{
RowBox[{"mp", "^", "2"}], "+",
RowBox[{"m", "^", "2"}], "+",
RowBox[{"2", "*", "m", "*", "EnL"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Epsilon]2", "=",
RowBox[{"EnL", "*",
RowBox[{"(",
RowBox[{"m", "/",
RowBox[{"Sqrt", "[", "s2", "]"}]}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Kappa]", "=",
RowBox[{"P", "*",
RowBox[{"(",
RowBox[{"m", "/",
RowBox[{"Sqrt", "[", "s2", "]"}]}], ")"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Eta]O", "=",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\[Epsilon]", "/", "M"}]}], ")"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"mp", "+", "M"}], ")"}], "/",
RowBox[{"Sqrt", "[", "s", "]"}]}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Eta]D", "=",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"\[Epsilon]", "/", "\[Epsilon]2"}], "+",
RowBox[{
RowBox[{"(",
RowBox[{"A", "-", "1"}], ")"}], "*",
RowBox[{"\[Epsilon]", "/", "M"}]}]}], ")"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"mp", "+", "M"}], ")"}], "/",
RowBox[{"Sqrt", "[", "s", "]"}]}]}]}], ";"}]}], "Input",
CellChangeTimes->{{3.587408191942588*^9, 3.587408212763638*^9}, {
3.587408391587672*^9, 3.587408401367611*^9}, {3.587408435278034*^9,
3.587408452998206*^9}, {3.587751596357411*^9, 3.587751627572439*^9}, {
3.5877516798124647`*^9, 3.5877516855568647`*^9}, 3.588435990569934*^9, {
3.588436060039448*^9, 3.588436071716181*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
Import data and convert it from degrees and mbarn^1/2 to momentum transfer \
and fm\
\>", "Section",
CellChangeTimes->{3.587845302829598*^9}],
Cell[BoxData[{
RowBox[{
RowBox[{"pp50a", "=",
RowBox[{
"Import", "[", "\"\</Users/Micah/Documents/JerryDuty/eikexp/pp50a.csv\>\"",
"]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pp50b", "=",
RowBox[{
"Import", "[", "\"\</Users/Micah/Documents/JerryDuty/eikexp/pp50b.csv\>\"",
"]"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.587742114571766*^9, 3.587742117569474*^9}, {
3.587757975453336*^9, 3.587757977809454*^9}, {3.588435991770995*^9,
3.5884359931909313`*^9}, {3.588445527282023*^9, 3.58844553064846*^9}, {
3.588528259391193*^9, 3.588528261669199*^9}}],
Cell[BoxData[
RowBox[{"(*",
RowBox[{
RowBox[{"pp50a", "=",
RowBox[{
"Import", "[", "\"\</phys/users/mbuuck/JerryDuty/eikexp/pp50a.csv\>\"",
"]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"pp50b", "=",
RowBox[{
"Import", "[", "\"\</phys/users/mbuuck/JerryDuty/eikexp/pp50b.csv\>\"",
"]"}]}], ";"}], "*)"}]], "Input",
CellChangeTimes->{{3.586893625596829*^9, 3.586893768096984*^9}, {
3.586894693570779*^9, 3.58689469895422*^9}, {3.586894735082232*^9,
3.586894735139288*^9}, {3.587407733432084*^9, 3.587407733527143*^9}, {
3.587742066671813*^9, 3.587742156702121*^9}, {3.587757980762945*^9,
3.587757985512987*^9}, {3.5884359942450314`*^9, 3.588435995270146*^9}, {
3.5884455333486156`*^9, 3.588445534259739*^9}, {3.588528263573444*^9,
3.588528266245441*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"pp50a", "=",
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"pp50a", "[",
RowBox[{"[",
RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{
RowBox[{"pp50a", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], "+",
RowBox[{"I", "*",
RowBox[{"pp50a", "[",
RowBox[{"[",
RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pp50b", "=",
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"pp50b", "[",
RowBox[{"[",
RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{
RowBox[{"pp50b", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], "+",
RowBox[{"I", "*",
RowBox[{"pp50b", "[",
RowBox[{"[",
RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.586894995933079*^9, 3.586895005187623*^9}, {
3.587407733545117*^9, 3.587407733645219*^9}, {3.5877420938039494`*^9,
3.5877420979522943`*^9}, {3.588435996423174*^9, 3.588435998767654*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"\[Theta]pp50", "=",
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"pp50a", "[",
RowBox[{"[",
RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"pp50a", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], "+",
RowBox[{"pp50b", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ")"}], "/", "2"}]}],
"}"}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.586895023659334*^9, 3.5868951115438128`*^9}, {
3.586895208168799*^9, 3.58689520974796*^9}, {3.587407733661124*^9,
3.5874077337278557`*^9}, {3.587408122344294*^9, 3.587408122542446*^9}, {
3.5878422906869392`*^9, 3.587842294812872*^9}, {3.588435999134399*^9,
3.5884360001507607`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"\[Theta]toq", "[", "x_", "]"}], ":=",
RowBox[{"{",
RowBox[{
RowBox[{"2", " ", "\[Kappa]", " ",
RowBox[{"Sin", "[",
RowBox[{
RowBox[{"x", "[",
RowBox[{"[", "1", "]"}], "]"}], " ",
RowBox[{"Pi", "/", "360"}]}], "]"}]}], ",",
RowBox[{
RowBox[{"x", "[",
RowBox[{"[", "2", "]"}], "]"}], "/",
RowBox[{"Sqrt", "[", "10", "]"}]}]}], "}"}]}]], "Input",
CellChangeTimes->{{3.587408181012211*^9, 3.587408187444201*^9}, {
3.587836643314015*^9, 3.5878366516569138`*^9}, {3.587839184568799*^9,
3.587839193953685*^9}, {3.587842283543548*^9, 3.5878422858615017`*^9}, {
3.588013778919056*^9, 3.5880137801436768`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"pp50", "=",
RowBox[{"\[Theta]toq", "/@", "\[Theta]pp50"}]}], ";"}]], "Input",
CellChangeTimes->{{3.587408129350005*^9, 3.587408159725465*^9}, {
3.588436000495679*^9, 3.588436000779698*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"pn50a", "=",
RowBox[{
"Import", "[", "\"\</Users/Micah/Documents/JerryDuty/eikexp/pn50a.csv\>\"",
"]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pn50b", "=",
RowBox[{
"Import", "[", "\"\</Users/Micah/Documents/JerryDuty/eikexp/pn50b.csv\>\"",
"]"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.587742114571766*^9, 3.587742117569474*^9}, {
3.587757975453336*^9, 3.587757977809454*^9}, {3.58784240703041*^9,
3.587842408967124*^9}, {3.588436002118088*^9, 3.588436003246661*^9}, {
3.5884455376342278`*^9, 3.588445540324101*^9}, {3.588528277221472*^9,
3.58852827994097*^9}}],
Cell[BoxData[
RowBox[{"(*",
RowBox[{
RowBox[{"pn50a", "=",
RowBox[{
"Import", "[", "\"\</phys/users/mbuuck/JerryDuty/eikexp/pn50a.csv\>\"",
"]"}]}], ";", "\[IndentingNewLine]",
RowBox[{"pn50b", "=",
RowBox[{
"Import", "[", "\"\</phys/users/mbuuck/JerryDuty/eikexp/pn50b.csv\>\"",
"]"}]}], ";"}], "*)"}]], "Input",
CellChangeTimes->{{3.586893625596829*^9, 3.586893768096984*^9}, {
3.586894693570779*^9, 3.58689469895422*^9}, {3.586894735082232*^9,
3.586894735139288*^9}, {3.587407733432084*^9, 3.587407733527143*^9}, {
3.587742066671813*^9, 3.587742156702121*^9}, {3.587757980762945*^9,
3.587757985512987*^9}, {3.587842410112143*^9, 3.587842411491207*^9}, {
3.588436004262312*^9, 3.58843600539235*^9}, {3.588445543188383*^9,
3.588445545875847*^9}, {3.5885282819728737`*^9, 3.588528284341722*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"pn50a", "=",
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"pn50a", "[",
RowBox[{"[",
RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{
RowBox[{"pn50a", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], "+",
RowBox[{"I", "*",
RowBox[{"pn50a", "[",
RowBox[{"[",
RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"pn50b", "=",
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"pn50b", "[",
RowBox[{"[",
RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{
RowBox[{"pn50b", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], "+",
RowBox[{"I", "*",
RowBox[{"pn50b", "[",
RowBox[{"[",
RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.586894995933079*^9, 3.586895005187623*^9}, {
3.587407733545117*^9, 3.587407733645219*^9}, {3.5877420938039494`*^9,
3.5877420979522943`*^9}, {3.5878424122631407`*^9, 3.587842415156559*^9}, {
3.588436006296893*^9, 3.588436008807625*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"\[Theta]pn50", "=",
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"pn50a", "[",
RowBox[{"[",
RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"pn50a", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], "+",
RowBox[{"pn50b", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ")"}], "/", "2"}]}],
"}"}], "]"}]}], ";"}]], "Input",
CellChangeTimes->{{3.586895023659334*^9, 3.5868951115438128`*^9}, {
3.586895208168799*^9, 3.58689520974796*^9}, {3.587407733661124*^9,
3.5874077337278557`*^9}, {3.587408122344294*^9, 3.587408122542446*^9}, {
3.5878422906869392`*^9, 3.587842294812872*^9}, {3.5878424181180363`*^9,
3.5878424193338614`*^9}, {3.588436010168282*^9, 3.5884360112026587`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"pn50", "=",
RowBox[{"\[Theta]toq", "/@", "\[Theta]pn50"}]}], ";"}]], "Input",
CellChangeTimes->{{3.587408129350005*^9, 3.587408159725465*^9}, {
3.587842422315405*^9, 3.587842422932054*^9}, {3.5884360129505587`*^9,
3.588436013301454*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"NN50", "=",
RowBox[{
RowBox[{"(",
RowBox[{"pp50", "+", "pn50"}], ")"}], "/", "2"}]}], ";"}]], "Input",
CellChangeTimes->{{3.587842451561008*^9, 3.587842473051257*^9}, {
3.588436013690421*^9, 3.588436014429481*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NN50", "[",
RowBox[{"[",
RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"Re", "[",
RowBox[{"NN50", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], ",",
RowBox[{
"PlotLabel", "\[Rule]",
"\"\<Real Part of Scattering Amplitude for NN Collisions\>\""}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\<Momentum transfer (Gev/c)\>\"", ",",
"\"\<Scattering Amplitude (fm)\>\""}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.587842526540153*^9, 3.587842548425576*^9}, {
3.587842978542938*^9, 3.587842994748707*^9}, {3.588436015418214*^9,
3.588436015800857*^9}, {3.588445600726688*^9, 3.588445607015012*^9}}],
Cell[BoxData[
GraphicsBox[{{},
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVVnk81IsXlSKUpxTPki2UFpNQKXFkL6TUQyVtRpaURC8pSykttsquUBFR
ZCllSca+z8w3szDGLLa8orzQotdvfn/cz/3czzmfe84/536u1vEzLmRxMTGx
clH9v8eNmJx8NUrG52QFjo+XEH4KxbURoyEgL2gw+HRcCOuggYuHAiLx+vKx
9xeOCjFr+lIlb+Qagr5HqcscFqLsSMepqCO3kfS3jtxDdyEermcmjvsnQkZ6
9azFPiEqtzmcp6y+B888FdKYoxA0qdn6bcJkfCE7Ps+0EeLD8EeqTVYadls6
dR4wE6LH+ag4wz0TxSGrVpGMhdCa/VA5IJ8FVmO3huxaIQr6hwtXe+fga5h+
noSGECUWGQ/jKQ+x9JYXefkyIeZULafvqz/GoqUG4haSQjBqWzgOF3PhJ6VF
XP8mwEzZl8Sk3jxwy0tUZz4IUJgW7RhokA/JH/GCG30C6I56ObJuFcBAYvys
XbsAf5a+7mkaegq7kSyVTW8EWO4urWRoXgSdOt9w93wRvonsq5j6DGU5ehMV
SQI4G0fJnJp8joHMN1VOUQLwT/RZr7crwdc+O9K6AAH2Vfkb6jm/gPvfmpYu
7gIYKU5zfH68wKlbiZMtlgKEeLl37M8rRaL+8IY76wXIenq7YMy5DMtv73R6
pSDAurPbtbR+lEFQnpm27T8+DnnzhD8el+N9W2q5zggfakNNOUFOFaBMfEdY
Fx/1YToy12YqEGUdPmhdwYd8kP57UvZLHJ925tzM4KPEcMXLU3av0CfN5TpE
8qH5xpZsOvkKK2s3Xkkh8xEyqZ+dmlKJbL20utO7+FgiHq8RbvYaOqe7TPpJ
fOwuOJ33j/A1lPLVR3nyfLw9ZjTFufkGzb9eLb8xw0NMflHb7g1VkExyOcFk
89CxVHvK7H0VVietUGPW8HA38Kxx/oVqnNeziE3I5kGSJeMRs6IGfgfWHxC/
wkNettyW/roarDnXesbciweN/R4p2cdrYRqQt9rSloe4zHQn2oK34FzpVFXW
4+HZIkejgCdv8a1R9UGzNA8DX4SagXZ1OPn7K6mcMYgbi7umGKN1UPemKeSm
D4KuAuseq3cok9e+GugxCIkIa8Gxe+9Asz9epasxiMf39zc/FLwDyXHhbyqf
C9b2ca+4jfVwvGK7+XouF7pvdYy1I+sxo1bl4nySCxKlp+hYdz3mLNRnDNdy
oUn42ditoIB17Jqr/acBPBTbeInuS4HnoyKFlBcDUAzW7JpXSYHrpnWrVgUP
QGNuXiUxvwEGdxTfypkMQDMhsMp2TwNYzQ4k1zkOqht5Bw7cbwDb9Pch2XoO
/rMpUJYZa8BC+U9jptc5sDOWiHQzaoR4lr/vlAMHN6/rKliENyJWXoG6TV7E
9yCdoLQ2IiGyJUCJ3Y/vu6xmOPJNOBi5V+VpTj+aU+I84j2aIDavN/qDTz+i
z1it6s1rgppbwY7xjf0oUCoZLploQvBLstXLn33YtGjzBrUtzXh55FqXW3Mf
fBYfTVeNaEan97BB750+NGzl1jxtboalQZXLDs8+2MrcNW6WbQFn4oHuk3Ui
3DrpwZn9LYgqP/1D8gcbK/8xTc3NaMFIfe7ys21snFHRbTjBa0He6RSp6XQ2
7g1uaSrSbcVIaoxxrD8bOWIlVmF+rZjutQ3cb85GeJX6KLW4Fd8llVTs5Nl4
HxR2sGiqFQkRe5uDR1kw8NR0kN7chrCguJOjtSyoqTB8PlxoQ9K8G9l5ySwo
m7LJu6rb0GqmUVd2mgVyN29m7a823I+NKVq5kwWPHh3ipnk7Vg0Ilk3psOCe
6FVBjmiHeHRM7EZxFsT//ORaW9cObuMn9wkeEw3+2aEJv9sxdPkAU6ueiSuc
mYE+8w5Qpiwd2I+YgKGcfdblDihdENupe52Jp+zCcFZ1BwSyd6kS/kwE/2fi
cON7BxY39RqG72XCMb0/9NnmThhNaS3I3srE4cAAttW5Trgnn7f20WbCTOaG
qVNJJxTnr70x/gcT6+/dDG4Z78Qp0+09unMMnKvIOFSq2wXDo77Vmv8wMHK4
ol36aBcs7wVM8PsZcI3Ky+pJ78Iupfqi890M0OuUKucRXTARs7QWUBgolcqY
yVrUjZlD3VJ6bxgwXXvf8olVN+w9xT7uLWWgc1/4VcWwbvy7NYjnW8RA4M07
uROl3RD+nrflXD4Dr6TUk/THuiFeH2dxNo8BWpaPFV2tB4ovSiYDRHP1ZOWT
fpceyHBtkk+J+CeLD7y0j+lBQnxr8EXRvoamfF+l6h48rt8SnyrSywySrd85
0YPFhfrvu0R+ZFdLcgOWUMHd3Dmt3MhASK5mifcaKipqfGNiqQwEdBgz/7Ck
4qLjEFtvkAHfJqN+8kEqJKW+xU9PMvCg9PEO/yAqDk3mPpkSZ8Jk/qO76reo
2KuTT1mlxEQ1c9gt4iEVhey03swNTDjbUFbEvabCRdPd4K+dTCg81Dtt10OF
07chuguZCY/awr7nw1ScuvrTM/MqExSNy1N1P6mIE7qd35TLxJoNoXaXl9KQ
voblq9PCFN09jYDhVTTc+evSVp+PTPAN0r/NmtJgksFlyixnITOqOrJiDw2d
jV4u4uYsbPKUylIh0zC2hmx2xI+Fkzql42tCaSjL155VSWdBITRNXBBLg4U+
hWTYzsIP0/1XLXNosPrv9eqyXyxRPjYsdiinYSEzISvOiA3p9evNfzbRcLlV
Z6hFlK937hI1LiwaXtWn5x9+woZrlsHaveM0tJYuSXMQsrFTg0ea+UkD63zX
stsr++BpuiBohywdhFaxv4ZXH7TtnB4YqtNh7BRe9TW/D1Xb9D3aSHTIjh0p
WTjRh2439iEJ0PGsuE/SYXM/OpodHEZ202EWYajxOrIfFuts+v096dCUWOpl
3tWPQxt2v00OoKNw7tcdqioHtyXfFJy4RMfxyZEgt1McbBp9tKf3Fh0vboQE
Ud5yEBg2HTCeRofRjjfSs/ID6Lb3qXr0RMQvv7yP7zMAbbkrX36V0zFl+/Xv
E+8GsF09g/rznciPS+BuD2UuUh6xFe930UFynren9BwXn8e2X+Oy6UhyvrLE
uIcLaloSlzJMx+NC25MN6wbBGb4+av+FjiPRC7ca3xzEkteJ3oFzdAxNZiu7
jw6iuV1SZ+tCAtqRIbvFtHmIpyiOP1pKIJSSJx3qwkPb1tbo56oEpCwGj/yK
4kGm8Ve9uy4BOfchakApD4ZjIWdzSYToLxuJfsbjwXZpp1fiFgKCT/k/0+X4
mAsJPbPCgoCZsqzXMnM+Ps/0etvbE6jZuOL+lD8ft/9VWrl8DwGdeL0wxXQ+
EhQOXoxwI+AanB9zsIkPi2V3d93yJABlg9mUz3xs9ck8Y0wmMJQTVpyjIgBt
gVHrZX8CfxwfiHa1EkDl6zdj77MEnt/5WJLoJ8Clb4Fpn84T2O3wr//KRAHY
6vOZyy4R6H7vjdFyAWzs5xisSAKLgmteVPUK4FAYH7n9GgE/7x8Pzk8LUGlD
rzW/SaD5S3LcjLwQH/c1XRyMJeAZsve3CkmId4WOeeqJBNJJRrRaWyF6FY31
5+4SEM/X62rxEOLiM9KCC8kEnG1PqKoGCiErx1S7myrSS6Fey4kUglpccmZX
OoF6DU+GRbwQe36t/JKTIfKbqqP1KU0Io7SrmcmZBBQKumhJOUIk+i3207tP
oMxk8aRhnhD/A5bgmI8=
"]]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesLabel->{
FormBox["\"Momentum transfer (Gev/c)\"", TraditionalForm],
FormBox["\"Scattering Amplitude (fm)\"", TraditionalForm]},
AxesOrigin->{0, 0},
ImageSize->{624., Automatic},
PlotLabel->FormBox[
"\"Real Part of Scattering Amplitude for NN Collisions\"", TraditionalForm],
PlotRange->{{0.002673965698502928, 0.30640611988352706`}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02], Automatic}]], "Output",
CellChangeTimes->{{3.587842532992445*^9, 3.587842548991458*^9},
3.587843001348239*^9, 3.58784312626369*^9, 3.587845374860125*^9,
3.58801380389734*^9, 3.588435058766651*^9, 3.58843662609839*^9,
3.588436941931983*^9, 3.588445571529811*^9, 3.588445612728187*^9,
3.588445686183648*^9, 3.5885282951093407`*^9, 3.589031155361869*^9,
3.589032645594816*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NN50", "[",
RowBox[{"[",
RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"Im", "[",
RowBox[{"NN50", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], ",",
RowBox[{
"PlotLabel", "\[Rule]",
"\"\<Imaginary Part of Scattering Amplitude for NN Collisions\>\""}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\<Momentum transfer (Gev/c)\>\"", ",",
"\"\<Scattering Amplitude (fm)\>\""}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.587407827321944*^9, 3.5874078281284733`*^9}, {
3.5878389831975727`*^9, 3.587838986125537*^9}, {3.587839021860114*^9,
3.587839091116008*^9}, {3.5878392289563303`*^9, 3.587839269020014*^9}, {
3.587839313261364*^9, 3.5878393229475193`*^9}, {3.5878425045509367`*^9,
3.587842511772339*^9}, {3.587842886449902*^9, 3.5878429162494497`*^9}, {
3.58784295651138*^9, 3.58784299954167*^9}, {3.5884360213582706`*^9,
3.588436021707119*^9}, {3.588445615047329*^9, 3.588445623319585*^9}}],
Cell[BoxData[
GraphicsBox[{{},
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwV03c4l9//B/AiezUlIRWftKgolfIUGUVS+ZWiJWRkRklmJSQlK5uKEiEi
ImS8bd7jbhiN+34v0vpE6WNU3/v3x7nO9bjO67rOa5yz1NF7v7PIjBkzntDr
//c44ebTT4ecYX7tSdfRLCHcF5TUhQ0FwGKvTlJMphA7/d4F2XuGQ9W0x1sr
Q4hfBpXK+cJI9B0pldNPE6L8eNeZiOOx6KiZUV2XIsSdNW/iRzziIWLLU32W
KETVVstzTSsSIa82nLIiXgi25K/GrbxkOC0N7ZK+LsRHwWeWaXYqbKJZYh5R
QjD3nhB5bZeBq1oVU7gkxNJfH6vezc1Gu15zTmKwEAWDgsIVLrkwit1hc/yc
EKVG6XduNN3B1oNHDhV5CzG92Phnpto9GMdly55zFeJ1Xdtby6A8VO+yd2s5
IcR4+ff4pFf5yIyN90yxE6Iw9YqVz7oHcLEvbvyyVwjNIServmsFOM/5c4xp
JsTCsmomg/8QNTNPpRhuF2K+nZTSBsMi1JDuDVt06fONzm6Ktx/hVPiPVS1a
QuzVi5A+860YojKrlwtVhaBODexcY14KjcCcv1lzhThQ47FBa+9jaFHZz/4V
F0JX8edb18nHuGydOvFhUoAAJ7su2/wyaLDdZnt/FSD7YWzB8N5yhPleup9D
CbDad9vSpZPl4B2WEw96KYC9C8mbvPcEAxEZV6dbBVDlM3L99lSgbJ6dn84z
ARovakhHjlcg5I9ToEKRAHP91r7UzqlE7Jkv3LxMAUo3qFSeMX+Kdi+myFic
AOrPzJwNvj3FQ7mg8KlQOp9va3Nup1ThluPW/2v2FmC2yI0lodur8TMgbKXV
CQGsC7zyP/GqUeImlpNpI0D9Sd3RtzHPYLbxqNwTIwGiHhR1WOvU4Me8eIWM
dQJ0zVk+uv1lDQQ8StRaXYAEH1+9B4G1sCbtI98oCCDeJ+0QpfIculJ/EvX/
8pGfo6A/2PAcod73w32/8rHE1iElx7EOyhq6mdHv+IjLSNvDnlWPn/qX9MO7
+XgkY6Xreb8ek7W+9+xr+Xj3nafuY96AwIE1q5YX8hEt2zP6eqgBskEuHHYq
Hxxl7GSavIBShUfymSg+xMJ2ck8mvsDZwv/mTwbwcS/TtvUO9wVSnIMnLjrx
0bdtxClufSNCBOPGo/v50KzX0Fse3ggRK43EUzv40G5iFp3sbYRW2qwRpg4f
6oS7qblKExq/Hvi4XY2POzPWB3PcmiA00DMqlOVD0V+9Z2ZVE7iFrM2qUzws
mZ5ZRYg2o9JgJZHykQf1mz41ZjbNaJGIlVTp46G2hTx8OLMZ6n8WRj9s5eGP
acEi6eFmLNw1lWFeyYO5nlj4Id0WbCQZGT/u8RBzVXOBUWgLBt62hFcm0PEO
2qea2lsQYn56LDaCh4ndJuNv5zKgpl48dt6Hh9aUOIcbDgwUnvfnBB/n4Yq3
yT+v8hlIOrhmc6Y1DwVKpYLSrwx09ZQH9G/nYaPMJh1V/VbseScRq7eWB1fZ
E2mLw1ohkSLV8ViFh+Yt758/bG3FxK8qHWtZHsykE/Ra5dqQJnPptPw0F807
k7K8bdvg0P9aaewTF8s+GdzOS29DjZvm59+DXHgrazafItsw93XNgG43F4kf
9BlFmu0QE9v96eZzLnJnlJpcdG9HiESZ14JiLkJr1IZYJe048LdIvCuLi5d+
F48UjbZjS5OCW8ENLtYdU7eU2tSB4CAJsjKMC1Xl164fAzvwYIlG83cfLhYZ
9Dvvru3A4q5ymZOOXDj3kuOrfndAxP7Xwt8HuHBgahAxhp14PmxIdZpyYRfv
VOEc1olNkaere/S5EFn45WBdQycuL0m0EllF1+eRc+Hm306Is+Vve6pwcent
+LsBwy44hMdlSytwgQ0KFtkhXRg2c3B4P5OLh/2FoX21XVBfOxI48oOC/5/N
ltETXchdNDK5cpiCVdrghUebumGirXTl3iCFoz6e/SZnu6FyJKX5AJPCdulo
gz2l3VAsMZY2bKawJjHGv22kG2aLIHG8isLZinT7Ms0eLM2bdKwuoiA8WtEp
daIHaof4DMtcCgcj8rOZaT0o3+rRp5xMgdOgVDWT6IGbmfro8msUyiTTx7Nl
etHpm+TuHEbBYFWm8X2TXjT35Cdw/Sl0Hwi9rHixF+/3CRrT3Cn4xNzK+1rW
i3jxptzrJyg8lVRLWjvci4FPBjq1Bymws11NOKpMmE3wWpbvoVD7rer+4H4m
6pFa3mFC4XTJ4UqLKCYOlwQ9eLiVQjPjgZtSLROxeyYtGespZPjJNe76ysRB
1YW5KispyK0Qf+85m4UdCxynitUpBOSpl7qsZGGL2bOSYCUKnl16b+SNWbDN
MXSLnE3BjaE76HyEBfGVJ4kOSQpZZfd2ePixYMNT/7JrJoXNoncT1K6xUMuQ
l581SaL2jeBQ2B0W6vvS3k+Mkthr2qQSV83CGRm+nNZnEgvuaHmZM1ko9+r6
fEtAwqGucKBYwILyJMnZ+IFE05KQ0YYpFu4Va7yY109ipc4F85A5bDgGVp/S
Iki4H17iKfiHjWdnPz4N7CFBrUv775cBG+tvW8wRbSeREVEbXmHDhmtH9IWm
JhIbj0lmKzuzob/G5VZdHYnTGmUjKy+wYZNcKf+5ms7nQqoI9zob89VaRvZX
kJg0sL1snMtGWuWTl19LSfp/6MhaPmFjv9OYf2MRCak1awynGGwYr7rc1fmA
xAs7sef7+9j4/mdMRyqPxMHsdav2jbBxln1634VcEruWkNrjU2xUlj8PV8si
ccxglt8OOQ46b833/JlGYrn5nqwNahysOv++/m8KiZqtax06tDnw3dUTvDmJ
RO+hfnsxcCCyTDs37xaJrlZLS6E1B7M+7IzafpOE0WrTQY9jHDjd+nZJPI6E
vY51fbInB5u0bIynr5GIFX9WcCqYjs/4paIaQ/dj6K7Nq2scaIvqynpFkfC5
+NNzJJWDEM0Jf14kfZ+Fa83d+xxU6PF3RV2h81O49P33Ew6uiHcY7btMYpta
OmvqBQdf0x8c3nGJRMrdfsXMHg5Gv4clHYog8e/wtsj3/RwsEuVZJISTYKUm
vW8S0PGMk73fwki8FVwdsvjOgfzS0tUetGdXx7v4THNguylKRIZ2a6e4xhYJ
Al6D9ZJtoSRuNCmO3J1DYFhiKDmLdseW9ivFiwlsbvHaH09buuV3o50mgelx
SdN02huGA3zztAkUFmgo1tE2m9PtFK9PgGzw7x6jPR1wwVvFiEDWtonThvR9
/46/crGwIBAh5vztNu3YMaVl820InFud8kSUzv/mgiNBYYcI5F9nzb1I22he
wu5rxwikquc7TdPe4prhredMYO/QvIdRdP3sWbrtIR4EXNuYwoV0f5R//Kfn
4kvAs9otoIh28H8+qV/OEThWQ9ka0/3sVxN9My+YAKOl/e0AbVOL6dd94QQ6
Kx09vOj+WxbeCN8WSYB5f3piJj2fKlNOnWEMXW/AgPAG7c8HGEEfrhMYUI6L
mXeVfo+FVvlq8QTOJM/n3qT9SlFv7XQCgeaXCTkz6HkHPdKeFZhMgOqTaHKm
LafwRjXhNgHH6H9samizSkq9d6cRkFGM2SYZTcLm97LvuekEdqztHzWkrZt6
OSM5g8B2KXV5d9rx7rLuWpkEHodt2BlB+3+0nqte
"]]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesLabel->{
FormBox["\"Momentum transfer (Gev/c)\"", TraditionalForm],
FormBox["\"Scattering Amplitude (fm)\"", TraditionalForm]},
AxesOrigin->{0, 0},
ImageSize->{623., Automatic},
PlotLabel->FormBox[
"\"Imaginary Part of Scattering Amplitude for NN Collisions\"",
TraditionalForm],
PlotRange->{{0.002673965698502928, 0.30640611988352706`}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02], Automatic}]], "Output",
CellChangeTimes->{
3.587407828546053*^9, 3.5874081670100718`*^9, {3.587408208324787*^9,
3.587408219624072*^9}, 3.587742171284443*^9, 3.587758026415271*^9,
3.587836656174357*^9, 3.58783676695798*^9, 3.5878392702503033`*^9,
3.5878393232372637`*^9, 3.587842308864788*^9, 3.5878425121325817`*^9, {
3.587842888181568*^9, 3.587842916781806*^9}, 3.5878429592631903`*^9,
3.5878430034755573`*^9, 3.587843126298381*^9, 3.5878453748948793`*^9,
3.5880138083111677`*^9, 3.588435058794497*^9, 3.588436626134337*^9,
3.588436941966312*^9, 3.588445571561638*^9, {3.588445615448501*^9,
3.588445624237739*^9}, 3.588445686254966*^9, 3.588528299451601*^9,
3.58903115539669*^9, 3.589032645628283*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NN50", "[",
RowBox[{"[",
RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"Abs", "[",
RowBox[{"NN50", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], ",",
RowBox[{
"PlotLabel", "\[Rule]",
"\"\<Magnitude of Scattering Amplitude for NN Collisions\>\""}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\<Momentum transfer (Gev/c)\>\"", ",",
"\"\<Scattering Amplitude (fm)\>\""}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.587407827321944*^9, 3.5874078281284733`*^9}, {
3.587823938891843*^9, 3.587823939618092*^9}, {3.587839427034511*^9,
3.587839438136798*^9}, {3.5878430300608664`*^9, 3.587843031440772*^9}, {
3.588436022879847*^9, 3.58843602329591*^9}, 3.5884456289034653`*^9}],
Cell[BoxData[
GraphicsBox[{{},
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVVXk41G0XRiuS8KZSmLJUsmVNlltZ31S0KUtarJFItEmUNsry2rIlRLZK
ZIsUI0MJM/NrIdJifrOZqaioSN98f5zrue7r3Nc59/1cz3PO8oMh230lxMTE
Hoji/2cCe51/HccXrs2J7IDnQgQuvNcczYnAgN6NMnqnELZh7057BMfANSQ3
Yw1NiAnzWqVi9kVMrLVUOU4Vonpf1+Fz+66C/8Ejq65ZiALtN8n8oGQEWf1+
JKgXon6903HqylS8UbnioFglBGPuROv64XSwlzT0mpYJwSMFdLu8TOxYEVrh
mi9Er/N+idd7crCmO94kPEOI5RO8+nfyeVg5lZqbfFWI0gGyfKVfPq4LQkvu
RwtRaZ1dkEgtwD712rK+MCGmlm78katyC0kzm/ulfYV43dwx6HS6CO8Eqyhb
XIUYrx5NTntVDL4MaVtsL0R55oXNofol0I52jZc3EUKD47O5L74UvzRYLnnq
QiyqauhtZ5XBKNvq3BZ5If7ZI7nYwKoCjPPP3dX+CrDI2PeQ4vU7ODmrqVN9
RABno3NSh7/chaLrnzj31wJ89H5rq+1QiSjG4dHOFgF2NAYZrHK+j/mXve1P
lAtgqPhjMOD3ffy9pmQfmCpAhM+erp3FVbBrqv1eEilAXtnVUq5zNfqtHXRM
vQVYc9Ri+fLf1bj+d1cTZZMAHn4fhn/feoDVVibv/PUFUGa154dtqcG+wYio
RYoCtEaqS10cr0H2V++EtZMjkA/Teal7sxZzUxZJUN+PoNJgWe1hhzoMB6l1
vGgbAeWhva/5lzps7/3vqXvJCCK+6Ny8nlGPH7ayNsfiR7BAIlH1rGUD8hyl
xJcFj2Br6ZHikeEGsGLZyXudR/D4gOHYYNxDHFUTV7VYO4LLJRXPtuo1YnSV
lGa7/Ai65NTGLF82wtB3+NPPb3ykhB41KjnZhOnzlxnkSz5m90l5Xl72CJXb
N6xLqOWj+Kas6cCTRwifStGcTOdDdadnxs2DzTCRswxYe5yPhJysLYyZj5FQ
ZvndzJWPO9KbDYNvP0Z45eLCJSZ8vBsdpoQ6PMHgeTvnDwv5uDKve+w15wkk
9liujf/BA1MJtr02Lfji8tef8oqHWdG2nw6ktsBoV93eOzU83MrdSSv41IL4
wqOxhmk89FnwfRLWtmJvW7Gw6RgPGo/VjdRiWjFUFzS6ZQcPutTeigM9rRiw
lckYMeCBQgTaOSyjYo6UcHmBPA8FYmvPMA9RMd9G+1PwGBeK4ZRu8XoqxFqm
D3swuVCdEq8nZrTBTLzremg1F5Sk0EZ7lzaMQvff6hQump5+cHPLbcNvbliG
2jEupu1Kl0hx28A/8la8ewcXDkazYnYbPkXD5FJulREXcZc0FlqffQp1qUjJ
/oUivqeuN7VTlLewj7Wd4ODXJpvxQfl2hH8NoU31cUDLSPBM9GxHa8OHTTOa
OLgQYqP5qrgdRi3Nn/fe4KB0cSVZ+bkdEUkNE3IxHBhLm+gpm9KgIN/7cYU3
BwHz9mctjaYhrlRcLM2egzazoUdlNBoorhFFgVoc2EulGNFkOjDfXzy3fL4o
b5t2I2RnB46rZ3Xv+sbGihHz60XZHbip8PVzaB8bIUoabd4fOsC+0eY+8zEb
qe9N2ys0OjFaE35bsoiNfLFKm8jATigE5EZdjWfjbKMKh36vE/k5YvMSjrLx
MizSvWKsEwHtZ/Kk3djQ96I4SZo8w1Sl+sEFG9hQVnodwDv5DMHREq45q9lY
Yt7vu6npGa5Hp8lXybPh2/NhXOuPCMd+VN42RcKzV52Is3qOettM87NsEnuS
fWp8o5/DaWzNNjBISCwSujY/eY7+sY+9aY9ItAXdPJX09zlk9scXxJSSOD84
/u6tVRf21aUPiqeTgIGsY15UF47YOBOU8yTK+svP9jV1QcvnfeJQCInw6XVO
V3514fM1nUhTLxKbswZO3TF5gQOznL2Nt5DYGxrcb3PsBTT1nPHKgoSl1BXz
LZUvMF7xQ11Fh4R2alx4B/8FwneNUGRUSByryfao0ujG+zW77ItlSbD31jyX
3N8NKm1vLU+chOu54rzerG5sGBs49P47C8wni+vFiW7UzEkbvchloWpu9nie
dA9W1BvyBwdZMNfK3XjbpgeyFP8pHoOFFzvOxipG9kCBvav+XgcLoXH/FX2u
6kFyqmOdzmMW6uaqpOlwe9CjfsImoJYFRl6ADVO5F+8sTLX232Wh6Uv97YHt
vfhj+6NoyW0W/O+51Tpe7sWjhzsNMm6y0NZecmhxUy82H9z++U0WCzlhMq3/
fu6FUFzB91MaCzIrZw8FL6BjmDekX5PMQkQRpdJvNR15O+NLdyWwENxl9Gb+
Rjo+xmrMp8WzcKjdcMDXnY41Z8y6JeNYuFF1a0NQGB1ahQy9FVdYWDejMEUl
ng7T3B4FORFuekPuji6go6B2ZPmgCDvbUZclNNAxo7BaM1ZUb2HBqiMOvXRQ
/UuSpET9PJvL394l6bCrUC0PF+mhqkaNPZmkIz/toVW7SO9qvVMOUXIMZBhM
XJkS+Ql0Uw0mNRnAuO49Sj4LH/Wzfk6YM2D1662XcYnI77mmmBoXBhpD1QTG
lSwYe83NU/JloGLYjNRtEN2XehV/9SkG5s0NklWiivScypT4dI0h2qtlgqkX
LPw23xm7MZ+Bc16JzgN9LNH/0Jvn9EBUr29Mv5ZkQVJb22qynQGu5DbdxG8s
tOyZ9Wh7HwMK2//k+UmI3keevtY2PgP/jF1LsZQn8a/qB93xSQYeWRbtUFQj
4WU+M2yDDBMKDL74mBEJNYctNwxUmMj61HGkx4FE43odz2e6TGSaS+8o8yDR
s7vfYxaYOHsi6veFUBJdNCcn9lYmjNf1VHteImG9xm4gyIuJCg2Khf4NEh56
Wx+nBzMxa3fkyskaEldnPyz1PiPiB4h9r+smYcwpdHkVz4SWQdJSHw6J0Mgf
wfxMJv5W5i/7Js5Gj2NAY+FtJpJDDt71U2ZDTfb86J8HTDQ1Cuzum7FhoZJN
n2xhwujxgDHNlY2Mwn7F3G4m3puRDfnhbHzlWlwc6hf12+BN00tlg56ZNkQl
mdBM6jjtX83GIHmJ4zjKxO+X6wljJhsLGpL9QqeYMAlouZs0xgbt+Wx1szkE
rC8GPPRS4CCRqsgvlCNgkBR75JoRB8/MOi/cXUog9nh1xRxXDqSe/mndo0HA
bVjzQu0JDgy4EUeLdEX8jzgZkyWap3IvfJJNCZy/ENa5WTSvpyJOhSyzJkCT
nvb/O8jB1/FXfo6OBBTy2bNOTHNw9dviFf+4EFDTHrHIUeUiaaH76ejdBC64
KCzYZM2FtULKpngvApIThPbB/VyYBeSEGPkS0BwqTm+J5oIx07AzKohASUPx
tF0eF0rffxr5HSUQ4WKxgd7ExZmfoZnC4wS2O9N81vdx0a8y443CGQL969x2
+nzjws5x6nVfDAG+e/ZNLRkenMoTYywuEuhylzYL1eCh3o7ZbBVHQMXqU6mc
BQ+CHe2n318j8E3DMnXMhYeW8s3FKskEety8Osa8eXilaKQzlSLSe4fmPRnO
w+k7ujNPphNo1Prv41gsDzKyb5RTrhPYd+lHd2syD/R7lSGbsggoP1Mod8/h
weXPitH8bALHTp2JKr7Fg2FmbE56DoHpl6vzc8p4SA6cF7gql4ClZle/wV0e
/geWOK9m
"]]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesLabel->{
FormBox["\"Momentum transfer (Gev/c)\"", TraditionalForm],
FormBox["\"Scattering Amplitude (fm)\"", TraditionalForm]},
AxesOrigin->{0, 0},
ImageSize->{602., Automatic},
PlotLabel->FormBox[
"\"Magnitude of Scattering Amplitude for NN Collisions\"", TraditionalForm],
PlotRange->{{0.002673965698502928, 0.30640611988352706`}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02], Automatic}]], "Output",
CellChangeTimes->{3.587843126326964*^9, 3.587845374927541*^9,
3.5880138132882967`*^9, 3.588435058823783*^9, 3.588436626161519*^9,
3.58843694200177*^9, 3.588445571590825*^9, 3.588445629273905*^9,
3.588445686322266*^9, 3.588528302645941*^9, 3.5890311554458733`*^9,
3.589032645661893*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"ListPlot", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NN50", "[",
RowBox[{"[",
RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"Arg", "[",
RowBox[{"NN50", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], ",",
RowBox[{
"PlotLabel", "\[Rule]",
"\"\<Complex Argument of Scattering Amplitude for NN Collisions\>\""}],
",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\<Momentum transfer (Gev/c)\>\"", ",",
"\"\<Scattering Amplitude (fm)\>\""}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.587407748259241*^9, 3.587407813439806*^9}, {
3.587823940899152*^9, 3.5878239419380827`*^9}, {3.587839486988488*^9,
3.5878394991874733`*^9}, {3.587843034421137*^9, 3.58784303648345*^9}, {
3.588436024196422*^9, 3.588436024557724*^9}, 3.588445632823563*^9}],
Cell[BoxData[
GraphicsBox[{{},
{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVVnk0lA8XplSWiiSVylKpVNr4VZY8IkshvvIVEZUlJT8SlRJaVIiEKVuE
hokissu+ZDczb9m1icE7M6+lRFHffH/cc89z7j3n3uc59557lc64H3GaIyQk
9EZg//ehg3vP5nOcUEwzXruDRuL8ssxSf443zlol2LEE+IBn3zUbtwCUN+rN
73lM4qdWnhx9MBBCs++tTaNJ5Ng3XbhpH4L9eou9t8SSSNraET7iGo7SRxL5
l+JJFGiaXK7aGIn+4V8NyokkWKI/KzX7aViuE26FZBLDA1ymQUI0soMt1evp
JNrMT81pt4qD/g2xiuwXJJR+Dhf0SSdA7tbW/yzKJMHoGUjf6PwMPVu6uhtz
SGTpxiaFVSWhQGv8y0QBiZlVej/i5VNgqCTfeKuURHvpu16Ta8/RLcR4dKOa
xGTOWHjUBzp8rojZdzeQSI++Y+qxIw1HvnJKE5kklDmOpp3BDIjkdkc1dZBY
nl3YVvvtBQztn7DtPpGQsRJbsUsnA08tbylacgTxf5zOyT55CXaays2XFAlz
9ZviF6hX+PNRM/zCFIkvDt0Hthplof3SQXqoMBdHi113bTJ/jZXT7SlSElyo
yf7odfn1Gr3jdSu+y3Dh7WjVZEnPhpndvto9ClwkvAhhDJnnYLoAJztUuNhy
UVtJ6VcOLD54pXaoc2Hj/Ln/V8obuHgaO6jpcrHmW+0zT7NcWEw0+3BNuKi8
vl48cDIXYZFurjPHuZD2VH2/LTEPKxb8inZw5CJr1+q8C0b5kIHUy/UXuVAs
MnTSovJBX8hQ3+sn6IdSTXzyuADjUoYLEkO4kJoTpuC3rxCpf/8uOBbDxWHG
v3SyvxDB9M1q9mlclJ1WG+8NKsL2D2qn3+RxcS8to+Hw9mL4TtMij9Vw0bRk
3fi+98XYXPq1YR/BRYTHRfW0qyWgF4hYuH7lYn6nuO291W9hYhGx4NMYF/RE
yT095W/xNsa3IEyYBwVL28eJZ0qxuNj4pf8SHkLjYsxYImVQoUk9Slfi4aWE
qZpbahnYbxs7JXfx0DfWr+hhVI4zFtQphh4P9xe2jLdzyvGdZ3764lEe2HI4
0KZfgTHHb6fOOvIwz//A19ORFSi9kZIc5M1DSrxlXdLXCvSl5YYQd3no1B5x
DN1ZiUeWs7Va0Twol61XXxdQibk9vg1VL3jYVtWWcbq1EhvfFyQ4lfCgSJw3
MFpdBUXnvvo1LTwkCe30ZZ+rwiUYXRv4yIOsl2KLcEEVZE+So6WjAn4zwgXE
3GocP9qzMG4OH4oPPYoNLaqh+0E2xU+Gj5Kaz9bW8dWYuy/NxmYDH38MGCvF
h6rhF58TpbaXDyP1eQHH1WrQK704duYgH0F3lZfp+tUgYqhHNddGkG+7zaGq
vgajzg9/W7nxMX1If7JXuhavb0e3d/nxUfc41DbMthYm1dbTGuF83HHX3/CB
XgvLjHEbjyQ+GCuyBrL4teid7Si8msPHPxK7t6/ZU4cnqtrqh6r5cFl4KmaV
fx2aypSm+gk+qjU+vn1RV4d990QUNb7xYSgeoV636B2ethX56n8XxA9EPXW3
fAeeRnSokAiFtaTWk+ex73Bpdp+oy1IK7nLK1Q6f38E8fEDFcy2FyE97ajOU
65GTZJ+5eieFZ0JZ+tfP18M6bendY6DgVyzPYWbWY8/Ky9c3mFF473n9RMZ4
PXb4/6j3OUFhh52iidjuBhgZH045fJbCGrl2l+GrDbjtmKrx9BKFlVpdTodK
GjCU1/7H0Z+CU+vnyc2zDYjL8RaLCKZg27aeCNJphL2cfu5GGgWrcMdcJ/9G
dO2WmliVSGHOct6x0vJGZCy5Z3KaQaHaNdHn4d9GbHEf2zL7msKt3sm+bp0m
iNdvrPlcSAG7JI0TbjRhou6L2twKCi+60v06S5rQUPZNw6GOgtefvSb3p5vg
VPd3x1QTBdOYHp+Xu5uRqHbyeTGTwkkPty79S80YZRd50t9T2Cd+X8ssqxmX
L/vezeygsDUyyOvdSDNcrdlfmV0ULuXG2mQrt+B7fE/wgh4KgydzG8VOteDX
xO5EMwE+dpOe0BbTggHjdqXYbgrs8hUFwkQLxr7LtnE6KWSLxk4mSLTCJ0gi
aGc7Ba3N8Xqp+q1w8BfX8WRTaD7qd1v2eivkz1X2PWuh4BH06Dk/uxX5BfGR
Je8o5IvKR6kOtaJ0mHGyXMCXleCiz17ThqXk2bIUgR4lVEFqz5E22KcJj7lk
UTibaZ1nfK8N7e7etnPpAj1r086tKGlDTZn5Fa8YCnGeiyoP8ttAK3JWyn9A
YdHG+R/dpJj4K/U6o8GPgvdzxSxnFSZG9OykGe4U3JrUOxbrMTFxPjvAzJ7C
uVq1HqcTTIQGglYomJen2Sn7XT2ZMBtmrCI1KeydmxwhH8zEXTl4fdkg6K9j
4Lh/EhPftLtXxiyhYG5QtTq0kAlGaki95G8+liVt+teojQlS3SvIpJ8P29L0
7lcDTCRMXVx1qJGPKoUb4+W/mRC+f0Va4jUfKtt9jG4sYWHUtTcwNIqP89YK
bgMbWJCouuLafYWPLztipn5qsRBgON3Ht+Yj7mZJQK4FC7tPdLSzNAX7Zyea
IOfEwn9pm67ckePj7PrsERUfFjQkF+qJTfOwzCd6ztcHLOz4PmfyQjsPv7Qs
b+s9Y8HXKfp9eg5PsB/bF5q8YSFnts+aCOVBbOtWnd+1LKSL9QeSZ3mosJr3
9kgnC2+XVir81uXhWMKOzf8ZYYEZWPRIdCUPBxU+b5v8zUKRWGbM2lEu7LRE
PPcvYkN2yniOaR0X64zMnu6SZ8MsgiYXG8dFsaaqbcM2Nh6fpK2V9uCi9XiX
zTywwdEPelivL7gPdSYmg4fZcPWS+Vkly4XuFoMeVzs2SG2xqWXDJGy2Hy6j
ubGhk+nU3FJMImR+EcPBlw3hmeTI2RAS/3CSLT4Es0FEFWcW25LwuP7DbSSa
LfhTNhZIqpJoNXYpTk5lI9Fg+t3y2RGsk7w1NvuGjfLcUusvzSPQlo9l/q5g
Y2p6cuh2/AgeJ3fJxrewkdrv8lr6wghGh7QDP3axUdHJ+MnQGgEzOupj1QAb
Fz7rrTohMYLegbsc4zE2qr+UX9HsGYZUYbizxwwb+Xp0/fMZw6hrnL9eYwEB
zYRZpV/XhxFWJTuSvITA7iCru/PNhtGgUX/n1SoC4ec4Qwz5YYjXzFZaKROg
O7iETo8OYdeQ98Xn2wicychWk6kZguGSZsfwPQQOaDf6LI4ewoy3j/tqXQJd
od2JIm5DGJ384GxsTKBslW6jpP4QQiZWrJWxIBBo6rzfRG4ID5eduOZ/nECe
HxnWOM6B7tKIQ8F2BFryF35Na+ZAwyXOXd2JgKdGQIsQgwOWiFr9DVcCNNm3
pt/ucCD3fUrd+SIB0Xr55HMOHPhOeUTzLhM4Kh2y+ZU+B13yczuW+hJYHjXy
sVKZAwPjmfbOAAIPQ6Wi8sQ4MEkPC9AOJCB1XPPfZGoQBQbsUp0gAvG33g/T
OgbBPVp77dMDAgd3zeokVA6iIt2ULh8uqE9oTTFfDeKDrLrqTAQBuUIZmnr8
IK693CZylUZgSFqlvfPBIBZJdqyJeEJA/ABdqsZ/EMzMLPdDMQSUK4+WS3gP
wmJ27dizWAIT8x+dTL0wCLXo23G0OALJ5xwb0pwHEX5+4flN8QSCFM40ijoM
4n/Mvcl1
"]]}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->True,
AxesLabel->{
FormBox["\"Momentum transfer (Gev/c)\"", TraditionalForm],
FormBox["\"Scattering Amplitude (fm)\"", TraditionalForm]},
AxesOrigin->{0, 0},
ImageSize->{627., Automatic},
PlotLabel->FormBox[
"\"Complex Argument of Scattering Amplitude for NN Collisions\"",
TraditionalForm],
PlotRange->{{0.002673965698502928, 0.30640611988352706`}, {0, 1}},
PlotRangeClipping->True,
PlotRangePadding->{
Scaled[0.02], Automatic}]], "Output",
CellChangeTimes->{3.5878431263478727`*^9, 3.587845374961525*^9,
3.588013816335821*^9, 3.588435058857342*^9, 3.5884366261961613`*^9,
3.588436942031329*^9, 3.588445571622259*^9, 3.588445633330035*^9,
3.588445686391253*^9, 3.5885283050963*^9, 3.5890311555438347`*^9,
3.589032645695463*^9}]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Fit data to complex gaussian (see model on next line)", "Section",
CellChangeTimes->{3.587845328635953*^9}],
Cell[BoxData[{
RowBox[{"Clear", "[",
RowBox[{"\[Beta]", ",", "\[Rho]", ",", "\[Sigma]"}],
"]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"model", "=",
RowBox[{"\[Kappa]", " ", "\[Sigma]", " ",
RowBox[{
RowBox[{"(",
RowBox[{"I", "+", "\[Rho]"}], ")"}], "/",
RowBox[{"(",
RowBox[{"4", " ", "Pi"}], ")"}]}], " ",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[Beta]"}], " ",
RowBox[{"q", "^", "2"}]}], "]"}]}]}], ";"}]}], "Input",
CellChangeTimes->{{3.587839568504426*^9, 3.587839634901552*^9}}],
Cell["The fit is only performed over the first 50 degrees.", "Text",
CellChangeTimes->{{3.58784534133727*^9, 3.587845349407783*^9}}],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"Npts", "=", "50"}], ";"}], "\[IndentingNewLine]",
RowBox[{"FindFit", "[",
RowBox[{
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NN50", "[",
RowBox[{"[",
RowBox[{
RowBox[{"1", ";;", "Npts"}], ",", "1"}], "]"}], "]"}], ",",
RowBox[{"Abs", "[",
RowBox[{"NN50", "[",
RowBox[{"[",
RowBox[{
RowBox[{"1", ";;", "Npts"}], ",", "2"}], "]"}], "]"}], "]"}]}],
"}"}], "]"}], ",",
RowBox[{"a", " ",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[Beta]re"}], " ",
RowBox[{"q", "^", "2"}]}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"a", ",", "\[Beta]re"}], "}"}], ",", "q"}],
"]"}], "\[IndentingNewLine]",
RowBox[{"Show", "[",
RowBox[{
RowBox[{"Plot", "[",
RowBox[{
RowBox[{
RowBox[{"a", " ",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-", "\[Beta]re"}], " ",
RowBox[{"q", "^", "2"}]}], "]"}]}], "/.", "%"}], ",",
RowBox[{"{",
RowBox[{"q", ",", "0", ",",
RowBox[{"2", " ", "\[Kappa]"}]}], "}"}]}], "]"}], ",",
RowBox[{"ListPlot", "[",
RowBox[{"Transpose", "[",
RowBox[{"{",
RowBox[{
RowBox[{"NN50", "[",
RowBox[{"[",
RowBox[{"All", ",", "1"}], "]"}], "]"}], ",",
RowBox[{"Abs", "[",
RowBox[{"NN50", "[",
RowBox[{"[",
RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}],
"]"}], ",",
RowBox[{
"PlotLabel", "\[Rule]",
"\"\<Gaussian Fit to Magnitude of Scattering Amplitude for NN \
Collisions\>\""}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\<Momentum transfer (Gev/c)\>\"", ",",
"\"\<Scattering Amplitude (fm)\>\""}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}], "Input",
CellChangeTimes->{{3.587407827321944*^9, 3.5874078281284733`*^9}, {
3.5878240360003*^9, 3.587824128334293*^9}, {3.587824222900638*^9,