-
Notifications
You must be signed in to change notification settings - Fork 0
/
ch3-bessel_filter.nb
3311 lines (3051 loc) · 149 KB
/
ch3-bessel_filter.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 11.2' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 152113, 3303]
NotebookOptionsPosition[ 148120, 3246]
NotebookOutlinePosition[ 148479, 3262]
CellTagsIndexPosition[ 148436, 3259]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{
GraphicsBox[
TagBox[RasterBox[CompressedData["
1:eJzt3UsO5EZyxnH5sfDS2nlr6ApaeGmvBG9tGFp74LGhzRiYMWBYN9ANdAOd
QCfQBXQB3UB3aOuzEDOfo5PMB5OsZPH/Azit6a4Hi8ViBiMjM//2N//5T//+
55988skf/uqX//mnf/3vf/j97//1f/75r3/5P//yuz989R+/++2//ePv/uu3
//Hb3//db/7il7/8+z/75JO/+eXxf/nLf38AAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAADA7f30008fvvnmmw+ff/75h++///6S
99R7ffXVVx9++OGHS94PAABc4+eff/7w9ddff9Ay2No+/fTTD999990l7/vZ
Z5/98X2/+OIL4gwAAN6A2nPFE9HGK3+hdv/qfVAeI/ZBsQ4AALgn5SiiTVf7
/uOPPw69juIDxSWx6f+PxCieQ9H+XB3nAACAY3JsMdKWK5bw3EfeVFfR+7oz
9gsAAFxPeQqvtehtw/V4789Q3YTqQZW3+Pbbb/9fzKH6it68iOcxFKMAAID1
eU3lSD2l4om99j/XbY7kITx+uWosCwAAGKM+Dc879FJ+wnMTWxS3eF+J3reH
P1/vQz8JAABrUhvtfRcjuQt/vmKNPZ7DGOmH8TxJb3wCAACu4bkH9T/08tpL
bZqPa4/XUWjrnVPD328vVwIAAF7H8wm13EPJl19+2dXe5z4SPb+H8h3+fOow
AACYQzkC3cfH3BL675w3ULtba3t9zIi2kbkuvG+kpXYjxwcjOQiPaRhLAgDA
Mbr39/qDvOnfIvaI+oY93jdSe2xJjk9a59jM+93L61FH9hsAAPwq1y3ovl9/
p7ZW9/CRR/B8Qq3vwWOVkXEjyo+MjAfJMVJvTWnuY6nVfAAAgI8pfvD79VKd
hNrYPG9mrZ4irzHSy/MIV8YX+qzUYAAAMC6vYbpXI9Hbbh+Zi0JeFV/I0X0H
AOCpcj9ALR+R2+2e1x7JAawSX7C2KgAA7XrrI3oen+OLkTb+lfHF0doRAACe
aCS/4Otz1Np64gsAAJ7Hazpb5ojonXeK+AIAgOfxsR0tc0jlsaK1dT2ILwAA
eJY8b1XLGh2e72hZR2Sl+GJkHVSf15z4AgCAurxmWK3tz30jLfmOHF/0rjNW
eo3WtUS8TmR0/k3GjwAA0CfnBWpG1yQ9OodEnueqNY8w8py912D+CwAA6nri
i9yXoq11vmyv8RjNAXg/RUsslGOSkTVb82dm/k4AAOpa4wv1i6h9H+1vmFEj
6XUfLX05ue9nZO2QXMs6su4rAABPk+OLUput2EJxhTZvb3vihN5+mJJcg1HL
g/ja6qMxDeunAgDQL9/j57pJ3fNHzkL37v743L7r37fGZ+R+htE8gOdB1N5v
vV/uGxkZs5Lfr6WWFQAAfDweJO7181rsUcfp9/Pe3qr91mP3xqt6/cRonWSO
U0rjSCLfcrTeo3ceMQAA8Cd5TEjefIxI7i/Qc6MuQvHDXl7Cn9syT+iWnHNR
LKG/U4yjPz2OOZJz8Pc5sr8AADxVrp2MNjXfs6vfwceCeI6gNneV/t2fO9pn
IYpj8txZed9H5tlwPWusAMBqdL3WdTa2kfkFgRnUZqsd1bbXF6BzVmM99Ti1
4T3nrOcwZsyFqX3RPsR+a79mjPHwWtK9Og8AqNF1StenqJG/ite499zTaT91
z3nkHhC4WoxzXb2m4Q77CGBtut55/7PuVY7mVXvkOYNa7pPyNVr3gcQZuAuv
0VwxN+DXA8aMABgRNe/ex3rltS6Poeu9lmn/Z9TJA1fz2kmdw6vEGKvuF7Cq
0hi0vG3Nbaf+zL3ntayfuKJ8HXnFvHyz5gb0+y2uibiLFX6Djt8RMEa/lVKN
uP6uNm+ufvc5j69Nsccdf4Or3KPk69kRq3wmoIfnEPXn1TnE2IecB+T3A/TJ
8+v29H3m+X1b10dezUp9v35Nm1HzQb8x7ijf+1xZA+W/Qf03dUzAmBxf9LRB
Ob64a02152FefS3x6+ksfr2863eEZ3rFGC7VRjMOCzgu9/f33CPkuWzumD+c
Pfb+CI/1ZtZl+usqlrrj9wQAuJecg+hZr9jv++9Y0zlz7sAZ/LsYWTd6j8eC
zDsIADibtzs98+kfHUe5Ah8Hs0J8FPNqnZFHYd0EAMCV/P69pz7zSL/KKjz/
oljj1eK7OKOfmXUfAQBXyesa97SxeX3FV49T75U/+9H91/N1TErrKymO0d/r
37fa9cgHnZlb8HnH75hvAgDcQ17TuKeN9XZ05liHq3jfyNH9r61lnbfScVZ+
Qft0Zh4lr6MNAMAZcrvYw5/36nEXIzw+OrL/pXVKfHyG8hWrxGJ5LPLMGtKe
+Gp0e3X9LQCgjc+L0NPG5nbqjuMR8hojI3KN617+J471K2OxvL8zazCILwAA
4cnX/Rnxkfex1OKG6It6dSx2VlxIfAEAkJyDOLLdbb6m/NlH7+PvWM/gn5u1
VQEAsz15Xq0cX4zeFx+ZW/1VZtWdAABQ4mMVe8ZE5nkU7tCmZrPiC/Ealmiz
Z8+9OdNT44sr+m/Y2NjaN7yvWfNqrTAvVa+Z8YViidI69auu50x8wcbGtsKG
95THEfTU+eV+ldqcGbH+YWnrec+9TTFOT4wwM74QxRGeD4pNMdxq844RX7Cx
sa2w4T3lebV62tc8P2WN4gv1ofhz1O721BbqsZ5v2dr0mJZ8yuz4wl+3lMtY
aS5u378nxRcAgPO9Yl4tr1MYaW99n/W+nr/INRC13EiOL2aunaJcRj6+intW
6Svx/Zo5fuSK+x3GpwLA2rw97hn/kdfs6Onj8PvmEZ4DKcUDnpNpac9HP0cr
nxtD2yp1Kmd9buILAIBfs3vGf+R+ldY8hI85Gc3Je0y0NT7DH1Nri7y/5ax5
IHx/tmpovT6l9LkU08W/z1iD7ax+G+ILAHi2I30DuY6iNefvY05G7pk9Ptkb
S+u1IbW26Eido+KGlvm0au+x14+iWKO0FuuRvpw89me12lMA69uq2Qfy+I+e
e0K/H++Zr9Lfc+Se2WOivbG0PfFFPg49anmU0v54jkQxRBxL/b2PPdF+q93X
8VUspf30fz8yT+gd5xsFsBZd93LNPbXikHxP3JqDyGNae84nf8+ROkdvF/fq
GLzGo/Y+ua+g9V7eY529fpX8+h7vKMbysav+mvFvyhX5Z/DYbpR/D3ecFw3A
Ovy6TP4COUboae/z/X5PfBHPGZ1L3NvFrTjA6ylb5wvzeKT195GPg9pp3ycd
Y/VheGxfasv9uHt8EbFF5sdgRJ53daUxswDux6+F1EY9m9q9PI4z2r5ajBH3
1Pm5LW2Ut52j98y1nL7HFj1zWvnvo3WO9FyDUttaakfzfpS+jzj+ozGa1+b2
zAcP4Dl0vfaair0+4KP3PHgPLWulbsk1iKX4ZI+3/SO1id7PEPUIsem9PQeh
NrjnPdSOe9zUGoNrn/S5lCcp1WDq73TcWtch8dco7b/nnUZjNI8tn5rLLH1X
s7e9vJ6+Wx370nesc9H/vRRj+lgi7hfHRX2ifhNX5fH0Xvrtrv695d/I3v5u
3fPkGIX6T5zFaxNH1v3K80jsxTkjr++5g1fVKMXvdCuv4LmHkXk0cv/LKnN9
Xa31XJodXyguyPO6+vVW+5Xzg7pmx/ekP0ux0Vnjqt9Vnvuu937kyPvmeXNX
jTP8PNyrAff7vnwe6rPl8/nJ1x2cJ35Xo+MVvD9CsUqOiXUuHzlv82//6roE
/51u5Sb8GIyMKX3l51tNqZ0eubfScdzKXbmIDRUv6H3iuhuPi+9Wf/q/RywZ
6+fFnPqjY8SfLrd5OtZ7x07HXt9R3o7EdNoHzyOuFh/2zJ/o9zyla4rHcfrM
jIXHbJ7X36u51O98K+frbeNZ56j/rq6Os/2eeis3EdfFkRjNf+eMGfn1nCzV
Eo2eWznGyPFF5MXz42OO+1wv5NdtfXd6vn47W2OJVr0PXokf09a2To/R83Le
aUZMkNveVWLEPH/iXj7Y49y8/zG+Pq77q3w+vJfWvH48LucqPT45e76GfA26
6jdRy0147NM6Lia86jOtLo8BiuMzojZuOx/ziC90PpdqkXOtVGm/PKYZ6RN8
kqO/gdE5i8/erzPkXPGeiHFzn67HFqusiYD35HH61n2W90/ka6XPN3nFvffI
fc5RtXVZtmK0Wruy6j3SKkpjqUZr0LzGqFbD4+9Xuv62rKMT+84caftm5CV7
7ul7rZZb9GvRXl7Mx7r7fkcdkV6H/hCcrWVOqIiZS7WN/vu7Khb2flr9Weun
PaJlXZbSGPO4Ryi1h6U+XmKLj+W+5iP9JB4H78UXnpvYepyf86Xv18+Z3nzW
07S2l3v8+zhjXPfRdaVnaV2DQfJ5rGMUx1r/n+sNzuZ54zyuNDb//Zfi9xnX
hxH6fXiu8Kw685Z1Wbw+I37L2p9STiKvi0vf/L6Z/SQt8UXLWG3vPyldp/2c
If+8bda4sLPnvPW2emvumyv0nFd53k6vSx79/QCtSnVRtc2vt/rN5bq5iFGu
dPY4eb832nr9PEfHXk5Cx+wOY+xXkccOHekniT6SvbbM+1G22pFabsLPGXLQ
ZaPz2pRsXaNm8mvdq+aJ8JihFuN4DBz8foyaIJwp5gnq2fyc3Jqf5d3u1/w4
7f2mdWz02Wvz6aHf1txzZ7TdtXlOfF+22pmj472fwPNER+6n87lxVjy3wty6
ETO05GjyGGshrwYAHyvNUTs7z9syVtvbxdI9d+t476fznNSRti6vO3CWFdYG
ao2hvG7JY2DqggDgY1v9JDPvw1rGatf6T7bqde6c04p50XXfHHNY6b/zHOmK
AVvmnhhdF7nEv49Smxnzqpa23loNf6+ROo+YOz7WLIgt5iTU8dw6T+KYtcTU
HnPlOMjrv/y7o94TwJN52+33rLPa7pax2rX+E+8jj2v73lii1eX5SkvHX59z
b4xZNjPnUMuDRGxU2vfemlL/bnv2W99/aaz11rYV2+p1WupU9uos/ByPWhUd
I+3fanOVAsCV/B5ytJ3YUhur3TJPfJ6fZW8s0cqizfHjrM+sWEJtnD5nae71
lvt6f96R7y7Pm7bX9pY+S69c69ES1/pcVvF5dez0WtoUS+S83NHa7736nzwf
YowR7FnTGgDeUWmszox+kpZ5Tlr6T0r7d7f5l3NssTWPXanPqmX8Rl5jZFTO
Z23Jc3iNjjHJ8UxLDUbr2NlZ66i3nMe5lkmPu3P/HQDMUsp3H+0niXHO2rba
DR8ztfdeusbHWKI73hN6W1eb7yHnMFo+rz/+SHzh7eRWW+qx0oz5fnv2Pccj
e8exp76i9p6+ruSWGBf39LUUASBrWRcV/XLsVsvV+/fQUpOQ+xiOtG+1OSm8
b0K5gxk5JN/3Wr1Cb3+KHn/HeBQA3snWGqvMW3ZMbb7ezNv4ljGPuc2dNa9W
fp2oIZ09r29P7Uge07rC+iUAgDofh9CTn0dZzl20HEuPR1r6OmbFF/l1Ijfh
8wqfsf5hb21qzrPdrRYHAJ6K+8N5fGxOSx1Az/iNMCu+yOvSqB3PtaZnzFHZ
G1+U6n3vOlYZAJ7C25i7jf9cUU9tgeR8R4tZ8UWe6yrGe/q4lzPqcUbG1sYc
XznXxhrpALCeq9adeIqRusuRtnZWfOE5Ad/X1jGrozxH0hu/KB4r5TLOWpMN
ANAn55xn5sFL80g/YW6AXMtSi9dy30jr3I85vhhpW/N7+/eTaypn1/uOfGan
/ctzxM2cgxYAMK53zEIPtUd+/V91DVTtp9o3X0vjyFjPXM9Qk/P9Pe/tzxup
Q/B+mdL3430ks+scju57yH1L1A4BwGv5fXZt7qdRfo+92jqT+ryxvoT2Tfuq
tt3nkBo5Jj3xRWl+s5739NzTSA6gNq9Wy7xbI/K6bEfnpvI4dm/dlqgtGf13
AMC+fH0/65rqffhnjEE4ItqkHPf4XN0jc0Dm+GIrXog5q1rbxpKj64/U8hMj
dactcm3HVh9SrM1S6/OoxXR6P6/3yN9rXnuONUQAoF9e6+LM8X1+3V/pvtDb
t1Lb5e1qb11DbutK9+YeW3iO58g6pCPtf61+Y2TcbIvW9VMjfqrlN/z1cowW
ORjFFH7e67P4nOd5XG5vrAcAT+f3y2fPA7611pTa11L951X3jN4HUuK1jb3t
TL43z/0s+ne1qdpifZWtWE9t/t4xyXmonuPXOm7I29zcB1Pbvy2ta5VFTqHW
t7b1ehEnRu7MP3OMwfW5w3LsDQBok+v5Rmsu/HX2bMUxXvtwdU7a78n32jbv
O+gdk1AaO+n3x/5Z/d7b29H4+1ofzWguqjX34d+Tx1rx/N4YNY9L2cpN5NhJ
75fP13welcaPeM7F44uILfJrzlp/FQCewteoask57/G6v733a+3b13X+qnGF
/r577bG3M739AqW6za04Ko9n9Tx+yxzYe30De1prN3Ifid6jZ/8yPzZ7+7t1
DCPX5fFfa3zqx3prLGt8NvpHAKDO+5lLee5eLTlkv5bn9rl1PU4fNzq6Zd4e
78UXHkONjv3MeQx91tym5e8mYozW+C/PYdIaC/WMPcltvb7/0fi0dcyrPpfe
V8csz1ee96WU2yjxvsHSe3tuZbXxTgCwIm8rR8ZEuJy33uJ5a7/2R2zRMt9i
aS7o3i1rjS9aH1cTYx5r7Z+Oix43ksfxfe2Z/zO2lvfU/h9d99z7J0b65+IY
tR7TzPunSs/12hnWNQGAfX7NnDG/obf5e7FKHuOp67nXFLS0U7k9Gdn29v+K
+OIKuS7x6HwSZ3nlPno/z1ZuwuPwlcY7AcBqdE31PPiR9RnU1uf5mLfulT3P
HLWNns9+5fpptRx5uFN8IZ5XOlK7exZvu18xx2ZL3Q1jRwCgTe7Xn71txRd5
Xq08V/gr14i4un/kSrlmdpUYY4X9quUmPL9x9rhtALizPP7wyvjC3ztiiVXm
8hyJL+6UK89t+avnocy1P6+KeTzWLqH2AgDq8txJZ21bee7oD8lzM/beH54x
fsTbkb1xE96nc7c1OfX9R7+Y/mwdXzF7H/KYpVfmUzzGKSnFkzG2h3XfAeBX
V+Qu9u7ztuIIb7Nb2pozxo+05sGjbbzrPAiluaeuaic9rtB/vzr/4/H2Vkzp
vxk9Jta6Yy0SAFiDX8tz/OHXcG/r1BaWruFnjB8Rb/9KcY7Xp949V654Sp+h
Z06No2Kd+1fHFWHrvHN5HrFV+pcAAL/yebVye+ZjHCJ3EDnoK/ME3kdSam+i
PVpxHAb6eT/bXl+XzgvVIetx9IkAwFpq40Ty/Bkx19bV94nRd5Df2+f/4t4V
AIA1+ByJJXkdlJE1LGZRrsXnAYt+E+0TsQUAAOuIuoe99jnmml5lXIbXedAf
AgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
8Gw//fTTh2+++ebD559//uH7779/9e7gIvq+v/rqqw8//PDDq3cFAPBGfv75
5w9ff/31h08++eT/tk8//fTDd9999+rdwgX03X/22Wd//O6/+OIL4gwAwGFq
SxRPRPui/IXaHDyLzgPlMeI8ULwJAMAI5SiiPVHb8uOPP3a/htolvY7iktjU
t6K+FtyP57F0TozEmjon/HwgFwYAz5Fji9Z2RHHDt99++//udbc2PYZc+/2M
nhtBMYWfB+pzAQC8P+UpvNaipf1QXKF2wtsNPVf3u8pXKI7Qn6oTzHEG96/3
43kMfac9cnzR+3wAwD15PV9rfkGP8zZDr7HVn+L3v73vg3V4jqpnPFGOL/T/
AQDvza/9PXnrHF/UajVyHoN72Pvx71zxZGs/ST5XiC8A4L2pffCxIj05BW8z
WmIF3e/mfAfux/vEWuME4gsAeBbVZXrdXo+Ye0tby9gQxTK5jwT3431drTFi
ji/oGwOA9+Z1F4o1zkZ8cX85TmypwyC+AIDn8DEjLfUTR+V2qXbvq8er7WrJ
kWjffa6NJ9Lx8nlHWnJKrcc3+/LLL7v6xvK5RnwBAO/L+0ZUg3G2XH+x1y6p
vfO6kNjHHAPp/+cxskfmgborHduW4xUUS+T5SkbHg7SeO1fGsgCA1/F2+Yr5
jvL4kVIb4+2e9inHGR6T6Pm5TX3i+JSoh9Bx0/HKa4dkeX2R2HryF7m/o+W5
9IsBwDPkNUbOpPbH25ettSzUHua11ErjZz22UK5ejynN9fXuot9BxyDU2v6I
3xRjxLHtHcuTv8+W3AfxBQA8w5XjBb3t3+u70N/nvIbHF8pJxJhabbkfP+f8
n0DHIB9Pz094rBZzcPp3oH8fmU+19/x52vcCAE+U73HPrInMffW9fe8+L7X2
M3IcpdfJ80Q+lfdFRa4o6l9a53+vaclHuYh5esdBAwDu46rxgjPeJ+c+9l7H
44sZ7VheB/aM7Yxj73NU6Pj5PGqzait763fi8axtBgDv64r4Itdfjq5plusQ
93LxveMma0pjU2ZvZ/RN5fXq4rjMXFeO+AIAkJ0dX+QxCqPtWp43oVaHOOM9
3V3jC8lja2aPpxmNL7wWFQDwXs6MLxRbeJ3lkXbe5+iovVYe09Az3nLLXftH
pLWmdsbr98QXrD0CAO/rzPjCY4uj98xep1gbbzqyLsY7G10Xt1Vtno0s6nSJ
LwDgfeX4Yla/vMcDM/Lx3obV8uqzay/uLK+Le8ZcIH7+tIwf0Tl3Zr4GALCG
2TUAfr88o489r1dSW39tRi3puyjVjczoL3JX1JAAAO7H2+OW+889vrbIrL7+
vF7J3n1vrgOd3ZbeSfRD6E+PM2bOcZKP91PXlAMAfGzW+iOei9efLW278gt6
z725GHxeLW17rl6rbVW+Fon4MTwaQ7oc+7FeGQAgzJrr0useWu9ja/NkSU/8
4/vw1PkVYr4Rn9vUa15nzpvZu35q1F6cPWYGAPB6Occ9cg/q97GtNRfe5u21
Mz31gz5mJdcC6HO941rtytlEnYnPZea1J7V+o9F+DY/9WmppcyxLvQYAvDcf
nzFyzffnq41Xu7O35XXBt+KL3vVRtmpJ9Dr6t3fMaUTuwNewL7X1W+vkRptf
q5vNct1tS4xCfAEAz+LX/d45IzwPMbpt5UzyvFq1mg7vH4k2N/5On+vd6gNy
/LXX/5HnEFH8FcdmZBzvyDwjxBcA8Cx5noSefvEZc2dv8XihpQ3La514LuMd
+0Zyex1rmJXk7/hoG7/XF9W6v8QXAPD+Rud5nDF3dstrt85loRyHP+cd44qg
eCo+a0v/hI6FckJxbEbH73repGedd+o7gdeLa6TuEa4aU673Up6U3/wz5bXI
mMsAWzhPgPvRNd7Hquve4Io5CHPbovtX4oznyet5v/O9P8b49enp868DdxE1
7t43efX1Xfvg/aoz5+LBPeS5EogxEDg3gPvJv9tX17n7PQrXkedZ7XzE63FN
AO5n1XuCVfcL1/B8Woz15Bx4nlJOk/MAWN/q/d30tT6bzsc8b8LT1yR9Eo8r
9N/UZAH34TWVq/52/RpDrfgzvWI8E15Pdd6MKQPuZ3S+gav5WHfFQ6vlWAAA
wK+OzJf4Cj5HI3PuAQCwJl9XYeZ6yWcZWWsAAABcy+suetctfIWRtRIBAMA+
3b9rrSXv01DeQeMrYg7/WFupNieVjxnZWzuyJmr7fQxhrbZffRsR2+jxPesP
+FpTjCUBAGCc6iI811DaYm6AaOdr8YX3jeg5I7bWidyr5Sitc9nD61FH9xsA
gKfzmoMY4+H9AmrjS212re/AnzMybiRii5hXUXkMf03lGTKfw2D0vX0cibbR
tRdrr3vWBgDAq+XYYqtGItclaKuN38xrjPSK+fS8fVdMs9WWRr5E76vn6nkj
7x3Pm12DQXwBAHiCXB9Ra4f9sS1jK3peu0epjyQ+i2KLGWtInLHvxBcAgCfw
voaWsaPehtXqHnNbOnMchu+3cha+5vqsOZ1931lbFQCANrn9b5n3yh9fa8dH
Xr+V11+q7Y+1Q2bGAUdrRwAAeCIfg9nS19E71vTM+MJrMKLGY3YM8MT44oq+
GzY2tvfbgJBrNVvqC3rHmp4ZX+T9P2M9VuILNjY2trYNCHkMRkvb7/mO0rjQ
7Mz4Qs6eF5T4go2Nja1tA4LXL7ScG3m8Zku+4+z8hccXZ9Rf+us/Jb4AAOAI
vzdvqb3I8UhLrJDji1njOiTPoXVG+++vPyt+YXwqAOCd9eT+c+6ip/3qzXm0
iPnA8nyis52x78QXAIB31hNfaF6M0VyBz985IwcQY1iUc1Efib/+jDm18vvE
xvydAADUtfaPxJqlMb9Eb5wws0bS44non8nzbM2S619nxi4AALyr3LdQWr8r
ahzUlnv9RU873ltHukWxReRRvK/CX79lTEsr1k8FAKCfz2WhzdcQ87VSI1fh
8YjXdsZ6plv3971zcuXn6f09tsg5kJxn8DkwVKehx4+sfeqftzYPOgAA+FWp
ZjNv3q6W2lvFGTGGcy+n4eM8W+sk85quXnPh8jxbEQ8p7oh13Xvn3cqvOXPd
FOCd6Dqi37R+Z/xO1qLvRNfq2fMOAS1KbfjWPXseD+ptfu389b6GlrGwpffb
WxPVa0NyTmZkTk8/Lq37CzyJflf+u9Pvc+b4cxyT5wfS/SFxBq6mew4fH6Ia
htJ5qPPV5+/Uc2Ld0po8zmNkrtC9Pg69vscj2rcj40n9eMxcU/6d6PvQ9xjb
7LnZMca/k7O+F72u/571G+H7X5O+K7+eHRnDp/s7P7dG+p2BM3gOY+W5MH38
6BlrmtyVri26NuW64JzLinqZGj1G54ReT/Fjzk3p2hXvp39/Ze5d76190L5s
3aNrfxXj6jGvrNfJ38nse1bP7andYlzVPXiuaTSvm3/73HthFTlft2pf7R32
8SoRA/gxieuTrlf6N/2Z/32vL0vy/W/uh8pjjl75fZT63vJ+6LP659HxeZW8
rzPb/xxbEHvfy9HvL8cXZ6z5BIzysSQr5ga8LWHMyMdzge31sZfqZUr5U597
Va/v/WD+Ooox9O/+ulfnvWJskq6jUS+c4wd9xhwrrZS/mGX13y7aHLnG5fiC
eg6sZtV7oFX365V614/J159SX69ew69reV6VUu7jVfGFYh//DB7riI+bjj6c
V9/X5bl2Z/EcFe3Kvfk50pMTzLk8zgOsaLU+3Bl9k+/I44uWtj2PR2rpJ8jX
rNK5sErdjs+14rkVj5deXet6xpo8d6mdQhv/XZfG/G8ZWeMSeAXvg9efr6hB
L9VWE1v8Scyz1jq2bWQdvNpYHb8WbtWT+X6Obi1jK31elNjv1frRPL6YUQcy
MvYL6/PzpLVOM8cXXCuxsjyu9Mox9N6u6b+5bs7RG1/U+vR9ntmtXO6MNeNa
r7F+3qwWW8jM9X7Ej/8r61Yx18gcP7PWegCu9Io5AGMcIXHFXH79qa3b4nHB
1rh8r//cGm+vuCTP+9C7tY7lzzUYR8R8Aq39gzHnyN7jZ8cXXncxWlfSst/i
3+OTnXFeZCNzFBNfAHiVnEeorTfn16ut61vk5leYR9XrObdqRVr4vPotuZBY
48cfvxUPzayVGF07KOgeueVzxtwhOTZ92nygZ54XJR67t+Ti8u8bAK6SazVr
90R+bSxdF/16tkJfhPbBaxFG7ucjL612JI/1KLWnuf6hlhfy+OLo/EfeN9Kz
hrC3e6XP6edFnjskb0/JZZx9XpT0rhHdW+8NADPk613L9aeWm/Dr36vvZaOt
9brk3pgn2hA9L2pN8rz2zvMlsVZfLS80M74Y6Wvx88Djr1Idr8cWOgdKc8Ou
EFee7YrzoiTnI2q5D+ILAK+Q17qqXas89751Xdyqvbg61ohxqdEuxn7luKi2
X7EmmNex5j4I/7doY2LMdOQF9t5nZnyR1xhppf3LfSkeOyjuiHnJtOV8hh+P
J7RjV5wXJXm8Vy3fSHwB4Go+L0TLdUq8fn2rn8HbpHxfd2beXNddvbeu8XGP
7TGQ9xvEfsTfjdRklMZ/er68Zxyg79vROMy/05m5EB1ftY1b88h7ruPJ7djM
82JLz3fsMc8T8koAXivPj91ak+D5361YIeeIo/bt7PyFX8P9PjH4fZ8+e7Sd
o+MrPE+ja7zf2/fGK36PeSQGy7nzo+O6cp/HXizmsciMduzo2KKW7Yy5IGae
F1v8e2lZW3VWvAkAe/J4ip62wOvkt+TYJXIKZ8trnpTajlzLeuR6630asQbr
aBx1Vnxx5LVyrr8Wi80YE+vye5+xnZFPm3lebOmtsSG+AHCFI/eZcd/XEi/0
ju0/qnU+gZinoGdMYElpfrCWe8naa60SX+R54/fasTwvw4zv/a7xxczzYgvx
BYDV+D0+fbHHeRtyZJ5Mb5OOmBlf5Lkt9l7La3l6x1tuOTp3fMt2Vvw767zY
MhpfPGXcMIBr7Y2dwxjvZzrSJ+C1IUfMjC/yXPx7vN+pd7zlO5p1XmzpjS+i
74r4AsBsrGM/X64zOZoPinvqI2bFF7m/o5ZXn117cWezz4sSP94t54ziv6vq
oAA8h+euiS3myfM1rpATyvHFaE1hT5yS52N4eht2xXlxZm0HALTwuRZnjo97
uuhryuNRVtCTd9jSsyaW58Zm1V7c1VXnxYzvGACO8Huplly5HhNj9lEW7Wnk
pT1XvUL/tufmR+9tvX+/dv+dxwU/1VXnRR43fNXa1QAQRuacjrmBVmgnVxTX
dp9LPc+nNCLP+3TEjLXee/Lv3o4+9V76rPOiJM+72zoe+8w5xQA8h9/jtPb/
+nOIL37l82R4X5PfM3ocVzrWLddzby+O5tN7+jZK8v1xrYZj7176Xduyq86L
kt71U/P6c/y2ARzh1xTdR+matLflNcy5Bv2pxlHHT+1GHJ98P7+3nqUe21L3
MjO+yPFBb82Nr4WSP0+2Vwca7e6r19Cd7crzoqR3fjziCwCzlOYP7N24Bn3c
zu71N+T50HX8osavpQ2YGV/IkT4Lr6douT/2/Vab65/9HWuKrzwvsjxuuKX2
gvgCwCze7zu64ePjuDe2t9TmlO5pt8w+/p5Dz+vR13hs0jJXVh4r4c99x/6R
K8+LzMfqtH6vxBcAZom5dI5s+LWNjuPRMmeUrv3xeH0HPdfx2cdf7d1of5fv
R2vfhh8rffZ3y1m4K8+LzMeDteal8vXgnb8bAMD5PIdBzHh/3u+p2PEdc0MA
gPWp/fG+DuZJuDe+SwDAKnwsCfe89+U1Lqx7DABYAWvb3RvfHwBgVbmNosbv
HjxvQWwBAFiR6gN9rTvVf9JerUnflY8VUZzBdwUAWJXaqDx/1rvNr3l3Hlfo
v5mvAgBwF5qrWvkLtV+MRViLxhIrBiSuAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACs5H8BLLN/Eg==
"], {{0, 320}, {
536, 0}}, {0, 255},
ColorFunction->RGBColor],
BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
Selectable->False],
DefaultBaseStyle->"ImageGraphics",
ImageSize->{152.5859375, Automatic},
ImageSizeRaw->{536, 320},
PlotRange->{{0, 536}, {0, 320}}], ";"}], "\[IndentingNewLine]",
RowBox[{"For", "[",
RowBox[{
RowBox[{"m", "=", "2"}], ",",
RowBox[{"m", "\[LessEqual]", "8"}], ",",
RowBox[{"m", "++"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"rbsl", "[",
RowBox[{"x_", ",", "m_"}], "]"}], ":=",
FractionBox[
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{"2", "m"}], "-", "x"}], ")"}], "!"}],
RowBox[{
SuperscriptBox["2",
RowBox[{"m", "-", "x"}]],
RowBox[{"x", "!"}],
RowBox[{
RowBox[{"(",
RowBox[{"m", "-", "x"}], ")"}], "!"}]}]]}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"Hbsl", "[",
RowBox[{"s_", ",", "m_"}], "]"}], ":=",
FractionBox[
RowBox[{"rbsl", "[",
RowBox[{"0", ",", "m"}], "]"}],
RowBox[{
UnderoverscriptBox["\[Sum]",
RowBox[{"k", "=", "0"}], "m"],
RowBox[{"(",
RowBox[{
RowBox[{"rbsl", "[",
RowBox[{"k", ",", "m"}], "]"}],
SuperscriptBox["s", "k"]}], ")"}]}]]}], ";", "\[IndentingNewLine]",
RowBox[{"\[Lambda]", "=",
RowBox[{"\[Lambda]", "/.",
RowBox[{"FindRoot", "[",
RowBox[{
RowBox[{
RowBox[{"Abs", "[",
RowBox[{"Hbsl", "[",
RowBox[{
RowBox[{"\[ImaginaryI]", " ", "\[Lambda]"}], ",", "m"}], "]"}],
"]"}], "\[Equal]",
FractionBox[
SqrtBox["2"], "2"]}], ",",
RowBox[{"{",
RowBox[{"\[Lambda]", ",", "1"}], "}"}]}], "]"}]}]}], ";",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"\"\<###### m = \>\"", ",", "m", ",", "\"\< ######\>\""}], "]"}],
";", "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"\"\<\[Lambda] = \>\"", ",", "\[Lambda]"}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"Hbsl", "[",
RowBox[{
RowBox[{"\[Lambda]", " ", "s"}], ",", "m"}], "]"}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{"Factor", "[",
RowBox[{"Hbsl", "[",
RowBox[{
RowBox[{"\[Lambda]", " ", "s"}], ",", "m"}], "]"}], "]"}], "]"}], ";",
"\[IndentingNewLine]",
RowBox[{
RowBox[{"GraphicsRow", "[",
RowBox[{"{",
RowBox[{
RowBox[{"LogLinearPlot", "[",
RowBox[{
RowBox[{"20", " ",
RowBox[{"Log10", "[",
RowBox[{"Abs", "[",
RowBox[{"Hbsl", "[",
RowBox[{
RowBox[{"\[ImaginaryI]", " ", "\[Omega]", " ", "\[Lambda]"}],
",", "m"}], "]"}], "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[Omega]", ",", "0.2", ",", "5"}], "}"}]}], "]"}], ",",
"\[IndentingNewLine]",
RowBox[{"LogLinearPlot", "[",
RowBox[{
RowBox[{
RowBox[{"180", "/", "\[Pi]"}], "*",
RowBox[{"Arg", "[",
RowBox[{"Hbsl", "[",
RowBox[{
RowBox[{"\[ImaginaryI]", " ", "\[Omega]", " ", "\[Lambda]"}],
",", "m"}], "]"}], "]"}]}], ",",
RowBox[{"{",
RowBox[{"\[Omega]", ",", "0.2", ",", "5"}], "}"}]}], "]"}]}],
"}"}], "]"}], "//", "Print"}]}]}], "]"}]}], "Input",
CellChangeTimes->{{3.750304288031082*^9, 3.750304310804626*^9}, {
3.750304342608233*^9, 3.750304706153511*^9}, {3.7503047641142807`*^9,
3.750304810960503*^9}, {3.750304945005086*^9, 3.750305028879538*^9}, {
3.750305097048974*^9, 3.750305185389389*^9}, {3.750305380643379*^9,
3.750305440940556*^9}, {3.750306006766335*^9, 3.7503060069242*^9}, {
3.7503060792571983`*^9, 3.750306257280714*^9}, {3.7503063091418447`*^9,
3.750306362407455*^9}, {3.750306864655113*^9, 3.750306873022851*^9}, {
3.750309681867791*^9, 3.750309682170986*^9}, {3.7511132661384983`*^9,
3.751113310596005*^9}},ExpressionUUID->"b8454c82-b006-4e50-a396-\
d0ec63aa885d"],
Cell[CellGroupData[{
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"###### m = \"\>", "\[InvisibleSpace]", "2",
"\[InvisibleSpace]", "\<\" ######\"\>"}],
SequenceForm["###### m = ", 2, " ######"],
Editable->False]], "Print",
CellChangeTimes->{
3.7503062577472982`*^9, {3.750306311174515*^9, 3.7503063627276087`*^9},
3.750306873242323*^9, 3.750309682922563*^9, 3.7511132795600977`*^9,
3.7511133118113537`*^9},ExpressionUUID->"193bbf14-c937-485e-9dc1-\
b38a9e3cf42b"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"\[Lambda] = \"\>", "\[InvisibleSpace]", "1.3616541287161308`"}],
SequenceForm["\[Lambda] = ", 1.3616541287161308`],
Editable->False]], "Print",
CellChangeTimes->{
3.7503062577472982`*^9, {3.750306311174515*^9, 3.7503063627276087`*^9},
3.750306873242323*^9, 3.750309682922563*^9, 3.7511132795600977`*^9,
3.7511133118172197`*^9},ExpressionUUID->"95f262be-1be5-4794-9e84-\
86e847ee0c8b"],
Cell[BoxData[
FractionBox["3",
RowBox[{"3", "+",
RowBox[{"4.084962386148392`", " ", "s"}], "+",
RowBox[{"1.8541019662496854`", " ",
SuperscriptBox["s", "2"]}]}]]], "Print",
CellChangeTimes->{
3.7503062577472982`*^9, {3.750306311174515*^9, 3.7503063627276087`*^9},
3.750306873242323*^9, 3.750309682922563*^9, 3.7511132795600977`*^9,
3.75111331182423*^9},ExpressionUUID->"00c351bd-8330-4490-b2d3-\
d7e8e9400bab"],
Cell[BoxData[
FractionBox["1.6180339887498942`",
RowBox[{"1.618033988749894`", "\[VeryThinSpace]", "+",
RowBox[{"2.203202661184323`", " ", "s"}], "+",
RowBox[{"1.`", " ",
SuperscriptBox["s", "2"]}]}]]], "Print",
CellChangeTimes->{
3.7503062577472982`*^9, {3.750306311174515*^9, 3.7503063627276087`*^9},
3.750306873242323*^9, 3.750309682922563*^9, 3.7511132795600977`*^9,
3.751113311831554*^9},ExpressionUUID->"54f387a6-8e74-4041-9c26-\
a02cc8434179"],
Cell[BoxData[
GraphicsBox[{{}, {InsetBox[
GraphicsBox[{{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
Opacity[1.], LineBox[CompressedData["
1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAA3kZL5kHA+b+UaIy6TtC7vzltHrk2
vPm/522nhIreu7+Uk/GLK7j5vyLQrarN7Lu/SuCXMRWw+b+INv4Zagm8v7V5
5Hzon/m/Fkqu8vtCvL+MrH0Tj3/5v2ZvRvuGt7y/ORKwQNw++b/6kgdSVqa9
v5TdFJt2vfi/ogFKm8Cbv78cF4yc5qT3v7bf8OKTKMK/Q0SMRe6e9r8cQEba
TK3EvxpKzHcZnvW//hire3h9x7/D8rn2f4f0v7hlQWnQ+8q/Co8wHX6D879J
MDZHVbjOvyPOVJC3afK/LXpE5w2v0b/s5biMFFXxvylSnrp8UNS/U/GlMAlT
8L+yCMb/wCDXvxk/gUJydu6/p79gga+h2r/IgshyAWzsv8T4NRhLZN6/13eP
tddr6r8/krvvhk3hv4mysZEkQOi/Pv3gD8Ht47941OW8oDnmv3kFmYPRvua/
DDx1gZMH5L+cY1SHWELqv/9UhFjN3+G/AT3DkLI+7r9eqkr9bLrfv7HCMX1u
QfG/BjZDfCxe27+Zx83DXOnzvyiQX5lKTNe/Zghc6mfB9r+SdTLpVePSvx84
Gs6tSfq/dnsJvN4dzb/lHGez1kT+v7yo9eHOCcW/EFMT9Ds/AcAk2Z3aMo+4
v3pdodJa2APAcjW/04RooL9FJy628pUGwNxihMvVUZ8/Zl5KDguXCcAIn8eE
eDm5P7VznzjvOQ3AuHUPj4C6xD/vkL+4q34QwFwFTnZqhs0/HUJauuK9EsCz
Vw5jiqrOP7nYuTaZDBPAswVFjA==
"]], LineBox[CompressedData["
1:eJwBsQJO/SFib1JlAgAAACoAAAACAAAAXd57+s7tzj9dNPx32x4TwFr+Qjqk
G9c/ifn+jrmaF8CriQg4v3nbP2jsbXXEdBrAgkaql3uN3z+1rHvSt0wdwE5Q
JulUxuE/hPnL3MofIMC2NxxtdfHjP1wfyP/rziHA4TcAomb35T+dxLWV2XMj
wGnyiD3hKOg/pvZiEK1OJcC0xf+JLDXqP2cA3+G7GSfAnuf2wzA37D8Nlzmz
7ugowOTDkmS+ZO4/D5dyLGzsKsB3XA5bjjbwP7gFPqlb2CzAKrQlN4JQ8T+9
1O5Mx/cuwC0z/YlSZfI/E6P7YTSLMMCRvks1i2fzP5ihUHjWizHAI6fsk4h/
9D+Q7l+4daUywBecBEvuhPU/huJD9h6vM8BbuNx4MIX2P0nsFLPKtTTAzTEH
Wjeb9z94fNX78tQ1wKG3qJOmnvg/PJeuf63iNsDeQfMALaP4P+jThGxl5zbA
Gsw9brOn+D9A8ut2Hew2wJTg0kjAsPg/9s4k5I31NsCICf392cL4PyxXSx5w
CDfAcFtRaA3n+D/td+IBOi43wED/+Tx0L/k/Hi0tDON5N8B9iUSq+jP5PwQL
DYmefjfAuhOPF4E4+T9ZeVIhWoM3wDQoJPKNQfk/MWfLo9GMN8AoUU6np1P5
P/Zqpe7BnzfAD6OiEdt3+T8W4pqNp8U3wEwt7X5hfPk/h1MauWTKN8CItzfs
54D5Pwd7+f4hzzfAAszMxvSJ+T8U2JbZnNg3wPb09nsOnPk/MGuPyJPrN8Az
f0HplKD5P7/nTcVR8DfAcAmMVhul+T9g9OzbD/U3wOodITEorvk/W+aNVoz+
N8AnqGuerrL5P3N4cLpKAzjAZDK2CzW3+T8H9PQ3CQg4wKG8AHm7u/k/0McL
z8cMOMDeRkvmQcD5PztspX+GETjAXotkTg==
"]]},
Annotation[#,
"Charting`Private`Tag$7533#1"]& ], {}}, {{}, {}, {}}}, {}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{-1.6094379124341003`, 0},
CoordinatesToolOptions:>{"DisplayFunction" -> ({
Exp[
Part[#, 1]],
Part[#, 2]}& ), "CopiedValueFunction" -> ({
Exp[
Part[#, 1]],
Part[#, 2]}& )},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {
Charting`ScaledTicks[{Log, Exp}],
Charting`ScaledFrameTicks[{Log, Exp}]}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None},
PlotRange->NCache[{{-1.6094379124341003`,
Log[5]}, {-24.068458536039753`, 0.}}, {{-1.6094379124341003`,
1.6094379124341003`}, {-24.068458536039753`, 0.}}],
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->FrontEndValueCache[{
Charting`ScaledTicks[{Log, Exp}],
Automatic}, {{{-1.6094379124341003`,
FormBox[
TagBox[
InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {-0.6931471805599453,
FormBox[
TagBox[
InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {0.,
FormBox["1", TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {0.6931471805599453,
FormBox["2", TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {1.6094379124341003`,
FormBox["5", TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {-1.2039728043259361`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.916290731874155,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.5108256237659907,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.35667494393873245`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.2231435513142097,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.10536051565782628`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {0.4054651081081644,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {1.0986122886681098`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {1.3862943611198906`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {1.791759469228055,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {1.9459101490553132`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {2.0794415416798357`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {2.1972245773362196`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {2.302585092994046,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}}, Automatic}]], {192., -116.80842387373012},
ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[
GraphicsBox[{{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
Opacity[1.], LineBox[CompressedData["
1:eJwBUQKu/SFib1JlAgAAACQAAAACAAAA3kZL5kHA+b83B55S/DMvwDltHrk2
vPm/jOX7Jd87L8CUk/GLK7j5v9MnnPbDQy/ASuCXMRWw+b+hAqGRk1MvwLV5
5Hzon/m/tdyuvEpzL8CMrH0Tj3/5v4Y+1VYZsy/AORKwQNw++b/gMrCQHRow
wJTdFJt2vfi/gEWI0laeMMAcF4yc5qT3v5ggUJ29yzHAQ0SMRe6e9r8TNIMa
WvgywBpKzHcZnvW/dbNwOTsyNMDD8rn2f4f0vzB1xxSRnTXACo8wHX6D87+4
knlSfQc3wCPOVJC3afK/RIEDxT2qOMDs5biMFFXxv0OwJgvvYTrAU/GlMAlT
8L/ZViFANhc8wBk/gUJydu6/sJSxyswQPsDIgshyAWzsvwEjrx0DBEDA13eP
tddr6r9jZ3glIQpBwImysZEkQOi/siXTDsA4QsB41OW8oDnmvziLR0AQZUPA
DDx1gZMH5L85xJyFDb9EwP9UhFjN3+G/kx5twT0oRsBeqkr9bLrfv/c+cVzt
jEfABjZDfCxe27/fnZla7iVJwCiQX5lKTNe/tsScSba4SsCSdTLpVePSv5m+
fBAGhEzAdnsJvN4dzb/e02mJqF1OwLyo9eHOCcW/+bD4/XkVUMAk2Z3aMo+4
vyK2D25uGVHAcjW/04RooL/hUgibgRRSwNxihMvVUZ8/kDu/VmMRU8AIn8eE
eDm5PwGYzP7FKVTAuHUPj4C6xD/gsKlkfTNVwFwFTnZqhs0/UngeSehVVsCz
Vw5jiqrOP3jbymWne1bA2xAtFw==
"]], LineBox[CompressedData["
1:eJwBsQJO/SFib1JlAgAAACoAAAACAAAAXd57+s7tzj/VJTWaWIRWwFr+Qjqk
G9c/072O5v57WMCriQg4v3nbPyhZs1k7l1nAgkaql3uN3z/0Zm4IaZpawE5Q
JulUxuE/LxMrpzGSW8C2NxxtdfHjPwPjI0q1llzA4TcAomb35T9eVObg84Bd
wGnyiD3hKOg/XzaZO3V0XsC0xf+JLDXqP1hNBAGLTV/Anuf2wzA37D9eltsP
OwxgwOTDkmS+ZO4/Y0B5yrB0YMB3XA5bjjbwP1XUoUb30GDAKrQlN4JQ8T8G
OiIGYS9hwC0z/YlSZfI/lxK33JSGYcCRvks1i2fzP/JnILwy02HAI6fsk4h/
9D9ITcasVCFiwBecBEvuhPU/VtBNMthlYsBbuNx4MIX2PyZUqvAPpWLAzTEH
Wjeb9z+S/WQbdeViwKG3qJOmnvg/7y/g0dIdY8DeQfMALaP4P2rtvafGHmPA
Gsw9brOn+D/rQAw6uh9jwJTg0kjAsPg/WLo/lKAhY8CICf392cL4P6vd5CBq
JWPAcFtRaA3n+D9F1Taq8CxjwED/+Tx0L/k/UMXp9Ms7Y8B9iUSq+jP5P/IC
Hnq3PGPAuhOPF4E4+T/icea9oj1jwDQoJPKNQfk/3aR3gXg/Y8AoUU6np1P5
P7gNdfogQ2PAD6OiEdt3+T/TQ6DCZUpjwEwt7X5hfPk/QX8COU1LY8CItzfs
54D5P4yuBm80TGPAAszMxvSJ+T/c9jcaAk5jwPb09nsOnPk/LfESb5pRY8Az
f0HplKD5PzaiWeR/UmPAcAmMVhul+T/aGMgZZVNjwOodITEorvk/DAlfxS5V
Y8AnqGuerrL5P2TUqDsTVmPAZDK2CzW3+T/qCF1y91ZjwKG8AHm7u/k/OUiM
adtXY8DeRkvmQcD5PwIxRyG/WGPAGclVQQ==
"]]},
Annotation[#,
"Charting`Private`Tag$7577#1"]& ], {}}, {{}, {}, {}}}, {}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{-1.6094379124341003`, 0},
CoordinatesToolOptions:>{"DisplayFunction" -> ({
Exp[
Part[#, 1]],
Part[#, 2]}& ), "CopiedValueFunction" -> ({
Exp[
Part[#, 1]],
Part[#, 2]}& )},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {
Charting`ScaledTicks[{Log, Exp}],
Charting`ScaledFrameTicks[{Log, Exp}]}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None},
PlotRange->NCache[{{-1.6094379124341003`,
Log[5]}, {-154.7733312979181, 0.}}, {{-1.6094379124341003`,
1.6094379124341003`}, {-154.7733312979181, 0.}}],
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->FrontEndValueCache[{
Charting`ScaledTicks[{Log, Exp}],
Automatic}, {{{-1.6094379124341003`,
FormBox[
TagBox[
InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {-0.6931471805599453,
FormBox[
TagBox[
InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {0.,
FormBox["1", TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {0.6931471805599453,
FormBox["2", TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {1.6094379124341003`,
FormBox["5", TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {-1.2039728043259361`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.916290731874155,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.5108256237659907,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.35667494393873245`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.2231435513142097,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.10536051565782628`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {0.4054651081081644,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {1.0986122886681098`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {1.3862943611198906`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {1.791759469228055,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {1.9459101490553132`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {2.0794415416798357`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {2.1972245773362196`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {2.302585092994046,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}}, Automatic}]], {576., -116.80842387373012},
ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}]}, {}},
ContentSelectable->True,
PlotRangePadding->{6, 5}]], "Print",
CellChangeTimes->{
3.7503062577472982`*^9, {3.750306311174515*^9, 3.7503063627276087`*^9},
3.750306873242323*^9, 3.750309682922563*^9, 3.7511132795600977`*^9,
3.751113312270072*^9},ExpressionUUID->"242372e2-5dd2-461f-94d1-\
baadd71196f8"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"###### m = \"\>", "\[InvisibleSpace]", "3",
"\[InvisibleSpace]", "\<\" ######\"\>"}],
SequenceForm["###### m = ", 3, " ######"],
Editable->False]], "Print",
CellChangeTimes->{
3.7503062577472982`*^9, {3.750306311174515*^9, 3.7503063627276087`*^9},
3.750306873242323*^9, 3.750309682922563*^9, 3.7511132795600977`*^9,
3.751113312278743*^9},ExpressionUUID->"62ba23b5-1090-419a-aa09-\
05d63d03e24e"],
Cell[BoxData[
InterpretationBox[
RowBox[{"\<\"\[Lambda] = \"\>", "\[InvisibleSpace]", "1.7556723686812108`"}],
SequenceForm["\[Lambda] = ", 1.7556723686812108`],
Editable->False]], "Print",
CellChangeTimes->{
3.7503062577472982`*^9, {3.750306311174515*^9, 3.7503063627276087`*^9},
3.750306873242323*^9, 3.750309682922563*^9, 3.7511132795600977`*^9,
3.751113312286786*^9},ExpressionUUID->"c1e81ee4-0314-4fd5-8717-\
2244cf720946"],
Cell[BoxData[
FractionBox["15",
RowBox[{"15", "+",
RowBox[{"26.335085530218162`", " ", "s"}], "+",
RowBox[{"18.49431279690416`", " ",
SuperscriptBox["s", "2"]}], "+",
RowBox[{"5.411658992545326`", " ",
SuperscriptBox["s", "3"]}]}]]], "Print",
CellChangeTimes->{
3.7503062577472982`*^9, {3.750306311174515*^9, 3.7503063627276087`*^9},
3.750306873242323*^9, 3.750309682922563*^9, 3.7511132795600977`*^9,
3.7511133122945557`*^9},ExpressionUUID->"7bca2c2d-4e84-4685-9ed6-\
bab9cd435005"],
Cell[BoxData[
FractionBox["2.7717932746063294`",
RowBox[{
RowBox[{"(",
RowBox[{"1.3226757999104455`", "\[VeryThinSpace]", "+",
RowBox[{"1.`", " ", "s"}]}], ")"}], " ",
RowBox[{"(",
RowBox[{"2.095595364180701`", "\[VeryThinSpace]", "+",
RowBox[{"2.09481832201787`", " ", "s"}], "+",
RowBox[{"1.`", " ",
SuperscriptBox["s", "2"]}]}], ")"}]}]]], "Print",
CellChangeTimes->{
3.7503062577472982`*^9, {3.750306311174515*^9, 3.7503063627276087`*^9},
3.750306873242323*^9, 3.750309682922563*^9, 3.7511132795600977`*^9,
3.751113312301804*^9},ExpressionUUID->"810b4fbd-f9f7-494f-95e1-\
37db12beb13b"],
Cell[BoxData[
GraphicsBox[{{}, {InsetBox[
GraphicsBox[{{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
Opacity[1.], LineBox[CompressedData["
1:eJwB8QEO/iFib1JlAgAAAB4AAAACAAAA3kZL5kHA+b8VfQi5NIi7vzltHrk2
vPm/6hdnVjKWu7+Uk/GLK7j5v679Ehg3pLu/SuCXMRWw+b+MvgwXVsC7v7V5
5Hzon/m/6CILa+r4u7+MrH0Tj3/5v8TEsa1va7y/ORKwQNw++b/dGVYZB1a9
v5TdFJt2vfi/vhwPEERCv78cF4yc5qT3v5RNssvw78G/Q0SMRe6e9r/gElVW
pWbEvxpKzHcZnvW/Zemzo6klx7/D8rn2f4f0v3SuPTGljMq/Co8wHX6D87+4
56oz1y3OvyPOVJC3afK/JSsAKkdX0b/s5biMFFXxv2hn+0Pl4dO/U/GlMAlT
8L/4u0Um35fWvxk/gUJydu6/hblnkcH12b/IgshyAWzsv4uMF9lwkN2/13eP
tddr6r/vfW+2J8zgv4mysZEkQOi/XUhcPhpO47941OW8oDnmv1Vb3Q4N/uW/
DDx1gZMH5L8zFpqpXFjpv/9UhFjN3+G/TiyLnHUn7b9eqkr9bLrfv44oNfBD
n/C/BjZDfCxe27/Xi/HrpS7zvyiQX5lKTNe/3fY/igPy9b+SdTLpVePSv0fR
boFuavm/dnsJvN4dzb/zTkO03WL9v7yo9eHOCcW/E6Izr57WAMCd1zW5UBG7
v6yVxNaaHwPADnwSWg==
"]], LineBox[CompressedData["
1:eJwBEQPu/CFib1JlAgAAADAAAAACAAAAScpaiseKur/itRLzgzUDwHI1v9OE
aKC/js6UlnV0BsDcYoTL1VGfP8419HrpvgnACJ/HhHg5uT+0dJSQT9sNwLh1
D4+AusQ/lRI9P9MgEcBcBU52aobNP0DS8c0Z2RPAwefGCZwU0z8f6mxkguEW
wFr+QjqkG9c/cvRaFxIMGsCriQg4v3nbP6K3JOaq2h3Agkaql3uN3z/L1BKz
huAgwE5QJulUxuE/fd1EF9jxIsC2NxxtdfHjPw2kqNM2WiXA4TcAomb35T+V
YtWhfr0nwGnyiD3hKOg/5x2ogZB3KsC0xf+JLDXqP+S6lXvJIC3Anuf2wzA3
7D/z9ztiq9QvwOTDkmS+ZO4/OKlQxCxtMcB3XA5bjjbwP7G9CpqK3zLAKrQl
N4JQ8T/1uUXRgnk0wC0z/YlSZfI/jPuta2ATNsCRvks1i2fzP6hIUiVElzfA
I6fsk4h/9D+kDFGc90A5wBecBEvuhPU/D/4lwXfSOsBbuNx4MIX2P2Lp96BP
XzzAzTEHWjeb9z8HdImn8hA+wKG3qJOmnvg/FCPw6Q2oP8DeQfMALaP4P1LW
WJQsrz/AGsw9brOn+D+yKyNnS7Y/wJTg0kjAsPg/RN9uhYnEP8CICf392cL4
PwDS5aEH4T/AcFtRaA3n+D8CvVehBQ1AwED/+Tx0L/k/36FXtRdGQMB9iUSq
+jP5P5h3x3apSUDAuhOPF4E4+T/JkcNKO01AwDQoJPKNQfk/74QuKl9UQMAo
UU6np1P5P+AEc8WnYkDAD6OiEdt3+T8MYPFiPH9AwEwt7X5hfPk/O79aR8+C
QMCItzfs54D5P9FKjD1ihkDAAszMxvSJ+T9LGxhfiI1AwPb09nsOnPk/5/mF
ddWbQMAzf0HplKD5P7rW4+Zon0DAcAmMVhul+T+uK6tp/KJAwOodITEorvk/
vIhHoyOqQMAnqGuerrL5P6xLBVq3rUDAZDK2CzW3+T9c/P0hS7FAwKG8AHm7
u/k/jQ0m+960QMDeRkvmQcD5P336ceVyuEDA9UKNiA==
"]]},
Annotation[#,
"Charting`Private`Tag$8114#1"]& ], {}}, {{}, {}, {}}}, {}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{-1.6094379124341003`, 0},
CoordinatesToolOptions:>{"DisplayFunction" -> ({
Exp[
Part[#, 1]],
Part[#, 2]}& ), "CopiedValueFunction" -> ({
Exp[
Part[#, 1]],
Part[#, 2]}& )},
DisplayFunction->Identity,
Frame->{{False, False}, {False, False}},
FrameLabel->{{None, None}, {None, None}},
FrameTicks->{{Automatic, Automatic}, {
Charting`ScaledTicks[{Log, Exp}],
Charting`ScaledFrameTicks[{Log, Exp}]}},
GridLines->{None, None},
GridLinesStyle->Directive[
GrayLevel[0.5, 0.4]],
ImagePadding->All,
Method->{
"DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" ->
AbsolutePointSize[6], "ScalingFunctions" -> None},
PlotRange->NCache[{{-1.6094379124341003`,
Log[5]}, {-33.44100635590892, 0.}}, {{-1.6094379124341003`,
1.6094379124341003`}, {-33.44100635590892, 0.}}],
PlotRangeClipping->True,
PlotRangePadding->{{
Scaled[0.02],
Scaled[0.02]}, {
Scaled[0.05],
Scaled[0.05]}},
Ticks->FrontEndValueCache[{
Charting`ScaledTicks[{Log, Exp}],
Automatic}, {{{-1.6094379124341003`,
FormBox[
TagBox[
InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {-0.6931471805599453,
FormBox[
TagBox[
InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True],
NumberForm[#, {
DirectedInfinity[1], 1}]& ], TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {0.,
FormBox["1", TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {0.6931471805599453,
FormBox["2", TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {1.6094379124341003`,
FormBox["5", TraditionalForm], {0.01, 0.}, {
AbsoluteThickness[0.1]}}, {-1.2039728043259361`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.916290731874155,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.5108256237659907,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.35667494393873245`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.2231435513142097,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {-0.10536051565782628`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {0.4054651081081644,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {1.0986122886681098`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {1.3862943611198906`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {1.791759469228055,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {1.9459101490553132`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {2.0794415416798357`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {2.1972245773362196`,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}, {2.302585092994046,
FormBox[
TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}, {
AbsoluteThickness[0.1]}}}, Automatic}]], {192., -116.80842387373012},
ImageScaled[{0.5, 0.5}], {360., 222.49223594996212}], InsetBox[
GraphicsBox[{{{{}, {},
TagBox[
{RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6],
Opacity[1.], LineBox[CompressedData["
1:eJwB8QEO/iFib1JlAgAAAB4AAAACAAAA3kZL5kHA+b8hmZsYVh40wDltHrk2
vPm/U43/XWwjNMCUk/GLK7j5v0oHqOyDKDTASuCXMRWw+b9GixPntjI0wLV5
5Hzon/m/rWN0WSxHNMCMrH0Tj3/5v34Dn31VcDTAORKwQNw++b802v4Ro8M0
wJTdFJt2vfi/SbKOJD5uNcAcF4yc5qT3v5wic0Qy8zbAQ0SMRe6e9r9Kf3yT
Onc4wBpKzHcZnvW/gu97qoMMOsDD8rn2f4f0v8h1exna4TvACo8wHX6D87/5
Xa/hnLU9wCPOVJC3afK/rQjPYDHTP8Ds5biMFFXxvymgKIgvBkHAU/GlMAlT
8L+N0yeJhiFCwBk/gUJydu6/2WDvtJdpQ8DIgshyAWzsvyBJcqW2sETA13eP
tddr6r8Tc+KQOgZGwImysZEkQOi/JnGFO56RR8B41OW8oDnmv6CKKpBcG0nA
DDx1gZMH5L+k2rOz+eJKwP9UhFjN3+G/pTXMyz/BTMBeqkr9bLrfv2H1bKii
nE7ABjZDfCxe27+1LFtfCmFQwCiQX5lKTNe/IuG7YSlyUcCSdTLpVePSv8b+
htIorVLAdnsJvN4dzb/keREYbPZTwLyo9eHOCcW/w9R/n+o7VcCd1zW5UBG7
v0dX2wtKelbAARkCVQ==
"]], LineBox[CompressedData["
1:eJwBsQJO/SFib1JlAgAAACoAAAACAAAAScpaiseKur++BJcnt4VWwHI1v9OE
aKC/R/fIsw0gWMDcYoTL1VGfPwRJzs/MmFnACJ/HhHg5uT/uckUWCkNbwLh1
D4+AusQ/Ezis/kXfXMBcBU52aobNP0N5jL/Jql7AwefGCZwU0z9vZ7Tjdztg
wFr+QjqkG9c/wWicLRoUYcCriQg4v3nbPwl3lATr/mHAgkaql3uN3z99RI1z
2NdiwE5QJulUxuE/OiJMtHmoY8C2NxxtdfHjP9K7nyuAhGTA4TcAomb35T9m
dLq/aUplwMxabowsAOY/db/SmLJNZcC2fdx28gjmP3hzMdj6UGXAisO4S34a
5j+gNruIiVdlwDJPcfWVPeY/ap3pqZ9kZcCDZuJIxYPmP9Fpe7WufmXAJZXE
7yMQ5z9dUWRPVrJlwBC4MtrpGOc/XeuAeou1ZcD62qDEryHnP8u8iATAuGXA
ziB9mTsz5z8GRYw0J79lwHasNUNTVuc/o9za/u3LZcDHw6aWgpznP2uUvhFd
5WXAafKIPeEo6D+w1yLwvxdmwLbNumoSMeg/I8WNm6saZsAEqeyXQznoP9dU
oLWWHWbAnl9Q8qVJ6D+FR0A1ayNmwNLMF6dqaug/iQIYXw0vZsA8p6YQ9Kvo
P6P3iEM2RmbAiYLYPSW06D/aQoTLGElmwNZdCmtWvOg/EONZwPpLZsBwFG7F
uMzoP8o4K/C8UWbApYE1en3t6D90L5hlOl1mwPJcZ6eu9eg/BwmWURhgZsBA
OJnU3/3oP1T1o6n1YmbA2u78LkIO6T/JYZCdrmhmwA5cxOMGL+k/UwYekhl0
ZsBbN/YQODfpPyXuDNzydmbAqBIoPmk/6T/GBFSRy3lmwPbtWWuaR+k/4pLd
saN8ZsBIZQPj4UjpP6ecSFYVfWbArNFbMQ==
"]], LineBox[CompressedData["
1:eJwBQQO+/CFib1JlAgAAADMAAAACAAAA8sbeCLNZ6T+CRy3zFX1mQCtbISBf
aOk/vxkMnQF4ZkB4NlNNkHDpP3E0cmUsdWZAxRGFesF46T85TRLDV3JmQBLt
tqfygOk/VysAtoNvZkCsoxoCVZHpP8D2ElzdaWZA4RDithmy6T90ziWrl15m
QC7sE+RKuuk/agFHtcdbZkB8x0URfMLpP7NuSlX4WGZAFn6pa97S6T+1GT1X
W1NmQErrcCCj8+k/zcmmZChIZkC0xf+JLDXqPzRmWLPeMWZAPKLnmjQ96j/f
Jo0PJi9mQMN+z6s8Reo/I/W+/G0sZkDSN5/NTFXqPyNOS4r/JmZA8ak+EW11
6j9aBlVzKRxmQC6OfZitteo/2wDdhpgGZkCpVvumLjbrP3V+g/Xj22VAnuf2
wzA37D9fVd1LMYhlQOTDkmS+ZO4/mxLGhHjaZEB3XA5bjjbwP6drfrztQWRA
KrQlN4JQ8T8dgOZCzKZjQC0z/YlSZfI/gaV4v2IYY0CRvks1i2fzP+GwfJfz
m2JAI6fsk4h/9D+7ygYutR1iQBecBEvuhPU/8TMb44evYUBbuNx4MIX2P8Oi
QbFJSmFAzTEHWjeb9z+4to0tjeNgQKG3qJOmnvg/+hNGsu6JYEDeQfMALaP4
P2diF55riGBAGsw9brOn+D+hhjT66IZgQJTg0kjAsPg/q4/OAuWDYECICf39
2cL4Py046VHifWBAcFtRaA3n+D+RUhHL8XFgQED/+Tx0L/k/b0iuRWNaYEB9
iUSq+jP5P/o4yfvtWGBAuhOPF4E4+T9FKiIeeVdgQDQoJPKNQfk/sI8Op5BU
YEAoUU6np1P5P/TIVsbETmBAD6OiEdt3+T83H+weQUNgQEwt7X5hfPk//eIH
itJBYECItzfs54D5PziKZ19kQGBAAszMxvSJ+T8/J3VIiT1gQPb09nsOnPk/
RfhdENg3YEAzf0HplKD5P3r4LMpsNmBAcAmMVhul+T8SA0btATVgQOodITEo
rvk/ee3Zbi0yYEAnqGuerrL5P7a9Fs3DMGBAZDK2CzW3+T8veSGUWi9gQKG8
AHm7u/k/ey3bw/EtYEDeRkvmQcD5P8PwJFyJLGBARzKHbA==
"]]},
Annotation[#,
"Charting`Private`Tag$8158#1"]& ], {}}, {{}, {}, {}}}, {}, {}},
AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
Axes->{True, True},
AxesLabel->{None, None},
AxesOrigin->{-1.6094379124341003`, 0},
CoordinatesToolOptions:>{"DisplayFunction" -> ({
Exp[
Part[#, 1]],
Part[#, 2]}& ), "CopiedValueFunction" -> ({