501
506
3.696844619984022*^9, 3.696844649084661*^9}, {3.696845296679281*^9,
502
507
3.696845305070901*^9}, {3.696845379529882*^9, 3.696845386963257*^9}, {
503
508
3.6968454419651833`*^9, 3.6968454998682404`*^9}, {3.696849705068871*^9,
504
3.696849706346312*^9}, {3.6968497742989607`*^9, 3.696849774768832*^9}}],
509
3.696849706346312*^9}, {3.6968497742989607`*^9, 3.696849774768832*^9}, {
510
3.697468912275374*^9, 3.697468912331299*^9}, {3.697468950761147*^9,
511
3.697468951006267*^9}, {3.697469246897338*^9, 3.697469258643704*^9}}],
516
RowBox[{"2", " ", "CF", " ",
520
RowBox[{"-", "2"}], " ",
521
SuperscriptBox["m", "2"], " ",
525
RowBox[{"-", "1"}], "+", "z"}], ")"}], "2"]}], "+",
527
SuperscriptBox["qT", "2"], " ",
530
SuperscriptBox["z", "2"]}], ")"}]}]}], ")"}]}],
532
SuperscriptBox["qT", "4"], " ", "v", " ",
535
RowBox[{"-", "1"}], "+", "z"}], ")"}]}]]}]], "Output",
537
3.6968496889279118`*^9, 3.696849733308488*^9, {3.69684977784964*^9,
538
3.696849801452836*^9}, 3.697468921595399*^9, 3.697469251491867*^9}]
545
RowBox[{"Series", "[",
548
RowBox[{"l", ",", "0", ",", "0"}], "}"}], ",", " ",
549
RowBox[{"Assumptions", "\[Rule]",
553
RowBox[{"2", " ", "q"}], "<", "Et"}], ",",
554
RowBox[{"q", ">", "0"}], ",",
555
RowBox[{"Et", ">", "0"}], ",",
556
RowBox[{"m", ">", "0"}], ",", " ",
557
RowBox[{"l", ">", "0"}]}], "}"}]}]}], "]"}], "//", "Normal"}]], "Input",\
559
CellChangeTimes->{{3.696751759569578*^9, 3.6967518090445127`*^9}, {
560
3.696754779770955*^9, 3.696754799009509*^9}, {3.696754934829404*^9,
561
3.696754938371982*^9}, {3.6968445491243687`*^9, 3.696844553442862*^9}, {
562
3.696844619984022*^9, 3.696844649084661*^9}, {3.696845296679281*^9,
563
3.696845305070901*^9}, {3.696845379529882*^9, 3.696845386963257*^9}, {
564
3.6968454419651833`*^9, 3.6968454998682404`*^9}, {3.696849705068871*^9,
565
3.696849706346312*^9}, {3.6968497742989607`*^9, 3.696849774768832*^9}, {
566
3.697468912275374*^9, 3.697468912331299*^9}, {3.697468950761147*^9,
567
3.697468951006267*^9}, {3.6974690422194557`*^9, 3.697469053307951*^9}, {
568
3.697469134868682*^9, 3.697469136916689*^9}, {3.697469264235663*^9,
569
3.6974692691090612`*^9}, {3.6975226146472692`*^9, 3.697522637631784*^9}, {
570
3.697523318975182*^9, 3.6975233208806257`*^9}}],
574
RowBox[{"-", "CF"}], "-",
576
RowBox[{"CF", " ", "q", " ",
577
RowBox[{"ArcTan", "[",
578
FractionBox["m", "q"], "]"}]}], "m"], "+",
580
RowBox[{"Log", "[", "4", "]"}]}], "-",
581
RowBox[{"2", " ", "CF", " ",
582
RowBox[{"Log", "[", "l", "]"}]}], "-",
585
SuperscriptBox["q", "2"], " ",
586
RowBox[{"Log", "[", "q", "]"}]}],
587
SuperscriptBox["m", "2"]], "+",
590
SuperscriptBox["q", "2"], " ",
593
SuperscriptBox["m", "2"], "+",
594
SuperscriptBox["q", "2"]}], "]"}]}],
596
SuperscriptBox["m", "2"]}]], "-",
601
SuperscriptBox["m", "2"], "+",
602
SuperscriptBox["q", "2"]}],
603
SuperscriptBox["Et", "2"]], "]"}]}]}]], "Output",
605
3.697469053630007*^9, 3.697469139483398*^9, {3.6974692650572557`*^9,
606
3.69746926945408*^9}, {3.69752262233219*^9, 3.697522644964891*^9},
607
3.697523324730804*^9}]
613
RowBox[{"FullSimplify", "[",
616
RowBox[{"l", "\[Rule]", "1"}]}], ",", " ",
617
RowBox[{"Assumptions", "\[Rule]",
621
RowBox[{"2", " ", "q"}], "<", "Et"}], ",",
622
RowBox[{"q", ">", "0"}], ",",
623
RowBox[{"Et", ">", "0"}], ",",
624
RowBox[{"m", ">", "0"}], ",", " ",
625
RowBox[{"l", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
626
CellChangeTimes->{{3.6975226478773623`*^9, 3.697522662482214*^9}}],
635
SuperscriptBox["m", "4"]}], "+",
637
SuperscriptBox["m", "2"], " ",
638
SuperscriptBox["q", "2"]}], "+",
643
SuperscriptBox["m", "3"], " ", "q"}], "-",
644
RowBox[{"2", " ", "m", " ",
645
SuperscriptBox["q", "3"]}]}], ")"}], " ",
646
RowBox[{"ArcTan", "[",
647
FractionBox["m", "q"], "]"}]}], "+",
652
SuperscriptBox["m", "4"]}], "-",
654
SuperscriptBox["m", "2"], " ",
655
SuperscriptBox["q", "2"]}], "+",
656
SuperscriptBox["q", "4"]}], ")"}], " ",
660
SuperscriptBox["m", "2"],
661
SuperscriptBox["q", "2"]]}], "]"}]}], "-",
663
SuperscriptBox["m", "4"], " ",
666
RowBox[{"2", " ", "Et"}], "q"], "]"}]}]}], ")"}]}],
668
SuperscriptBox["m", "4"]}]]}]], "Output",
669
CellChangeTimes->{3.697522664548603*^9}]
675
RowBox[{"Series", "[",
678
RowBox[{"q", ",", "0", ",", "0"}], "}"}], ",",
679
RowBox[{"Assumptions", "\[Rule]",
683
RowBox[{"2", " ", "q"}], "<", "Et"}], ",",
684
RowBox[{"q", ">", "0"}], ",",
685
RowBox[{"Et", ">", "0"}], ",",
686
RowBox[{"m", ">", "0"}], ",", " ",
687
RowBox[{"l", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
688
CellChangeTimes->{{3.697457927633585*^9, 3.697457928946465*^9}, {
689
3.697458014979169*^9, 3.697458039365716*^9}, {3.69752272749638*^9,
690
3.697522740990859*^9}, {3.6975227938597813`*^9, 3.697522832741075*^9}}],
512
RowBox[{"-", "2"}], " ", "m", " ", "q", " ",
513
RowBox[{"ArcTan", "[",
514
FractionBox["m", "q"], "]"}]}], "+",
516
SuperscriptBox["q", "2"], " ",
697
RowBox[{"-", "CF"}], "+",
698
RowBox[{"2", " ", "CF", " ",
700
RowBox[{"2", " ", "Et"}], "]"}]}], "-",
703
SuperscriptBox["m", "2"], "]"}]}]}], ")"}], "+",
706
RowBox[{"O", "[", "q", "]"}], "1"],
707
SeriesData[$CellContext`q, 0, {}, 0, 1, 1],
709
SeriesData[$CellContext`q,
710
0, {-$CellContext`CF +
711
2 $CellContext`CF Log[2 $CellContext`Et] - $CellContext`CF
712
Log[$CellContext`m^2]}, 0, 1, 1],
713
Editable->False]], "Output",
715
3.697522731519294*^9, {3.69752279890936*^9, 3.6975228333460417`*^9}}]
721
RowBox[{"FullSimplify", "[",
723
RowBox[{"Assumptions", "\[Rule]",
727
RowBox[{"2", " ", "q"}], "<", "Et"}], ",",
728
RowBox[{"q", ">", "0"}], ",",
729
RowBox[{"Et", ">", "0"}], ",",
730
RowBox[{"m", ">", "0"}], ",", " ",
731
RowBox[{"l", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
732
CellChangeTimes->{{3.6975227477996902`*^9, 3.697522758249885*^9}}],
740
RowBox[{"-", "1"}], "+",
744
SuperscriptBox["Et", "2"]}],
745
SuperscriptBox["m", "2"]], "]"}]}], ")"}]}], "+",
748
RowBox[{"O", "[", "q", "]"}], "1"],
749
SeriesData[$CellContext`q, 0, {}, 0, 1, 1],
751
SeriesData[$CellContext`q,
752
0, {$CellContext`CF (-1 + Log[4 $CellContext`Et^2 $CellContext`m^(-2)])},
754
Editable->False]], "Output",
756
3.697522758753306*^9, {3.6975228115042877`*^9, 3.697522836064643*^9}}]
763
RowBox[{"l", "\[Rule]", "1"}]}]], "Input",
764
CellChangeTimes->{{3.697469143584943*^9, 3.697469147504788*^9}}],
769
RowBox[{"CF", " ", "q"}], "Et"], "-",
775
RowBox[{"-", "4"}], " ",
776
SuperscriptBox["m", "2"]}], "+",
777
SuperscriptBox["q", "2"], "+",
779
SuperscriptBox["m", "2"], " ",
780
RowBox[{"Log", "[", "4", "]"}]}], "-",
782
SuperscriptBox["m", "2"], " ",
783
RowBox[{"Log", "[", "16", "]"}]}]}], ")"}]}],
785
SuperscriptBox["Et", "2"]}]], "+",
791
RowBox[{"-", "2"}], " ",
792
SuperscriptBox["m", "2"]}], "-",
793
RowBox[{"2", " ", "m", " ", "q", " ",
794
RowBox[{"ArcTan", "[",
795
FractionBox["m", "q"], "]"}]}], "+",
797
SuperscriptBox["m", "2"], " ",
798
RowBox[{"Log", "[", "4", "]"}]}], "-",
800
SuperscriptBox["q", "2"], " ",
801
RowBox[{"Log", "[", "q", "]"}]}], "+",
803
SuperscriptBox["q", "2"], " ",
520
RowBox[{"-", "2"}], " ",
521
RowBox[{"Log", "[", "q", "]"}]}], "+",
806
SuperscriptBox["m", "2"], "+",
807
SuperscriptBox["q", "2"]}], "]"}]}], "-",
809
SuperscriptBox["m", "2"], " ",
524
813
SuperscriptBox["m", "2"], "+",
525
SuperscriptBox["q", "2"]}], "]"}]}], ")"}]}], "+",
527
SuperscriptBox["m", "2"], " ",
530
RowBox[{"-", "2"}], "+",
814
SuperscriptBox["q", "2"]}],
815
SuperscriptBox["Et", "2"]], "]"}]}]}], ")"}]}],
817
SuperscriptBox["m", "2"]}]]}]], "Output",
818
CellChangeTimes->{3.697469147963516*^9}]
824
RowBox[{"Expand", "[", "%39", "]"}]], "Input",
825
CellChangeTimes->{{3.6974691154828568`*^9, 3.6974691161695833`*^9}, {
826
3.6974691519518213`*^9, 3.697469153144534*^9}},
831
RowBox[{"-", "CF"}], "+",
834
SuperscriptBox["m", "2"]}],
836
SuperscriptBox["Et", "2"]}]], "+",
838
RowBox[{"CF", " ", "q"}], "Et"], "-",
841
SuperscriptBox["q", "2"]}],
843
SuperscriptBox["Et", "2"]}]], "-",
845
RowBox[{"CF", " ", "q", " ",
846
RowBox[{"ArcTan", "[",
847
FractionBox["m", "q"], "]"}]}], "m"], "+",
849
RowBox[{"Log", "[", "4", "]"}]}], "-",
852
SuperscriptBox["m", "2"], " ",
853
RowBox[{"Log", "[", "4", "]"}]}],
855
SuperscriptBox["Et", "2"]}]], "+",
858
SuperscriptBox["m", "2"], " ",
859
RowBox[{"Log", "[", "16", "]"}]}],
861
SuperscriptBox["Et", "2"]}]], "-",
864
SuperscriptBox["q", "2"], " ",
865
RowBox[{"Log", "[", "q", "]"}]}],
866
SuperscriptBox["m", "2"]], "+",
869
SuperscriptBox["q", "2"], " ",
872
SuperscriptBox["m", "2"], "+",
873
SuperscriptBox["q", "2"]}], "]"}]}],
875
SuperscriptBox["m", "2"]}]], "-",
880
SuperscriptBox["m", "2"], "+",
881
SuperscriptBox["q", "2"]}],
882
SuperscriptBox["Et", "2"]], "]"}]}]}]], "Output",
883
CellChangeTimes->{{3.6974691111111794`*^9, 3.697469116855729*^9}, {
884
3.697469149414925*^9, 3.697469153571187*^9}}]
898
RowBox[{"z", "^", "2"}]}], ")"}], "/",
900
RowBox[{"1", "-", "z"}], ")"}]}], " ", "-",
902
RowBox[{"m", "^", "2"}], "/",
903
RowBox[{"pt", ".", "q"}]}]}], ")"}]}], "/.",
906
RowBox[{"pt", ".", "q"}], "\[Rule]",
908
RowBox[{"qT", "^", "2"}], "/",
912
RowBox[{"1", "-", "z"}], ")"}]}], ")"}]}]}], "}"}]}]}]], "Input",
913
CellChangeTimes->{{3.696738423757848*^9, 3.696738495810667*^9}, {
914
3.6974534824729843`*^9, 3.6974535308238163`*^9}}],
923
SuperscriptBox["m", "2"], " ",
925
RowBox[{"1", "-", "z"}], ")"}]}],
926
SuperscriptBox["qT", "2"]]}], "+",
929
SuperscriptBox["z", "2"]}],
930
RowBox[{"1", "-", "z"}]]}], ")"}]}]], "Output",
932
3.6974534935294647`*^9, 3.6974535315608463`*^9, 3.697453740478827*^9,
933
3.697455091368033*^9, {3.697456103487467*^9, 3.697456112107604*^9},
934
3.697466683675555*^9, 3.697469208090208*^9}]
940
RowBox[{"inte", "=", " ",
946
RowBox[{"1", "-", "z"}], ")"}]}], ")"}]}], " ", "2", " ",
949
RowBox[{"1", "-", "z"}], ")"}], "/",
950
RowBox[{"qT", "^", "2"}]}]}]}]], "Input",
951
CellChangeTimes->{{3.697453718402009*^9, 3.6974537483297863`*^9},
952
3.697454545357977*^9, {3.6974548989903307`*^9, 3.697454906488997*^9}, {
953
3.697455093360306*^9, 3.6974550947346773`*^9}}],
957
RowBox[{"2", " ", "CF", " ",
963
SuperscriptBox["m", "2"], " ",
965
RowBox[{"1", "-", "z"}], ")"}]}],
966
SuperscriptBox["qT", "2"]]}], "+",
969
SuperscriptBox["z", "2"]}],
970
RowBox[{"1", "-", "z"}]]}], ")"}]}],
972
SuperscriptBox["qT", "2"], " ", "v"}]]], "Output",
973
CellChangeTimes->{{3.697453741477603*^9, 3.6974537486987886`*^9},
974
3.6974545457270823`*^9, 3.697454906819787*^9, 3.6974550952764683`*^9, {
975
3.6974561047266293`*^9, 3.697456112966522*^9}, 3.697466684904971*^9,
976
3.697469209424176*^9}]
982
RowBox[{"Integrate", "[", " ",
989
RowBox[{"qT", "^", "2"}], "/",
992
RowBox[{"Et", "^", "2"}], " ",
994
RowBox[{"1", "-", "v"}], ")"}]}], ")"}]}], "]"}]}], ",",
998
RowBox[{"qT", "^", "2"}], "/",
1001
RowBox[{"Et", "^", "2"}], " ",
1003
RowBox[{"1", "+", "v"}], ")"}]}], ")"}]}], "]"}]}]}], "}"}], ",",
1004
RowBox[{"Assumptions", "\[Rule]",
1007
RowBox[{"0", "<", "v", "<", "1"}], ",",
1009
RowBox[{"2", "qT"}], "<", "Et"}], ",",
1010
RowBox[{"qT", ">", "0"}], ",",
1011
RowBox[{"Et", ">", "0"}], ",",
1012
RowBox[{"m", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
1013
CellChangeTimes->{{3.696738519627367*^9, 3.696738589204872*^9}, {
1014
3.6967386267182713`*^9, 3.696738626831584*^9}, {3.6967394117448072`*^9,
1015
3.6967394128789473`*^9}, {3.696739467976321*^9, 3.69673946891953*^9}, {
1016
3.696844462200903*^9, 3.696844516834674*^9}, {3.697453540225792*^9,
1017
3.697453668448001*^9}, {3.697453890516341*^9, 3.6974539120291643`*^9}, {
1018
3.697454573541498*^9, 3.6974545739508553`*^9}, {3.697454937472226*^9,
1019
3.697454953286016*^9}, {3.697455100416337*^9, 3.69745513114816*^9}, {
1020
3.697455193324192*^9, 3.697455235391693*^9}}],
1031
SuperscriptBox["m", "2"]}], "-",
1032
SuperscriptBox["qT", "2"]}], ")"}], " ", "v"}], "+",
1034
SqrtBox["2"], " ", "Et", " ", "qT", " ",
1038
RowBox[{"1", "-", "v"}]], "-",
1040
RowBox[{"1", "+", "v"}]], "+",
1045
RowBox[{"1", "-", "v"}]], "+",
1047
RowBox[{"1", "+", "v"}]]}], ")"}]}]}], ")"}]}], "+",
1049
SuperscriptBox["Et", "2"], " ",
1052
RowBox[{"-", "1"}], "+",
1053
SuperscriptBox["v", "2"]}], ")"}], " ",
1054
RowBox[{"ArcTanh", "[", "v", "]"}]}]}], ")"}]}],
1056
SuperscriptBox["Et", "2"], " ",
1057
SuperscriptBox["qT", "2"], " ", "v", " ",
1060
RowBox[{"-", "1"}], "+",
1061
SuperscriptBox["v", "2"]}], ")"}]}]]], "Output",
1062
CellChangeTimes->{3.697455108121703*^9, 3.6974551413123837`*^9,
1063
3.697455244805812*^9, 3.697456123477755*^9, 3.69746669621861*^9}]
1066
Cell[CellGroupData[{
1071
RowBox[{"v", "\[Rule]",
1072
RowBox[{"Sqrt", "[",
1075
RowBox[{"m", "^", "2"}], "/",
1076
RowBox[{"Et", "^", "2"}]}]}], "]"}]}], "}"}]}]], "Input",
1077
CellChangeTimes->{{3.69745413499717*^9, 3.6974541491840353`*^9}}],
1084
SuperscriptBox["m", "2"], " ",
1088
SuperscriptBox["m", "2"],
1089
SuperscriptBox["Et", "2"]]}]], " ",
1090
SuperscriptBox["qT", "2"]}]],
1095
SqrtBox["2"], " ", "Et", " ",
1103
SuperscriptBox["m", "2"],
1104
SuperscriptBox["Et", "2"]]}]]}]], "-",
1110
SuperscriptBox["m", "2"],
1111
SuperscriptBox["Et", "2"]]}]]}]], "+",
1116
SuperscriptBox["m", "2"],
1117
SuperscriptBox["Et", "2"]]}]], " ",
1125
SuperscriptBox["m", "2"],
1126
SuperscriptBox["Et", "2"]]}]]}]], "+",
1132
SuperscriptBox["m", "2"],
1133
SuperscriptBox["Et", "2"]]}]]}]]}], ")"}]}]}], ")"}], " ",
1139
SuperscriptBox["m", "2"],
1140
SuperscriptBox["Et", "2"]]}]], " ",
1144
SuperscriptBox["m", "2"]}], "-",
1145
SuperscriptBox["qT", "2"]}], ")"}]}], "-",
1147
SuperscriptBox["m", "2"], " ",
1148
RowBox[{"ArcTanh", "[",
1152
SuperscriptBox["m", "2"],
1153
SuperscriptBox["Et", "2"]]}]], "]"}]}]}], ")"}]}]}]}]], "Output",
1154
CellChangeTimes->{3.69745414963385*^9, 3.6974552686275997`*^9,
1155
3.697456123605364*^9, 3.697466696365679*^9}]
1158
Cell[CellGroupData[{
1161
RowBox[{"FullSimplify", "[",
1163
RowBox[{"Assumptions", "\[Rule]",
1167
RowBox[{"2", "qT"}], "<", "Et"}], ",",
1168
RowBox[{"qT", ">", "0"}], ",",
1169
RowBox[{"Et", ">", "0"}], ",",
1170
RowBox[{"m", ">", "0"}], ",",
1171
RowBox[{"Et", ">", "m"}]}], "}"}]}]}], "]"}]], "Input",
1172
CellChangeTimes->{{3.697454156560607*^9, 3.697454193999031*^9}}],
1178
SuperscriptBox["m", "2"], " ",
1182
RowBox[{"Et", "-", "m"}], ")"}], " ",
1184
RowBox[{"Et", "+", "m"}], ")"}]}]], " ",
1185
SuperscriptBox["qT", "2"]}]],
1190
RowBox[{"-", "2"}], " ",
1196
SuperscriptBox["Et", "3"], " ",
1201
SuperscriptBox["Et", "2"], "-",
1202
SuperscriptBox["m", "2"]}]]}], ")"}]}]], "+",
1205
RowBox[{"-", "Et"}], " ",
1207
RowBox[{"Et", "-", "m"}], ")"}], " ",
1209
RowBox[{"Et", "+", "m"}], ")"}], " ",
1212
RowBox[{"-", "Et"}], "+",
1215
SuperscriptBox["Et", "2"], "-",
1216
SuperscriptBox["m", "2"]}]]}], ")"}]}]], "-",
1219
SuperscriptBox["Et", "3"], " ",
1224
SuperscriptBox["Et", "2"], "-",
1225
SuperscriptBox["m", "2"]}]]}], ")"}]}]], "+",
1229
RowBox[{"Et", "-", "m"}], ")"}], " ",
1231
RowBox[{"Et", "+", "m"}], ")"}], " ",
1236
SuperscriptBox["Et", "2"], "-",
1237
SuperscriptBox["m", "2"]}]]}], ")"}]}]]}], ")"}], " ", "qT"}],
1243
RowBox[{"Et", "-", "m"}], ")"}], " ",
1245
RowBox[{"Et", "+", "m"}], ")"}]}]], " ",
1249
RowBox[{"-", "2"}], " ",
1250
SuperscriptBox["m", "2"]}], "+",
1251
SuperscriptBox["qT", "2"]}], ")"}]}], "+",
1252
RowBox[{"4", " ", "Et", " ",
1253
SuperscriptBox["m", "2"], " ",
1254
RowBox[{"ArcTanh", "[",
1258
SuperscriptBox["m", "2"],
1259
SuperscriptBox["Et", "2"]]}]], "]"}]}]}], ")"}]}]}]], "Output",
1260
CellChangeTimes->{3.69745420557452*^9, 3.6974552865148582`*^9,
1261
3.697456130001293*^9, 3.6974667027113523`*^9}]
1266
RowBox[{"res", "=", "%"}], ";"}]], "Input",
1267
CellChangeTimes->{{3.697455291466305*^9, 3.6974552965585012`*^9}}],
1269
Cell[CellGroupData[{
1272
RowBox[{"resl", "=",
1273
RowBox[{"res", "/.",
1276
RowBox[{"m", "\[Rule]", " ",
1277
RowBox[{"l", " ", "m"}]}], " ", ",", " ",
1278
RowBox[{"qT", "\[Rule]",
1279
RowBox[{"l", " ", "qT"}]}]}], "}"}]}]}]], "Input",
1280
CellChangeTimes->{{3.696751791653205*^9, 3.696751797750229*^9}, {
1281
3.696844605181365*^9, 3.696844606792225*^9}, 3.696849749018445*^9, {
1282
3.6974555775252323`*^9, 3.697455582750396*^9}, {3.697455620015686*^9,
1283
3.697455626319907*^9}, {3.697455689526791*^9, 3.697455697461605*^9}, {
1284
3.697455957011875*^9, 3.697455958175806*^9}, {3.6974577973112392`*^9,
1285
3.697457800472308*^9}, {3.697466509719768*^9, 3.6974665118384647`*^9}}],
1291
SuperscriptBox["l", "4"], " ",
1292
SuperscriptBox["m", "2"], " ",
1297
RowBox[{"l", " ", "m"}]}], ")"}], " ",
1300
RowBox[{"l", " ", "m"}]}], ")"}]}]], " ",
1301
SuperscriptBox["qT", "2"]}]],
1306
RowBox[{"-", "2"}], " ",
1307
SqrtBox["2"], " ", "l", " ",
1312
SuperscriptBox["Et", "3"], " ",
1317
SuperscriptBox["Et", "2"], "-",
1319
SuperscriptBox["l", "2"], " ",
1320
SuperscriptBox["m", "2"]}]}]]}], ")"}]}]], "+",
1323
RowBox[{"-", "Et"}], " ",
1326
RowBox[{"l", " ", "m"}]}], ")"}], " ",
1329
RowBox[{"l", " ", "m"}]}], ")"}], " ",
1332
RowBox[{"-", "Et"}], "+",
1335
SuperscriptBox["Et", "2"], "-",
1337
SuperscriptBox["l", "2"], " ",
1338
SuperscriptBox["m", "2"]}]}]]}], ")"}]}]], "-",
1341
SuperscriptBox["Et", "3"], " ",
1346
SuperscriptBox["Et", "2"], "-",
1348
SuperscriptBox["l", "2"], " ",
1349
SuperscriptBox["m", "2"]}]}]]}], ")"}]}]], "+",
1354
RowBox[{"l", " ", "m"}]}], ")"}], " ",
1357
RowBox[{"l", " ", "m"}]}], ")"}], " ",
1362
SuperscriptBox["Et", "2"], "-",
1364
SuperscriptBox["l", "2"], " ",
1365
SuperscriptBox["m", "2"]}]}]]}], ")"}]}]]}], ")"}], " ",
1372
RowBox[{"l", " ", "m"}]}], ")"}], " ",
1375
RowBox[{"l", " ", "m"}]}], ")"}]}]], " ",
1379
RowBox[{"-", "2"}], " ",
1380
SuperscriptBox["l", "2"], " ",
1381
SuperscriptBox["m", "2"]}], "+",
1383
SuperscriptBox["l", "2"], " ",
1384
SuperscriptBox["qT", "2"]}]}], ")"}]}], "+",
1385
RowBox[{"4", " ", "Et", " ",
1386
SuperscriptBox["l", "2"], " ",
1387
SuperscriptBox["m", "2"], " ",
1388
RowBox[{"ArcTanh", "[",
1393
SuperscriptBox["l", "2"], " ",
1394
SuperscriptBox["m", "2"]}],
1395
SuperscriptBox["Et", "2"]]}]], "]"}]}]}], ")"}]}]}]], "Output",
1396
CellChangeTimes->{3.697455583678355*^9, 3.697455627043315*^9,
1397
3.6974556979165783`*^9, 3.697455958567741*^9, 3.697456130161731*^9,
1398
3.6974578014044113`*^9, 3.697466512274929*^9, 3.697466714049065*^9}]
1401
Cell[CellGroupData[{
1408
RowBox[{"Series", "[",
1409
RowBox[{"resl", ",",
1411
RowBox[{"l", ",", "0", ",",
1412
RowBox[{"-", "2"}]}], "}"}], ",", " ",
1413
RowBox[{"Assumptions", "\[Rule]",
1417
RowBox[{"2", " ", "qT"}], "<", "Et"}], ",",
1418
RowBox[{"qT", ">", "0"}], ",",
1419
RowBox[{"Et", ">", "0"}], ",",
1420
RowBox[{"m", ">", "0"}], ",", " ",
1421
RowBox[{"l", ">", "0"}], ",", " ",
1422
RowBox[{"Et", ">", " ",
1423
RowBox[{"l", " ", "m"}]}]}], "}"}]}]}], "]"}], "//",
1424
"FullSimplify"}], "//", "Normal"}], ")"}], "/.",
1425
RowBox[{"l", "\[Rule]", "1"}]}]], "Input",
1426
CellChangeTimes->{{3.696751759569578*^9, 3.6967518090445127`*^9}, {
1427
3.696754779770955*^9, 3.696754799009509*^9}, {3.696754934829404*^9,
1428
3.696754938371982*^9}, {3.6968445491243687`*^9, 3.696844553442862*^9}, {
1429
3.696844619984022*^9, 3.696844649084661*^9}, {3.696845296679281*^9,
1430
3.696845305070901*^9}, {3.696845379529882*^9, 3.696845386963257*^9}, {
1431
3.6968454419651833`*^9, 3.6968454998682404`*^9}, {3.696849705068871*^9,
1432
3.696849706346312*^9}, {3.6968497742989607`*^9, 3.696849774768832*^9}, {
1433
3.6974555925963182`*^9, 3.697455598313327*^9}, {3.697455965218285*^9,
1434
3.697455972041259*^9}, {3.697468773637789*^9, 3.69746880198988*^9}, {
1435
3.697469292158949*^9, 3.697469296713914*^9}, {3.6974693679748297`*^9,
1436
3.697469370795731*^9}}],
1444
RowBox[{"-", "2"}], " ",
1446
SuperscriptBox["Et", "2"]], " ",
1447
SuperscriptBox["m", "2"]}], "-",
1452
SuperscriptBox["Et", "2"]], " ",
1453
SuperscriptBox["m", "2"]}]], " ", "qT"}], "+",
1456
SuperscriptBox["Et", "2"]], " ",
1457
SuperscriptBox["qT", "2"]}], "+",
1459
SuperscriptBox["m", "2"], " ",
531
1462
RowBox[{"Log", "[", "16", "]"}], "-",
532
1463
RowBox[{"2", " ",
533
1464
RowBox[{"Log", "[",
536
SuperscriptBox["m", "2"], "+",
537
SuperscriptBox["q", "2"]}],
1466
SuperscriptBox["m", "2"],
538
1467
SuperscriptBox["Et", "2"]], "]"}]}]}], ")"}]}]}], ")"}]}],
1470
SuperscriptBox["Et", "2"]], " ",
1471
SuperscriptBox["m", "2"], " ",
1472
SuperscriptBox["qT", "2"]}]]], "Output",
1474
3.6974556040438833`*^9, 3.6974556350760717`*^9, {3.697455961529008*^9,
1475
3.697455972532126*^9}, 3.6974561397119017`*^9, 3.697457809027481*^9, {
1476
3.697468784002344*^9, 3.697468804205793*^9}, {3.6974692816096363`*^9,
1477
3.697469296953264*^9}, 3.697469372177271*^9}]
1480
Cell[CellGroupData[{
1483
RowBox[{"FullSimplify", "[",
1485
RowBox[{"Assumptions", "\[Rule]",
1489
RowBox[{"2", " ", "qT"}], "<", "Et"}], ",",
1490
RowBox[{"qT", ">", "0"}], ",",
1491
RowBox[{"Et", ">", "0"}], ",",
1492
RowBox[{"m", ">", "0"}], ",", " ",
1493
RowBox[{"l", ">", "0"}], ",", " ",
1494
RowBox[{"Et", ">", " ", "m"}]}], "}"}]}]}], "]"}]], "Input",
1495
CellChangeTimes->{{3.697469390062653*^9, 3.697469404521434*^9}}],
1503
RowBox[{"-", "4"}], " ", "m", " ", "qT"}], "+",
1504
SuperscriptBox["qT", "2"], "+",
1506
SuperscriptBox["m", "2"], " ",
1509
RowBox[{"-", "2"}], "+",
1510
RowBox[{"Log", "[", "16", "]"}]}], ")"}]}], "+",
1512
SuperscriptBox["m", "2"], " ",
1514
FractionBox["Et", "m"], "]"}]}]}], ")"}]}],
1516
SuperscriptBox["m", "2"], " ",
1517
SuperscriptBox["qT", "2"]}]]], "Output",
1518
CellChangeTimes->{3.6974694071354218`*^9}]
1521
Cell[CellGroupData[{
1524
RowBox[{"Series", "[",
1527
RowBox[{"qT", ",", "0", ",",
1528
RowBox[{"-", "2"}]}], "}"}]}], "]"}]], "Input",
1529
CellChangeTimes->{{3.697457927633585*^9, 3.697457928946465*^9}, {
1530
3.697458014979169*^9, 3.697458039365716*^9}}],
1538
RowBox[{"-", "2"}], " ", "CF"}], "+",
1540
RowBox[{"Log", "[", "16", "]"}]}], "+",
1541
RowBox[{"4", " ", "CF", " ",
1543
FractionBox["Et", "m"], "]"}]}]}],
1544
SuperscriptBox["qT", "2"]], "+",
1547
RowBox[{"O", "[", "qT", "]"}]],
1548
SeriesData[$CellContext`qT, 0, {}, -2, -1, 1],
1550
SeriesData[$CellContext`qT,
1551
0, {(-2) $CellContext`CF + $CellContext`CF Log[16] +
1552
4 $CellContext`CF Log[$CellContext`Et/$CellContext`m]}, -2, -1, 1],
1553
Editable->False]], "Output",
1554
CellChangeTimes->{3.697458040025961*^9, 3.697466635830512*^9,
1555
3.697466947429851*^9, 3.69746942423685*^9}]
1558
Cell[CellGroupData[{
1560
Cell[BoxData["PQQ"], "Input",
1561
CellChangeTimes->{{3.6977834573832293`*^9, 3.697783457798524*^9}}],
1570
SuperscriptBox["m", "2"], " ",
1572
RowBox[{"1", "-", "z"}], ")"}], " ", "z"}],
1574
SuperscriptBox["qT", "2"], "+",
1576
SuperscriptBox["m", "2"], " ",
1579
RowBox[{"1", "-", "z"}], ")"}], "2"]}]}]]}], "+",
1582
SuperscriptBox["z", "2"]}],
1583
RowBox[{"1", "-", "z"}]]}], ")"}]}]], "Output",
1584
CellChangeTimes->{3.69778345814443*^9, 3.6978013820547657`*^9}]
1587
Cell[CellGroupData[{
1589
Cell[BoxData["ptDq"], "Input",
1590
CellChangeTimes->{{3.6977834817689333`*^9, 3.69778348430906*^9}}],
1595
SuperscriptBox["qT", "2"], "+",
1597
SuperscriptBox["m", "2"], " ",
1600
RowBox[{"1", "-", "z"}], ")"}], "2"]}]}],
539
1601
RowBox[{"2", " ",
540
SuperscriptBox["m", "2"]}]]], "Output",
542
3.6968496889279118`*^9, 3.696849733308488*^9, {3.69684977784964*^9,
543
3.696849801452836*^9}}]
1603
RowBox[{"1", "-", "z"}], ")"}], " ", "z"}]]], "Output",
1604
CellChangeTimes->{3.697783484923699*^9, 3.6978013843453817`*^9}]
1607
Cell[CellGroupData[{
1618
RowBox[{"z", "^", "2"}]}], ")"}], "/",
1620
RowBox[{"1", "-", "z"}], ")"}]}], "-", " ",
1622
RowBox[{"m", "^", "2"}], "/", "ptDq"}]}], ")"}]}], "-", "PQQ"}], "//",
1623
"FullSimplify"}]], "Input",
1624
CellChangeTimes->{{3.69778351140689*^9, 3.69778355972149*^9}}],
1626
Cell[BoxData["0"], "Output",
1627
CellChangeTimes->{{3.6977835250217648`*^9, 3.697783560451365*^9},
1628
3.6978013862198477`*^9}]
1631
Cell[CellGroupData[{
1634
RowBox[{"inte", "=",
1636
RowBox[{"PQQ", "/", "ptDq"}], " ",
1639
RowBox[{"4", " ", "z",
1641
RowBox[{"1", "-", "z"}], ")"}], "v"}], ")"}]}]}]}]], "Input",
1642
CellChangeTimes->{{3.6977835664766397`*^9, 3.697783618490341*^9},
1643
3.697785986163595*^9}],
1653
SuperscriptBox["m", "2"], " ",
1655
RowBox[{"1", "-", "z"}], ")"}], " ", "z"}],
1657
SuperscriptBox["qT", "2"], "+",
1659
SuperscriptBox["m", "2"], " ",
1662
RowBox[{"1", "-", "z"}], ")"}], "2"]}]}]]}], "+",
1665
SuperscriptBox["z", "2"]}],
1666
RowBox[{"1", "-", "z"}]]}], ")"}]}],
1667
RowBox[{"2", " ", "v", " ",
1670
SuperscriptBox["qT", "2"], "+",
1672
SuperscriptBox["m", "2"], " ",
1675
RowBox[{"1", "-", "z"}], ")"}], "2"]}]}], ")"}]}]]], "Output",
1676
CellChangeTimes->{{3.697783598399342*^9, 3.697783619608972*^9},
1677
3.697785986551998*^9, 3.69780138779417*^9}]
1680
Cell[CellGroupData[{
1683
RowBox[{"integral", "=",
1684
RowBox[{"Integrate", "[",
1685
RowBox[{"inte", ",",
1687
RowBox[{"z", ",", "0", ",",
1690
RowBox[{"m", "^", "2"}], "/",
1693
RowBox[{"Et", "^", "2"}]}], ")"}]}]}]}], "}"}], ",",
1694
RowBox[{"Assumptions", "\[Rule]",
1697
RowBox[{"Et", ">", "0"}], ",",
1698
RowBox[{"qT", ">", "0"}], ",",
1699
RowBox[{"m", "<", "Et"}], ",",
1700
RowBox[{"m", ">", "0"}]}], "}"}]}]}], "]"}]}]], "Input",
1701
CellChangeTimes->{{3.697784249122151*^9, 3.697784299669364*^9}, {
1702
3.697801534158435*^9, 3.697801698010227*^9}, {3.697803695065728*^9,
1703
3.6978036952708187`*^9}, 3.697803951444627*^9, {3.6978039851154957`*^9,
1704
3.697803998959484*^9}, {3.697874040080319*^9, 3.697874041658746*^9}, {
1705
3.697874334845756*^9, 3.697874358243924*^9}}],
1712
SuperscriptBox["m", "2"], " ",
1713
SuperscriptBox["qT", "2"], " ",
1716
SuperscriptBox["m", "6"], "+",
1718
SuperscriptBox["Et", "4"], " ",
1719
SuperscriptBox["qT", "2"]}]}], ")"}], " ", "v"}]],
1724
SuperscriptBox["Et", "4"], " ",
1725
SuperscriptBox["m", "2"], " ",
1726
SuperscriptBox["qT", "2"]}], "-",
1728
SuperscriptBox["Et", "2"], " ",
1729
SuperscriptBox["m", "4"], " ",
1730
SuperscriptBox["qT", "2"]}], "+",
1731
RowBox[{"2", " ", "m", " ", "qT", " ",
1734
SuperscriptBox["m", "6"], "+",
1736
SuperscriptBox["Et", "4"], " ",
1737
SuperscriptBox["qT", "2"]}]}], ")"}], " ",
1738
RowBox[{"ArcTan", "[",
1739
FractionBox["m", "qT"], "]"}]}], "-",
1740
RowBox[{"2", " ", "m", " ", "qT", " ",
1743
SuperscriptBox["m", "6"], "+",
1745
SuperscriptBox["Et", "4"], " ",
1746
SuperscriptBox["qT", "2"]}]}], ")"}], " ",
1747
RowBox[{"ArcTan", "[",
1749
SuperscriptBox["m", "3"],
1751
SuperscriptBox["Et", "2"], " ", "qT"}]], "]"}]}], "+",
1753
SuperscriptBox["m", "8"], " ",
1756
SuperscriptBox["m", "2"],
1758
SuperscriptBox["Et", "2"]}]], "]"}]}], "+",
1760
SuperscriptBox["Et", "4"], " ",
1761
SuperscriptBox["m", "2"], " ",
1762
SuperscriptBox["qT", "2"], " ",
1765
SuperscriptBox["m", "2"],
1767
SuperscriptBox["Et", "2"]}]], "]"}]}], "+",
1769
SuperscriptBox["m", "8"], " ",
1772
SuperscriptBox["m", "2"], "+",
1773
SuperscriptBox["qT", "2"]}], "]"}]}], "+",
1775
SuperscriptBox["Et", "4"], " ",
1776
SuperscriptBox["m", "2"], " ",
1777
SuperscriptBox["qT", "2"], " ",
1780
SuperscriptBox["m", "2"], "+",
1781
SuperscriptBox["qT", "2"]}], "]"}]}], "-",
1783
SuperscriptBox["m", "6"], " ",
1784
SuperscriptBox["qT", "2"], " ",
1787
SuperscriptBox["m", "2"], "+",
1788
SuperscriptBox["qT", "2"]}], "]"}]}], "-",
1790
SuperscriptBox["Et", "4"], " ",
1791
SuperscriptBox["qT", "4"], " ",
1794
SuperscriptBox["m", "2"], "+",
1795
SuperscriptBox["qT", "2"]}], "]"}]}], "+",
1797
SuperscriptBox["m", "6"], " ",
1798
SuperscriptBox["qT", "2"], " ",
1802
SuperscriptBox["m", "6"],
1804
SuperscriptBox["Et", "4"]}]], "+",
1805
SuperscriptBox["qT", "2"]}], "]"}]}], "+",
1807
SuperscriptBox["Et", "4"], " ",
1808
SuperscriptBox["qT", "4"], " ",
1812
SuperscriptBox["m", "6"],
1814
SuperscriptBox["Et", "4"]}]], "+",
1815
SuperscriptBox["qT", "2"]}], "]"}]}], "+",
1817
SuperscriptBox["m", "8"], " ",
1821
SuperscriptBox["Et", "4"]}],
1823
SuperscriptBox["m", "6"], "+",
1825
SuperscriptBox["Et", "4"], " ",
1826
SuperscriptBox["qT", "2"]}]}]], "]"}]}], "+",
1828
SuperscriptBox["Et", "4"], " ",
1829
SuperscriptBox["m", "2"], " ",
1830
SuperscriptBox["qT", "2"], " ",
1834
SuperscriptBox["Et", "4"]}],
1836
SuperscriptBox["m", "6"], "+",
1838
SuperscriptBox["Et", "4"], " ",
1839
SuperscriptBox["qT", "2"]}]}]], "]"}]}]}], ")"}]}]}]}]], "Output",
1841
3.697801584203642*^9, 3.697801629095921*^9, {3.69780168469458*^9,
1842
3.697801706099409*^9}, 3.697801797355798*^9, 3.697803714404414*^9,
1843
3.697803966859787*^9, {3.697803998539043*^9, 3.6978040055471077`*^9}, {
1844
3.697874047701004*^9, 3.6978740588778887`*^9}, {3.697874356109933*^9,
1845
3.697874364528194*^9}}]
1848
Cell[CellGroupData[{
1851
RowBox[{"FullSimplify", "[",
1853
RowBox[{"Series", "[",
1858
RowBox[{"m", "\[Rule]",
1859
RowBox[{"\[Lambda]", " ", "m"}]}], ",", " ",
1860
RowBox[{"qT", " ", "\[Rule]", " ",
1861
RowBox[{"\[Lambda]", " ", "qT"}]}]}], "}"}]}], ",",
1863
RowBox[{"\[Lambda]", ",", "0", ",",
1864
RowBox[{"-", "2"}]}], "}"}], ",",
1865
RowBox[{"Assumptions", "\[Rule]",
1868
RowBox[{"Et", ">", "m", ">", "0"}], ",", " ",
1869
RowBox[{"qT", ">", "0"}]}], "}"}]}]}], "]"}], ",",
1870
RowBox[{"Assumptions", "\[Rule]",
1873
RowBox[{"Et", ">", "m", ">", "0"}], ",", " ",
1874
RowBox[{"qT", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
1875
CellChangeTimes->{{3.697801796513969*^9, 3.697801806951398*^9}, {
1876
3.697803763330296*^9, 3.697803812100108*^9}, {3.697869637770053*^9,
1877
3.6978696383446407`*^9}, {3.6978740514212513`*^9, 3.697874051760901*^9}}],
1887
RowBox[{"2", " ", "m", " ", "qT", " ",
1888
RowBox[{"ArcTan", "[",
1889
FractionBox["m", "qT"], "]"}]}], "+",
1891
SuperscriptBox["qT", "2"], " ",
1894
SuperscriptBox["qT", "2"],
1896
SuperscriptBox["m", "2"], "+",
1897
SuperscriptBox["qT", "2"]}]], "]"}]}], "+",
1899
SuperscriptBox["m", "2"], " ",
1906
SuperscriptBox["Et", "2"], " ", "qT"}],
1907
SuperscriptBox["m", "2"]], "]"}]}], "+",
1910
SuperscriptBox["m", "2"], "+",
1911
SuperscriptBox["qT", "2"]}], "]"}], "+",
1913
RowBox[{"Log", "[", "\[Lambda]", "]"}]}]}], ")"}]}]}], ")"}]}],
1917
SuperscriptBox["m", "2"], " ",
1918
SuperscriptBox["qT", "2"], " ", "v"}], ")"}], " ",
1919
SuperscriptBox["\[Lambda]", "2"]}]]}], "+",
1922
RowBox[{"O", "[", "\[Lambda]", "]"}]],
1923
SeriesData[$CellContext`\[Lambda], 0, {}, -2, -1, 1],
1925
SeriesData[$CellContext`\[Lambda], 0, {
1927
4] $CellContext`CF $CellContext`m^(-2) $CellContext`qT^(-2) \
1928
$CellContext`v^(-1) (
1929
2 $CellContext`m $CellContext`qT
1930
ArcTan[$CellContext`m/$CellContext`qT] + $CellContext`qT^2
1931
Log[$CellContext`qT^2/($CellContext`m^2 + $CellContext`qT^2)] +
1932
2 $CellContext`m^2 (1 - 2
1933
Log[12 $CellContext`Et^2 $CellContext`m^(-2) $CellContext`qT] +
1934
Log[$CellContext`m^2 + $CellContext`qT^2] +
1935
4 Log[$CellContext`\[Lambda]]))}, -2, -1, 1],
1936
Editable->False]], "Output",
1937
CellChangeTimes->{3.697803818404291*^9, 3.697869655291666*^9,
1938
3.6978740638405857`*^9, 3.697874380500527*^9}]
1941
Cell[CellGroupData[{
1948
RowBox[{"integral", "/.",
1949
RowBox[{"z", "\[Rule]",
1952
RowBox[{"m", "^", "2"}], "/",
1955
RowBox[{"Et", "^", "2"}]}], ")"}]}]}]}]}], ")"}], " ", "-",
1957
RowBox[{"integral", "/.",
1958
RowBox[{"z", "\[Rule]", "0"}]}], ")"}]}], ")"}], "/.",
1961
RowBox[{"m", "\[Rule]",
1962
RowBox[{"\[Lambda]", " ", "m"}]}], ",", " ",
1963
RowBox[{"qT", " ", "\[Rule]", " ",
1964
RowBox[{"\[Lambda]", " ", "qT"}]}]}], "}"}]}]], "Input",
1965
CellChangeTimes->{{3.697784301658749*^9, 3.697784407792811*^9}, {
1966
3.697787040475944*^9, 3.697787040744747*^9}, {3.697787079074265*^9,
1967
3.697787117797195*^9}, 3.697787544059812*^9, {3.697788184510747*^9,
1968
3.69778821470191*^9}, {3.6978013604136066`*^9, 3.697801368680121*^9}}],
1970
Cell[BoxData["0"], "Output",
1972
3.6977843248165693`*^9, 3.697784374449017*^9, 3.6977844227129173`*^9, {
1973
3.69778707660358*^9, 3.6977871181340237`*^9}, 3.697787178676609*^9, {
1974
3.69778820403932*^9, 3.697788215131863*^9}, {3.697801370235072*^9,
1975
3.697801390923473*^9}, 3.697801817138238*^9}]
1978
Cell[CellGroupData[{
1985
RowBox[{"integral", "/.",
1986
RowBox[{"z", "\[Rule]", "1"}]}], ")"}], " ", "-",
1988
RowBox[{"integral", "/.",
1989
RowBox[{"z", "\[Rule]", "0"}]}], ")"}]}], ")"}], "/.",
1992
RowBox[{"m", "\[Rule]",
1993
RowBox[{"\[Lambda]", " ", "m"}]}], ",", " ",
1994
RowBox[{"qT", " ", "\[Rule]", " ",
1995
RowBox[{"\[Lambda]", " ", "qT"}]}]}], "}"}]}]], "Input",
1996
CellChangeTimes->{{3.697784301658749*^9, 3.697784407792811*^9}, {
1997
3.697787040475944*^9, 3.697787040744747*^9}, {3.697787079074265*^9,
1998
3.697787117797195*^9}, 3.697787544059812*^9, {3.697788184510747*^9,
1999
3.69778821470191*^9}, {3.6978013604136066`*^9, 3.697801368680121*^9}, {
2000
3.697801462040764*^9, 3.697801462400734*^9}}],
2009
RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]"}],
2011
SuperscriptBox["qT", "2"], " ",
2012
SuperscriptBox["\[Lambda]", "2"]}]], "-",
2014
RowBox[{"ArcTan", "[",
2015
FractionBox["m", "qT"], "]"}],
2016
RowBox[{"m", " ", "qT", " ",
2017
SuperscriptBox["\[Lambda]", "2"]}]], "+",
2023
SuperscriptBox["m", "2"], " ",
2024
SuperscriptBox["\[Lambda]", "2"]}]], "-",
2027
SuperscriptBox["qT", "2"], " ",
2028
SuperscriptBox["\[Lambda]", "2"]}]]}], ")"}], " ",
2032
SuperscriptBox["m", "2"], " ",
2033
SuperscriptBox["\[Lambda]", "2"]}], "+",
2035
SuperscriptBox["qT", "2"], " ",
2036
SuperscriptBox["\[Lambda]", "2"]}]}], "]"}]}]}], ")"}]}],
2037
RowBox[{"2", " ", "v"}]], "-",
2044
SuperscriptBox["qT", "2"], " ",
2045
SuperscriptBox["\[Lambda]", "2"]}]], "+",
2051
SuperscriptBox["m", "2"], " ",
2052
SuperscriptBox["\[Lambda]", "2"]}]], "-",
2055
SuperscriptBox["qT", "2"], " ",
2056
SuperscriptBox["\[Lambda]", "2"]}]]}], ")"}], " ",
2059
SuperscriptBox["qT", "2"], " ",
2060
SuperscriptBox["\[Lambda]", "2"]}], "]"}]}], "+",
2062
RowBox[{"-", "\[Infinity]"}],
2064
RowBox[{"Sign", "[",
2065
RowBox[{"qT", " ", "\[Lambda]"}], "]"}], "2"]]}], ")"}]}],
2066
RowBox[{"2", " ", "v"}]]}]], "Output",
2067
CellChangeTimes->{3.697801463570382*^9}]
2070
Cell[CellGroupData[{
2073
RowBox[{"Series", "[",
2076
RowBox[{"\[Lambda]", ",", "0", ",",
2077
RowBox[{"-", "2"}]}], "}"}]}], "]"}]], "Input",
2078
CellChangeTimes->{{3.69778444005893*^9, 3.697784466446714*^9}, {
2079
3.697787062263957*^9, 3.6977870645797453`*^9}, {3.697787171028948*^9,
2080
3.6977871755350037`*^9}, {3.6977882930704803`*^9, 3.6977882953748293`*^9}}],
2085
RowBox[{"CF", " ", "\[Infinity]"}], "+",
2094
RowBox[{"4", " ", "\[ImaginaryI]", " ", "CF", " ",
2095
SuperscriptBox["m", "2"], " ", "\[Pi]"}], "-",
2096
RowBox[{"2", " ", "CF", " ", "m", " ", "qT", " ",
2097
RowBox[{"ArcTan", "[",
2098
FractionBox["m", "qT"], "]"}]}], "-",
2099
RowBox[{"2", " ", "CF", " ",
2100
SuperscriptBox["m", "2"], " ",
2103
SuperscriptBox["m", "2"], "+",
2104
SuperscriptBox["qT", "2"]}], "]"}]}], "+",
2106
SuperscriptBox["qT", "2"], " ",
2109
SuperscriptBox["m", "2"], "+",
2110
SuperscriptBox["qT", "2"]}], "]"}]}], "-",
2111
RowBox[{"4", " ", "CF", " ",
2112
SuperscriptBox["m", "2"], " ",
2113
RowBox[{"Log", "[", "\[Lambda]", "]"}]}], "+",
2114
RowBox[{"2", " ", "CF", " ",
2115
SuperscriptBox["qT", "2"], " ",
2116
RowBox[{"Log", "[", "\[Lambda]", "]"}]}]}], ")"}], " ",
2117
RowBox[{"Sign", "[", "v", "]"}]}],
2119
SuperscriptBox["m", "2"], " ",
2120
SuperscriptBox["qT", "2"], " ", "v", " ",
2121
SuperscriptBox["\[Lambda]", "2"]}]], "+",
2124
RowBox[{"O", "[", "\[Lambda]", "]"}], "2"],
2125
SeriesData[$CellContext`\[Lambda], 0, {}, -2, 2, 1],
2127
SeriesData[$CellContext`\[Lambda], 0, {
2129
1, 4] $CellContext`m^(-2) $CellContext`qT^(-2) $CellContext`v^(-1) (
2130
Complex[0, 4] $CellContext`CF $CellContext`m^2 Pi -
2131
2 $CellContext`CF $CellContext`m $CellContext`qT
2132
ArcTan[$CellContext`m/$CellContext`qT] -
2133
2 $CellContext`CF $CellContext`m^2
2134
Log[$CellContext`m^2 + $CellContext`qT^2] + $CellContext`CF \
2135
$CellContext`qT^2 Log[$CellContext`m^2 + $CellContext`qT^2] -
2136
4 $CellContext`CF $CellContext`m^2 Log[$CellContext`\[Lambda]] +
2137
2 $CellContext`CF $CellContext`qT^2 Log[$CellContext`\[Lambda]])
2138
Sign[$CellContext`v]}, -2, 2, 1],
2139
Editable->False], ")"}], " ",
2141
RowBox[{"Sign", "[",
2144
RowBox[{"qT", " ", "\[Lambda]"}], "+",
2147
RowBox[{"O", "[", "\[Lambda]", "]"}], "2"],
2148
SeriesData[$CellContext`\[Lambda], 0, {}, 1, 2, 1],
2150
SeriesData[$CellContext`\[Lambda], 0, {$CellContext`qT}, 1, 2, 1],
2151
Editable->False], "]"}], "2"]}]}],
2153
RowBox[{"Sign", "[", "v", "]"}], " ",
2155
RowBox[{"Sign", "[",
2158
RowBox[{"qT", " ", "\[Lambda]"}], "+",
2161
RowBox[{"O", "[", "\[Lambda]", "]"}], "2"],
2162
SeriesData[$CellContext`\[Lambda], 0, {}, 1, 2, 1],
2164
SeriesData[$CellContext`\[Lambda], 0, {$CellContext`qT}, 1, 2, 1],
2165
Editable->False], "]"}], "2"]}]]], "Output",
2166
CellChangeTimes->{{3.697784455557596*^9, 3.697784466946916*^9}, {
2167
3.6977870861761637`*^9, 3.6977871201813707`*^9}, {3.69778717295441*^9,
2168
3.697787180691619*^9}, 3.69778821944664*^9, {3.697801373258492*^9,
2169
3.69780139228613*^9}, 3.697801465733238*^9}]
2172
Cell[CellGroupData[{
2175
RowBox[{"FullSimplify", "[",
2177
RowBox[{"Series", "[",
2186
RowBox[{"Solve", "[",
2188
RowBox[{"qt2", "==",
2192
RowBox[{"1", "-", "z"}], ")"}], "^", "2"}],
2195
RowBox[{"2", " ", "z", " ",
2196
RowBox[{"Et", "^", "2"}],
2198
RowBox[{"1", "+", "v"}], ")"}]}], "-",
2199
RowBox[{"m", "^", "2"}]}], ")"}]}]}], ",", "z"}], "]"}],
2201
RowBox[{"[", "1", "]"}], "]"}]}], "/.",
2202
RowBox[{"v", "\[Rule]",
2203
RowBox[{"Sqrt", "[",
2206
RowBox[{"m", "^", "2"}], "/",
2207
RowBox[{"Et", "^", "2"}]}]}], "]"}]}]}], ")"}], "/.",
2210
RowBox[{"m", "\[Rule]",
2211
RowBox[{"\[Lambda]", " ", "m"}]}], " ", ",",
2212
RowBox[{"qt2", "\[Rule]",
2214
RowBox[{"qT", "^", "2"}], " ",
2215
RowBox[{"\[Lambda]", "^", "2"}]}]}]}], "}"}]}], ")"}], ",",
2217
RowBox[{"\[Lambda]", ",", "0", ",", "6"}], "}"}]}], "]"}], ",",
2218
RowBox[{"Assumptions", "\[Rule]",
2221
RowBox[{"Et", ">", "0"}], ",",
2222
RowBox[{"m", ">", "0"}], ",",
2223
RowBox[{"qT", ">", "0"}]}], "}"}]}]}], "]"}]], "Input",
2224
CellChangeTimes->{{3.6977875707613783`*^9, 3.697787722847742*^9}, {
2225
3.6977877601337976`*^9, 3.697787799682832*^9}, {3.69778807450014*^9,
2226
3.6977880918246098`*^9}, {3.697788159082868*^9, 3.697788159684243*^9}, {
2227
3.697873253497015*^9, 3.6978732540472727`*^9}}],
2236
SuperscriptBox["m", "2"], "+",
2237
SuperscriptBox["qT", "2"]}], ")"}], " ",
2238
SuperscriptBox["\[Lambda]", "2"]}],
2240
SuperscriptBox["Et", "2"]}]], "+",
2245
SuperscriptBox["m", "2"], "+",
2246
SuperscriptBox["qT", "2"]}], ")"}], " ",
2249
SuperscriptBox["m", "2"], "+",
2251
SuperscriptBox["qT", "2"]}]}], ")"}], " ",
2252
SuperscriptBox["\[Lambda]", "4"]}],
2254
SuperscriptBox["Et", "4"]}]], "+",
2259
SuperscriptBox["m", "2"], "+",
2260
SuperscriptBox["qT", "2"]}], ")"}], " ",
2264
SuperscriptBox["m", "4"]}], "+",
2266
SuperscriptBox["m", "2"], " ",
2267
SuperscriptBox["qT", "2"]}], "+",
2269
SuperscriptBox["qT", "4"]}]}], ")"}], " ",
2270
SuperscriptBox["\[Lambda]", "6"]}],
2272
SuperscriptBox["Et", "6"]}]], "+",
2275
RowBox[{"O", "[", "\[Lambda]", "]"}], "7"],
2276
SeriesData[$CellContext`\[Lambda], 0, {}, 2, 7, 1],
2278
SeriesData[$CellContext`\[Lambda], 0, {
2279
Rational[1, 4] $CellContext`Et^(-2) ($CellContext`m^2 + $CellContext`qT^2),
2281
1, 16] $CellContext`Et^(-4) ($CellContext`m^2 + $CellContext`qT^2) \
2282
($CellContext`m^2 + 2 $CellContext`qT^2), 0,
2284
64] $CellContext`Et^(-6) ($CellContext`m^2 + $CellContext`qT^2) (
2285
2 $CellContext`m^4 + 7 $CellContext`m^2 $CellContext`qT^2 +
2286
7 $CellContext`qT^4)}, 2, 7, 1],
2287
Editable->False]], "Output",
2288
CellChangeTimes->{{3.697787610881509*^9, 3.697787633186182*^9}, {
2289
3.6977876911661987`*^9, 3.6977877231569967`*^9}, {3.697787772753364*^9,
2290
3.697787800029018*^9}, {3.6977880761618958`*^9, 3.69778809287885*^9},
2291
3.6977881601631317`*^9, 3.6978013939311247`*^9, 3.697873254492872*^9}]
2294
Cell[CellGroupData[{
2297
RowBox[{"FullSimplify", "[",
2299
RowBox[{"Series", "[",
2304
RowBox[{"Sqrt", "[",
2306
RowBox[{"Et", "^", "2"}], "-",
2307
RowBox[{"m", "^", "2"}]}], "]"}]}], " ",
2312
RowBox[{"Sqrt", "[",
2314
RowBox[{"Et", "^", "2"}], "-",
2315
RowBox[{"m", "^", "2"}]}], "]"}]}], ")"}], "/",
2318
RowBox[{"Sqrt", "[",
2320
RowBox[{"Et", "^", "2"}], "-",
2321
RowBox[{"m", "^", "2"}]}], "]"}]}], ")"}]}], "]"}]}], "/.",
2323
RowBox[{"m", "\[Rule]",
2324
RowBox[{"\[Lambda]", " ", "m"}]}], "}"}]}], ",",
2326
RowBox[{"\[Lambda]", ",", "0", ",", "2"}], "}"}]}], "]"}], ",",
2327
RowBox[{"Assumptions", "\[Rule]",
2330
RowBox[{"Et", ">", "0"}], ",",
2331
RowBox[{"m", ">", "0"}], ",",
2332
RowBox[{"Et", ">", "m"}]}], "}"}]}]}], "]"}]], "Input",
2334
3.6978022599231*^9, {3.697802299976182*^9, 3.697802304886633*^9}}],
2338
RowBox[{"\[Infinity]", "+",
2339
RowBox[{"ComplexInfinity", " ",
2340
SuperscriptBox["\[Lambda]", "2"]}], "+",
2343
RowBox[{"O", "[", "\[Lambda]", "]"}], "3"],
2344
SeriesData[$CellContext`\[Lambda], 0, {}, 0, 3, 1],
2346
SeriesData[$CellContext`\[Lambda], 0, {
2347
DirectedInfinity[1], 0,
2348
DirectedInfinity[]}, 0, 3, 1],
2349
Editable->False]], "Output",
2350
CellChangeTimes->{3.6978022602814837`*^9, 3.697802305291498*^9}]
2353
Cell[CellGroupData[{
2356
RowBox[{"FullSimplify", "[",
2358
RowBox[{"Series", "[",
2363
RowBox[{"Sqrt", "[",
2365
RowBox[{"Et", "^", "2"}], "-",
2366
RowBox[{"m", "^", "2"}]}], "]"}]}], " ",
2371
RowBox[{"Sqrt", "[",
2373
RowBox[{"Et", "^", "2"}], "-",
2374
RowBox[{"m", "^", "2"}]}], "]"}]}], ")"}], "/",
2377
RowBox[{"Sqrt", "[",
2379
RowBox[{"Et", "^", "2"}], "-",
2380
RowBox[{"m", "^", "2"}]}], "]"}]}], ")"}]}], "]"}]}], "/.",
2382
RowBox[{"m", "\[Rule]",
2383
RowBox[{"\[Lambda]", " ", "m"}]}], "}"}]}], ",",
2385
RowBox[{"\[Lambda]", ",", "0", ",", "2"}], "}"}], ",",
2386
RowBox[{"Assumptions", "\[Rule]",
2389
RowBox[{"Et", ">", "0"}], ",",
2390
RowBox[{"m", ">", "0"}], ",",
2391
RowBox[{"Et", ">", "m"}]}], "}"}]}]}], "]"}], ",",
2392
RowBox[{"Assumptions", "\[Rule]",
2395
RowBox[{"Et", ">", "0"}], ",",
2396
RowBox[{"m", ">", "0"}], ",",
2397
RowBox[{"Et", ">", "m"}]}], "}"}]}]}], "]"}]], "Input",
2398
CellChangeTimes->{{3.697801984822747*^9, 3.697802087986063*^9}, {
2399
3.697802209634116*^9, 3.697802224893545*^9}, {3.6978022750222387`*^9,
2400
3.697802296101256*^9}}],
2410
SuperscriptBox["Et", "2"]}],
2411
SuperscriptBox["m", "2"]], "]"}], "-",
2413
RowBox[{"Log", "[", "\[Lambda]", "]"}]}]}], ")"}], "+",
2416
SuperscriptBox["m", "2"], " ",
2419
RowBox[{"-", "1"}], "+",
2423
SuperscriptBox["Et", "2"]}],
2424
SuperscriptBox["m", "2"]], "]"}], "-",
2426
RowBox[{"Log", "[", "\[Lambda]", "]"}]}]}], ")"}], " ",
2427
SuperscriptBox["\[Lambda]", "2"]}],
2429
SuperscriptBox["Et", "2"]}]], "+",
2432
RowBox[{"O", "[", "\[Lambda]", "]"}], "3"],
2433
SeriesData[$CellContext`\[Lambda], 0, {}, 0, 3, 1],
2435
SeriesData[$CellContext`\[Lambda], 0, {
2436
Log[4 $CellContext`Et^2 $CellContext`m^(-2)] - 2
2437
Log[$CellContext`\[Lambda]], 0,
2438
Rational[1, 2] $CellContext`Et^(-2) $CellContext`m^2 (-1 +
2439
Log[4 $CellContext`Et^2 $CellContext`m^(-2)] - 2
2440
Log[$CellContext`\[Lambda]])}, 0, 3, 1],
2441
Editable->False]], "Output",
2442
CellChangeTimes->{{3.697802283641313*^9, 3.697802296960977*^9}}]
2445
Cell[CellGroupData[{
2452
RowBox[{"-", "q"}], "/", "m"}], " ",
2453
RowBox[{"ArcTan", "[",
2454
RowBox[{"m", "/", "q"}], "]"}]}], "-",
2460
RowBox[{"m", "^", "2"}]}], "-",
2461
RowBox[{"q", "^", "2"}]}], ")"}], "/",
2464
RowBox[{"m", "^", "2"}]}], ")"}]}], " ",
2469
RowBox[{"m", "^", "2"}], "+",
2470
RowBox[{"q", "^", "2"}]}], ")"}], "/",
2471
RowBox[{"q", "^", "2"}]}], "]"}]}]}], "//",
2472
"TrigToExp"}], "\[IndentingNewLine]",
2473
RowBox[{"Series", "[",
2478
RowBox[{"-", "q"}], "/", "m"}], " ",
2479
RowBox[{"ArcTan", "[",
2480
RowBox[{"m", "/", "q"}], "]"}]}], "-",
2486
RowBox[{"m", "^", "2"}]}], "-",
2487
RowBox[{"q", "^", "2"}]}], ")"}], "/",
2490
RowBox[{"m", "^", "2"}]}], ")"}]}], " ",
2495
RowBox[{"m", "^", "2"}], "+",
2496
RowBox[{"q", "^", "2"}]}], ")"}], "/",
2497
RowBox[{"q", "^", "2"}]}], "]"}]}]}], ",",
2499
RowBox[{"q", ",", "0", ",", "0"}], "}"}], ",",
2500
RowBox[{"Assumptions", "\[Rule]",
2503
RowBox[{"q", ">", "0"}], ",",
2504
RowBox[{"m", ">", "0"}], ",",
2505
RowBox[{"m", ">", "q"}]}], "}"}]}]}], "]"}]}], "Input",
2506
CellChangeTimes->{{3.697889479885069*^9, 3.69788959278644*^9}, {
2507
3.6978896242159986`*^9, 3.6978896272751713`*^9}, {3.6978898335258493`*^9,
2508
3.697889833766406*^9}, {3.697890336179392*^9, 3.6978903635204*^9}}],
2514
RowBox[{"\[ImaginaryI]", " ", "q", " ",
2518
RowBox[{"\[ImaginaryI]", " ", "m"}], "q"]}], "]"}]}],
2519
RowBox[{"2", " ", "m"}]]}], "+",
2521
RowBox[{"\[ImaginaryI]", " ", "q", " ",
2525
RowBox[{"\[ImaginaryI]", " ", "m"}], "q"]}], "]"}]}],
2526
RowBox[{"2", " ", "m"}]], "-",
2530
SuperscriptBox["m", "2"], "+",
2531
SuperscriptBox["q", "2"]}],
2532
SuperscriptBox["q", "2"]], "]"}], "+",
2535
SuperscriptBox["q", "2"], " ",
2539
SuperscriptBox["m", "2"], "+",
2540
SuperscriptBox["q", "2"]}],
2541
SuperscriptBox["q", "2"]], "]"}]}],
2543
SuperscriptBox["m", "2"]}]]}]], "Output",
2544
CellChangeTimes->{{3.697889523230299*^9, 3.6978895608119392`*^9},
2545
3.697889593252076*^9, 3.697889627777956*^9, 3.697889834208633*^9, {
2546
3.697890353021823*^9, 3.697890364053502*^9}}],
2555
SuperscriptBox["m", "2"], "]"}]}], "+",
2557
RowBox[{"Log", "[", "q", "]"}]}]}], ")"}], "+",
2560
RowBox[{"O", "[", "q", "]"}], "1"],
2561
SeriesData[$CellContext`q, 0, {}, 0, 1, 1],
2563
SeriesData[$CellContext`q,
2564
0, {-Log[$CellContext`m^2] + 2 Log[$CellContext`q]}, 0, 1, 1],
2565
Editable->False]], "Output",
2566
CellChangeTimes->{{3.697889523230299*^9, 3.6978895608119392`*^9},
2567
3.697889593252076*^9, 3.697889627777956*^9, 3.697889834208633*^9, {
2568
3.697890353021823*^9, 3.6978903640757732`*^9}}]
2571
Cell[CellGroupData[{
2574
RowBox[{"Series", "[",
2577
RowBox[{"q", "/", "m"}], " ",
2578
RowBox[{"ArcTan", "[",
2579
RowBox[{"m", "/", "q"}], "]"}]}], ",",
2581
RowBox[{"q", ",", "0", ",", "1"}], "}"}], ",",
2582
RowBox[{"Assumptions", "\[Rule]",
2584
RowBox[{"m", ">", "q", ">", "0"}], "}"}]}]}], "]"}]], "Input",
2585
CellChangeTimes->{{3.697889674107401*^9, 3.6978896962614803`*^9}}],
2591
RowBox[{"\[Pi]", " ", "q"}],
2592
RowBox[{"2", " ", "m"}]], "+",
2595
RowBox[{"O", "[", "q", "]"}], "2"],
2596
SeriesData[$CellContext`q, 0, {}, 1, 2, 1],
2598
SeriesData[$CellContext`q, 0, {Rational[1, 2] $CellContext`m^(-1) Pi}, 1, 2,
2600
Editable->False]], "Output",
2601
CellChangeTimes->{{3.697889682096159*^9, 3.6978896966803923`*^9}}]
2604
Cell[CellGroupData[{
2607
RowBox[{"eq10", "=", " ",
2609
RowBox[{"2", " ", "CF",
2613
RowBox[{"Q", "/", "q"}], "]"}], "-",
2614
RowBox[{"3", "/", "4"}]}], ")"}]}], "+",
2618
RowBox[{"1", "/", "2"}], " ", "-", " ",
2620
RowBox[{"q", "/", "m"}], " ",
2621
RowBox[{"ArcTan", "[",
2622
RowBox[{"m", "/", "q"}], "]"}]}], " ", "-", " ",
2628
RowBox[{"m", "^", "2"}]}], " ", "-", " ",
2629
RowBox[{"q", "^", "2"}]}], ")"}], "/",
2632
RowBox[{"m", "^", "2"}]}], ")"}]}], " ",
2637
RowBox[{"m", "^", "2"}], "+",
2638
RowBox[{"q", "^", "2"}]}], ")"}], "/",
2639
RowBox[{"q", "^", "2"}]}], "]"}]}]}], ")"}]}]}]}]], "Input"],
2646
FractionBox["1", "2"], "-",
2649
RowBox[{"ArcTan", "[",
2650
FractionBox["m", "q"], "]"}]}], "m"], "-",
2656
SuperscriptBox["m", "2"]}], "-",
2657
SuperscriptBox["q", "2"]}], ")"}], " ",
2661
SuperscriptBox["m", "2"], "+",
2662
SuperscriptBox["q", "2"]}],
2663
SuperscriptBox["q", "2"]], "]"}]}],
2665
SuperscriptBox["m", "2"]}]]}], ")"}]}], "+",
2666
RowBox[{"2", " ", "CF", " ",
2670
FractionBox["3", "4"]}], "+",
2672
FractionBox["Q", "q"], "]"}]}], ")"}]}]}]], "Output",
2673
CellChangeTimes->{3.6978898818808002`*^9}]
2676
Cell[CellGroupData[{
2679
RowBox[{"Series", "[",
2680
RowBox[{"eq10", ",",
2682
RowBox[{"q", ",", "0", ",", "0"}], "}"}], ",",
2683
RowBox[{"Assumptions", "\[Rule]",
2685
RowBox[{"Q", ">", "m", ">", "q", ">", "0"}], "}"}]}]}], "]"}]], "Input",
2686
CellChangeTimes->{{3.697889884546418*^9, 3.697889916004764*^9}, {
2687
3.697890003413206*^9, 3.697890003806943*^9}}],
2694
RowBox[{"-", "CF"}], "-",
2697
SuperscriptBox["m", "2"], "]"}]}], "+",
2698
RowBox[{"2", " ", "CF", " ",
2699
RowBox[{"Log", "[", "Q", "]"}]}]}], ")"}], "+",
2702
RowBox[{"O", "[", "q", "]"}], "1"],
2703
SeriesData[$CellContext`q, 0, {}, 0, 1, 1],
2705
SeriesData[$CellContext`q,
2706
0, {-$CellContext`CF - $CellContext`CF Log[$CellContext`m^2] +
2707
2 $CellContext`CF Log[$CellContext`Q]}, 0, 1, 1],
2708
Editable->False]], "Output",
2709
CellChangeTimes->{{3.69788990040487*^9, 3.697889916403984*^9},
2710
3.6978900048354588`*^9}]
546
WindowSize->{808, 755},
547
WindowMargins->{{12, Automatic}, {Automatic, 24}},
2713
WindowSize->{1079, 821},
2714
WindowMargins->{{Automatic, 94}, {Automatic, 0}},
548
2715
FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
550
2717
StyleDefinitions->"Default.nb"