-
Notifications
You must be signed in to change notification settings - Fork 0
/
2209.11720_github.nb
4426 lines (4400 loc) · 198 KB
/
2209.11720_github.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 12.3' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 202615, 4418]
NotebookOptionsPosition[ 201373, 4388]
NotebookOutlinePosition[ 201764, 4404]
CellTagsIndexPosition[ 201721, 4401]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["Towards critical and supercritical electromagnetic \
fields", "Title",
FontWeight->"Regular",
FontColor->RGBColor[
0.2964217593652247, 0.6292210269321736, 0.2727702754253452]]], "Text",
CellChangeTimes->{{3.822636147120782*^9, 3.822636149053595*^9}, {
3.822636240732341*^9, 3.82263625191656*^9}, {3.822637212068983*^9,
3.822637212721833*^9}, 3.8237615278152447`*^9, {3.832146512264089*^9,
3.832146513507378*^9}, {3.875659101251471*^9, 3.875659120180471*^9},
3.876052035694503*^9, 3.876274642441495*^9, 3.8762749018843718`*^9,
3.876967208917557*^9, 3.877137917728223*^9, 3.877777707879417*^9,
3.878102260216092*^9, {3.8791401697114143`*^9, 3.8791401707251167`*^9},
3.883113084853023*^9},ExpressionUUID->"3b5c46fb-112b-4019-933d-\
379f4f790c63"],
Cell[TextData[{
StyleBox["M. Marklund, T. G. Blackburn, A. Gonoskov, J. Magnusson, S. S. \
Bulanov, A. Ilderton, arXiv:2209.11720v1 (2022)\nNotebook: \
\[CapitalOAcute]scar Amaro, January 2023 @", "Section",
FontSize->24,
FontColor->GrayLevel[0]],
StyleBox[ButtonBox[" ",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://epp.ist.utl.pt/"], None},
ButtonNote->"http://epp.ist.utl.pt/"], "Section",
FontSize->24,
FontColor->GrayLevel[0]],
StyleBox[ButtonBox["GoLP-EPP",
BaseStyle->"Hyperlink",
ButtonData->{
URL["http://epp.ist.utl.pt/"], None},
ButtonNote->"http://epp.ist.utl.pt/"], "Section",
FontSize->24,
FontVariations->{"Underline"->True},
FontColor->GrayLevel[0]]
}], "Text",
CellChangeTimes->{{3.8226362283387003`*^9, 3.822636334723393*^9},
3.822636391632341*^9, {3.8226372468331547`*^9, 3.822637246833611*^9}, {
3.823761573155903*^9, 3.8237615739111023`*^9}, {3.832146444679867*^9,
3.8321464496507*^9}, {3.832146486894559*^9, 3.832146520629979*^9}, {
3.875659094738799*^9, 3.875659161456963*^9}, {3.8760520462986927`*^9,
3.876052057524274*^9}, {3.876274607315637*^9, 3.876274607668984*^9}, {
3.876274657642433*^9, 3.8762746757468977`*^9}, 3.8762749170393753`*^9,
3.8762749528760138`*^9, 3.876967215750044*^9, {3.877137931869855*^9,
3.877137945574196*^9}, 3.877777148710984*^9, 3.877777704015514*^9, {
3.8781022528283033`*^9, 3.878102268675232*^9}, {3.879140163386765*^9,
3.8791401655699053`*^9}, {3.883112900449494*^9, 3.883112906416771*^9}, {
3.883113102050877*^9, 3.883113102361042*^9}},
FontSize->14,ExpressionUUID->"c0bba384-1e69-487c-9bcf-79b7944b94a9"],
Cell[TextData[{
StyleBox["Introduction", "Section",
FontSize->24,
FontWeight->"Bold",
FontColor->GrayLevel[0]],
StyleBox["\nIn this notebook we reproduce some results from the paper.",
"Section",
FontSize->24,
FontColor->GrayLevel[0]]
}], "Text",
CellChangeTimes->{{3.8226362283387003`*^9, 3.822636334723393*^9}, {
3.822636391632341*^9, 3.8226364148286*^9}, {3.822636632459257*^9,
3.82263666754714*^9}, {3.8226367225529222`*^9, 3.822636739164402*^9}, {
3.8237615773382463`*^9, 3.823761602335499*^9}, {3.832146518032268*^9,
3.832146518523243*^9}, {3.875593945207685*^9, 3.8755939532588367`*^9}, {
3.876052126008453*^9, 3.876052198061596*^9}, {3.876274611319037*^9,
3.876274623593196*^9}, 3.8762749596849947`*^9},
FontSize->14,ExpressionUUID->"c4489320-13ab-47bd-96d5-7c6757d9e7e9"],
Cell[CellGroupData[{
Cell["Figure 2", "Chapter",
CellChangeTimes->{{3.8732064327325077`*^9,
3.8732064402553053`*^9}},ExpressionUUID->"f8509f3f-bcc0-45f6-b931-\
f6e65c7ccb37"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"Clear", "[",
RowBox[{
"\[Chi]", ",", "a0", ",", "f", ",", "\[Lambda]", ",", "P", ",",
"\[Alpha]\[Chi]23", ",", "\[Chi]a03", ",", "f\[Chi]3", ",", "\[Gamma]0",
",", "\[Epsilon]0"}], "]"}], "\[IndentingNewLine]",
RowBox[{"Clear", "[",
RowBox[{"A", ",", "R", ",", "Dnm"}], "]"}], "\[IndentingNewLine]",
RowBox[{"LogLogPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"A",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"Abs", "[",
FractionBox[
RowBox[{"r", "+", "ct"}], "R"], "]"}], "^", "1.5"}], "+", "1"}],
")"}], "^",
RowBox[{"(",
RowBox[{"-", "1"}], ")"}]}], " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"Abs", "[",
FractionBox["ct", "Dnm"], "]"}], "+", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"-", "1"}], ")"}]}]}], "/.",
RowBox[{"{",
RowBox[{
RowBox[{"A", "->", "130"}], ",",
RowBox[{"R", "->", "0.2"}], ",",
RowBox[{"Dnm", "->", "0.3"}], ",",
RowBox[{"ct", "->", "0"}], ",",
RowBox[{"r", "->",
RowBox[{"coor", " ",
RowBox[{"10", "^", "3"}]}]}]}], "}"}]}], ",",
RowBox[{
RowBox[{"A", " ",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"Abs", "[",
FractionBox["r", "Dnm"], "]"}], "+", "1"}], ")"}], "^",
RowBox[{"(",
RowBox[{"-", "1"}], ")"}]}]}], "/.",
RowBox[{"{",
RowBox[{
RowBox[{"A", "->", "130"}], ",",
RowBox[{"R", "->", "0.2"}], ",",
RowBox[{"Dnm", "->", "0.3"}], ",",
RowBox[{"r", "->",
RowBox[{"coor", " ",
RowBox[{"10", "^", "3"}]}]}]}], "}"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"coor", ",",
RowBox[{"10", "^",
RowBox[{"-", "5"}]}], ",",
RowBox[{"10", "^", "1"}]}], "}"}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"10", "^",
RowBox[{"-", "6"}]}], ",",
RowBox[{"10", "^", "2.1"}]}], "}"}]}], ",",
RowBox[{"PlotLegends", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<t=0\>\"", ",", "\"\<|x|+ct=0\>\""}], "}"}]}]}],
"]"}]}], "Input",
CellChangeTimes->{{3.8732064451934357`*^9, 3.873206572171378*^9}, {
3.873206613673657*^9, 3.873206614530239*^9}, {3.873206663202161*^9,
3.873206667194757*^9}, {3.873206733529873*^9, 3.873206834508504*^9}},
CellLabel->
"In[214]:=",ExpressionUUID->"dd4ee474-8182-4dfd-b99b-f6fa021fc957"],
Cell[BoxData[
TemplateBox[{
GraphicsBox[{{{{}, {},
TagBox[{
Directive[
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJwV0nlUzIsXAPCZibKkZr5f7YvmO0tF8lKRXsxFiy1ttC9EQowi3q/ladOi
kgZ5kqh4pU0becTrJtEmLUr0RKUoWSqTlqfe/P64557PPffcc+49l+19xN6H
QaPRrkji/3lkh8MlZioPnVJLrgY7kSCXaOZgcJGHDwff1htJrCMaT9p/hoeH
1XtXujmS4Jl2UPplCA8bD7kc+mMHCbVF9uIyZx6GZqcW1tmSsH/pwYZERx46
/17YHC+xzJ8RmT47eKgU2CraKrHl5WJrJVseqmvMHW6wIaHmlFx2sBUPw0Y7
vj7dTsIjl3rH9at4OHHtTXHBNhIeSG34q4nkobeuYQN3EwnuJ12Sclg8fGEu
G91pRcL0hP/ecHke8sRkXYLEpl+uMVcu5GHsm8nhb5Yk3Ov8uT+FwcPUuMnk
OxYklBfeU3Ef4WLIVFah9kYSipwMQgabuGj30EQnby0Jmo9WXD7fyMVzDfRh
C4mT9PTvra3nYh4rdn6PGQlC+rIfohouVvbdtVaQWC+fe8z0ARfdt9O7j5uS
kDej5JeQy8U7B5YYKa4mIfvPGdflp7ioOTGl1riCBEXmz6CXEVz0/SSeaydx
TPD0pYgwLr5PTOC365PgYzPR0R7MReJqlXTXchK4kyP2JwO4GFmbwX6zjITM
bf1bnntysc4z9NY9bRKujDWYBqzhomJ/oKBBkwRd98WwcTUXs6nT2eskLn/s
bqFgzEVP9RjTEg0SmlM+29z7hYv3J++/P69OwlwTeR+6Dhc3jdlTNqqS/ULt
z4oUuZjq6AdXFEiAua/6SsY4qFG+pSJuIQnPDrMHo0Y4uE/sEfJ2AQmuHQe+
7PzKwZqXahuMJQ7MmZqYHOJglUV495t5JORuVpfb0MvBTjWZFRxpEogkL5PW
Zg6ebpGT/Z1GQp/iQOJoIQfXn1m9e+93AuCIQldKPgfJg8MecWMEXH1qrrsm
l4ND68yk8kcJcP7f9ZqwGxzsGDsBw98IaHy1a0Y2jYNh6Qn2np8JKL/SdUQ7
joP6XaNrZvsJiKda7N29OfjY6eU3fgcBH4JpmbNeHJS+H+ir3k6AeduKr1ke
HPQ+abmF+YKA2aikhEFnDm45kbltrIWAwP6tj0/YSPa1zpPNfkaAx80nxiIz
Dhp2Dd578JiAX/QfKD9R5OCndt/kjBICBsIWCwMXc9D643CUTzEBV1oOVVME
B23EwjKdIgLmH9cQhi3ioHB+yN+5BQT0VpysNpnDQb62jPXFHALOb14vzB+h
0OBhcaJSOgHje59UJzdSGPURTxXEEFBQrqkiqKdwL5mqaBxNgPe834Sfn1K4
vEb1RkUUAU352ipbqinM0KTnPQonIGc0Tih1n0IWkavzV7DkfuFbVU7kUJg3
uU1PICSgIq1Z6BZJoeERA8MiBwKSPh3NMwinsL1JZw3LXjL/V4UBmZMUtnkw
LQNsCVjQ5eJxO4hCYcNm4TJryTzVvq2LAih0zMWGWEsCvl8S61R6Ubile5Hz
WxMC9C+q9lFrKYyv4DyfUSOAMfBAc9KUQjOxdq6mKgHtxl6uz00ofFp7ydlM
mYDQ9ustIUYUzu55bRCwmID6xcvxxTJJ/7ueGyhLgO95QXqMKoUBnUObxf+y
ICN5r9PQDzYaxNfX53exwLz5c5dIzMY0z9HeHa9Y8EH+t11rxtjo7PLDdLqD
BfpnTx+I+8JGS5HeDUErCx6euRXC72djJDWin1PLgtfxE9e8W9mo3c979vU2
CxSiEz++LmDjD0JXziOBBfFBt4MadrPRJ6zNy3sFC7bejX1/2YuNhM5GvWg9
FsiKXW0OerBxSldg96cuC5L86bz5Lmzkj5dkveGw4Jzv9mZLWzZ+/6C6U1+Z
BWk7P/IfrWNjoLNysg2NBQUG6i/+UmNjrN+OzqQmJjQNRulnt2vhq5ka8wlv
JnzUCs8Ib9PCad+ImXAvJjCcQwm3Fi38mpHPlXFnwqongePyz7Rw1Drz7sKd
TLia5fN30GMtPDelwhi3ZILQzWq7dZkW3lnAP2WzlAnyzxYIvydroVjF8IRh
tzzYFosKN2zTQvv+1c9398pBUXt5o7dwCX7p6Tx8PEwWjrps3mPorIm93Q17
SmfnA9Q4HL65VAMt+mvrohbJQPyb1wszGeoYc/L3c41TUhA3Z/fzxC+qWPa2
aUYwS4NzpJe0RrUKcqzSTdOcpwW2Bu7eGfnKOFR948YFabFAZXWLQW2oEm5Z
WZARsmJY4Dn4KOWYgyL6X+mvqxr6R+CUV6ZJrFPAuuR9hZOeuQI3B3W1nazF
KDCeaf2jo7OSXHjKLGGCwNMf5r3fETNYaXVk/6h5Pwt/ipaNq6wcq4yteKx2
/T4TP0v9TI/Vn6oc14MXH63kcTDQ9OYmVxqKSwecXnySRb3br68V9EnhsChm
ztPLC/DY6m7HencZ3JrEnb4WMA/9on4NNJPU0bW0s0pFGg3W7Ffs0JDDq+br
aPWDUricLWXUXsrEY7HVtq8e0/GoisyxsO0E/m0UwNzTO1OplhU8ZrxoMe5L
cSLfxU9Vni5deZFxSwF/vajx/ku7uHJoU1DnqwAl7Gl5u6nef6TSzsIkq0ZJ
BYdP6s76bhyqbFy+5P6hO6oYcNl+ntfQu8ra+qoIjRPquMzp49Hu3c2VVbSq
Tz3KmliqX3z5ufENgZr8hZai7iWomlbHUlFqF6RV3Fyn3qSFZyn+N8qoT1BY
Lm0xlM7GVatvVqT8MSzQr/acMgujUPPTpaK7haOCsbodLql2HCyd57fi4uS4
oP5H+8K2JVxUjvHo6c2aFlTvsz4gmuXirVqHWe9/ZwUjVacPuTTzcFsZI/yD
DA0mgrIKfrbxcEOkW3g6S/IH6yuGM1/yUF9rUcR8Hg2Ys8OHhrp5OMfdP7Jn
Kw2oX+wOh3zmYXHbqmhRKg3G7NWF6Qv4uKC6On7EiA4RHx4c6THnI+2cekLO
Ojp0e74sit7ER/Gu4wkem+iQ1TvyVXcbH9/N8BPr3OggLa/tf9SBj3dN489k
RtKhc0LkL+XNx72ltsl2zXQo/3kggBfGR9eI3GSZ13RwNIguqYvko40tQ/Sw
jw7z/DNGDsfw0fRLmUj3Bx3s5F4GlJ/hI3Op0nm6JgPsG82PWl3ho/TkkfN3
tRng5Lir9NM1Pk4/rT1/2IABLUMho2ev83HAJ/jCK3MGvF5ZdrQzj4//GLVd
OLudARsHmkpDb/GxVUovxcKZAR3Xh0a1SvlY23oqZXo3AyL8pA1r7vDxYeab
lBI/BhispY4duMfH/wAWeoVB
"]]},
Annotation[#, "Charting`Private`Tag$70734#1"]& ],
TagBox[{
Directive[
Opacity[1.],
RGBColor[0.880722, 0.611041, 0.142051],
AbsoluteThickness[1.6]],
LineBox[CompressedData["
1:eJwV1Hk41NsfB3AzZN/m+50ZKWRmvvOVuDJutqI5yVIUkrJEydLCtVbXtdxI
UtkKkShJhUKKFt1oPuVakmspWlDZQ1ESkdLv+/vjPOd5Pc85zznv8/k8h+Md
7ORHFxMTK6LG/+djNbqcPEktOHyMadewHUdvHccgTEILcq9n+lymbDJY5GVD
14KRx1u3x1Aek+Xlf/5JAvDHnxhRtndVXbZ+moRYfbehy9twtHhqkfrIAAkX
5x41/emMo+vL3y02eETCDzzJcGELjsSrz1dJikgwCI7b0EnZw8HdtbuahAe7
C/RLKSv+2Xk2voqENYHlMW6UD9Q+Zb8sJ+GFlDmzwhFHZjurmNF5JAhSzn12
d8BRa0aacn0UCZFfk0wTN+Folm00FxBBgl/FYKkLZW5OVx8jnITuLp33BOWD
+bxKzzASWntSyx/aUfctu7Nteh8JRWd6TnyyxZF3/escYjuVTymctN6Io5lZ
Dv+oPgnelgs2dVY4WhZdr6CtRwJWKFBPorzhl/9Miw4J+rbatxwp5y663bBE
iwQU5sDstsQRwqz9K9RJcMxoFX1cj6NEHf/yPlkSCvJOBIpb4EhjZ4UpGuKD
85wP/4c5jnzf5UsrDvBhWbFFVQ3lEq9TL7t7+aD+u6VsDGUTnz8OhffwYVyu
YkyM8tZ95K0bz6n1G82yaGY4OhGWs1z9MR+YXod2zZjiaCohTuV7Hh/YJ9PG
SgxxtFo6dLjhPB/snTv7fSnHntx1JzOHD4qMoTR1yorJZlsFWXyQHLTHU1fh
aHnaTOq+FD4glZTcgN9xtDPXX/JlFB+aHosdXSzAUWO503SlK+XuzaXGujja
t8L/afJ2PrwdLj4+ooMjqatHLvk582HT1yb8HGXrnJubVRz5oOkrNJ9bgaO6
eMXCSBvqvsU9zXe0cfTYrWn7OiM+jF14emGZFo6qxS2qWnA+yHQSXyo5VL8c
dkstYvBhaVmsszvl+dkQ31glPuj/h+8Uo7x64qKygRwfXhle9LPTxNH9Vz/3
ZdL5sCY0wvyNBo7ult1X9ZgkoMTgW+OnpTgqdxFEjbYQ4LDHQqaFRdXj8cqc
jGYC1n0tUPGinKqrd9+8iYAVVsa3Jpk4CqLpfEurI+DOGvN4nLJuCXFgdTUB
gQejLmzBqH5fUAlIukaAe8UV03uKOCq8uuD+WzwBetXJnwgpHLGVf0a8PEKA
QlBSQpEkjhIi57OPxBBgF2Gco03Zz2H2RWckAVGmFYa6i3BEzE06HQ4lwKS4
e6WOOI4ubRqybd1JQI6MbZ3SLwydn3q6OtSUgIPL9aVCZjCk7cFE640JEBaX
tIxNY+juvx5WLEMCgttU2H6U2zLHHe7rE7CyZjHP9SuGFpko+dGWU3k3K60w
+YKhoGinU2lsAkLES1PejWMILXo9cGuKB8U+vuWNgxj6L5AzenSSB7JL+woM
KLu/2D+x7RMPDH7mSp8fwNDBou+zc2M8AANp7cB+DF3bqKZo0c+DfQtOt6R7
MYSl7jJ51saDF+kdUUQ3hgbYw8lfynhwsepR64c26rxgVndmCQ/asr5LGlLO
a7DUNr3Ggzz14oS/WzHk+tflupgrPFCbF/eUb8FQ82uvBflcHrxaSW7jPKXy
nu8O1jrBg+j2zHGtOgwlctudPLx5wLhteeJyFYb09aoX17N50PfpAsvgAoaG
Y5hBB5k8UH0/OrzpPPWe7X/UcjEeaNwJ79uTiyGZQ+pBMQo8KHkx7ZB9DkP9
Dw7XmkjwwCqyljaZiaGMjeuCSia5UCpxwyAiFUMzvvW1p5u5EOA7c7b3MIYe
5LYF7YjjguG25N5RDwylfgi7Lojlwgz6q+jNDgx5r2ENSx3mQrGVfXqbO4Zk
u908b0dwgVne0l7pSuVdMmCnEMqF3YWPxoKdMfQ1e3q5aBcXjHxfqj60w5Be
1pIBrjkXQsJ/aZSbYij/tK/L2DcOZHu4DD7BMGTZNt6dNs2BiZg4t70MDL1X
CvcyneKAmYnrNXFlav+pk/tPTHDgp+2zFyYKGKpJuRFFDlG+LXLLlMJQV+Ls
Re9nHKjXf57A/sFArGPJI12lHAjwqWs1HGSgxIjbEU93cyA2J92++SYD2d07
PpiziwN7y235puUMJD/t7uDvyYH4FK2+K2UMlBpC48u4cWA+fkYy4joDpe+1
b7N25MDYb1k05hUGyt02Qj5eywGl2Nn9zLMMVCpQ66hayoGCg749ZtEM1DJ6
VK+wUxNkqh+1qK1nIMebaWUWmzSBqCkIPVCnjMo77zZ7By0DuSlbJ+flyijM
baPP764aMG7fLimxSAmhuq2BxSvUISASOK8PKaDEN11yl+hqYJEfobvjiRw6
IbG7NXliCZzcMNM7rCaL0vFdkuq1quBPHle1FEgjR4GHd37JYmCUWY8bbZFE
qsbtgsZoFYB36f+tNZJAO0cfZx7Yyga5NWO6PSw6crleqYGtZYHsREvheiUx
tGOr2tJtDCZ0b3n+7nbRvBCXizdLmsWgNLW1yzn4m9AmeN8XyyEGyHzMTv7b
Ykp4/MG/Sy//owz5xiFVxn7jwhld1DFiowRXT34vCO8cFE5XDLt0fJCHA59D
Wgjpl8KPaQkSDTmyEFa45W7L7QqhXSoxfzFUGnIE3njTt0YR9TG9eqQqCWd/
cMOiNd+J8izXijWNikO03Cmvl9YjogPHax1f/0sDefuM0x37P4sergpV9ulf
EJl2/KVhqzgt2pPpgvcmfhfd/TbX0eQzJ1qTpT440TktOlac7q+isiDqa3+3
oSlkUqTUa2aVaE6Dj4e1f+1dPybi2VyRL/IVh9AcJ+ldY72i+If8ttR/FoGO
y0jY291topTuXPWSESmo0LuZ02p4Rfh3lKNRopUsLMl9wlBV6RQylnbLhpyV
h1Nc8jN31YBQOtGjI/KRIhgZFz/IPPtRmDL0oUkzRRk0PmSX3yv7Ijznfn7j
masMqJAOWJk1NyP8ZbyHTKjCYHGCZ19/wbzQwyY+u6MfhxuNW395//glxBR5
mwRzTNhUSY99LyWGLLj7hfILTLCI2xF7gSGGdnc+NHhPZ4GepsIRGb4Yetuc
rXpBngUSHiFxfXZiqO6rxIi0JgtuPjc6lnZODA0xbhzvtabqXlubOLmKhkqt
G9pPnWGBWLpaUtFaGmoSvq33P8eCaa9DSZ4baGj4Cr3aKo8FvQtk8pMdNKQT
dqBwvogF91YnplyKo6Fr26ei9j5ggW+F4+ktbTR05+BObWE/C9yPXDst1UVD
rfctly15zwIHR3pazQAN9Qcbs6Y/sGD1RGWa9jcaqv+yjlYyzQLlFSoZNA06
IipGX7Nl2CA5F5xxT4uO9N8I2iYV2DDf0JgRKKCjYnpCfTPGhmG/yDOvLelo
ku5UGafGhp5Vz8+csqejKXhyzZPDhmfiuplWrnTUINycb0KyofFZfOb8bjoS
hPZk4TpsqLn0JvNWAB1J2YSnTKxkw/8AkSO1Uw==
"]]},
Annotation[#, "Charting`Private`Tag$70734#2"]& ]}}, {}}, {
DisplayFunction -> Identity,
Method -> {
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" ->
None}, DisplayFunction -> Identity, DisplayFunction -> Identity,
Ticks -> {Quiet[
Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Quiet[
Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& },
AxesOrigin -> {-11.512925183021034`, -13.815510557964274`},
FrameTicks -> {{Quiet[
Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& ,
Charting`ScaledFrameTicks[{Log, Exp}]}, {Quiet[
Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& ,
Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None},
DisplayFunction -> Identity, PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding ->
All, DisplayFunction -> Identity,
Method -> {
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
"ClippingRange" -> {{{-11.512925183021034`,
2.302584811044851}, {-11.362132642678803`,
4.8564161439160705`}}, {{-11.512925183021034`,
2.302584811044851}, {-11.362132642678803`, 4.835428695287496}}}},
DisplayFunction -> Identity, AspectRatio ->
NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True},
AxesLabel -> {None, None}, AxesOrigin -> {0, 0},
CoordinatesToolOptions -> {"DisplayFunction" -> ({
Exp[
Part[#, 1]],
Exp[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Exp[
Part[#, 1]],
Exp[
Part[#, 2]]}& )}, 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]],
Method -> {
"DefaultBoundaryStyle" -> Automatic,
"DefaultGraphicsInteraction" -> {
"Version" -> 1.2, "TrackMousePosition" -> {True, False},
"Effects" -> {
"Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2},
"Droplines" -> {
"freeformCursorMode" -> True,
"placement" -> {"x" -> "All", "y" -> "None"}}}},
"DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" ->
None}, PlotRange ->
NCache[{{-11.512925183021034`,
2.302584811044851}, {-Log[1000000],
4.835428695287496}}, {{-11.512925183021034`,
2.302584811044851}, {-13.815510557964274`, 4.835428695287496}}],
PlotRangeClipping -> True, PlotRangePadding -> {{
Scaled[0.02],
Scaled[0.02]}, {Automatic, Automatic}},
Ticks -> {Automatic, Automatic}}],
FormBox[
FormBox[
TemplateBox[{"\"t=0\"", "\"|x|+ct=0\""}, "LineLegend",
DisplayFunction -> (FormBox[
StyleBox[
StyleBox[
PaneBox[
TagBox[
GridBox[{{
TagBox[
GridBox[{{
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
RGBColor[0.368417, 0.506779, 0.709798],
AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
GraphicsBox[{{
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
RGBColor[0.880722, 0.611041, 0.142051],
AbsoluteThickness[1.6]], {
LineBox[{{0, 10}, {20, 10}}]}}, {
Directive[
EdgeForm[
Directive[
Opacity[0.3],
GrayLevel[0]]],
PointSize[0.5],
Opacity[1.],
RGBColor[0.880722, 0.611041, 0.142051],
AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full,
ImageSize -> {20, 10}, PlotRangePadding -> None,
ImagePadding -> Automatic,
BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}},
GridBoxAlignment -> {
"Columns" -> {Center, Left}, "Rows" -> {{Baseline}}},
AutoDelete -> False,
GridBoxDividers -> {
"Columns" -> {{False}}, "Rows" -> {{False}}},
GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
GridBoxSpacings -> {
"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}},
GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}},
AutoDelete -> False,
GridBoxItemSize -> {
"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
"Grid"], Alignment -> Left, AppearanceElements -> None,
ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction ->
"ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
FontFamily -> "Arial"}, Background -> Automatic, StripOnInput ->
False], TraditionalForm]& ),
InterpretationFunction :> (RowBox[{"LineLegend", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"Opacity", "[", "1.`", "]"}], ",",
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[0.368417, 0.506779, 0.709798],
RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle ->
"ColorSwatchGraphics", AspectRatio -> 1, Frame -> True,
FrameStyle ->
RGBColor[
0.24561133333333335`, 0.3378526666666667,
0.4731986666666667], FrameTicks -> None, PlotRangePadding ->
None, ImageSize ->
Dynamic[{
Automatic,
1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
StyleBox[
RowBox[{"RGBColor", "[",
RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
"]"}], NumberMarks -> False]], Appearance -> None,
BaseStyle -> {}, BaselinePosition -> Baseline,
DefaultBaseStyle -> {}, ButtonFunction :>
With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[0.368417, 0.506779, 0.709798];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
Selectable -> False], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}],
",",
RowBox[{"Directive", "[",
RowBox[{
RowBox[{"Opacity", "[", "1.`", "]"}], ",",
InterpretationBox[
ButtonBox[
TooltipBox[
GraphicsBox[{{
GrayLevel[0],
RectangleBox[{0, 0}]}, {
GrayLevel[0],
RectangleBox[{1, -1}]}, {
RGBColor[0.880722, 0.611041, 0.142051],
RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle ->
"ColorSwatchGraphics", AspectRatio -> 1, Frame -> True,
FrameStyle ->
RGBColor[
0.587148, 0.40736066666666665`, 0.09470066666666668],
FrameTicks -> None, PlotRangePadding -> None, ImageSize ->
Dynamic[{
Automatic,
1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
Magnification])}]],
StyleBox[
RowBox[{"RGBColor", "[",
RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
"]"}], NumberMarks -> False]], Appearance -> None,
BaseStyle -> {}, BaselinePosition -> Baseline,
DefaultBaseStyle -> {}, ButtonFunction :>
With[{Typeset`box$ = EvaluationBox[]},
If[
Not[
AbsoluteCurrentValue["Deployed"]],
SelectionMove[Typeset`box$, All, Expression];
FrontEnd`Private`$ColorSelectorInitialAlpha = 1;
FrontEnd`Private`$ColorSelectorInitialColor =
RGBColor[0.880722, 0.611041, 0.142051];
FrontEnd`Private`$ColorSelectorUseMakeBoxes = True;
MathLink`CallFrontEnd[
FrontEnd`AttachCell[Typeset`box$,
FrontEndResource["RGBColorValueSelector"], {
0, {Left, Bottom}}, {Left, Top},
"ClosingActions" -> {
"SelectionDeparture", "ParentChanged",
"EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator ->
Automatic, Method -> "Preemptive"],
RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
Selectable -> False], ",",
RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
"}"}], ",",
RowBox[{"{",
RowBox[{#, ",", #2}], "}"}], ",",
RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",",
RowBox[{"LabelStyle", "\[Rule]",
RowBox[{"{", "}"}]}], ",",
RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ),
Editable -> True], TraditionalForm], TraditionalForm]},
"Legended",
DisplayFunction->(GridBox[{{
TagBox[
ItemBox[
PaneBox[
TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline},
BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"],
"SkipImageSizeLevel"],
ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}},
GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}},
AutoDelete -> False, GridBoxItemSize -> Automatic,
BaselinePosition -> {1, 1}]& ),
Editable->True,
InterpretationFunction->(RowBox[{"Legended", "[",
RowBox[{#, ",",
RowBox[{"Placed", "[",
RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
CellChangeTimes->{{3.873206596079311*^9, 3.873206614896985*^9}, {
3.8732066636884327`*^9, 3.873206667627776*^9}, {3.8732067428887033`*^9,
3.873206756075819*^9}, {3.873206796917645*^9, 3.87320683508742*^9}},
CellLabel->
"Out[216]=",ExpressionUUID->"d09e53e7-4703-4801-aac0-054b4a2784d7"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Appendix A", "Chapter",
CellChangeTimes->{{3.8732064327325077`*^9,
3.8732064341909657`*^9}},ExpressionUUID->"34b5c7a9-e2df-47a5-bb1c-\
3dbcbfd6d596"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
RowBox[{"Clear", "[",
RowBox[{
"\[Chi]", ",", "a0", ",", "f", ",", "\[Lambda]", ",", "P", ",",
"\[Alpha]\[Chi]23", ",", "\[Chi]a03", ",", "f\[Chi]3", ",", "\[Gamma]0",
",", "\[Epsilon]0"}], "]"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"\[Chi]", "=",
RowBox[{"3.7", " ", "\[Epsilon]0", " ",
RowBox[{
RowBox[{"P", "^", "0.5"}], " ", "/", " ", "\[Lambda]"}]}]}], ";"}], " ",
RowBox[{"(*",
RowBox[{"[", "]"}], "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"a0", " ", "=", " ",
RowBox[{"780", " ",
RowBox[{"P", "^", "0.5"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"f", "=",
RowBox[{"3.6", " ",
RowBox[{"10", "^",
RowBox[{"-", "6"}]}], " ",
RowBox[{"P", "/",
RowBox[{"\[Lambda]", "^", "2"}]}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Alpha]\[Chi]23", " ", "=", " ",
RowBox[{"0.017", " ",
RowBox[{"\[Epsilon]0", "^",
RowBox[{"(",
RowBox[{"2", "/", "3"}], ")"}]}], " ",
RowBox[{
RowBox[{"P", "^",
RowBox[{"(",
RowBox[{"1", "/", "3"}], ")"}]}], "/",
RowBox[{"\[Lambda]", "^",
RowBox[{"(",
RowBox[{"2", "/", "3"}], ")"}]}]}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Chi]a03", "=",
RowBox[{"7.8", " ",
RowBox[{"10", "^",
RowBox[{"-", "9"}]}], " ",
RowBox[{
RowBox[{"\[Epsilon]0", "/", "P"}], "/", "\[Lambda]"}]}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"f\[Chi]3", "=",
RowBox[{"7", " ",
RowBox[{"10", "^",
RowBox[{"-", "8"}]}], " ",
RowBox[{
RowBox[{"\[Lambda]", "/",
RowBox[{"\[Epsilon]0", "^", "3"}]}], " ", "/", " ",
RowBox[{"P", "^", "0.5"}]}]}]}], ";"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Gamma]0", "=",
RowBox[{"2", " ",
RowBox[{"10", "^", "4"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"\[Epsilon]0", "=",
RowBox[{"\[Gamma]0", " ", "0.511", " ",
RowBox[{"10", "^",
RowBox[{"-", "3"}]}]}]}], ";"}],
RowBox[{"(*", " ",
RowBox[{"[", "GeV", "]"}], " ", "*)"}],
"\[IndentingNewLine]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"imgsz", "=", "250"}], ";"}], "\[IndentingNewLine]",
RowBox[{"GraphicsRow", "[",
RowBox[{
RowBox[{"{", "\[IndentingNewLine]",
RowBox[{
RowBox[{"LogLogPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"\[Chi]", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->", "0.8"}], "}"}]}], ",",
RowBox[{"\[Chi]", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->",
RowBox[{"0.8", "/", "3"}]}], "}"}]}], ",",
RowBox[{"\[Chi]", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->",
RowBox[{"0.8", "/", "10"}]}], "}"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"P", ",", "0.01", ",", "100"}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "2"}], ",",
RowBox[{"ImageSize", "\[Rule]", "imgsz"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\<\[Chi]\>\""}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<input power [PW]\>\"", ",", "\"\<\>\""}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"2", ",", "9000"}], "}"}]}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Red", ",", "Orange", ",", "Blue"}], "}"}]}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"LogLogPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"a0", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->", "0.8"}], "}"}]}], ",",
RowBox[{"a0", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->",
RowBox[{"0.8", "/", "3"}]}], "}"}]}], ",",
RowBox[{"a0", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->",
RowBox[{"0.8", "/", "10"}]}], "}"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"P", ",", "0.01", ",", "100"}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "2"}], ",",
RowBox[{"ImageSize", "\[Rule]", "imgsz"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\<a0\>\""}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<input power [PW]\>\"", ",", "\"\<\>\""}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"60", ",",
RowBox[{"10", "^", "4"}]}], "}"}]}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Red", ",", "Orange", ",", "Blue"}], "}"}]}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"LogLogPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"\[Alpha]\[Chi]23", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->", "0.8"}], "}"}]}], ",",
RowBox[{"\[Alpha]\[Chi]23", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->",
RowBox[{"0.8", "/", "3"}]}], "}"}]}], ",",
RowBox[{"\[Alpha]\[Chi]23", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->",
RowBox[{"0.8", "/", "10"}]}], "}"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"P", ",", "0.01", ",", "100"}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "2"}], ",",
RowBox[{"ImageSize", "\[Rule]", "imgsz"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\<\[Alpha]\[Chi]^2/3\>\""}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<input power [PW]\>\"", ",", "\"\<\>\""}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{"0.01", ",", "2"}], "}"}]}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Red", ",", "Orange", ",", "Blue"}], "}"}]}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"LogLogPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"\[Chi]a03", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->", "0.8"}], "}"}]}], ",",
RowBox[{"\[Chi]a03", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->",
RowBox[{"0.8", "/", "3"}]}], "}"}]}], ",",
RowBox[{"\[Chi]a03", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->",
RowBox[{"0.8", "/", "10"}]}], "}"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"P", ",", "0.01", ",", "100"}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "2"}], ",",
RowBox[{"ImageSize", "\[Rule]", "imgsz"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\<\[Chi]/a0^3\>\""}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<input power [PW]\>\"", ",", "\"\<\>\""}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"7", " ",
RowBox[{"10", "^",
RowBox[{"-", "8"}]}]}], ",",
RowBox[{"2", " ",
RowBox[{"10", "^",
RowBox[{"-", "4"}]}]}]}], "}"}]}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Red", ",", "Orange", ",", "Blue"}], "}"}]}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"LogLogPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{"f\[Chi]3", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->", "0.8"}], "}"}]}], ",",
RowBox[{"f\[Chi]3", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->",
RowBox[{"0.8", "/", "3"}]}], "}"}]}], ",",
RowBox[{"f\[Chi]3", "/.",
RowBox[{"{",
RowBox[{"\[Lambda]", "->",
RowBox[{"0.8", "/", "10"}]}], "}"}]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"P", ",", "0.01", ",", "100"}], "}"}], ",",
RowBox[{"AspectRatio", "\[Rule]", "2"}], ",",
RowBox[{"ImageSize", "\[Rule]", "imgsz"}], ",",
RowBox[{"Frame", "\[Rule]", "True"}], ",",
RowBox[{"PlotLabel", "\[Rule]", "\"\<f/\[Chi]^3\>\""}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\<input power [PW]\>\"", ",", "\"\<\>\""}], "}"}]}], ",",
RowBox[{"PlotRange", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"8", " ",
RowBox[{"10", "^",
RowBox[{"-", "13"}]}]}], ",",
RowBox[{"5", " ",
RowBox[{"10", "^",
RowBox[{"-", "10"}]}]}]}], "}"}]}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Red", ",", "Orange", ",", "Blue"}], "}"}]}]}], "]"}]}],
"\[IndentingNewLine]", "}"}], ",",
RowBox[{"Spacings", "\[Rule]", "0"}], ",",
RowBox[{"ImageSize", "\[Rule]", "800"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.8732045458913403`*^9, 3.873205061951337*^9}, {
3.883112951759577*^9, 3.8831130242291603`*^9}},
CellLabel->"In[54]:=",ExpressionUUID->"d669df64-e556-42c6-8576-cd4279ecee9e"],
Cell[BoxData[
GraphicsBox[{{}, {InsetBox[
GraphicsBox[{{{}, {},
TagBox[
{RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.],
LineBox[CompressedData["
1:eJwllPs3VAkcwId5YMa8bsXlyJiTpJq1ctooj/tdqp2UwoyMWWyvUcqjOpM1
PVBSSnpQclSW0e4kDJOlrXCvVUf20EPoYacIpaZVjBkzebSd3R8+5/MHfM75
8Lckh8ssSSRSyFf+swNardmFEKeGPRmcFyYsKRv36NiBEMH014znr0zY2Yk4
9bAMIWiCfFvlkAnr6q6r4m1CiLRkA3PpqAmT5okqc8UIsdd4iyOxNmNxjDPl
8f4IIaUE2ZUsM2Np09SrfDZCLHKJ4Hvmm7Hqfn3huRtcojVS4R267jPmUMSb
/+odhxh/w+fVaSexSVqJXOHBITyZ/IwM8TRW23Gu7PA/LEIe8vDeaMsMlpGY
qdTFMoknPUkDQQtJ4J/i7P7xPYOQh5e6BA6QwOanqLGOSDrBepl5p7PSAh5+
M/SU1m5NVBgbhfV7LSFL5rjyudSKeCwtQ0IWkyH40MfxY39RiZEHPitS9GQg
zSQKHogpRP5pRXG4mgI12/zTk99YEr69XMNhGRWSKyrtPkgsiF5vaXmQgAZ+
9SfjKe1fcEpfSNEfQzS41T3p8VY1hbsWjg7jaitY1MxanJZnxoXaDwsd5dZw
ME2+VHjDiI8n5qsWCGzgw6RD6/18PV7Ien+kVW8DfmuR7Qevf8LvftYVOarp
sLHuvEsHVYe/M17hkFIZMDdB2GfTNYizM1SpPgG2sCY3aF+Uw0u8SRw913XC
Fh4FGtYrzj3G45Y385Q4E7Z8uf/zBcVNvCD+ceyT/SzwCHF7nbK9Hrvvtvxs
pBcbjDLa9dWMTmxMH8pLMrPBZdQ7bkClxcJpJw2Xojgw7F830+k8hF0rCqIH
N3EgUkfXrl2nw9IN7oV8Phcy98eEVh//hDkat94NP8QFP9zgfkSlxzQzKbyQ
fi7M8fId5+cZMduqV2hpAALmZy+zmUlmbJgvz3EuQgDHA88HZk9hzcV9Atk0
Ar92ifJWJn7BYpuVCVTpLKg/n0cWCi1gQufXm9Q0Cxb1hHmLcUsQNwiGlzjN
hrIlxAbatxTwEgmTnFNnA7Pq9DxtIxWYY77zunpnw3G8drejlxVULMtKGfCZ
A2OjPoqD96xhdeZvpjtX5sDWgMS4o2F02FKg1zeS7GCQb2of+5MBQRsKch1i
7CBi/sBIlogJPA53Y0CzHfTgrifT21iAp/Q3NDjbg8dtehbbiQN9ZdrL2/bb
Q7xrrXL0NQdmnmkqurX2IHhBmz52mQt9tb2SkhUouPMeqlp+4UJMD6YO8ENh
/raL4aQyLvxtKiNr/VFwHllwTVHOhWf+CWqH71HgWK4RJdRzobN1ipz/Awrj
C3PKwx5xoaV3bnWWGIVGBXujEwWBa+RN1F1JKNxuekqKskLAze2u1GY3CvXk
kooLdASuCt1rVHtQqMn1tGBzESjN/SQdlKOgLA2rtHBG4JL94ZqYAygca8u3
fOuNwKnFyh9Ds1E4woqumueLAH09TTNyAoV0katk09eOJ3bvpOXmoJCq/b3q
+UoEsuq8NG2nUdg52i1pD0MgDWuhBV1AIW5ZMdkmAoGpzQui+wtQ2HogTr1K
gsCBozma9EIUoqkTZDwWgdQ2UXTDJRQkwbh6cjMCBt1NjfQKChFnjkf5yBCQ
s5yszMUohHdtoOzbgYDeMyP6YgkK6///F+wRDWq+U6LwL1s9Idg=
"]]},
Annotation[#, "Charting`Private`Tag$61792#1"]& ],
TagBox[
{RGBColor[1, 0.5, 0], AbsoluteThickness[1.6], Opacity[1.],
LineBox[CompressedData["
1:eJwl1Pk/lAkAx/ExPK4JM49z9Iwjx9qSym6ODfNtmjIphqRGm+SYkYTdTY5W
uocOydG2r9rtGEnFkCzSK56na3UQW2Q76E6tErlCsr12f/i83v/BxzYycYmc
zWKx/L/0n3yL8oo4krk12CMadyOQkEW7NK0hmTNK3ytPPQnsH1aUvZaTTJb5
sXl/ehFobatSW68mGbFnkDhHRGBFXnBp9lKSqU+vnG8bQEDByTkd600y5zRT
JfPlBDLGiRO2RiRziKcRkJ1PoPxp/6+553hM7HTjUEEvAf4ha4fHb7jMRFJX
Y/N5bYxpH0tKc+EyAt2YTbOTdFDZlFu49Z0hI3TysemZpost8dtV3asMGJns
mo1nvy68k62c3v/DYUbvDoe5q/WgFx76oWm5PlMQ/uBjQ7I+mqe/bNdu1GVm
pZooS7w42Cm3FN9focMsezQiFQ1y4Lfp/YDyJsGsD8xJiaubBNbneOfbS7UY
PrfloW+qAc5Ge29OfMVmmJVrXFNmGCKxpNTsrUyDiag9+8pjyBBe1btjtRon
6F0RJ9rV5UaobRtz6Sr+RLdNss9f4cXF1EuG0zLyRuiY8uOVOke5SM9I+lZy
boiuG076yXCMi7dj/Ibr+f20kcRmdecqHrwWkTHpZ3ppBx/btzoXeVhWVWDT
RHTT7l6jJ0dtSAjWSZ7otb6gb7ImHpjtILEwe96GUH4nPSUuVL33CYkW0WBA
Wu5fdHLHnrJbYmNETlxPOZBWQ2cPGgdEq4zh4u/4LDmmWujY2qBw/GyMIbn2
mQWcO8KLF4LLKiJMYNPnrnhe3CE09Z1d8Eu9CV57V32+Y/VSGPew55TYzhTL
u/U7Fi3uForcWt0opSm2bwwLLM/sFT5yM4ryf2YKL3rQaVtxv3C9cEq97wIz
mLrOGbDNGxI2v9tdc7jQDCN/d2YZJIwISyKtp/InzEDTogJR1ifhjsd7boVH
mqOoNThPHD8htGUHcFi0OaoL8jQlEg3UOr9Oi7WzwNR7Qe5LaTbMx9uVzlst
UDiLkWrP0MJgfv8kfocFDNT77DrqCLS4dl26DT4y6cofLF11kJAy07Tzdz4+
9HmkpV/The7VoIPVbEtE+cQrdgTpw6H9SN55uSVe2H5s/HCZA2L/XGeTy5YI
cXjeszPYAE8DLw54OE7GPdp+9+Ybhthas/f7mu2T4XJBf6cRxUXhi6w54Y8n
I9a+UtX3jAuGH+bXIqLg/EB7XPkbD6oB5fChoxScrJuLrxzlwca8e7HncQoO
0QeXsAp5OOIpVbWrKFj1fHUq7TQPhzPM/U1OUuCyFwavq+ahQPeUKruUwsDX
e04HtfCgpG74b6mlUJdmtIzSIrFWzDkhv0vhQn07K1SHxBtF4ohmG4VqzWMl
B/RJxOy6G6C6R+Fs9kwNIx6J6NuHRzrvU1AdDyrVsCIRJnOWyp5QUN7IZ3e5
k5Cu8x/1e0dhm+FKtd0cEk37KqRveihsDraXrfYhsajCtCizl0Jqxx/q+2IS
kqEO6dV+Cmv72mSNQSTmbkko8h6loHA7oqkXQoJW3Rl9OEYh6mdF2XwZCe9r
boEbxymsJIY16VUkvtOfGK1mCSDzo8vGIkicd44KDGELEJKTGeohJ+EubSjq
1xRgSatUa8MaElU/ThvLJQQI+P9f+KYgJ3CmjgD/ApmxGM8=
"]]},
Annotation[#, "Charting`Private`Tag$61792#2"]& ],
TagBox[
{RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.],
LineBox[CompressedData["
1:eJwl1Pk/1HkcB3AzBjUyx0eMEeOr2OQY2yWbY94h4ygaQ0aJLhNJ2k22KbEl
x9qdtSalQ2XJSqUcyy6l77e2lCKlYdQ+UIrUIDOOScJ67P7werwezz/g9bLc
Hh8URdbS0lo/m/+abXKjIhYRmxvX36ntoMHeTJzbHI2I1Zt+X3PhHxr8qhFf
749ChIly+s6xLhrI26rLLLYiQj6v/K7/WxpskgmvSYMREbAB3ev8SAOxfnZp
jBsiPBTtDSQ9OiRP6VyypCPCtjeyyXclHW68HjmdU8kkJrS+U7zIoQP7rIV1
93sG4WNVZO3twIBJ3YIECZdBKAZ7pj5lMaCqOafo6CCN6D8SENjWx4Af4lIL
lREGxKiRrOWQHxPcEjk2Hz/oE/eFdkOSEibMjQxTN4dSCdmZfBePeQhaHHoV
uk1ziFfF35BXxCNIizL1erFJjxgJtd+V8hiB35GPo+mPdAgy0nw+4WgIWtNx
9k+CKYT8W5YDWWoI5TvdUuL7yITN6R0dZ/oNIf7qNeMBEYk42JBR+dl/PrjW
ZMVQmmZw6VmSXfXl+VDbNsl9V/IFP58obHU2MALbOzS7ZNkE7sh+pu6NN4Kk
5IQVPpXjeNq2SxUDj41gYJL94OGJEVxREXjxlqMxuPqjXUlXhvHBkg12fT8b
w8bqXKxZR4nPFC/p61AZg/ken1dz5W9x2W6u6VgwC3ylngfC2F34B3nmwO4K
Fjz1GAuQ5DzD3fk3B0uNTGD7zMPvT0r+xEMiPaUe+02Au/6rnsRdNbwhN00x
pcUExqN0r3jrt/KOW6UOZi9jA6ZaJX5T0snrLN/5PCGbDf1u1dOtnF7e8rWc
/oWjbAhVUjv91yl51ALtxM8bTSH10JYNNzKGeZcK3AvtqkzBFR+zOVYywnMp
FUxZsxaA0TKXUUvZOC8vtG5ckrAAJjq6Mg32TvD2NwXEaFoWAI575HpkfuGt
871JdV9uBsVyocwrbob3PvaIX1e2GdTkyrR9fEhw9BSrlj9qBrbtglXBOBm6
xXoN1CBzKFpKBOo6UqB+auE6TZk5GJT9sqizXgfy8o1JZUwOZOBV+0yX6YHT
68jgW3s5oFY5S5Luz4GnDkfbc59zYId7nPi4gAqD8OTZKScLeGv5qUl9Vx+a
J/bFqmUWEGL9ZihNaACldcrlLI0FtONWWSmNNChmRDT72WLAraOm0c0Y4LQ4
vJ4jwiDGqqpQ1cOAe2savBQ/YmD/UncqPZ8JKx03n3P9CwMbi5aSvy8yIQEM
GvRrMbDemRekVcSEKgE+/HLWnKHFlyWlTFiasMhbchMDBtlXuKeGCdxa5XD1
bQxGl/xUKnjKhMWeSd6O9zGol9A3mlEQsEPPqyxbMai7rdAK00Mgig40U826
Rrvg6kkqgjwJiU88x6Bc+jWJzkRgnB+VH9GGQeFvgmskDgLD1w78cx0YpDee
IL9bhUA/9nb+/G4MjtHCyxa5zO4kad+DN7NOEVqJtrojyJIuVFe+wuBg5x9l
L7wQzClP5wt6MNitahM1CRBQxgLU0l4MxE4XtOeGIPDUJZlv6cNgx2Hx9bUi
BKmsKr79OwzCdTTaeAQC0mrW+Uf9GIj88OuT2xCAf+ODM+8xCMnOCHOOQpAS
flgd/QGDIHkg5UA0AjzOwdxZiUHA//8F08ndfL0BDP4F4SojLQ==
"]]},
Annotation[#, "Charting`Private`Tag$61792#3"]& ]}, {}},
AspectRatio->2,
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{-4.605169998021961, 0.6931471805599453},
CoordinatesToolOptions:>{"DisplayFunction" -> ({
Exp[
Part[#, 1]],
Exp[
Part[#, 2]]}& ), "CopiedValueFunction" -> ({
Exp[
Part[#, 1]],
Exp[
Part[#, 2]]}& )},
DisplayFunction->Identity,
Frame->{{True, True}, {True, True}},
FrameLabel->{{
FormBox["\"\"", TraditionalForm], None}, {
FormBox["\"input power [PW]\"", TraditionalForm], None}},
FrameTicks->FrontEndValueCache[{{Quiet[
Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& ,
Charting`ScaledFrameTicks[{Log, Exp}]}, {Quiet[
Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& ,
Charting`ScaledFrameTicks[{Log, Exp}]}}, {{{{1.6094379124341003`,
FormBox["5", TraditionalForm], {0.01, 0.}}, {2.302585092994046,
FormBox["10", TraditionalForm], {0.01, 0.}}, {3.912023005428146,
FormBox["50", TraditionalForm], {0.01, 0.}}, {4.605170185988092,
FormBox["100", TraditionalForm], {0.01, 0.}}, {
6.214608098422191,
FormBox["500", TraditionalForm], {0.01, 0.}}, {
6.907755278982137,
FormBox["1000", TraditionalForm], {0.01, 0.}}, {8.517193191416238,
FormBox["5000", TraditionalForm], {0.01, 0.}}, {0.,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {0.6931471805599453,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005,
0.}}, {1.0986122886681098`,